Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u -r60924 -r61044
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 60924)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(.../AdHocSplitser.cls.xml)	(revision 61044)
@@ -91,19 +91,19 @@
 
 	While (DefinieerMapping = "GO") {
 
-		Write !,"Kies een kenmerk om een "_$Select(IsEersteRonde:"eerste", 1:"extra")_" groepering mee te definieren : ",!,"DossierCode/Korttekst/KorttStart/LadeHoogte/DimensieDxB/LadeDiepte/LadeBreedte/KleurenCode/OrderLijnNr",!
+		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 !
 		
-		; Bepaal Lijst Mogelijke KM-waarden
+		Do ..ToonKenmerkWaardenInOrder(Kenmerk)
 
 		Kill mdGroepKeyMapping
 		Set mdGroepKeyMapping = Kenmerk
 		
-		;#dim TLNr As %String = ""
+		Write !,"Geef voor iedere kenmerkwaarde een groepering. Deze GroepKey is vrij te kiezen (bvb: 1,2,3 of A,B,C of 'groep'+KenmerkWaarde)."
+		Set TLNr = ""
 		For { Set TLNr = $Order(..mdProductLijnen(TLNr))  Quit:(TLNr="")
 			#dim lbProductLijnData As %List = ..mdProductLijnen(TLNr) 
-			#dim Korttekst As %String = $LG(lbProductLijnData,1)
 			
 			Continue:(..FilterProductLijnViaGroepKey(lbProductLijnData,FilterGroepKey) = $$$False)
 			
@@ -154,13 +154,13 @@
 	
 	// Na Confirm de GroepKey Mapping vastleggen :
 	Do ..BewaarSortKeyMapping(TOENr)
-	
+	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 ##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 !
@@ -174,6 +174,7 @@
 	Do ..PrintTussenstapTitel("5", "Opkuis data")
 	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.",!
 	
 	/*
 	Splitser v2.1 : 
@@ -199,7 +200,8 @@
 <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>
 
@@ -274,13 +276,49 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToonKenmerkWaardenInOrder">
+<FormalSpec>Kenmerk:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:(##class(TECH.StringUtils).Equals(Kenmerk, "Korttekst", "OrderLijnNr"))
+	
+	#dim KenmerkWaardenInOrder As %ListOfDataTypes = ..GeefKenmerkWaardenInOrder(Kenmerk)
+	
+	#dim ToonWaarden As %Boolean = $$$True
+	If ##class(TECH.StringUtils).Equals(Kenmerk, "DossierCode", "DimensieDxB", "LadeBreedte") {
+		Set ToonWaarden = (KenmerkWaardenInOrder.Count() < 8)
+	}
+	
+	If ToonWaarden {
+		Write !,"De Kenmerkwaarden voor '"_Kenmerk_"' zijn : "_##class(TECH.ListUtils).ListToPieces(KenmerkWaardenInOrder, " - ")
+		Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkWaardenInOrder">
+<FormalSpec>Kenmerk:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set KenmerkWaardenInOrder = ##class(%ListOfDataTypes).%New()
+	
+	#dim TLNr As %String = ""
+	For { Set TLNr = $Order(..mdProductLijnen(TLNr))  Quit:(TLNr="")
+		#dim KenmerkWaarde As %String = ..GeefKenmerkVoorProductLijn(TLNr,Kenmerk)
+		If $$$Not(KenmerkWaardenInOrder.Find(KenmerkWaarde)) { Do KenmerkWaardenInOrder.Insert(KenmerkWaarde) }
+	}
+	
+	Quit KenmerkWaardenInOrder
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkVoorProductLijn">
 <FormalSpec>TLNr:%String,Kenmerk:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim mdWaarde As %String
-
 	#dim lbProductLijnData As %List = ..mdProductLijnen(TLNr) 
 
 	#dim Korttekst As %String = $LG(lbProductLijnData,1)
@@ -510,7 +548,7 @@
 		Set arSplit2($$$LabelGroepKey, SortKeyViaMapping, TLNr)="  #:"_$J(LijnAantal,2) _ "  -  " _ Product.GeefKorttekst()
 	}
 	
-	Write !,!
+	Write !
 	zw arSplit2
 ]]></Implementation>
 </Method>