The unit cost of items becomes negative after you run the revaluation on items that use the Average costing method in Microsoft Dynamics NAV

Installation information

Code changes

1. Change the code in the AvgValueEntriesToAdjustExist function in the Inventory Adjustment codeunit (5895) to the following:

   ...
            IF FindNextRange THEN BEGIN
              AvgCostAdjmtEntryPoint."Valuation Date" := GetNextDate(AvgCostAdjmtEntryPoint."Valuation Date");
              AvgValueEntriesToAdjustExist(OutbndValueEntry,ExcludedValueEntry,AvgCostAdjmtEntryPoint);
            END;  
   
     // Add the following line.
     OutbndValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 
   
   ...

2. Change the code in the IsExcludeEntryFromAvgCostCalc function in the Inventory Adjustment codeunit (5895) to the following:

   ...
            IF NOT "Valued By Average Cost" THEN
              EXIT(FALSE);
            ItemLedgEntry.GET("Item Ledger Entry No.");
            IF ItemLedgEntry.Positive THEN
              EXIT(FALSE);
   
   // Delete the following line.
   EXIT(TRUE); 
   
   // Add the following line.
          EXIT("Item Ledger Entry No." > OutbndValueEntry."Item Ledger Entry No."); 
   ...
   
   ...
       // Delete the following lines.
       LOCAL PROCEDURE GetEntryNoToStartAt@78
       BEGIN
         StartAt := 0;
         WITH ExcludedValueEntry DO BEGIN
           RESET;
           IF FINDFIRST THEN
             REPEAT
               IF "Partial Revaluation" AND
                  (OutbndValueEntry."Entry No." > "Entry No.")
               THEN
                 StartAt := "Entry No.";
             UNTIL NEXT = 0;
         END;
         EXIT(StartAt + 1);
       END;
       // End of the lines.
   ...

3. Change the code in the AdjustItemAvgCost function in the Inventory Adjustment codeunit (5895) to the following:

   ...
               WHILE NOT Restart AND AvgValueEntriesToAdjustExist(
                       TempOutbndValueEntry,TempExcludedValueEntry,AvgCostAdjmtEntryPoint)
               DO BEGIN
                 REPEAT
   
                   // Delete the following lines.
                   TempExcludedValueEntry.SETFILTER("Entry No.",'>=%1',                          
                     GetEntryNoToStartAt(TempOutbndValueEntry,TempExcludedValueEntry)); 
                   // End of the lines.
   
                   AdjustOutbndAvgEntry(TempOutbndValueEntry,TempExcludedValueEntry);
                   UpdateConsumpAvgEntry(TempOutbndValueEntry);
                 UNTIL TempOutbndValueEntry.NEXT = 0;
   ...

4. Change the code in the IsExcludeEntryFromAvgCostCalc function in the Inventory Adjustment codeunit (5895) to the following:

   ...
       BEGIN
         WITH ValueEntry DO BEGIN
           IF "Partial Revaluation" THEN         
   
             // Delete the following line.
             EXIT(TRUE);                                                                           
   
             // Add the following lines.
             EXIT(                                                                                 
               ("Entry No." > OutbndValueEntry."Entry No.") OR                                     
               (("Entry No." < OutbndValueEntry."Entry No.") AND NOT                               
                IncludedInCostCalculation(ValueEntry,OutbndValueEntry."Item Ledger Entry No.")));  
             // End of the lines.
   
           IF "Item Ledger Entry No." = OutbndValueEntry."Item Ledger Entry No." THEN
             EXIT(TRUE);
   ...

Prerequisites

• Microsoft Dynamics NAV 2009 Service Pack 1
• Microsoft Dynamics NAV 2009
• Microsoft Dynamics NAV 5.0 Service Pack 1 with hotfix 975251 applied

Removal information