Index: HADOPV.mac.rou
===================================================================
diff -u -r49875 -r49930
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49875)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 49930)
@@ -655,7 +655,7 @@
  If $G(MarkTyp)'="" Do MARKEND(1)
  Quit:$G(MarkTyp)'=""
  Set MarkTyp=Mode
- If MarkTyp="K" Do SCAN^MRPRES ;Reservatie controleren van alle producten VOOR het klaarzetten
+ If MarkTyp="K",'$G(AutoMark) Do SCAN^MRPRES ;Reservatie controleren van alle producten VOOR het klaarzetten
  Kill ^HULP(%J,"CHECK") ; Verwijder Toeleveringslijst voor $$CheckFysStockProbleem
  Do REFRESH
  Quit
@@ -731,9 +731,11 @@
  .. 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... Set NewQty=##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(FabKey,Node,NewQty,BldQty,Time)
  . 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)
@@ -951,8 +953,12 @@
 	 If 'Datum Set Beperking=""
 	 Else  Set Beperking=Datum_$S(DagDeel="V":",43200",1:"")
 	 Set DispMode="O"
+	 
+	 ; Nieuwe toeleveringen ophalen en activeren van de reservatie van de halffabrikaten
 	 Do REFRESH^HADSTAT2(LEVNr,"T")
-	 Set $P(LimRec,D,12)=Beperking,(ORDNr,TOENr,FabKeyGlobRef)=""
+	 Do SCAN^MRPRES ;Reservatie controleren van alle producten VOOR het klaarzetten
+	
+ 	 Set $P(LimRec,D,12)=Beperking,(ORDNr,TOENr,FabKeyGlobRef)=""
 	 Kill ^HULP(%J)
 	 Do INIT,FETCH
 	 Do MARKBEG("K")
@@ -1002,4 +1008,3 @@
  New GenType
  Set GenType=$$GENTYP^HAD(PRNr)
  Quit ($P(GenType,"\")'?1(1"KAD",1"PRF",1"GLA"))&&$$HasHalfFabr^PRBS(PRNr)
-