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