Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r58963 -r59430
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 58963)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 59430)
@@ -49,7 +49,10 @@
 	
 	Do ..PrintTussenstapTitel("1", "Invoer")
 	
-	Set:(ToeleveringId = "") ToeleveringId = ..VraagToeleveringId()
+	Set ..MagUIVerderGaan = $$$True
+	If ($$$Trim(ToeleveringId) = "") {
+		Set ToeleveringId = ..VraagToeleveringId()
+	}
 	Quit:($$$Not(..MagUIVerderGaan))
 	
 	Do ..ToonInfoEnControleer(ToeleveringId)
@@ -85,12 +88,13 @@
 	#dim Waarde As %String
 	#dim FilterGroepKey As %String = "#ALL#"
 	
+	#dim IsEersteRonde As %Boolean = $$$True
 	#dim mdGroepKeyMapping As %String = ""
 	#dim DefinieerMapping As %String = "GO"
 
 	While (DefinieerMapping = "GO") {
 
-		Write !,"Kies een kenmerk om een eerste groepering mee te definieren : ",!,"DossierCode/Korttekst/KorttStart/LadeHoogte/DimensieDxB/LadeDiepte/LadeBreedte/KleurenCode/OrderLijnNr",!
+		Write !,"Kies een kenmerk om een "_$Select(IsEersteRonde:"eerste", 1:"extra")_" groepering mee te definieren : ",!,"DossierCode/Korttekst/KorttStart/LadeHoogte/DimensieDxB/LadeDiepte/LadeBreedte/KleurenCode/OrderLijnNr",!
 		Read Kenmerk
 		Write !
 		
@@ -148,6 +152,7 @@
 			Set KeuzeVolgendeStap = 9
 			Set DefinieerMapping = "STOP"
 		}
+		Set IsEersteRonde = $$$False
 	}
 	
 	// Na Confirm de GroepKey Mapping vastleggen :
@@ -197,7 +202,7 @@
 <Method name="PrintTussenstapTitel">
 <FormalSpec>StapNummer:%String,StapInfo:%String=""</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Write !!,"STAP "_StapNummer_" :"_StapInfo_$$$CRLF_"========"_$$$CRLF
+<Implementation><![CDATA[	Write !!,"STAP "_StapNummer_" : "_StapInfo_$$$CRLF_"========"_$$$CRLF
 ]]></Implementation>
 </Method>
 
@@ -207,7 +212,7 @@
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = ""
 	While (ToeleveringId = "") {
-		Write !!,"Geef het Toeleveringsnummer (""X"" om af te breken)  : "
+		Write !!,"Geef het Toeleveringsnummer (of ""X"" om af te breken)  : "
 		Read ToeleveringId
 		Write !
 	}
@@ -244,6 +249,8 @@
 		Set ..MagUIVerderGaan = $$$False
 	}
 	
+	Quit:($$$Not(..MagUIVerderGaan))
+	
 	// Controle Toelevering niet in Batch.
 	#dim BatchId As %String = ..BatchService.ZoekBijhorendeBatchIdVoorToelevering(ToeleveringId)
 	If $$$HasLength(BatchId) {