BEGIN
UsedAmount = 0;
LocalUsedAmount = 0;
UsedAmountWithoutVAT = 0;
LocalUsedAmountWithoutVAT = 0;
FOR
SELECT
A.TAmount, A.LocalTAmount, A.TAmountWithoutVAT, A.LocalTAmountWithoutVAT
FROM
ReceivedCreditNotes2 A
JOIN ReceivedCreditNotes II on II.ID = A.Parent_ID
WHERE
(A.RSource_ID = :AInvoiceRow_ID)
AND ( (II.AccDate$DATE <= :AEndDate) OR (:AEndDate = 0) )
INTO
mUsedAmount, mLocalUsedAmount, mUsedAmountWithoutVAT, mLocalUsedAmountWithoutVAT
DO BEGIN
UsedAmount = UsedAmount + mUsedAmount;
LocalUsedAmount = LocalUsedAmount + mLocalUsedAmount;
UsedAmountWithoutVAT = UsedAmountWithoutVAT + mUsedAmountWithoutVAT;
LocalUsedAmountWithoutVAT = LocalUsedAmountWithoutVAT + mLocalUsedAmountWithoutVAT;
END
SUSPEND;
END;