Index: HADOPV.mac.rou
===================================================================
diff -u -r74842 -r74848
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 74842)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 74848)
@@ -40,6 +40,7 @@
  Set FabKeyGlobRef=$G(FabKeyGlobRef)
  Set SubPRNr=""
  Do INIT^vhLIST("HADOPV","OVZ",.LD)
+ Set IsObjtFase3=##class(OBJTimpl.CheckObjectiveFase).IsFase3()
  Quit
  
 REFRESH 
@@ -653,7 +654,7 @@
  Quit
  
 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
+ Set JaNee="1" ;$$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)