BEGIN
PAmount = 0;
LocalPAmount = 0;
Amount = 0;
LocalAmount = 0;
AmountWithoutVAT = 0;
LocalAmountWithoutVAT = 0;
FOR
SELECT
A.ID, A.Amount, A.LocalAmount, A.AmountWithoutVAT, A.LocalAmountWithoutVAT
FROM
VATReceivedDCreditNotes A
WHERE
(A.Source_ID = :ASource_ID)
AND ( (A.AccDate$DATE <= :AEndDate) OR (:AEndDate = 0) )
INTO
mID, mAmount, mLocalAmount, mAmountWithoutVAT, mLocalAmountWithoutVAT
DO BEGIN
Amount = Amount + mAmount;
LocalAmount = LocalAmount + mLocalAmount;
AmountWithoutVAT = AmountWithoutVAT + mAmountWithoutVAT;
LocalAmountWithoutVAT = LocalAmountWithoutVAT + mLocalAmountWithoutVAT;
SELECT
COALESCE(SUM(PAmount), 0), COALESCE(SUM(LocalPAmount), 0)
FROM
PaymentsForDocument('65', :mID, :AEndDate)
INTO
mPAmount, mLocalPAmount;
PAmount = PAmount + mPAmount;
LocalPAmount = LocalPAmount + mLocalPAmount;
END
SUSPEND;
END;