Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r61049 -r61202
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61049)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61202)
@@ -83,25 +83,24 @@
 	}
 	
 	Do ..PrintTussenstapTitel("2", "Instellen van de groepen om te splitsen")
-	Write !
-	Write $$ArrayToText^vhTools("mdProductLijnen", $this, "mdProductLijnen")
-	Write !,!
-
+	
 	#dim Kenmerk As %String
 	#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") {
-
+		
+		Do:(FilterGroepKey = "#ALL#") ..ToonProductLijnenInfo()
+		
 		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",!
 		Set Kenmerk = ..TerminalDevice.VraagInputMetDefault("OrderLijnNr")
 		
 		Do ..ToonKenmerkWaardenInOrder(Kenmerk)
-
+		
 		Kill mdGroepKeyMapping
 		Set mdGroepKeyMapping = Kenmerk
 		
@@ -280,6 +279,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToonProductLijnenInfo">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Write !
+	Write $$ArrayToText^vhTools("mdProductLijnen", $this, "mdProductLijnen")
+	Write !,!
+]]></Implementation>
+</Method>
+
 <Method name="ToonKenmerkWaardenInOrder">
 <FormalSpec>Kenmerk:%String</FormalSpec>
 <Private>1</Private>