Index: APPS/Halux/Planning/impl/ProductInfo.cls.xml
===================================================================
diff -u -r29059 -r73522
--- APPS/Halux/Planning/impl/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 29059)
+++ APPS/Halux/Planning/impl/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 73522)
@@ -74,11 +74,20 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim StockProbleem As %String = ""
-	Set VoorbereidingService = ##class(APPS.Halux.Voorbereiding.VoorbereidingService).%New()
-	If (VoorbereidingService.ToeleveringLijnHeeftFysiekStockProbleem(..ToeleveringInfoID,..ToeleveringLijnNr))
+	#dim OpmerkingOverStockProbleemToegelaten As %Boolean = $$$True
+	Set VoorbereidingService = ##class(APPS.Halux.Voorbereiding.VoorbereidingService).%New()	
+	
+	If $$$Not(##class(TECH.StringUtils).Equals(..Categorie, ##class(APPS.Halux.common.enu.Categorie).Legrabox(), ##class(APPS.Halux.common.enu.Categorie).Merivobox(), ##class(APPS.Halux.common.enu.Categorie).Tandembox())) {
+		Set OpmerkingOverStockProbleemToegelaten = $$$True
+	} Else {
+		Set OpmerkingOverStockProbleemToegelaten = (##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") < 2)
+	}
+	
+	If (OpmerkingOverStockProbleemToegelaten && (VoorbereidingService.ToeleveringLijnHeeftFysiekStockProbleem(..ToeleveringInfoID,..ToeleveringLijnNr)))
 	{
 		Set StockProbleem = "!"
 	}
+	
 	Quit StockProbleem
 ]]></Implementation>
 </Method>
@@ -91,8 +100,6 @@
 <IndexLocation>^APPS.Halux.Plan8A9.ProductInfoI</IndexLocation>
 <StreamLocation>^APPS.Halux.Plan8A9.ProductInfoS</StreamLocation>
 <Data name="ProductInfoDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
Index: APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml
===================================================================
diff -u -r60316 -r73522
--- APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml	(.../MaatwerkBatchBuilder.cls.xml)	(revision 60316)
+++ APPS/Halux/Planning/impl/BatchService/MaatwerkBatchBuilder.cls.xml	(.../MaatwerkBatchBuilder.cls.xml)	(revision 73522)
@@ -211,14 +211,25 @@
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set AandachtOpmerkingen = ##class(%ListOfDataTypes).%New()
-	If (..VoorbereidingService.ToeleveringHeeftFysiekStockProbleem(dtoToelevering.ID)) {
-		Do AandachtOpmerkingen.Insert("Heeft een stockprobleem")
+	#dim OpmerkingOverStockProbleemEnAantalKlaargezetToegelaten As %Boolean = $$$True
+	Set AandachtOpmerkingen = ##class(%ListOfDataTypes).%New()	
+	
+	If $$$Not(##class(TECH.StringUtils).Equals(..Categorie, ##class(APPS.Halux.common.enu.Categorie).Legrabox(), ##class(APPS.Halux.common.enu.Categorie).Merivobox(), ##class(APPS.Halux.common.enu.Categorie).Tandembox())) {
+		Set OpmerkingOverStockProbleemEnAantalKlaargezetToegelaten = $$$True
+	} Else {
+		Set OpmerkingOverStockProbleemEnAantalKlaargezetToegelaten = (##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") < 2)
 	}
 	
-	If (dtoToelevering.AantalKlaarGezet'=dtoToelevering.AantalProducten) {
-		Do AandachtOpmerkingen.Insert("Niet alle producten klaargezet")
+	If (OpmerkingOverStockProbleemEnAantalKlaargezetToegelaten) {
+		If (..VoorbereidingService.ToeleveringHeeftFysiekStockProbleem(dtoToelevering.ID)) {
+			Do AandachtOpmerkingen.Insert("Heeft een stockprobleem")
+		}
+		
+		If (dtoToelevering.AantalKlaarGezet'=dtoToelevering.AantalProducten) {
+			Do AandachtOpmerkingen.Insert("Niet alle producten klaargezet")
+		}
 	}
+	
 	Quit AandachtOpmerkingen
 ]]></Implementation>
 </Method>
Index: HADOPV.mac.rou
===================================================================
diff -u -r72928 -r73522
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 72928)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 73522)
@@ -652,14 +652,17 @@
  Do CALLSPEC^vhMenu("HADOPVM2") 
  Quit
  
-MARKBEG(Mode)  ; Markeringstype opslaan
- If $L(Batches,";")>1&(Mode'="BATCH")&("AKGBFTPZMV"'[Mode) Do WARN^vhTXTPOP("Meerdere batches door elkaar~dan is markering niet mogelijk") Quit
- If $G(MarkTyp)'="" Do MARKEND(1)
- Quit:$G(MarkTyp)'=""
- Set MarkTyp=Mode
- 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
+MARKBEG(Mode)  ; Markeringstype opslaan 
+ Set JaNee=$$JaNee^vhTXTPOP("Waarschuwing", "Vanaf fase M2 mag dit niet meer gebruikt worden voor TBX, LBX en MVX! Wil je toch verdergaan?") //Leeg of 1
+ If JaNee="1" Do
+ . If $L(Batches,";")>1&(Mode'="BATCH")&("AKGBFTPZMV"'[Mode) Do WARN^vhTXTPOP("Meerdere batches door elkaar~dan is markering niet mogelijk") Quit
+ . If $G(MarkTyp)'="" Do MARKEND(1) 
+ . Quit:$G(MarkTyp)'=""
+ . Set MarkTyp=Mode
+ . 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
  
 MARKCONT New MarkMem,DERDE,X
@@ -953,45 +956,48 @@
  ; klanten die voeger klaargezet worden
  Set Werkdagen2=2,Datum2=$$CALCDATE^vhLib.DataTypes(,"A",Werkdagen2)
  Set Klanten2=$$$KlantBlumPoland
- 
- Set:Datum="" Datum=+$H Set:DagDeel="" DagDeel="N"
- Do NIEUW^vhScherm("HADOPVBEPTRM",,,,,,3) ;,"A")
- If %SC {
-	 Set AutoMark=1,Batches=$G(SetBatches,"TX ;TP ")
-	 If 'Datum Set Beperking=""
-	 Else  Set Beperking=Datum_$S(DagDeel="V":"&,43200",1:"")
-	 If 'Datum2 Set Datum2=Datum
-	 Else  Set Beperking2=Datum2_$S(DagDeel="V":",43200",1:"")
-	 
-	 Set DispMode="O"
-	 Do ##class(vhLib.Logger).%New("HADOPV").Info("Automatisch klaarzetten","Batches:"_Batches_"; klaarzetten tem datum:"_ $zd(Datum,4)_"; diff kalender dagen:"_(Datum-$H)_" ("_$$EXTDATE^vhLib.DataTypes($H,"DC")_" -> "_$$EXTDATE^vhLib.DataTypes(Datum,"DC")_"); dagdeel:"_DagDeel)
-	 
-	 Quit:Beperking="" ; zonder beperking worden alle orders in de toekomst geselecteerd en dat is veel te veel om klaar te zetten
-	 
-	 ; Nieuwe toeleveringen ophalen en activeren van de reservatie van de halffabrikaten
-	 Do REFRESH^HADSTAT2(LEVNr,"T")
-	 Do SCAN^MRPRES ;Reservatie controleren van alle producten VOOR het klaarzetten
-	
- 	 Set $P(LimRec,D,12)=Beperking
- 	 Set $P(LimRec,D,13)=Beperking2
- 	 Set $P(LimRec,D,14)=Klanten2
- 	 Set (ORDNr,TOENr,FabKeyGlobRef)=""
-	 Kill ^HULP(%J)
-	 Do INIT,FETCH
-	 Do MARKBEG("K")
-	 Set (Next,LD("SELECT"))=""
-	 ; Alle lijnen proberen te markeren
-	 For  {
-		 Set Next=$O(^HULP(%J,"L",Next))
-		 Quit:Next=""
-		 Do MARK(Next,"B")
-		 If 'LD("SELECT"),'$L($P(^HULP(%J,"L",Next),D,12)) Set LD("SELECT")=Next
+ If (##class(TECH.StringUtils).Equals(SetBatches, "TX ;TP", "LX ;LP", "MX ;MP") && (##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase") > 1)) {
+ 	Do WARN^vhTXTPOP("Vanaf fase M2 is dit niet meer in gebruik! " _SetBatches)
+ } Else {	 
+	 Set:Datum="" Datum=+$H Set:DagDeel="" DagDeel="N"
+	 Do NIEUW^vhScherm("HADOPVBEPTRM",,,,,,3) ;,"A")
+	 If %SC {
+		 Set AutoMark=1,Batches=$G(SetBatches,"TX ;TP ")
+		 If 'Datum Set Beperking=""
+		 Else  Set Beperking=Datum_$S(DagDeel="V":"&,43200",1:"")
+		 If 'Datum2 Set Datum2=Datum
+		 Else  Set Beperking2=Datum2_$S(DagDeel="V":",43200",1:"")
+		 
+		 Set DispMode="O"
+		 Do ##class(vhLib.Logger).%New("HADOPV").Info("Automatisch klaarzetten","Batches:"_Batches_"; klaarzetten tem datum:"_ $zd(Datum,4)_"; diff kalender dagen:"_(Datum-$H)_" ("_$$EXTDATE^vhLib.DataTypes($H,"DC")_" -> "_$$EXTDATE^vhLib.DataTypes(Datum,"DC")_"); dagdeel:"_DagDeel)
+		 
+		 Quit:Beperking="" ; zonder beperking worden alle orders in de toekomst geselecteerd en dat is veel te veel om klaar te zetten
+		 
+		 ; Nieuwe toeleveringen ophalen en activeren van de reservatie van de halffabrikaten
+		 Do REFRESH^HADSTAT2(LEVNr,"T")
+		 Do SCAN^MRPRES ;Reservatie controleren van alle producten VOOR het klaarzetten
+		
+	 	 Set $P(LimRec,D,12)=Beperking
+	 	 Set $P(LimRec,D,13)=Beperking2
+	 	 Set $P(LimRec,D,14)=Klanten2
+	 	 Set (ORDNr,TOENr,FabKeyGlobRef)=""
+		 Kill ^HULP(%J)
+		 Do INIT,FETCH
+		 Do MARKBEG("K")
+		 Set (Next,LD("SELECT"))=""
+		 ; Alle lijnen proberen te markeren
+		 For  {
+			 Set Next=$O(^HULP(%J,"L",Next))
+			 Quit:Next=""
+			 Do MARK(Next,"B")
+			 If 'LD("SELECT"),'$L($P(^HULP(%J,"L",Next),D,12)) Set LD("SELECT")=Next
+		 }
+		 Set:'LD("SELECT") LD("SELECT")=1
+		 Do REFRESH
 	 }
-	 Set:'LD("SELECT") LD("SELECT")=1
-	 Do REFRESH
  }
+  
  Quit
-
  
 AutoMarkOff
  Kill AutoMark