The payment tolerance is not posted as expected in the Cash Management module in the East European version of Microsoft Dynamics NAV 2009 R2

Installation information

Code changes

1. Change the code in the Amount - OnValidate trigger in the Cash Order Line table (26541) as follows:
   Existing code

   ...
   TestStatusOpen;
   IF Amount <> 0 THEN
   TESTFIELD("Account Type");
   
   UpdateBalance(0); 
   ...

   Replacement code

   ...
   TestStatusOpen;
   IF Amount <> 0 THEN
   TESTFIELD("Account Type");
   
   UpdateBalance(0);
   
   // Add the following lines.
   IF ((Rec.Amount <> xRec.Amount)) THEN BEGIN
   IF ("Applies-To Doc. No." <> '') OR ("Applies-to ID" <> '') THEN
   SetApplyToAmount;
   PmtTolCashOrder();
   END;
   //End of the lines. 
   ...

2. Add a new global variable in the Cash Order Line table (26541), and then specify the variable as follows:
   • Name: PaymentToleranceMgt
   • DataType: Codeunit
   • Subtype: Payment Tolerance Management (426)
3. Create a new global function in the Cash Order Line table (26541) as follows:

   PROCEDURE SetApplyToAmount@20();
   VAR
   CustLedgEntry@1000 : Record 21;
   VendLedgEntry@1001 : Record 25;
   BEGIN
   IF "Account Type" = "Account Type"::Customer THEN BEGIN
   CustLedgEntry.SETCURRENTKEY("Document No.");
   CustLedgEntry.SETRANGE("Document No.",Rec."Applies-To Doc. No.");
   CustLedgEntry.SETRANGE("Customer No.","Account No.");
   CustLedgEntry.SETRANGE(Open,TRUE);
   IF CustLedgEntry.FIND('-') THEN BEGIN
   CustLedgEntry.CALCFIELDS("Remaining Amount");
   CustLedgEntry."Amount to Apply" := CustLedgEntry."Remaining Amount";
   CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",CustLedgEntry);
   END;
   END ELSE IF "Account Type" = "Account Type"::Vendor THEN BEGIN
   VendLedgEntry.SETCURRENTKEY("Document No.");
   VendLedgEntry.SETRANGE("Document No.",Rec."Applies-To Doc. No.");
   VendLedgEntry.SETRANGE("Vendor No.","Account No.");
   VendLedgEntry.SETRANGE(Open,TRUE);
   IF VendLedgEntry.FIND('-') THEN BEGIN
   VendLedgEntry.CALCFIELDS("Remaining Amount");
   VendLedgEntry."Amount to Apply" := VendLedgEntry."Remaining Amount";
   CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",VendLedgEntry);
   END;
   END;
   END;

4. Create a new global function in the Cash Order Line table (26541) as follows:

   PROCEDURE PmtTolCashOrder@21();
   VAR
   GenJnlLine@1000 : Record 81;
   MaxPmtTolAmount@1001 : Decimal;
   PmtDiscAmount@1002 : Decimal;
   AppliedAmount@1003 : Decimal;
   ApplyingAmount@1004 : Decimal;
   AmounttoApply@1005 : Decimal;
   CashOrderHeader@1006 : Record 26540;
   BEGIN
   MaxPmtTolAmount := 0;
   PmtDiscAmount := 0;
   AppliedAmount := 0;
   ApplyingAmount := 0;
   AmounttoApply := 0;
   
   CashOrderHeader.GET("Cash Desk No.",
   "Order Type",
   "Cash Order No.");
   
   GenJnlLine.INIT;
   GenJnlLine."Line No." := 10000;
   IF "Account Type" = "Account Type"::Customer THEN BEGIN
   GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
   GenJnlLine.Amount := -Amount;
   END ELSE
   IF "Account Type" = "Account Type"::Vendor THEN BEGIN
   GenJnlLine."Account Type" := GenJnlLine."Account Type"::Vendor;
   GenJnlLine.Amount := Amount;
   END;
   GenJnlLine."Account No." := "Account No.";
   GenJnlLine."Applies-to Doc. Type" := "Applies-To Doc. Type";
   GenJnlLine."Applies-to Doc. No." := "Applies-To Doc. No.";
   GenJnlLine."Posting Date" := CashOrderHeader."Posting Date";
   GenJnlLine."Document Type" := "Document Type";
   GenJnlLine."Document No." := "Cash Order No.";
   GenJnlLine."Currency Code" := CashOrderHeader."Currency Code";
   PaymentToleranceMgt.PmtTolGenJnl(GenJnlLine);
   END;

Prerequisites

Removal information