BEGIN
/* prodej */
FOR
SELECT
A.VATIndex_ID,
SUM(A.TAmountWithoutVAT),
SUM(A.TAmount),
SUM(A.ForeignTAmountWithoutVAT),
SUM(A.ForeignTAmount)
FROM
GroupedVATPosIncome(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
:ABusTransactionsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
:ABusOrdersWithChilds, :ABusTransactionsWithChilds, :AVATCountry_ID) A
WHERE
A.VATIndex_ID IS NOT NULL
GROUP BY
A.VATIndex_ID
INTO
:VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
DO BEGIN
SUSPEND;
END
/* vracení (zde se nemusi otacet znamenko, protoze jsou zaporne castky v datech) */
FOR
SELECT
A.VATIndex_ID,
SUM(A.TAmountWithoutVAT),
SUM(A.TAmount),
SUM(A.ForeignTAmountWithoutVAT),
SUM(A.ForeignTAmount)
FROM
GroupedVATPosRefund(:AFirmSelID, :ADivisionsSelID, :ABusOrdersSelID,
:ABusTransactionsSelID, :AVATDateFrom, :AVATDateTo, :ADivisionsWithChilds,
:ABusOrdersWithChilds, :ABusTransactionsWithChilds, :AVATCountry_ID) A
WHERE
A.VATIndex_ID IS NOT NULL
GROUP BY
A.VATIndex_ID
INTO
:VATIndex_ID, :TAmountWithoutVAT, :TAmount, :ForeignTAmountWithoutVAT, :ForeignTAmount
DO BEGIN
SUSPEND;
END
END;