BEGIN
UsedAmount = 0;
LocalUsedAmount = 0;
UsedAmountWithoutVAT = 0;
LocalUsedAmountWithoutVAT = 0;
FOR
SELECT
(-1*A.TAmount), (-1*A.LocalTAmount), (-1*A.TAmountWithoutVAT), (-1*A.LocalTAmountWithoutVAT), A.ID
FROM
ReceivedInvoices2 A
JOIN ReceivedInvoices II on II.ID = A.Parent_ID
WHERE
(((A.VATDeposit_ID = :ASource_ID) and (:ARowSource = 'N')) or ((A.VATDepositRow_ID = :ASource_ID) and (:ARowSource = 'A')))
AND ((II.AccDate$DATE <= :AEndDate) OR (:AEndDate = 0))
INTO
mUsedAmount, mLocalUsedAmount, mUsedAmountWithoutVAT, mLocalUsedAmountWithoutVAT, mInvoiceRowID
DO BEGIN
UsedAmount = UsedAmount + mUsedAmount;
LocalUsedAmount = LocalUsedAmount + mLocalUsedAmount;
UsedAmountWithoutVAT = UsedAmountWithoutVAT + mUsedAmountWithoutVAT;
LocalUsedAmountWithoutVAT = LocalUsedAmountWithoutVAT + mLocalUsedAmountWithoutVAT;
/* Odecteni dobropisu radky */
SELECT
UsedAmount, LocalUsedAmount, UsedAmountWithoutVAT, LocalUsedAmountWithoutVAT
FROM
UsedAmountsForRecCrNotes(:mInvoiceRowID, :AEndDate)
INTO
mUsedAmount, mLocalUsedAmount, mUsedAmountWithoutVAT, mLocalUsedAmountWithoutVAT;
UsedAmount = UsedAmount + mUsedAmount;
LocalUsedAmount = LocalUsedAmount + mLocalUsedAmount;
UsedAmountWithoutVAT = UsedAmountWithoutVAT + mUsedAmountWithoutVAT;
LocalUsedAmountWithoutVAT = LocalUsedAmountWithoutVAT + mLocalUsedAmountWithoutVAT;
END
SUSPEND;
END