local procedure UpdateApplyToAmount()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeUpdateApplyToAmount(Rec, xRec, CurrFieldNo, IsHandled);
if IsHandled then
exit;
if (Amount <> xRec.Amount) and (CurrFieldNo <> 0) then begin
if ("Applies-to Doc. No." <> '') or ("Applies-to ID" <> '') then
SetApplyToAmount;
if (xRec.Amount <> 0) or (xRec."Applies-to Doc. No." <> '') or (xRec."Applies-to ID" <> '') then
PaymentToleranceMgt.PmtTolGenJnl(Rec);
end;
end;
André Arnaud de Cal... 291,735 Super User 2024 Season 2
Martin Dráb 230,466 Most Valuable Professional
nmaenpaa 101,156