Scrap quantity is not consumed for a component item that uses the backward flushing method in Microsoft Dynamics NAV 2009

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 GetNeededQty function in the Prod. Order Component table (5407) as follows:
   Existing code 1

   ...
   VAR
   ProdOrderLine@1002 : Record 5406;
   ProdOrderRtngLine@1003 : Record 5409;
   CapLedgEntry@1004 : Record 5832;
   CostCalcMgt@1006 : Codeunit 5836;
   OutputQtyBase@1005 : Decimal;
   CompQtyBase@1008 : Decimal;
   BEGIN
   ...

   Replacement code 1

   ...
   VAR
   ProdOrderLine@1002 : Record 5406;
   ProdOrderRtngLine@1003 : Record 5409;
   CapLedgEntry@1004 : Record 5832;
   
   // Add the following line.
   RoutingLine@1009 : Record 99000764;
   
   CostCalcMgt@1006 : Codeunit 5836;
   OutputQtyBase@1005 : Decimal;
   CompQtyBase@1008 : Decimal;
   BEGIN
   ...

   Existing code 2

   ...
   OutputQtyBase := OutputQtyBase + CapLedgEntry."Output Quantity" + CapLedgEntry."Scrap Quantity";
   UNTIL CapLedgEntry.NEXT = 0;
   END;
   
   // Delete the following line.
   CompQtyBase := CostCalcMgt.CalcActNeededQtyBase(ProdOrderLine,Rec,OutputQtyBase);
   
   IF IncludePreviousPosting THEN BEGIN
   IF Status IN [Status::Released,Status::Finished] THEN
   CALCFIELDS("Act. Consumption (Qty)");
   ...

   Replacement code 2

   ...
   OutputQtyBase := OutputQtyBase + CapLedgEntry."Output Quantity" + CapLedgEntry."Scrap Quantity";
   UNTIL CapLedgEntry.NEXT = 0;
   END;
   
   // Add the following lines.
   IF ProdOrderRtngLine."Flushing Method" = ProdOrderRtngLine."Flushing Method"::Manual THEN
   OutputQtyBase := (OutputQtyBase - ProdOrderRtngLine."Fixed Scrap Qty. (Accum.)") /
   (1 + ProdOrderRtngLine."Scrap Factor % (Accumulated)");
   CompQtyBase := CostCalcMgt.CalcActNeededQtyBase(ProdOrderLine,Rec,OutputQtyBase);
   RoutingLine.SETRANGE("Routing No.",ProdOrderLine."Routing No.");
   RoutingLine.SETRANGE("Version Code",ProdOrderLine."Routing Version Code");
   IF RoutingLine.FINDFIRST THEN
   CompQtyBase := CompQtyBase * (1 + RoutingLine."Scrap Factor % (Accumulated)") + RoutingLine."Fixed Scrap Qty. (Accum.)";
   // End of the lines.
   
   IF IncludePreviousPosting THEN BEGIN
   IF Status IN [Status::Released,Status::Finished] THEN
   CALCFIELDS("Act. Consumption (Qty)");
   ...

2. Change the code in the PostFlushedConsump function in the Item Jnl.-Post Line codeunit (22) as follows:
   Existing code 1

   LOCAL PROCEDURE PostFlushedConsump@32(ProdOrder@1000 : Record 5405;ProdOrderLine@1001 : Record 5406;ProdOrderComp@1002 : Record 5407;ActOutputQtyBase@1008 : Decimal;PostingDate@1006 : Date;DocumentNo@1003 : Code[20]);
   VAR
   CompItem@1004 : Record 27;
   OldTempTrackingSpecification@1009 : TEMPORARY Record 336;
   QtyToPost@1007 : Decimal;
   CalcBasedOn@1005 : 'Actual Output,Expected Output';
   PostItemJnlLine2@1013 : Boolean;
   DimsAreTaken@1010 : Boolean;
   ...

   Replacement code 1

   LOCAL PROCEDURE PostFlushedConsump@32(ProdOrder@1000 : Record 5405;ProdOrderLine@1001 : Record 5406;ProdOrderComp@1002 : Record 5407;ActOutputQtyBase@1008 : Decimal;PostingDate@1006 : Date;DocumentNo@1003 : Code[20]);
   VAR
   CompItem@1004 : Record 27;
   OldTempTrackingSpecification@1009 : TEMPORARY Record 336;
   
   // Add the following line.
   ProdOrderRtngLine@1011 : Record 5409;
   
   QtyToPost@1007 : Decimal;
   CalcBasedOn@1005 : 'Actual Output,Expected Output';
   PostItemJnlLine2@1013 : Boolean;
   DimsAreTaken@1010 : Boolean;
   ...

   Existing code 2

   ...
   CompItem.TESTFIELD("Rounding Precision");
   
   IF ProdOrderComp."Flushing Method" IN
   [ProdOrderComp."Flushing Method"::Backward,ProdOrderComp."Flushing Method"::"Pick + Backward"]
   
   // Delete the following lines.
   THEN
   QtyToPost :=
   CostCalcMgt.CalcActNeededQtyBase(ProdOrderLine,ProdOrderComp,ActOutputQtyBase)/ProdOrderComp."Qty. per Unit of Measure"
   ELSE
   QtyToPost := ProdOrderComp.GetNeededQty(CalcBasedOn::"Expected Output",TRUE);
   QtyToPost := ROUND(QtyToPost,CompItem."Rounding Precision",'>');
   // End of the lines.
   
   IF QtyToPost = 0 THEN
   EXIT;
   ...

   Replacement code 2

   ...
   CompItem.TESTFIELD("Rounding Precision");
   
   IF ProdOrderComp."Flushing Method" IN
   [ProdOrderComp."Flushing Method"::Backward,ProdOrderComp."Flushing Method"::"Pick + Backward"]
   
   // Add the following lines.
   THEN BEGIN
   QtyToPost :=
   ROUND(CostCalcMgt.CalcActNeededQtyBase(ProdOrderLine,ProdOrderComp,ActOutputQtyBase) /
   ProdOrderComp."Qty. per Unit of Measure",CompItem."Rounding Precision",'>');
   ProdOrderRtngLine.SETRANGE(Status,ProdOrderComp.Status);
   ProdOrderRtngLine.SETRANGE("Prod. Order No.",ProdOrderComp."Prod. Order No.");
   ProdOrderRtngLine.SETRANGE("Routing Reference No.",ProdOrderLine."Routing Reference No.");
   ProdOrderRtngLine.SETRANGE("Routing Link Code",ProdOrderComp."Routing Link Code");
   IF ProdOrderRtngLine.FINDFIRST THEN
   IF ProdOrderRtngLine."Flushing Method" <> ProdOrderRtngLine."Flushing Method"::Manual THEN
   QtyToPost := 
   ROUND(QtyToPost * (1 + ProdOrderRtngLine."Scrap Factor % (Accumulated)") +
   ProdOrderRtngLine."Fixed Scrap Qty. (Accum.)",CompItem."Rounding Precision",'>')
   END ELSE
   QtyToPost := ROUND(ProdOrderComp.GetNeededQty(CalcBasedOn::"Expected Output",TRUE),CompItem."Rounding Precision",'>');
   // End of the lines.
   
   IF QtyToPost = 0 THEN
   EXIT;
   ...

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

   ...
   VAR
   CompQtyBasePerMfgQtyBase@1002 : Decimal;
   BEGIN
   CompQtyBasePerMfgQtyBase := ProdOrderComp."Quantity (Base)" / ProdOrderLine."Qty. per Unit of Measure";
   
   // Delete the following line.
   EXIT(CalcQtyAdjdForBOMScrap(OutputQtyBase * CompQtyBasePerMfgQtyBase,ProdOrderComp."Scrap %"));
   
   END;
   
   PROCEDURE CalcActTimeAndQtyBase@25(ProdOrderLine@1007 : Record 5406;OperationNo@1000 : Code[10];VAR ActRunTime@1004 : Decimal;VAR ActSetupTime@1003 : Decimal;VAR ActOutputQty@1002 : Decimal;VAR ActScrapQty@1001 : Decimal);
   VAR
   ...

   Replacement code

   ...
   VAR
   CompQtyBasePerMfgQtyBase@1002 : Decimal;
   BEGIN
   CompQtyBasePerMfgQtyBase := ProdOrderComp."Quantity (Base)" / ProdOrderLine."Qty. per Unit of Measure";
   
   // Add the following lines.
   EXIT(
   CalcQtyAdjdForBOMScrap(CalcQtyAdjdForBOMScrap(OutputQtyBase * CompQtyBasePerMfgQtyBase,ProdOrderComp."Scrap %"),
   ProdOrderLine."Scrap %"));
   // End of the lines.
   
   END;
   
   PROCEDURE CalcActTimeAndQtyBase@25(ProdOrderLine@1007 : Record 5406;OperationNo@1000 : Code[10];VAR ActRunTime@1004 : Decimal;VAR ActSetupTime@1003 : Decimal;VAR ActOutputQty@1002 : Decimal;VAR ActScrapQty@1001 : Decimal);
   VAR
   ...