Index: HADOPV.mac.rou
===================================================================
diff -u -r49540 -r49792
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49540)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49792)
@@ -731,6 +731,7 @@
  .. 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
@@ -1003,4 +1004,3 @@
  Set GenType=$$GENTYP^HAD(PRNr)
  Quit ($P(GenType,"\")'?1(1"KAD",1"PRF",1"GLA"))&&$$HasHalfFabr^PRBS(PRNr)
 
-