...
AccType::Customer:
BEGIN
CustLedgEntry.RESET;
// Delete the following lines.
IF Rec."Applies-to ID" <> '' THEN BEGIN
CustLedgEntry.SETCURRENTKEY("Customer No.","Applies-to ID",Open);
CustLedgEntry.SETRANGE("Customer No.",AccNo);
CustLedgEntry.SETRANGE("Applies-to ID",Rec."Applies-to ID");
// End of the deleted lines.
CustLedgEntry.SETRANGE(Open,TRUE);
IF CustLedgEntry.FIND('-') THEN BEGIN
CustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
...
...
AccType::Customer:
BEGIN
CustLedgEntry.RESET;
// Add the following lines.
IF xRec."Applies-to ID" <> '' THEN BEGIN
CustLedgEntry.SETCURRENTKEY("Customer No.","Applies-to ID",Open);
CustLedgEntry.SETRANGE("Customer No.",AccNo);
CustLedgEntry.SETRANGE("Applies-to ID",xRec."Applies-to ID");
// End of the added lines.
CustLedgEntry.SETRANGE(Open,TRUE);
IF CustLedgEntry.FIND('-') THEN BEGIN
CustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
...
...
AccType::Vendor:
BEGIN
VendLedgEntry.RESET;
// Delete the following lines.
IF Rec."Applies-to ID" <> '' THEN BEGIN
VendLedgEntry.SETCURRENTKEY("Vendor No.","Applies-to ID",Open);
VendLedgEntry.SETRANGE("Vendor No.",AccNo);
VendLedgEntry.SETRANGE("Applies-to ID",Rec."Applies-to ID");
// End of the deleted lines.
VendLedgEntry.SETRANGE(Open,TRUE);
IF VendLedgEntry.FIND('-') THEN BEGIN
VendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
...
...
AccType::Vendor:
BEGIN
VendLedgEntry.RESET;
// Add the following lines.
IF xRec."Applies-to ID" <> '' THEN BEGIN
VendLedgEntry.SETCURRENTKEY("Vendor No.","Applies-to ID",Open);
VendLedgEntry.SETRANGE("Vendor No.",AccNo);
VendLedgEntry.SETRANGE("Applies-to ID",xRec."Applies-to ID");
// End of the added lines.
VendLedgEntry.SETRANGE(Open,TRUE);
IF VendLedgEntry.FIND('-') THEN BEGIN
VendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
...