Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r61046 -r61047
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61046)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61047)
@@ -130,8 +130,7 @@
 		
 		#dim KeuzeVolgendeStap As %String = 9
 		Write !,"Keuze : 'Mapping verder specifieren' [1]  of 'Volledige mapping opnieuw overlopen' [2]  of 'Groepering Toepassen' [9] ? "
-		Read KeuzeVolgendeStap
-		Write !
+		Set KeuzeVolgendeStap = ..TerminalDevice.VraagInput(,1)
 		
 		If KeuzeVolgendeStap = 9 {
 			Set DefinieerMapping = "STOP"
@@ -141,8 +140,7 @@
 			Set DefinieerMapping = "GO"
 			#dim NieuweSelectie As %String = ""
 			Write !,"Mapping verder specifieren : Kies een GroepKey als nieuwe selectie : "
-			Read NieuweSelectie 
-			Write !
+			Set NieuweSelectie = ..TerminalDevice.VraagInput()
 			Set FilterGroepKey = NieuweSelectie
 		}
 		ElseIf KeuzeVolgendeStap = 2 {
@@ -162,20 +160,20 @@
 	Do ..BewaarSortKeyMapping(TOENr)
 	Write !,"Overzicht data om de splitsing uit te voeren :",!!
 	zw ^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)
+	Write !!,"Druk op een toets om voort te gaan ... "
+	Do ..TerminalDevice.DrukAnyKey()
 	
 	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 !
+	Write !!,"Druk op een toets om voort te gaan ... "
+	Do ..TerminalDevice.DrukAnyKey()
 
 	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 !
+	Write !!,"Druk op een toets om voort te gaan ... "
+	Do ..TerminalDevice.DrukAnyKey()
 
 	Do ..PrintTussenstapTitel("5", "Opkuis data", $$$True)
 	Write !!,"Voer uit nadat de splitsing gelukt is : "
@@ -219,8 +217,7 @@
 	#dim ToeleveringId As %String = ""
 	While (ToeleveringId = "") {
 		Write !!,"Geef het Toeleveringsnummer (of ""X"" om af te breken)  : "
-		Read ToeleveringId
-		Write !
+		Set ToeleveringId = ..TerminalDevice.VraagInput()
 	}
 	
 	Set ..MagUIVerderGaan = $$$Not( $$$UCase(ToeleveringId)="X" )
@@ -249,8 +246,7 @@
 	
 	#dim KeuzeVolgendeStap As %String = "J"
 	Write !!,"Zijn deze gegevens correct [J/N] ? "
-	Read KeuzeVolgendeStap
-	Write !
+	Set KeuzeVolgendeStap = ..TerminalDevice.VraagInput(,1)
 	If $$$UCase(KeuzeVolgendeStap) = "N" {
 		Set ..MagUIVerderGaan = $$$False
 	}