"Another user has modified the record for this Prod. Order Component" error message when you delete a component from a production order that is created for a sales order 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 Prod. Order Line table (5406). To do this, follow these steps:

   1. Add a new global variable, and then specify the variable as follows:

      • Name: CalledFromComponent@1025

      • DataType: Boolean

   2. Create a new function as follows:

      PROCEDURE SetCalledFromComponent@3(NewCalledFromComponent@1000 : Boolean);
      CalledFromComponent := NewCalledFromComponent;

   3. Change the code in the DeleteRelations function as follows:
      Existing code

      ...
      ProdOrderComp.DELETEALL(TRUE);
      ProdOrderComp.SETRANGE("Prod. Order Line No.");
      ProdOrderComp.SETRANGE("Supplied-by Line No.","Line No.");
      IF ProdOrderComp.FIND('-') THEN
      REPEAT
      ProdOrderComp."Supplied-by Line No." := 0;
      ProdOrderComp.MODIFY;
      UNTIL ProdOrderComp.NEXT = 0;
      WhseOutputProdRelease.DeleteLine(Rec);
      ...

      Replacement code

      ...
      ProdOrderComp.DELETEALL(TRUE);
      
      // Add the following line.
      IF NOT CalledFromComponent THEN BEGIN 
      
      ProdOrderComp.SETRANGE("Prod. Order Line No.");
      ProdOrderComp.SETRANGE("Supplied-by Line No.","Line No.");
      IF ProdOrderComp.FIND('-') THEN
      REPEAT
      ProdOrderComp."Supplied-by Line No." := 0;
      ProdOrderComp.MODIFY;
      UNTIL ProdOrderComp.NEXT = 0;
      
      // Add the following line.
      END;
      
      WhseOutputProdRelease.DeleteLine(Rec);
      ...

2. Change the code in the Prod. Order Component table (5407). To do this, follow these steps:

   1. Add a new local variable in the OnDelete trigger, and then specify the variable as follows:

      • Name: NewQuantity@1003

      • DataType: Decimal

   2. Change the code in the OnDelete trigger as follows:
      Existing code

      ...
      IF ProdOrderLine.GET(Status,"Prod. Order No.","Supplied-by Line No.") THEN BEGIN
      
      // Delete the following lines.
      ProdOrderLine.VALIDATE(Quantity,ProdOrderLine.Quantity - "Expected Quantity"); 
      IF ProdOrderLine.Quantity = 0 THEN BEGIN 
      // End of the lines.
      
      ProdOrderLine.BlockDynamicTracking(TRUE);
      ProdOrderLine.DELETE(TRUE);
      
      // Delete the following line.
      END ELSE 
      
      ProdOrderLine.MODIFY;
      END; 
      ...

      Replacement code

      ...
      IF ProdOrderLine.GET(Status,"Prod. Order No.","Supplied-by Line No.") THEN BEGIN
      
      // Add the following lines.
      NewQuantity := ProdOrderLine.Quantity - "Expected Quantity"; 
      IF NewQuantity = 0 THEN BEGIN 
      // End of the lines.
      
      ProdOrderLine.BlockDynamicTracking(TRUE);
      
      // Add the following line.
      ProdOrderLine.SetCalledFromComponent(TRUE); 
      
      ProdOrderLine.DELETE(TRUE);
      
      // Add the following lines.
      END ELSE BEGIN 
      ProdOrderLine.VALIDATE(Quantity,NewQuantity); 
      // End of the lines.
      
      ProdOrderLine.MODIFY;
      
      // add the following line.
      END; 
      
      END; 
      ...