BEGIN
Amount = 0;
LocalAmount = 0;
AmountWithoutVAT = 0;
LocalAmountWithoutVAT = 0;
FOR SELECT
A.TAmount, A.LocalTAmount, A.TAmountWithoutVAT, A.LocalTAmountWithoutVAT
FROM
VATReceivedDCreditNotes2 A
JOIN VATReceivedDCreditNotes B on B.ID = A.Parent_ID
WHERE
(A.RSource_ID = :ASource_ID)
AND ( (B.AccDate$DATE <= :AEndDate) OR (:AEndDate = 0) )
INTO
mAmount, mLocalAmount, mAmountWithoutVAT, mLocalAmountWithoutVAT
DO BEGIN
if (mAmount IS NOT NULL) THEN
Amount = Amount + mAmount;
if (mLocalAmount IS NOT NULL) THEN
LocalAmount = LocalAmount + mLocalAmount;
if (mAmountWithoutVAT IS NOT NULL) THEN
AmountWithoutVAT = AmountWithoutVAT + mAmountWithoutVAT;
if (mLocalAmountWithoutVAT IS NOT NULL) THEN
LocalAmountWithoutVAT = LocalAmountWithoutVAT + mLocalAmountWithoutVAT;
END
SUSPEND;
END;