The profit is incorrect in the Sales Statistics report (112), the "Customer/Item Sales" report (113), the "Inventory - Customer Sales" report (713) or the Customer Statistics form (151) in Microsoft Dynamics NAV 2009 Service Pack 1

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 2009 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 resolve this problem, follow these steps:

1. Change the code in the Customer/Item Sales report (113) as follows:
   Existing code 1

       OnPreReport=BEGIN
                     CustFilter := Customer.GETFILTERS;
                     ItemLedgEntryFilter := "Value Entry".GETFILTERS;
                     PeriodText := "Value Entry".GETFILTER("Posting Date");
   
                     IF PrintToExcel THEN
                       MakeExcelInfo;
                   END;

   Replacement code 1

       OnPreReport=BEGIN
                     CustFilter := Customer.GETFILTERS;
                     ItemLedgEntryFilter := "Item Ledger Entry".GETFILTERS;
                     PeriodText := "Item Ledger Entry".GETFILTER("Posting Date");
   
                     IF PrintToExcel THEN
                       MakeExcelInfo;
                   END;

   Existing code 2

               { 10  ;TextBox      ;0    ;0    ;18150;423  ;SourceExpr="Value Entry".TABLECAPTION + ': ' + ItemLedgEntryFilter;
                                                            DataSetFieldName=Value_Entry__TABLECAPTION__________ItemLedgEntryFilter }

   Replacement code 2

               { 10  ;TextBox      ;0    ;0    ;18150;423  ;SourceExpr="Item Ledger Entry".TABLECAPTION + ': ' + ItemLedgEntryFilter;
                                                            DataSetFieldName=Value_Entry__TABLECAPTION__________ItemLedgEntryFilter }

   Existing code 3

           DataItemIndent=1;
           DataItemTable=Table5802;
           DataItemTableView=SORTING(Source Type,Source No.,Item No.,Posting Date)
                             WHERE(Source Type=CONST(Customer));
           OnPreDataItem=BEGIN
                           ValueEntryBuffer.RESET;
                           ValueEntryBuffer.DELETEALL;
   
                           NextEntryNo := 1;
                         END;
   
           OnAfterGetRecord=BEGIN
                              ValueEntryBuffer.SETRANGE("Item No.", "Item No.");
   
                              IF NOT ValueEntryBuffer.FIND('-') THEN BEGIN
                                ValueEntryBuffer.INIT;
                                ValueEntryBuffer."Entry No." := NextEntryNo;
                                ValueEntryBuffer."Item No." := "Item No.";
                                ValueEntryBuffer.INSERT;
   
                                NextEntryNo := NextEntryNo + 1;
                              END;
   
                              ValueEntryBuffer."Invoiced Quantity" := ValueEntryBuffer."Invoiced Quantity" + "Invoiced Quantity";
                              ValueEntryBuffer."Sales Amount (Actual)" := ValueEntryBuffer."Sales Amount (Actual)" + "Sales Amount (Actual)";
                              ValueEntryBuffer."Cost Amount (Actual)" := ValueEntryBuffer."Cost Amount (Actual)" + "Cost Amount (Actual)";
                              ValueEntryBuffer."Discount Amount" := ValueEntryBuffer."Discount Amount" + "Value Entry"."Discount Amount";
                              ValueEntryBuffer."Cost Amount (Non-Invtbl.)" := ValueEntryBuffer."Cost Amount (Non-Invtbl.)" + "Cost Amount (Non-Invtbl.)";
                              ValueEntryBuffer.MODIFY;
                            END;
   
           ReqFilterFields=Item No.,Inventory Posting Group,Posting Date;
           DataItemLink=Source No.=FIELD(No.),
                        Posting Date=FIELD(Date Filter),
                        Global Dimension 1 Code=FIELD(Global Dimension 1 Filter),
                        Global Dimension 2 Code=FIELD(Global Dimension 2 Filter);

   Replacement code 3

           DataItemIndent=1;
           DataItemTable=Table32;
           DataItemTableView=SORTING(Source Type,Source No.,Item No.,Variant Code,Posting Date)
                             WHERE(Source Type=CONST(Customer));
           OnPreDataItem=BEGIN
                           ValueEntryBuffer.RESET;
                           ValueEntryBuffer.DELETEALL;
   
                           NextEntryNo := 1;
                         END;
   
           OnAfterGetRecord=BEGIN
                              ValueEntryBuffer.SETRANGE("Item No.", "Item No.");
   
                              IF NOT ValueEntryBuffer.FIND('-') THEN BEGIN
                                ValueEntryBuffer.INIT;
                                ValueEntryBuffer."Entry No." := NextEntryNo;
                                ValueEntryBuffer."Item No." := "Item No.";
                                ValueEntryBuffer.INSERT;
   
                                NextEntryNo := NextEntryNo + 1;
                              END;
                              CALCFIELDS("Sales Amount (Actual)","Cost Amount (Actual)","Cost Amount (Non-Invtbl.)");
                              ValueEntryBuffer."Invoiced Quantity" := ValueEntryBuffer."Invoiced Quantity" + "Invoiced Quantity";
                              ValueEntryBuffer."Sales Amount (Actual)" := ValueEntryBuffer."Sales Amount (Actual)" + "Sales Amount (Actual)";
                              ValueEntryBuffer."Cost Amount (Actual)" := ValueEntryBuffer."Cost Amount (Actual)" + "Cost Amount (Actual)";
   
                              ValueEntry.SETCURRENTKEY("Item Ledger Entry No.");
                              ValueEntry.SETRANGE("Item Ledger Entry No.","Entry No.");
                              IF ValueEntry.FINDSET THEN
                                REPEAT
                                  ValueEntryBuffer."Discount Amount" := ValueEntryBuffer."Discount Amount" + ValueEntry."Discount Amount";
                                UNTIL ValueEntry.NEXT = 0;
   
                              ValueEntryBuffer."Cost Amount (Non-Invtbl.)" := ValueEntryBuffer."Cost Amount (Non-Invtbl.)" + "Cost Amount (Non-Invtbl.)";
                              ValueEntryBuffer.MODIFY;
                            END;
   
           ReqFilterFields=Item No.,Posting Date;
           DataItemLink=Source No.=FIELD(No.),
                        Posting Date=FIELD(Date Filter),
                        Global Dimension 1 Code=FIELD(Global Dimension 1 Filter),
                        Global Dimension 2 Code=FIELD(Global Dimension 2 Filter);

2. Change the code in the MakeExcelInfo@5 function in the Customer/Item Sales report (113) as follows:
   Existing code

       BEGIN
         ExcelBuf.AddInfoColumn("Value Entry".GETFILTERS,FALSE,'',FALSE,FALSE,FALSE,'');

   Replacement code

       BEGIN
         ExcelBuf.AddInfoColumn("Item Ledger Entry".GETFILTERS,FALSE,'',FALSE,FALSE,FALSE,''); 

3. Add a new local variable in the Post function in the Inventory - Customer Sales report (713), and then specify the variable as follows:

   • Name: ItemLedgerEntry@1001

   • DataType: Record

   • Length: 32

4. Change the code in the Value Entry - OnAfterGetRecord trigger in the Inventory - Customer Sales report (713) as follows:
   Existing code

   IF "Expected Cost" THEN
   CurrReport.SKIP;
   
   Profit := "Sales Amount (Actual)" + "Cost Amount (Actual)" + "Cost Amount (Non-Invtbl.)";
   
   IF ISSERVICETIER THEN
   IF "Source No." <> '' THEN

   Replacement code

   IF "Expected Cost" THEN
     CurrReport.SKIP;
   
   //Add the following lines.
   WITH ItemLedgerEntry DO BEGIN
   SETRANGE("Entry No.","Item Ledger Entry No.");
   IF FINDFIRST THEN BEGIN
    CALCFIELDS("Sales Amount (Actual)","Cost Amount (Actual)","Cost Amount (Non-Invtbl.)");
   Profit := "Sales Amount (Actual)" + "Cost Amount (Actual)" + "Cost Amount (Non-Invtbl.)";
   END;
   END;
   //End of the lines.
   
   IF ISSERVICETIER THEN
    IF "Source No." <> '' THEN

5. Change the code in the NonInvtblCostAmt function in the Cost Calculation Management codeunit (5836) as follows:
   Existing code

           END;
         END;
   
         //Delete the following lines.
         PROCEDURE NonInvtblCostAmt@29(VAR Customer@1001 : Record 18) : Decimal;
         VAR
           ValueEntry@1000 : Record 5802;
         BEGIN
           WITH ValueEntry DO BEGIN
         //End of the lines.
   
             SETCURRENTKEY("Source Type","Source No.");
             SETRANGE("Source Type","Source Type"::Customer);
             SETRANGE("Source No.",Customer."No.");

   Replacement code

           END;
         END;
   
         //Add the following lines.
         PROCEDURE NonInvtblCostAmt@29(VAR Customer@1001 : Record 18) CostAmtNonInvtbl : Decimal;
         VAR
           ItemLedgerEntry@1000 : Record 32;
         BEGIN
           WITH ItemLedgerEntry DO BEGIN
         //End of the lines.
   
             SETCURRENTKEY("Source Type","Source No.");
             SETRANGE("Source Type","Source Type"::Customer);
             SETRANGE("Source No.",Customer."No.");

6. Change the code in the NonInvtblCostAmt function in the Cost Calculation Management codeunit (5836) as follows:
   Existing code

             SETFILTER("Global Dimension 1 Code",Customer."Global Dimension 1 Filter");
             SETFILTER("Global Dimension 2 Code",Customer."Global Dimension 2 Filter");
   
             //Delete the following lines.
             CALCSUMS("Cost Amount (Non-Invtbl.)");
             EXIT("Cost Amount (Non-Invtbl.)");
             //End of the lines.
   
           END;
         END;

   Replacement code

             SETFILTER("Global Dimension 1 Code",Customer."Global Dimension 1 Filter");
             SETFILTER("Global Dimension 2 Code",Customer."Global Dimension 2 Filter");
   
             //Add the following lines.
             IF FINDSET THEN
               REPEAT
                 CALCFIELDS("Cost Amount (Non-Invtbl.)");
                 CostAmtNonInvtbl += "Cost Amount (Non-Invtbl.)";
               UNTIL NEXT = 0;
             EXIT(CostAmtNonInvtbl);
             //End of the lines.
   
           END;
         END;