An invoice that is due today is included in the "Overdue Amounts (LCY) as of [date]" field in the Customer Statistics dialog box incorrectly in Microsoft Dynamics NAV

Installation information

Code changes

1. Add two new functions in the Cust. Ledger Entry table (21) as follows: 
   Existing code

   ...
   PROCEDURE GetOriginalCurrencyFactor@2() : Decimal;
   BEGIN
   IF "Original Currency Factor" = 0 THEN
   EXIT(1);
   EXIT("Original Currency Factor");
   END;
   
   BEGIN
   END.
   }
   }

   Replacement code

   ...
   PROCEDURE GetOriginalCurrencyFactor@2() : Decimal;
   BEGIN
   IF "Original Currency Factor" = 0 THEN
   EXIT(1);
   EXIT("Original Currency Factor"); 
   END;
   
   // Add the following lines.
   PROCEDURE CalcOverDueBalance@1100(CustomerNo@1101 : Code[20]) OverDueBalance : Decimal;
   VAR
   CustLedgerEntry@1102 : Record 21;
   BEGIN
   SetFiltersToCalcOverDueBalance(CustLedgerEntry,CustomerNo);
   IF CustLedgerEntry.FINDSET THEN BEGIN
   REPEAT
   CustLedgerEntry.CALCFIELDS("Amount (LCY)");
   OverDueBalance += CustLedgerEntry."Amount (LCY)";
   UNTIL (CustLedgerEntry.NEXT = 0);
   END ELSE
   OverDueBalance := 0;
   END;
   
   PROCEDURE SetFiltersToCalcOverDueBalance@1103(VAR CustLedgerEntry@1104 : Record 21;CustomerNo@1105 : Code[20]);
   BEGIN
   CustLedgerEntry.SETCURRENTKEY("Customer No.",Open,Positive,"Due Date","Currency Code");
   CustLedgerEntry.SETRANGE("Customer No.",CustomerNo);
   CustLedgerEntry.SETRANGE(Open,TRUE);
   CustLedgerEntry.SETFILTER("Due Date",'<%1',WORKDATE);
   END;
   // End of the lines.
   
   BEGIN
   END.
   }
   }

2. Change the code in the Customer Statistics form (151) as follows: 
   Existing code

   ...
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   { 15 ;TextBox ;3850 ;6490 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Delete the following line.
   SourceExpr="Balance Due (LCY)";
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   ...

   Replacement code

   ...
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   { 15 ;TextBox ;3850 ;6490 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Add the following line.
   SourceExpr=CalcOverDueBalance;
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   ...

3. Add a new function in the Customer Statistics form (151) as follows:
   Existing code

   ...
   CODE
   {
   VAR
   Text000@1000 : TextConst 'ENU=Overdue Amounts ($) as of %1';
   ValueEntry@1017 : Record 5802;
   DateFilterCalc@1001 : Codeunit 358;
   CustDateFilter@1002 : ARRAY [4] OF Text[30];
   CustDateName@1003 : ARRAY [4] OF Text[30];
   TotalAmountLCY@1004 : Decimal;
   CurrentDate@1005 : Date;
   CustSalesLCY@1006 : ARRAY [4] OF Decimal;
   AdjmtCostLCY@1022 : ARRAY [4] OF Decimal;
   CustProfit@1007 : ARRAY [4] OF Decimal;
   ProfitPct@1008 : ARRAY [4] OF Decimal;
   AdjCustProfit@1024 : ARRAY [4] OF Decimal;
   AdjProfitPct@1023 : ARRAY [4] OF Decimal;
   CustInvDiscAmountLCY@1009 : ARRAY [4] OF Decimal;
   CustPaymentDiscLCY@1010 : ARRAY [4] OF Decimal;
   CustPaymentDiscTolLCY@1019 : ARRAY [4] OF Decimal;
   CustPaymentTolLCY@1018 : ARRAY [4] OF Decimal;
   CustReminderChargeAmtLCY@1011 : ARRAY [4] OF Decimal;
   CustFinChargeAmtLCY@1012 : ARRAY [4] OF Decimal;
   CustCrMemoAmountsLCY@1013 : ARRAY [4] OF Decimal;
   CustPaymentsLCY@1014 : ARRAY [4] OF Decimal;
   CustRefundsLCY@1020 : ARRAY [4] OF Decimal;
   CustOtherAmountsLCY@1021 : ARRAY [4] OF Decimal;
   i@1015 : Integer;
   InvAmountsLCY@1016 : ARRAY [4] OF Decimal;
   Text001@1025 : TextConst 'ENU=Placeholder';
   
   BEGIN
   END.
   }
   }

   Replacement code

   ...
   CODE
   {
   VAR
   Text000@1000 : TextConst 'ENU=Overdue Amounts ($) as of %1';
   ValueEntry@1017 : Record 5802;
   DateFilterCalc@1001 : Codeunit 358;
   CustDateFilter@1002 : ARRAY [4] OF Text[30];
   CustDateName@1003 : ARRAY [4] OF Text[30];
   TotalAmountLCY@1004 : Decimal;
   CurrentDate@1005 : Date;
   CustSalesLCY@1006 : ARRAY [4] OF Decimal;
   AdjmtCostLCY@1022 : ARRAY [4] OF Decimal;
   CustProfit@1007 : ARRAY [4] OF Decimal;
   ProfitPct@1008 : ARRAY [4] OF Decimal;
   AdjCustProfit@1024 : ARRAY [4] OF Decimal;
   AdjProfitPct@1023 : ARRAY [4] OF Decimal;
   CustInvDiscAmountLCY@1009 : ARRAY [4] OF Decimal;
   CustPaymentDiscLCY@1010 : ARRAY [4] OF Decimal;
   CustPaymentDiscTolLCY@1019 : ARRAY [4] OF Decimal;
   CustPaymentTolLCY@1018 : ARRAY [4] OF Decimal;
   CustReminderChargeAmtLCY@1011 : ARRAY [4] OF Decimal;
   CustFinChargeAmtLCY@1012 : ARRAY [4] OF Decimal;
   CustCrMemoAmountsLCY@1013 : ARRAY [4] OF Decimal;
   CustPaymentsLCY@1014 : ARRAY [4] OF Decimal;
   CustRefundsLCY@1020 : ARRAY [4] OF Decimal;
   CustOtherAmountsLCY@1021 : ARRAY [4] OF Decimal;
   i@1015 : Integer;
   InvAmountsLCY@1016 : ARRAY [4] OF Decimal;
   Text001@1025 : TextConst 'ENU=Placeholder';
   
   // Add the following lines.
   PROCEDURE CalcOverDueBalance@1000000001() : Decimal;
   VAR
   CustLedgEntry@1000000000 : Record 21;
   BEGIN
   EXIT(CustLedgEntry.CalcOverDueBalance("No."));
   END;
   // End of the lines.
   
   BEGIN
   END.
   }
   }

4. Change the code in the ShowWarning function in the Check Credit Limit form (343) as follows:
   Existing code

   ...
   IF CheckOverDueBalance AND
   (SalesSetup."Credit Warnings" IN
   [SalesSetup."Credit Warnings"::"Both Warnings",
   SalesSetup."Credit Warnings"::"Overdue Balance"])
   THEN BEGIN
   
   // Delete the following lines.
   CalcOverdueBalanceLCY;
   IF "Balance Due (LCY)" > 0 THEN BEGIN
   // End of the lines.
   
   ExitValue := ExitValue + 2;
   END;
   END;
   ...

   Replacement code

   ...
   IF CheckOverDueBalance AND
   (SalesSetup."Credit Warnings" IN
   [SalesSetup."Credit Warnings"::"Both Warnings",
   SalesSetup."Credit Warnings"::"Overdue Balance"])
   THEN BEGIN
   
   // Add the following line.
   IF CalcOverDueBalance > 0 THEN BEGIN
   
   ExitValue := ExitValue + 2;
   END;
   END;
   ...

5. Add a new function in the Check Credit Limit form (343) as follows:
   Existing code

   ...
   PROCEDURE CalcReturnAmounts@9(VAR OutstandingRetOrdersLCY2@1001 : Decimal;VAR RcdNotInvdRetOrdersLCY2@1002 : Decimal) : Decimal;
   BEGIN
   SalesLine.RESET;
   SalesLine.SETCURRENTKEY("Document Type","Bill-to Customer No.","Currency Code");
   SalesLine.SETRANGE("Document Type",SalesLine."Document Type"::"Return Order");
   SalesLine.SETRANGE("Bill-to Customer No.","No.");
   SalesLine.CALCSUMS("Outstanding Amount (LCY)","Return Rcd. Not Invd. (LCY)");
   OutstandingRetOrdersLCY2 := SalesLine."Outstanding Amount (LCY)";
   RcdNotInvdRetOrdersLCY2 := SalesLine."Return Rcd. Not Invd. (LCY)";
   END;
   
   BEGIN
   END.
   }
   }

   Replacement code

   ...
   PROCEDURE CalcReturnAmounts@9(VAR OutstandingRetOrdersLCY2@1001 : Decimal;VAR RcdNotInvdRetOrdersLCY2@1002 : Decimal) : Decimal;
   BEGIN
   SalesLine.RESET;
   SalesLine.SETCURRENTKEY("Document Type","Bill-to Customer No.","Currency Code");
   SalesLine.SETRANGE("Document Type",SalesLine."Document Type"::"Return Order");
   SalesLine.SETRANGE("Bill-to Customer No.","No.");
   SalesLine.CALCSUMS("Outstanding Amount (LCY)","Return Rcd. Not Invd. (LCY)");
   OutstandingRetOrdersLCY2 := SalesLine."Outstanding Amount (LCY)";
   RcdNotInvdRetOrdersLCY2 := SalesLine."Return Rcd. Not Invd. (LCY)";
   END;
   
   // Add the following lines.
   PROCEDURE CalcOverDueBalance@1000000000() : Decimal;
   VAR
   CustLedgEntry@1000000000 : Record 21;
   BEGIN
   EXIT(CustLedgEntry.CalcOverDueBalance("No."));
   END;
   // End of the lines.
   
   BEGIN
   END.
   }
   }

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
• Microsoft Dynamics NAV 2009
• Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
• Microsoft Dynamics NAV 5.0

Removal information