BEGIN
PAmount = 0;
LocalPAmount = 0;
Amount = 0;
LocalAmount = 0;
AmountWithoutVAT = 0;
LocalAmountWithoutVAT = 0;
RoundingAmount = 0;
LocalRoundingAmount = 0;
FOR
SELECT
A.ID,
A.Amount,
A.LocalAmount,
A.AmountWithoutVAT,
A.LocalAmountWithoutVAT,
A.RoundingAmount,
A.LocalRoundingAmount
FROM
VATIssuedDCreditNotes A
WHERE
(A.Source_ID = :ASource_ID)
AND ( (A.AccDate$DATE <= :AEndDate) OR (:AEndDate = 0) )
INTO
mID,
mAmount,
mLocalAmount,
mAmountWithoutVAT,
mLocalAmountWithoutVAT,
mRoundingAmount,
mLocalRoundingAmount
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('63', :mID, :AEndDate)
INTO
mPAmount, mLocalPAmount;
PAmount = PAmount + mPAmount;
LocalPAmount = LocalPAmount + mLocalPAmount;
RoundingAmount = RoundingAmount + mRoundingAmount;
LocalRoundingAmount = LocalRoundingAmount + mLocalRoundingAmount;
END
SUSPEND;
END;