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.
function in the Gen. Journal Line table (81) as follows:
...
IF "Posting Date" <= CustLedgEntry."Pmt. Discount Date" THEN
Amount := -(CustLedgEntry."Remaining Amount" - CustLedgEntry."Remaining Pmt. Disc. Possible")
ELSE
Amount := -CustLedgEntry."Remaining Amount";
VALIDATE(Amount);
"Document Type" := "Document Type"::Payment;
"Applies-to Doc. Type" := CustLedgEntry."Document Type";
"Applies-to Doc. No." := CustLedgEntry."Document No.";
...
...
IF "Posting Date" <= CustLedgEntry."Pmt. Discount Date" THEN
Amount := -(CustLedgEntry."Remaining Amount" - CustLedgEntry."Remaining Pmt. Disc. Possible")
ELSE
Amount := -CustLedgEntry."Remaining Amount";
// Add the following lines.
IF "Currency Code" <> CustLedgEntry."Currency Code" THEN BEGIN
FromCurrencyCode := GetShowCurrencyCode("Currency Code");
ToCurrencyCode := GetShowCurrencyCode(CustLedgEntry."Currency Code");
IF NOT
CONFIRM(
Text003 +
Text004,TRUE,
FIELDCAPTION("Currency Code"),TABLECAPTION,FromCurrencyCode,
ToCurrencyCode)
THEN
ERROR(Text005);
VALIDATE("Currency Code",CustLedgEntry."Currency Code");
END;
// End of the lines.
VALIDATE(Amount);
"Document Type" := "Document Type"::Payment;
"Applies-to Doc. Type" := CustLedgEntry."Document Type";
"Applies-to Doc. No." := CustLedgEntry."Document No.";
...