BEGIN
IF (ADocumentType = 'CR') THEN BEGIN
SELECT A.DocDate$DATE, A.Description, D.Code || '-' || A.OrdNumber || '/' || P.Code, D.Name,
D.Code || '-' || IB_LPad(A.OrdNumber, 8, '0') || '/' || P.Code,
SUM(PM.LOCALAMOUNT)
FROM PAYMENTS PM
JOIN POSCashReceived A ON A.ID = PM.DOCUMENT_ID
JOIN DocQueues D ON D.ID = A.DocQueue_ID
JOIN Periods P ON P.ID = A.Period_ID
WHERE (PM.DOCUMENT_ID=:ADocument_ID) AND (PM.DOCUMENTTYPE = :ADocumentType)
GROUP BY 1,2,3,4,5
INTO :DocDate$DATE, :Text, :DocumentDisplayName, :mText, :Sort_DocumentDisplayName, :LOCALAMOUNT;
IF (:DocDate$DATE < :AEndDate) THEN BEGIN
IF (Text = '') THEN
Text = mText;
SUSPEND;
END
END
-- POSCashReceived
-- POSCashPaid
IF (ADocumentType = 'CP') THEN BEGIN
SELECT A.DocDate$DATE, A.Description, D.Code || '-' || A.OrdNumber || '/' || P.Code, D.Name,
D.Code || '-' || IB_LPad(A.OrdNumber, 8, '0') || '/' || P.Code,
SUM(PM.LOCALAMOUNT)
FROM PAYMENTS PM
JOIN POSCashPaid A ON A.ID = PM.DOCUMENT_ID
JOIN DocQueues D ON D.ID = A.DocQueue_ID
JOIN Periods P ON P.ID = A.Period_ID
WHERE (PM.DOCUMENT_ID=:ADocument_ID) AND (PM.DOCUMENTTYPE = :ADocumentType)
GROUP BY 1,2,3,4,5
INTO :DocDate$DATE, :Text, :DocumentDisplayName, :mText, :Sort_DocumentDisplayName, :LOCALAMOUNT;
IF (:DocDate$DATE < :AEndDate) THEN BEGIN
IF (Text = '') THEN
Text = mText;
SUSPEND;
END
END
-- POSCashPaid
END