IF ApplyCustEntries.RUNMODAL = ACTION::LookupOK THEN BEGIN
ApplyCustEntries.GetCustLedgEntry(CustLedgEntry);
GenJnlApply.CheckAgainstApplnCurrency(
"Currency Code",CustLedgEntry."Currency Code",GenJnILine."Account Type"::Customer,TRUE);
"Applies-to Doc. Type" := CustLedgEntry."Document Type";
"Applies-to Doc. No." := CustLedgEntry."Document No.";
MODIFY; <------------------------------- ПОСЛЕ ЭТОГО XRec не изменяется
|