BEGIN
MaxDocDate = 0;
FOR
SELECT DOCDATE$DATE, PAMOUNT, ORDNUMBER, DOCQUEUE_ID, PERIOD_ID
FROM PaymentsForDocument (:APDocumentType, :APDocument_ID, 0)
WHERE
(DocumentType <> '13') and (DocumentType <> '14')
INTO
LastDocDate, LastPAMount, LastOrdNumber, LastDocQueue_ID, LastPeriod_ID
DO
IF (LastDocDate > MaxDocDate) THEN BEGIN
MaxDocDate = LastDocDate;
DocDate$DATE = LastDocDate;
PAmount = LastPAmount;
OrdNumber = LastOrdNumber;
DocQueue_ID = LastDocQueue_ID;
Period_ID = LastPeriod_ID;
END
SUSPEND;
END;