Not all customer ledger entries that are generated from an invoice are closed when you post the invoice in the Italian version of Microsoft Dynamics NAV

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV service pack or the next Microsoft Dynamics NAV version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.
To apply this hotfix, follow these steps:

1. Change the key in the Cust. Ledger Entry table (21) as follows:
   Existing one

   • Enabled:Yes

   • Key: Document Type,Document No.,Document Occurrence

   • SumIndexFields:

   Replacement one

   • Enabled:Yes

   • Key: Document Type,Document No.,Document Occurrence

   • SumIndexFields: Remaining Pmt. Disc. Possible

2. Change the key in the Vendor Ledger Entry table (25) as follows:
   Existing one

   • Enabled:Yes

   • Key: Document Type,Document No.,Document Occurrence,Vendor No.

   • SumIndexFields:

   Replacement one

   • Enabled:Yes

   • Key: Document Type,Document No.,Document Occurrence,Vendor No.

   • SumIndexFields: Remaining Pmt. Disc. Possible

3. Add a local variable in the ApplyCustLedgEntry function in the Gen. Jnl.-Post Line codeunit (12), and then specify the variable as follows:

   • Name: PaymentTerms

   • DataType: Record

   • Subtype: Payment Terms

4. Change the code in the ApplyCustLedgEntry function in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code 1

   ...
   END ELSE
       ApplnRoundingPrecision := GLSetup."Appln. Rounding Precision";
   ApplyingDate := GenJnlLine."Posting Date";
   
   IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
     // Find the entry to be applied to
   ...
   

   Replacement code 1

   ...
   END ELSE
       ApplnRoundingPrecision := GLSetup."Appln. Rounding Precision";
   ApplyingDate := GenJnlLine."Posting Date";
   // Add the following lines.
   Cust.GET(GenJnlLine."Account No.");    
   IF Cust."Payment Terms Code" <> '' THEN BEGIN  
     PaymentTerms.GET(Cust."Payment Terms Code"); 
     PaymentTerms.CALCFIELDS("Payment Nos.");
   END;  
   // End of the added lines.
   
   IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
     // Find the entry to be applied to
   ...
   

   Existing code 2

   ...
        (OldCustLedgEntry.COUNT=1)
     THEN
       GenJnlLine."Applies-to Occurrence No." := 1;
   
   // Delete the following line.
     OldCustLedgEntry.SETRANGE("Document Occurrence",GenJnlLine."Applies-to Occurrence No.");
   
     OldCustLedgEntry.SETRANGE(Open,TRUE);
   
     // Delete the following lines.
     OldCustLedgEntry.FINDFIRST;
     OldCustLedgEntry.TESTFIELD("Bank Receipt Issued", FALSE);  
     OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
     IF OldCustLedgEntry."Posting Date" > ApplyingDate THEN
       ApplyingDate := OldCustLedgEntry."Posting Date";
     GenJnlApply.CheckAgainstApplnCurrency(  
       NewCVLedgEntryBuf."Currency Code",
       OldCustLedgEntry."Currency Code", 
       GenJnlLine."Account Type"::Customer,
       TRUE);
     TempOldCustLedgEntry := OldCustLedgEntry;
     TempOldCustLedgEntry.INSERT;
   // End of the deleted lines.
   
   END ELSE BEGIN
     // Find the first old entry (Invoice) which the new entry (Payment) should apply to
   ...
   

   Replacement code 2

   ...
        (OldCustLedgEntry.COUNT=1)
     THEN
       GenJnlLine."Applies-to Occurrence No." := 1;
     OldCustLedgEntry.SETRANGE(Open,TRUE);
   
     // Add the following lines.
     IF OldCustLedgEntry.FINDSET THEN
       REPEAT
         OldCustLedgEntry.TESTFIELD("Bank Receipt Issued", FALSE); 
         OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
         IF OldCustLedgEntry."Posting Date" > ApplyingDate THEN
           ApplyingDate := OldCustLedgEntry."Posting Date";  
           GenJnlApply.CheckAgainstApplnCurrency( 
           NewCVLedgEntryBuf."Currency Code", 
           OldCustLedgEntry."Currency Code", 
           GenJnlLine."Account Type"::Customer,
           TRUE);             
          TempOldCustLedgEntry := OldCustLedgEntry; 
          TempOldCustLedgEntry.INSERT;
        UNTIL OldCustLedgEntry.NEXT = 0;  
     IF NOT TempOldCustLedgEntry.FINDSET THEN
       EXIT;   
   // End of the added lines.
   
   END ELSE BEGIN
     // Find the first old entry (Invoice) which the new entry (Payment) should apply to
   ...
   

   Existing code 3

   ...
     TempOldCustLedgEntry.DELETE;
   
       // Find the next old entry for application of the new entry
   
   // Delete the following line.
     IF GenJnlLine."Applies-to Doc. No." <> '' THEN
   
       Completed := TRUE
   ...
   

   Replacement code 3

   ...
     TempOldCustLedgEntry.DELETE;
   
       // Find the next old entry for application of the new entry
   
   // Add the following line.
     IF (GenJnlLine."Applies-to Doc. No." <> '') AND (PaymentTerms."Payment Nos." <= 1) THEN
   
       Completed := TRUE
   ...
   

5. Add a local variable in the ApplyVendLedgEntry function in the Gen. Jnl.-Post Line codeunit (12), and then specify the variable as follows:

   • Name: PaymentTerms

   • DataType: Record

   • Subtype: Payment Terms

6. Change the code in the ApplyVendLedgEntry function in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code 1

   ...
   ApplyingDate := GenJnlLine."Posting Date";
   
   IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
     // Find the entry to be applied to
   ...
   

   Replacement code 1

   ...
   ApplyingDate := GenJnlLine."Posting Date";
   // Add the following lines.
   Vend.GET(GenJnlLine."Account No.");   
   IF Vend."Payment Terms Code" <> '' THEN BEGIN  
     PaymentTerms.GET(Vend."Payment Terms Code"); 
     PaymentTerms.CALCFIELDS("Payment Nos.");
   END;  
   // End of the added lines.
   
   IF GenJnlLine."Applies-to Doc. No." <> '' THEN BEGIN
     // Find the entry to be applied to
   ...
   

   Existing code 2

   ...
       GenJnlLine."Applies-to Occurrence No." := 1;
   
   // Delete the following line.  
   OldVendLedgEntry.SETRANGE("Document Occurrence",GenJnlLine."Applies-to Occurrence No.");
   
     OldVendLedgEntry.SETRANGE(Open,TRUE);
     OldVendLedgEntry.SETRANGE("On Hold",'');
   
    // Delete the following lines.  
     OldVendLedgEntry.FINDFIRST;
     OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive); 
     IF OldVendLedgEntry."Posting Date" > ApplyingDate THEN 
       ApplyingDate := OldVendLedgEntry."Posting Date"; 
     GenJnlApply.CheckAgainstApplnCurrency( 
       NewCVLedgEntryBuf."Currency Code",  
       OldVendLedgEntry."Currency Code",  
       GenJnlLine."Account Type"::Vendor, 
       TRUE);  
     TempOldVendLedgEntry := OldVendLedgEntry;
     TempOldVendLedgEntry.INSERT;
    // End of the deleted lines.
   
   END ELSE BEGIN
     // Find the first old entry (Invoice) which the new entry (Payment) should apply to
   ...
   

   Replacement code 2

   ...
       GenJnlLine."Applies-to Occurrence No." := 1;
   
     OldVendLedgEntry.SETRANGE(Open,TRUE);
     OldVendLedgEntry.SETRANGE("On Hold",'');
   
    // Add the following lines.
     IF OldVendLedgEntry.FINDSET THEN  
       REPEAT  
         OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
         IF OldVendLedgEntry."Posting Date" > ApplyingDate THEN  
           ApplyingDate := OldVendLedgEntry."Posting Date"; 
         GenJnlApply.CheckAgainstApplnCurrency(
           NewCVLedgEntryBuf."Currency Code",
           OldVendLedgEntry."Currency Code", 
           GenJnlLine."Account Type"::Vendor,
           TRUE);
         TempOldVendLedgEntry := OldVendLedgEntry;
         TempOldVendLedgEntry.INSERT;
       UNTIL OldVendLedgEntry.NEXT = 0; 
     IF NOT TempOldVendLedgEntry.FINDSET THEN 
       EXIT; 
    // End of the added lines.
   
   END ELSE BEGIN
     // Find the first old entry (Invoice) which the new entry (Payment) should apply to
   ...
   

   Existing code 3

   ...
     TempOldVendLedgEntry.DELETE;
   
     // Find the next old entry to apply to the new entry
   
   // Delete the following line.
     IF GenJnlLine."Applies-to Doc. No." <> '' THEN 
   
       Completed := TRUE
   ...
   

   Replacement code 3

   ...
     TempOldVendLedgEntry.DELETE;
   
     // Find the next old entry to apply to the new entry
   
   // Add the following line.
     IF (GenJnlLine."Applies-to Doc. No." <> '') AND (PaymentTerms."Payment Nos." <= 1)  THEN
   
       Completed := TRUE
   ...
   

7. Add a local variable in the OnRun trigger in the Sales-Post codeunit (80), and then specify the variable as follows:

   • Name: TotalRemainPmtDiscPossible

   • DataType: Decimal

8. Change the code in the OnRun trigger in the Sales-Post codeunit (80) as follows:
   Existing code 1

   ...
       // Balancing account
       IF "Bal. Account No." <> '' THEN BEGIN
         Window.UPDATE(5,1);
         CustLedgEntry.FINDLAST;
         GenJnlLine.INIT;
   ...
   

   Replacement code 1

   ...
       // Balancing account
       IF "Bal. Account No." <> '' THEN BEGIN
         Window.UPDATE(5,1);
   
   // Add the following lines.
         CustLedgEntry.RESET;
         CustLedgEntry.SETCURRENTKEY("Document Type","Document No.");
         CustLedgEntry.SETRANGE("Document Type","Document Type");
         CustLedgEntry.SETRANGE("Document No.",GenJnlLineDocNo);
         CustLedgEntry.CALCSUMS("Remaining Pmt. Disc. Possible"); 
         TotalRemainPmtDiscPossible := CustLedgEntry."Remaining Pmt. Disc. Possible"; 
   // End of the added lines.
   
         CustLedgEntry.FINDLAST;
         GenJnlLine.INIT;
   ...
   

   Existing code 2

   ...
         GenJnlLine."Currency Code" := "Currency Code";
         GenJnlLine.Amount :=
   
   // Delete the following line.
           TotalSalesLine."Amount Including VAT" + CustLedgEntry."Remaining Pmt. Disc. Possible";
   
         GenJnlLine."Source Currency Code" := "Currency Code";
         GenJnlLine."Source Currency Amount" := GenJnlLine.Amount;
   ...
   

   Replacement code 2

   ...
         GenJnlLine."Currency Code" := "Currency Code";
         GenJnlLine.Amount :=
   
   // Add the following line.
           TotalSalesLine."Amount Including VAT" + TotalRemainPmtDiscPossible;
   
         GenJnlLine."Source Currency Code" := "Currency Code";
         GenJnlLine."Source Currency Amount" := GenJnlLine.Amount;
   ...
   

9. Add a local variable in the OnRun trigger in the Purch.-Post codeunti (90), and then specify the variable as follows:

   • Name: TotalRemainPmtDiscPossible

   • DataType: Decimal

10. Change the code in the OnRun trigger in thePurch.-Post codeunti (90) as follows:
    Existing code 1

    ...
        GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim);
    
        // Balancing account
        IF "Bal. Account No." <> '' THEN BEGIN
          IF GUIALLOWED THEN
            Window.UPDATE(5,1);
          VendLedgEntry.FINDLAST;
          GenJnlLine.INIT;
          GenJnlLine."Posting Date" := "Posting Date";
    ...
    

    Replacement code 1

    ...
        GenJnlPostLine.RunWithCheck(GenJnlLine,TempJnlLineDim);
    
        // Balancing account
        IF "Bal. Account No." <> '' THEN BEGIN
          IF GUIALLOWED THEN
            Window.UPDATE(5,1);
    
    // Add the following lines.
          VendLedgEntry.RESET;  
          VendLedgEntry.SETCURRENTKEY("Document Type","Document No.");
          VendLedgEntry.SETRANGE("Document Type","Document Type"); 
          VendLedgEntry.SETRANGE("Document No.",GenJnlLineDocNo); 
          VendLedgEntry.CALCSUMS("Remaining Pmt. Disc. Possible"); 
          TotalRemainPmtDiscPossible := VendLedgEntry."Remaining Pmt. Disc. Possible";
    // End of the added lines.
    
          VendLedgEntry.FINDLAST;
          GenJnlLine.INIT;
          GenJnlLine."Posting Date" := "Posting Date";
    
    ...
    

    Existing code 2

    ...
          GenJnlLine."Currency Code" := "Currency Code";
          GenJnlLine.Amount := TotalPurchLine."Amount Including VAT" +
    
    // Delete the following line.
            VendLedgEntry."Remaining Pmt. Disc. Possible"; 
    
          GenJnlLine.Correction := Correction;
          GenJnlLine."Source Currency Code" := "Currency Code";
    ...
    

    Replacement code 2

    ...
          GenJnlLine."Currency Code" := "Currency Code";
          GenJnlLine.Amount := TotalPurchLine."Amount Including VAT" +
    
    // Add the following line.
            TotalRemainPmtDiscPossible;
    
          GenJnlLine.Correction := Correction;
          GenJnlLine."Source Currency Code" := "Currency Code";
    ...