Index: HADOPV.mac.rou
===================================================================
diff -u -r49792 -r49875
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49792)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49875)
@@ -731,11 +731,10 @@
  .. Set OldQty=$P(RecP,D)
  .. Set NewQty=$S(NewQty="-":-OldQty,NewQty="+":BldQty,1:NewQty)
  .. Do ADDGLAS^HADVUL(.GVORDNr,PRNr,TOENr,TULNr,+$H,NewQty,BldQty,$S(Node="H":"H",Node="h":"L",1:""),Reden)
- .. Do OrderlijnStatusGewijzigd(FabKey,"Klaargezet") ; Indien glas voor kaderdeuren besteld is, dan de overeenkomstige orderlijn blokkeren adhv Klaargezet status.
  . Else  Do ; glasbesteld of herbesteld ook markeren voor MDS 
  .. Set KLNr=$P(RecO,D,2)
  .. Do AddLabel(.LabelCache,Node,FabKey,NewQty,BldQty,PRNr,KLNr) ; glasbesteld dan moet er een label afgedrukt worden
- .. Set NewQty=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(FabKey,Node,NewQty,BldQty,Time)
+ .. Do OrderlijnStatusGewijzigd(FabKey,"Klaargezet") ; Indien glas voor kaderdeuren besteld is, dan de overeenkomstige orderlijn blokkeren adhv Klaargezet status... Set NewQty=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(FabKey,Node,NewQty,BldQty,Time)
  Do CLOSE^MRPRES(CRef)
  If $D(LabelCache) Do PrintLabel(.LabelCache)
  Quit