BEGIN
/* Ziskani zauctovani... */
mLocalAmount = ALocalRoundingAmount;
mLocalAmountWithoutVAT = ALocalRoundingAmount;
mWithouVAT = 0;
IF (ALocalRoundingAmount <> CAST(0.00 AS NUMERIC(15, 2))) THEN
mWithouVAT = 1;
FOR
SELECT VATRate_ID, LocalAmount, LocalAmountWithoutVAT
FROM CashBookDetailedRawRows(:ACashDoc_ID, :ACashDocRelDef, :ADivisionsSel_ID,
:ADivisionsWithChildren, :ABusOrdersSel_ID, :ABusOrdersWithChildren,
:ABusTransactionsSel_ID, :ABusTransactionsWithChildren,
:ABusProjectsSel_ID, :ABusProjectsWithChildren)
INTO
:VATRate_ID, :LocalAmount, :LocalAmountWithoutVAT
DO BEGIN
IF (VATRate_ID IS NULL) THEN BEGIN
mLocalAmount = mLocalAmount + LocalAmount;
mLocalAmountWithoutVAT = mLocalAmountWithoutVAT + LocalAmountWithoutVAT;
mWithouVAT = mWithouVAT + 1;
END
ELSE BEGIN
/* ostatni sazby se pousteji dal beze zmeny */
SUSPEND;
END
END
IF (mWithouVAT > 0) THEN BEGIN
VATRate_ID = Null;
LocalAmount = mLocalAmount;
LocalAmountWithoutVAT = mLocalAmountWithoutVAT;
SUSPEND;
END
END;