BEGIN
IF (:Credit = 'A') THEN BEGIN
/* výdeje z pokladního místa */
DocumentType = 'CP' ;
FOR
SELECT
ID, Amount - PaidAmount, Currency_ID, DocDate$Date
FROM
POSCashPaid
WHERE
VarSymbol LIKE :VarSymbol
AND
((:Firm_ID = '0000000000')
OR
(Firm_ID = :Firm_ID))
INTO
:ID, :Amount, :Currency_ID, :DueDate$Date
DO
SUSPEND ;
END ELSE BEGIN
/* vkladů do pokladního místa */
DocumentType = 'CR' ;
FOR
SELECT
ID, Amount - PaidAmount, Currency_ID, DocDate$Date
FROM
POSCashReceived
WHERE
VarSymbol LIKE :VarSymbol
AND
((:Firm_ID = '0000000000')
OR
(Firm_ID = :Firm_ID))
INTO
:ID, :Amount, :Currency_ID, :DueDate$Date
DO
SUSPEND ;
END
END;