An imbalance between the warehouse entries and the item ledger entries occurs when you ship a kit item that has the "Automatic Build Kit BOM" check box selected from a location in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Create a new global variable in the Item Jnl.-Post Line codeunit (22), and then specify the variable as follows:
   • Name: TempWhseJnlLine
   • DataType: Record
   • Subtype: Warehouse Journal Line
   • Temporary: Yes
2. Change the code in the PostOutput function in the Item Jnl.-Post Line codeunit (22) as follows:
   Existing code

   ...
   "Invoiced Quantity" := 0;
   END;
   PostItem;
   IF NOT Kitting THEN
   UpdateProdOrderLine(ProdOrderLine,ReTrack);
   
   // Delete the following lines. 
   IF Location."Bin Mandatory" AND (NOT CalledFromInvtPutawayPick) THEN
   WhseJnlPostLine.RUN(WhseJnlLine);
   // End of the lines.
   
   END;
   END;
   END;
   ...

   Replacement code

   ...
   "Invoiced Quantity" := 0;
   END;
   PostItem;
   IF NOT Kitting THEN
   UpdateProdOrderLine(ProdOrderLine,ReTrack);
   
   // Add the following lines.
   IF Location."Bin Mandatory" AND (NOT CalledFromInvtPutawayPick) THEN BEGIN
   TempWhseJnlLine := WhseJnlLine;
   WhseJnlPostLine.RUN(WhseJnlLine);
   END;
   // End of the lines.
   
   END;
   END;
   END;
   ...

3. Create the GetOutputWhseJnlLine procedure in the Item Jnl.-Post Line codeunit (22) as follows:
   1. Create a parameter variable, and then specify the variable as follows:
      • Name: OutputWhseJnlLine
      • DataType: Record
      • Subtype: Warehouse Journal Line
      • Temporary: Yes
   2. Add the code as follows:

      PROCEDURE GetOutputWhseJnlLine(VAR OutputWhseJnlLine);
      OutputWhseJnlLine := TempWhseJnlLine;
      OutputWhseJnlLine.INSERT;

4. Create a new local variabl in the Code function in the BOM Jnl.-Post Line codeunit (32), and then specify the variable as follows:
   • Name: TempOutputWhseJnlLine
   • DataType: Record
   • Subtype: Warehouse Journal Line
   • Temporary: Yes
5. Change the code in the Code function in the BOM Jnl.-Post Line codeunit (32) as follows:
   Existing code 1

   ...
   TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2); 
   ReserveBOMJnlLine.TransferBOMJnlToItemJnlLine(BOMJnlLine,ItemJnlLine,"Quantity (Base)");
   ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim2);
   IF "Entry Type" = "Entry Type"::Assembly THEN BEGIN
   ProdOrderLine.DELETE;
   ProdOrderLine.Status := ProdOrderLine.Status::Finished;
   ProdOrderLine.INSERT;
   ...

   Replacement code 1

   ...
   TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2); 
   ReserveBOMJnlLine.TransferBOMJnlToItemJnlLine(BOMJnlLine,ItemJnlLine,"Quantity (Base)");
   ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim2);
   
   // Add the following line.
   ItemJnlPostLine.GetOutputWhseJnlLine(TempOutputWhseJnlLine);
   
   IF "Entry Type" = "Entry Type"::Assembly THEN BEGIN
   ProdOrderLine.DELETE;
   ProdOrderLine.Status := ProdOrderLine.Status::Finished;
   ProdOrderLine.INSERT;
   ...

   Existing code 2

   ...
   OutputItemLedgEntryNo := ItemJnlLine."Item Shpt. Entry No.";
   END;
   PostWhseJnlLine(ItemJnlLine,TempHandlingSpecification,OriginalQuantity,OriginalQuantityBase);
   PostTempJnlLines;
   IF BOMReg."No." = 0 THEN BEGIN
   BOMReg.LOCKTABLE;
   IF BOMReg.FIND('+') THEN
   BOMReg."No." := BOMReg."No." + 1
   ...

   Replacement code 2

   ...
   OutputItemLedgEntryNo := ItemJnlLine."Item Shpt. Entry No.";
   END;
   PostWhseJnlLine(ItemJnlLine,TempHandlingSpecification,OriginalQuantity,OriginalQuantityBase);
   PostTempJnlLines;
   
   // Add the following line.
   PostSalesWhseJnlLine(TempOutputWhseJnlLine);
    
   IF BOMReg."No." = 0 THEN BEGIN
   BOMReg.LOCKTABLE;
   IF BOMReg.FIND('+') THEN
   BOMReg."No." := BOMReg."No." + 1
   ...

6. Create the PostSalesWhseJnlLine function in the BOM Jnl.-Post Line codeunit (32) as follows:
   1. Create a new parameter, and then specify the parameter as follows:
      • Name: TempOutputWhseJnlLine2
      • DataType: Record
      • Subtype: Warehouse Journal Line
      • Temporary: Yes
      
      
      
   2. Add the code as follows:

      LOCAL PROCEDURE PostSalesWhseJnlLine(VAR TempOutputWhseJnlLine);
      BEGIN
      WITH TempOutputWhseJnlLine2 DO BEGIN
      IF FINDFIRST THEN BEGIN
      Quantity := -Quantity;
      "From Bin Code" := "To Bin Code";
      "From Zone Code" := "To Zone Code";
      "To Bin Code" := '';
      "To Zone Code" := '';
      WhseJnlPostLine.RUN(TempOutputWhseJnlLine2);
      END;
      END;
      END;

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1

Removal information