The Beginning Balance value is incorrect in the Customer Account Detail report (10042) when you run the report that has date filters used in the North American version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Add a local variable in the OnAfterGetRecord trigger of the Number 1 - <Customer>" DataItem in the Customer Account Detail report (10042), and then specify the variable as follows: 
   • Name: Cust@1020000
   • DataType: Record
   • Subtype: Customer (18)
2. Change the code in the OnAfterGetRecord trigger of the Number 1 - <Customer>" DataItem in the Customer Account Detail report (10042) as follows:
   Existing code

   ...
   EndingBalanceToPrint := "Net Change (LCY)";
   END;
   
   // Delete the following line.
   SETRANGE("Date Filter",0D,FromDate);
   
   CALCFIELDS("Net Change (LCY)");
   IF PrintAmountsInLocal THEN BEGIN
   BalanceToPrint := 0;
   IF TempCurrency.FIND('-') THEN
   REPEAT
   ...
   TotalCustomers := TotalCustomers + 1; // count if there are no ledger filters
   CustLedgerEntry2.RESET;
   CustLedgerEntry2.SETCURRENTKEY("Customer No.");
   CustLedgerEntry2.SETRANGE("Posting Date",FromDate,ToDate);
   CustLedgerEntry2.SETRANGE("Customer No.","No.");
   
   // Delete the following line.
   BalanceTotal := BalanceTotal + "Net Change (LCY)"; // report total will be in $
   
   END;
   
   IF ISSERVICETIER THEN BEGIN
   CustLedgerEntry2_Temp:=CustLedgerEntry2.FIND('-');
   END;
   ...

   Replacement code

   ...
   EndingBalanceToPrint := "Net Change (LCY)";
   END;
   
   // Add the following line.
   SETRANGE("Date Filter",0D,FromDateToPrint);
   
   CALCFIELDS("Net Change (LCY)");
   IF PrintAmountsInLocal THEN BEGIN
   BalanceToPrint := 0;
   IF TempCurrency.FIND('-') THEN
   REPEAT
   ...
   TotalCustomers := TotalCustomers + 1; // count if there are no ledger filters
   CustLedgerEntry2.RESET;
   CustLedgerEntry2.SETCURRENTKEY("Customer No.");
   CustLedgerEntry2.SETRANGE("Posting Date",FromDate,ToDate);
   CustLedgerEntry2.SETRANGE("Customer No.","No.");
   
   // Add the following lines.
   Cust.GET("No.");
   Cust.COPYFILTERS(Customer);
   IF FromDate = ToDate THEN
   Cust.SETFILTER("Date Filter",'..%1',FromDate)
   ELSE
   Cust.SETFILTER("Date Filter",'<%1',FromDate);
   Cust.CALCFIELDS("Net Change (LCY)");
   BalanceTotal := BalanceTotal + Cust."Net Change (LCY)";
   // End of the lines.
   
   END;
   
   IF ISSERVICETIER THEN BEGIN
   CustLedgerEntry2_Temp:=CustLedgerEntry2.FIND('-');
   END;
   ...

Prerequisites

• The North American version of Microsoft Dynamics NAV 2009 R2
• The North American version of Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Removal information