Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r61047 -r61048
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61047)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61048)
@@ -98,8 +98,7 @@
 	While (DefinieerMapping = "GO") {
 
 		Write !,"Geef een kenmerk om een "_$Select(IsEersteRonde:"eerste", 1:"extra")_" groepering mee te definieren : ",!,"Kies uit : DossierCode/Korttekst/KorttStart/LadeHoogte/DimensieDxB/LadeDiepte/LadeBreedte/KleurenCode/OrderLijnNr",!
-		Read Kenmerk
-		Write !
+		Set Kenmerk = ..TerminalDevice.VraagInputMetDefault("OrderLijnNr")
 		
 		Do ..ToonKenmerkWaardenInOrder(Kenmerk)
 
@@ -119,8 +118,7 @@
 			}
 			Else {
 				Write !,"Geef GroepKey voor KenmerkWaarde '"_KenmerkWaarde_"' : "
-				Read GroepKey
-				Write !
+				Set GroepKey = ..TerminalDevice.VraagInputMetDefault("g_"_KenmerkWaarde)
 				Set mdGroepKeyMapping(KenmerkWaarde) = GroepKey
 			}
 			Set $LI(..mdProductLijnen(TLNr),4) = GroepKey
@@ -174,6 +172,9 @@
 	Write !!,"Voer nu de splitsing uit op het Order in Admin : Raadplegen klant - Openstaande Orders - F12 - Wijzig Order - Order sluiten. "
 	Write !!,"Druk op een toets om voort te gaan ... "
 	Do ..TerminalDevice.DrukAnyKey()
+	Write !!,"Controleer in Admin ('Openstaande orders') dat de orderlijnen nu andere toeleveringsnummers bevatten."
+	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 : "