Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r61045 -r61046
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61045)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61046)
@@ -19,6 +19,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TerminalDevice">
+<Type>TECH.Console.TerminalInput</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="MagUIVerderGaan">
 <Type>%Boolean</Type>
 <Private>1</Private>
@@ -33,6 +38,7 @@
 <Implementation><![CDATA[
 	set ..ToeleveringAPI = ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New()
 	Set ..BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
+	Set ..TerminalDevice = ##class(TECH.Console.TerminalInput).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,7 +50,7 @@
 <FormalSpec>ToeleveringId:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	// Test comment-lijn voor Svn-Upgrade 
-	Do ..PrintTussenstapTitel("1", "Invoer")
+	Do ..PrintTussenstapTitel("1", "Invoer", $$$True)
 	
 	Set ..MagUIVerderGaan = $$$True
 	If ($$$Trim(ToeleveringId) = "") {
@@ -77,7 +83,7 @@
 	}
 	
 	Do ..PrintTussenstapTitel("2", "Instellen van de groepen om te splitsen")
-	Write !,!
+	Write !
 	Write $$ArrayToText^vhTools("mdProductLijnen", $this, "mdProductLijnen")
 	Write !,!
 
@@ -157,21 +163,21 @@
 	Write !,"Overzicht data om de splitsing uit te voeren :",!!
 	zw ^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)
 	
-	Do ..PrintTussenstapTitel("3", "Simulatie")
-	Write !!!,"De simulatie van het splitsen geeft volgende resultaat : ",!
+	Do ..PrintTussenstapTitel("3", "Simulatie", $$$True)
+	Write !!,"De simulatie van het splitsen geeft volgende resultaat : ",!
 	Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().SimuleerToeleveringLijnenAdHocSplitsen(TOENr)
 	Write !!,"Controleer nog eens of de aantallen bij 'SubTotaal:' in orde zijn."
 	Write !!,"Druk op enter om voort te gaan ... "
 	Read KeuzeVolgendeStap
 	Write !
 
-	Do ..PrintTussenstapTitel("4", "Effectief splitsen")
+	Do ..PrintTussenstapTitel("4", "Effectief splitsen", $$$True)
 	Write !!,"Voer nu de splitsing uit op het Order in Admin : Raadplegen klant - Openstaande Orders - F12 - Wijzig Order - Order sluiten. "
 	Write !!,"Druk op enter om voort te gaan ... "
 	Read KeuzeVolgendeStap
 	Write !
 
-	Do ..PrintTussenstapTitel("5", "Opkuis data")
+	Do ..PrintTussenstapTitel("5", "Opkuis data", $$$True)
 	Write !!,"Voer uit nadat de splitsing gelukt is : "
 	Write !,"Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().CleanUpMapping(TOENr)"
 	Write !!,"Dan ben je gereed. ",!,"Mail een screenshot van je Admin-scherm ('Openstaande orders') naar de aanvrager.",!
@@ -198,9 +204,10 @@
 </Method>
 
 <Method name="PrintTussenstapTitel">
-<FormalSpec>StapNummer:%String,StapInfo:%String=""</FormalSpec>
+<FormalSpec>StapNummer:%String,StapInfo:%String="",StartNieuwScherm:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do:(StartNieuwScherm) ..TerminalDevice.StartNieuwScherm()
 	Write !!,"STAP "_StapNummer_" : "_StapInfo_$$$CRLF_"========"_$$$CRLF
 ]]></Implementation>
 </Method>