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.
...
CurrForm.SETSELECTIONFILTER(VendLedgEntry);
IF GenJnlLineApply THEN
VendEntrySetApplID.SetApplId(VendLedgEntry,ApplyingVendLedgEntry,AppliedAmount,PmtDiscAmount,GenJnlLine."Applies-to ID")
ELSE
VendEntrySetApplID.SetApplId(VendLedgEntry,ApplyingVendLedgEntry,AppliedAmount,PmtDiscAmount,PurchHeader."Applies-to ID");
// Delete the following line.
ActionPerformed := TRUE;
CalcApplnAmount;
END;
PROCEDURE CalcApplnAmount@7();
VAR
...
...
CurrForm.SETSELECTIONFILTER(VendLedgEntry);
IF GenJnlLineApply THEN
VendEntrySetApplID.SetApplId(VendLedgEntry,ApplyingVendLedgEntry,AppliedAmount,PmtDiscAmount,GenJnlLine."Applies-to ID")
ELSE
VendEntrySetApplID.SetApplId(VendLedgEntry,ApplyingVendLedgEntry,AppliedAmount,PmtDiscAmount,PurchHeader."Applies-to ID");
// Add the following line.
ActionPerformed := VendLedgEntry."Applies-to ID" <> '';
CalcApplnAmount;
END;
PROCEDURE CalcApplnAmount@7();
VAR
...