The Inventory Valuation report states that an item quantity is zero while the item value amount is not zero incorrectly in Microsoft Dynamics NAV

Installation information

Code changes

1. Add the following local variables in the IsAvgCostException function in table (5802):
   • ItemLedgEntry@1002 : Record 32
   • xItemLedgEntry@1003 : Record 32
   • TempItemLedgEntry@1004 : TEMPORARY Record 32
2. Change the code in the IsAvgCostException function in table (5802) as follows:
   Existing code

   ...
   IF ItemApplnEntry.AppliedInbndEntryExists("Item Ledger Entry No.",TRUE) THEN
     EXIT(TRUE);
   
   EXIT(FALSE);      
   ...

   Replacement code

   ...
     IF ItemApplnEntry.AppliedInbndEntryExists("Item Ledger Entry No.",TRUE) THEN
     EXIT(TRUE);
   
   // Add the following lines.
   IF "Item Ledger Entry Type" = "Item Ledger Entry Type"::Consumption THEN
     IF ItemApplnEntry.AppliedFromEntryExists("Item Ledger Entry No.") THEN
       REPEAT
         ItemLedgEntry.GET(ItemApplnEntry."Outbound Item Entry No.");
         IF ItemLedgEntry."Entry No." <> xItemLedgEntry."Entry No." THEN BEGIN
           xItemLedgEntry := ItemLedgEntry;
           ItemApplnEntry.GetVisitedEntries(ItemLedgEntry,TempItemLedgEntry);
           TempItemLedgEntry.SETCURRENTKEY("Item No.",Positive,"Location Code","Variant Code");
           TempItemLedgEntry.SETRANGE("Item No.","Item No.");
           TempItemLedgEntry.SETRANGE(Positive,TRUE);
           TempItemLedgEntry.SETRANGE("Location Code","Location Code");
           TempItemLedgEntry.SETRANGE("Variant Code","Variant Code");
           IF NOT TempItemLedgEntry.ISEMPTY THEN
             EXIT(TRUE);
         END;
       UNTIL ItemApplnEntry.NEXT = 0;
   // End of the added lines.
   
   EXIT(FALSE);
   ...

3. Add the following local variables in the AvgValueEntriesToAdjustExist function in codeunit (5895):
   • CurrIsException@1009 : Boolean
   • NextIsException@1010 : Boolean
4. Change the code in the AvgValueEntriesToAdjustExist function in codeunit (5895) as follows:
   Existing code

   ...
          IF "Valued By Average Cost" AND NOT Adjustment AND ("Valued Quantity" < 0) THEN BEGIN
           OutbndValueEntry := ValueEntry;
           OutbndValueEntry.INSERT;
           FindNextRange := FALSE;
         END; 
   
   // Delete the following lines.
         IF IsAvgCostException THEN BEGIN  
           AvgCostExceptionBuf.Number := "Entry No.";  
           AvgCostExceptionBuf.INSERT;  
         END;  
   // End of the deleted lines.
   
         IF ("Entry Type" = "Entry Type"::Revaluation) OR
   ...

   Replacement code

   ...
          IF "Valued By Average Cost" AND NOT Adjustment AND ("Valued Quantity" <0) THEN BEGIN
           OutbndValueEntry := ValueEntry;
           OutbndValueEntry.INSERT;
           FindNextRange := FALSE;
         END;
   
   // Add the following lines.
         IF NOT Adjustment THEN BEGIN
           CurrIsException := NextIsException;
           NextIsException := IsAvgCostException;
           IF NextIsException OR CurrIsException THEN BEGIN
             AvgCostExceptionBuf.Number := "Entry No.";
             AvgCostExceptionBuf.INSERT;
           END;
         END;
   // End of the added lines.
   
         IF ("Entry Type" = "Entry Type"::Revaluation) OR
   ...

5. Change the code in the Inventory Adjustment codeunit (5895) as follows:
   Existing code

   ...
         CODE
        ...
        LOCAL PROCEDURE AvgValueEntriesToAdjustExist@79(VAR OutbndValueEntry@1003 : Record 5802;VAR ExcludedValueEntry@1000 : Record 5802;VAR AvgCostAdjmtEntryPoint@1001 : Record 5804) : Boolean;
        ...
            IF FindNextRange THEN BEGIN
              AvgCostAdjmtEntryPoint."Valuation Date" := GetNextDate(AvgCostAdjmtEntryPoint."Valuation Date");
              AvgValueEntriesToAdjustExist(OutbndValueEntry,ExcludedValueEntry,AvgCostAdjmtEntryPoint);
            END;
        ...
        LOCAL PROCEDURE IsExcludeEntryFromAvgCostCalc@36(ValueEntry@1000 : Record 5802;OutbndValueEntry@1001 : Record 5802;VAR ItemLedgEntryInChain@1003 : Record 32) : Boolean;
        ...
            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); 
   // End of the deleted line. 
   ...

    Replacement code 

   ...
     CODE
        ...
        LOCAL PROCEDURE AvgValueEntriesToAdjustExist@79(VAR OutbndValueEntry@1003 : Record 5802;VAR ExcludedValueEntry@1000 : Record 5802;VAR AvgCostAdjmtEntryPoint@1001 : Record 5804) : Boolean;
        ...
            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."); 
   // End of the added line.
   
        ...
        LOCAL PROCEDURE IsExcludeEntryFromAvgCostCalc@36(ValueEntry@1000 : Record 5802;OutbndValueEntry@1001 : Record 5802;VAR ItemLedgEntryInChain@1003 : Record 32) : Boolean;
        ...
            IF NOT "Valued By Average Cost" THEN
              EXIT(FALSE);
            ItemLedgEntry.GET("Item Ledger Entry No.");
            IF ItemLedgEntry.Positive THEN
              EXIT(FALSE);
   
   // Add the following line.
           EXIT("Item Ledger Entry No." > OutbndValueEntry."Item Ledger Entry No."); 
   // End of the added line.
   ...

Prerequisites

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

Removal information