The Customer Bills List report (12117) does not display dishonored transactions as expected in the Italian version of Microsoft Dynamics NAV

Installation information

Code changes

1. Change the code in the Data Item Number 2 in the Customer Bills List report (12117) as follows:
   Existing code

   ...
   END;
   
   OnAfterGetRecord=BEGIN
   IF ("Document Type" = "Document Type"::Payment) OR ("Document Type" = "Document Type"::" ") THEN
   CurrReport.SKIP;
   ...

   Replacement code

   ...
   END;
   
   OnAfterGetRecord=BEGIN
   
   // Add the following line.
   PrintCustLedgEntry2 := FALSE;
   
   IF ("Document Type" = "Document Type"::Payment) OR ("Document Type" = "Document Type"::" ") THEN
   CurrReport.SKIP;
   ...

2. Change the code in the Data Item Number 3 in the Customer Bills List report (12117) as follows:
   Existing code

   ...
   ClosedByAmountLCY := "Closed by Amount (LCY)";
   TotalForCustomer += "Amount (LCY)";
   TotalClosedByAmntLCY += "Amount (LCY)";
   END;
   
   DataItemLink=Document No. to Close=FIELD(Document No.);
   ...

   Replacement code

   ...
   ClosedByAmountLCY := "Closed by Amount (LCY)";
   TotalForCustomer += "Amount (LCY)";
   TotalClosedByAmntLCY += "Amount (LCY)";
   
   // Add the following line.
   PrintCustLedgEntry2 := TRUE;
   
   END;
   
   DataItemLink=Document No. to Close=FIELD(Document No.);
   ...

3. Change the code in the Data Item Number 4 in the Customer Bills List report (12117) as follows:
   Existing code

   ...
   END;
   
   OnAfterGetRecord=BEGIN
   CustLedgEntry3.GET("Applied Cust. Ledger Entry No.");
   CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
   ClosedByAmountLCY := "Amount (LCY)";
   ...

   Replacement code

   ...
   END;
   
   OnAfterGetRecord=BEGIN
   
   // Add the following lines.
   IF PrintCustLedgEntry2 THEN
   CurrReport.SKIP;
   // End of the lines.
   
   CustLedgEntry3.GET("Applied Cust. Ledger Entry No.");
   CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
   ClosedByAmountLCY := "Amount (LCY)";
   ...

4. Change the code in the Global Variables in the Customer Bills List report (12117) as follows:
   Existing code

   ...
   BalanceDue@1130012 : Decimal;
   NULL@1130013 : DateFormula;
   CustLedgEntry3@1130130 : Record 21;
   
   BEGIN
   ...

   Replacement code

   ...
   BalanceDue@1130012 : Decimal;
   NULL@1130013 : DateFormula;
   CustLedgEntry3@1130130 : Record 21;
   
   // Add the following line.
   PrintCustLedgEntry2@1130014 : Boolean;
   
   BEGIN
   ...

5. Change the code in the Data Item Number 2 in the Closing Bank Receipts report (12171) as follows:
   Existing code

   ...
   COMMIT;
   
   CustEntryApplyPostedEntries.SetCheckDim(CheckDim);
   CustEntryApplyPostedEntries.RUN(CustLedgEntry);
   END;
   ...

   Replacement code

   ...
   COMMIT;
   
   CustEntryApplyPostedEntries.SetCheckDim(CheckDim);
   
   // Add the following line.
   CustLedgEntry.GET(CustEntry1."Entry No.");
   
   CustEntryApplyPostedEntries.RUN(CustLedgEntry);
   END;
   ...

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

   ...
   TempOldCustLedgEntry.SETCURRENTKEY("Customer No.","Applies-to ID",Open,Positive,"Due Date");
   OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
   OldCustLedgEntry.SETRANGE(Open,TRUE);
   
   // Delete the following line.
   OldCustLedgEntry.SETRANGE("Bank Receipt Issued", FALSE);
   
   OldCustLedgEntry.SETFILTER("Entry No.",'<>%1',NewCVLedgEntryBuf."Entry No.");
   OldCustLedgEntry.SETRANGE("Applies-to ID",GenJnlLine."Applies-to ID");
   IF NOT(Cust."Application Method" = Cust."Application Method"::"Apply to Oldest") THEN
   ...

   Replacement code

   ...
   TempOldCustLedgEntry.SETCURRENTKEY("Customer No.","Applies-to ID",Open,Positive,"Due Date");
   OldCustLedgEntry.SETRANGE("Customer No.",NewCVLedgEntryBuf."CV No.");
   OldCustLedgEntry.SETRANGE(Open,TRUE);
   
   // Add the following line.
   OldCustLedgEntry.SETRANGE("Bank Receipt Issued", TRUE);
   
   OldCustLedgEntry.SETFILTER("Entry No.",'<>%1',NewCVLedgEntryBuf."Entry No.");
   OldCustLedgEntry.SETRANGE("Applies-to ID",GenJnlLine."Applies-to ID");
   IF NOT(Cust."Application Method" = Cust."Application Method"::"Apply to Oldest") THEN
   ...

Prerequisites

• The Italian version of Microsoft Dynamics NAV 2009 R2
• The Italian version of Microsoft Dynamics NAV 2009 Service Pack 1
• The Italian version of Microsoft Dynamics NAV 5.0 Service Pack 1

Removal information