Index: HADOPV.mac.rou
===================================================================
diff -u -r49179 -r49540
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49179)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49540)
@@ -715,11 +715,11 @@
  ...  Do ONERES^MRPRES(CRef,FabKey,PRNr,BldQty,"FPWT",.Status)
  .. Else  If Node="K" Do  ; Productie klaarmaken
  ...  Do ONEPK^MRPRES(CRef,FabKey,PRNr,BldQty,.Status)
- ...  If $P($G(^HADPR("F",FabKey,"X")),D,3)'="A" Do
+ ...  If $P($G(^HADPR("F",FabKey,"K")),D,3)="A" Do
+ ....   Do OrderlijnStatusGewijzigd(FabKey,"KlaargezetWissen")
+ ...  If $P($G(^HADPR("F",FabKey,"K")),D,3)'="A" Do
  ....   Set NewQty=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(FabKey,Node,NewQty,BldQty,Time)
  ....   Do:NewQty>0 OrderlijnStatusGewijzigd(FabKey,"Klaargezet")
- ...  If $P($G(^HADPR("F",FabKey,"X")),D,3)'="" Do
- ....   Do OrderlijnStatusGewijzigd(FabKey,"KlaargezetWissen")
  .. Else  If "\FP\FH\BR\"[(D_Node_D) Do
  ...  Do MARK^MRPHalfFabrStock(FabKey,Node)
  ...  Set NewQty=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(FabKey,Node,NewQty,BldQty,Time)