begin
TEXT = '';
DocumentDisplayName = '';
IF (ADocumentType = 'CP') THEN BEGIN
RealCredit = 'A';
AsCredit = 'A';
SELECT B.Description, D.Code || '-' || B.OrdNumber || '/' || P.Code,
D.Code || '-' || IB_LPad(B.OrdNumber,8,'0') || '/' || P.Code
FROM POSCashPaid B
JOIN PaymentTypes PT ON PT.ID = B.PaymentType_ID
JOIN DocQueues D ON D.ID = B.DocQueue_ID
JOIN Periods P ON P.ID = B.Period_ID
WHERE B.ID = :ADocument_ID
INTO :Text, :DocumentDisplayName, :Sort_DocumentDisplayName;
END ELSE IF (ADocumentType = 'CR') THEN BEGIN
RealCredit = 'N';
AsCredit = 'N';
SELECT B.Description, D.Code || '-' || B.OrdNumber || '/' || P.Code,
D.Code || '-' || IB_LPad(B.OrdNumber,8,'0') || '/' || P.Code
FROM POSCashReceived B
JOIN DocQueues D ON D.ID = B.DocQueue_ID
JOIN Periods P ON P.ID = B.Period_ID
WHERE B.ID = :ADocument_ID
INTO :Text, :DocumentDisplayName, :Sort_DocumentDisplayName;
END
SUSPEND;
end