BEGIN
FOR
SELECT
VATIndex_ID,
SUM(TAmountWithoutVAT), SUM(TAmount), SUM(ForeignTAmountWithoutVAT), SUM(ForeignTAmount)
FROM
(
SELECT
VATIndex_ID,
TAmountWithoutVAT, TAmount, ForeignTAmountWithoutVAT, ForeignTAmount
FROM
GroupedVATSummaryInv(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
:ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
:ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID)
UNION ALL
SELECT
VATIndex_ID,
TAmountWithoutVAT, TAmount, ForeignTAmountWithoutVAT, ForeignTAmount
FROM
GroupedVATSummaryAcc(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
:ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
:ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID)
UNION ALL
SELECT
VATIndex_ID,
TAmountWithoutVAT, TAmount, ForeignTAmountWithoutVAT, ForeignTAmount
FROM
GroupedVATSummaryCash(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
:ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
:ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID)
UNION ALL
SELECT
VATIndex_ID,
TAmountWithoutVAT, TAmount, ForeignTAmountWithoutVAT, ForeignTAmount
FROM
GroupedVATSummaryPos(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
:ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
:ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID)
UNION ALL
SELECT
VATIndex_ID,
TAmountWithoutVAT, TAmount, ForeignTAmountWithoutVAT, ForeignTAmount
FROM
GroupedVATSummaryPayments(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
:ABusTransactionsSelID, :ABusProjectsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
:ABusOrdersWithChilds, :ABusTransactionsWithChilds, :ABusProjectsWithChilds, :AVATCountry_ID)
)
GROUP BY VATIndex_ID
INTO
:VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
DO begin
SUSPEND;
end
END