To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
To install this hotfix, change the Data Item Number 2 section in the Vendor - Due Payments report (7000007) as follows:
...
SETRANGE("Due Date",FromDate,ToDate);
FILTERGROUP(0);
SETRANGE("Due Date",Date."Period Start",Date."Period End");
END;
// Delete the following line.
OnAfterGetRecord=BEGIN
CLEAR(PurchInv);
PaymentMethod := '';
CALCFIELDS("Remaining Amount","Remaining Amt. (LCY)");
CASE "Document Type" OF
"Document Type"::Invoice:
...
...
SETRANGE("Due Date",FromDate,ToDate);
FILTERGROUP(0);
SETRANGE("Due Date",Date."Period Start",Date."Period End");
END;
// Add the following lines.
OnAfterGetRecord=VAR
PurchCrMemo@1000 : Record 124;
BEGIN
// End of the lines.
CLEAR(PurchInv);
PaymentMethod := '';
CALCFIELDS("Remaining Amount","Remaining Amt. (LCY)");
CASE "Document Type" OF
"Document Type"::Invoice:
...
...
IF ClosedDoc.FIND('-') THEN
PaymentMethod := ClosedDoc."Payment Method Code";
END;
END;
END;
END;
AccumRemainingAmtLCYTrans := AccumRemainingAmtLCY;
AccumRemainingAmtLCY := AccumRemainingAmtLCY + "Remaining Amt. (LCY)";
...
...
IF ClosedDoc.FIND('-') THEN
PaymentMethod := ClosedDoc."Payment Method Code";
END;
END;
END;
// Add the following lines.
"Document Type"::"Credit Memo":
IF PurchCrMemo.GET("Document No.") THEN
PaymentMethod := PurchCrMemo."Payment Method Code";
// End of the lines.
END;
AccumRemainingAmtLCYTrans := AccumRemainingAmtLCY;
AccumRemainingAmtLCY := AccumRemainingAmtLCY + "Remaining Amt. (LCY)";
...