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
ReceivedCreditNotes A
WHERE
(A.Source_ID = :ASource_ID)
AND ( (A.AccDate$DATE <= :AEndDate) OR (:AEndDate = 0) )
INTO
mID, 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;
SELECT
SUM(PAmount), SUM(LocalPAmount)
FROM
PaymentsForDocument('61', :mID, :AEndDate)
INTO
mPAmount, mLocalPAmount;
if (mPAmount IS NOT NULL) THEN
PAmount = PAmount + mPAmount;
if (mLocalPAmount IS NOT NULL) THEN
LocalPAmount = LocalPAmount + mLocalPAmount;
END
SUSPEND;
END;