Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r56696 -r57502
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 56696)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 57502)
@@ -170,14 +170,18 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&SortKey:%String,Product:DOM.PM.Product,TOENr:%String,ToelevLijnNr:%String,KlantID:DOM.VKP.KlantID]]></FormalSpec>
 <Implementation><![CDATA[
+	Do ..PasAanSortKeyViaMapping(.SortKey,Product,TOENr,ToelevLijnNr,KlantID)
 	Quit:(TOENr'="2nnnnn")
 	
 	#dim Korttekst As %String = Product.GeefKorttekst()
 	#dim LadeHoogte As %String = $E(Korttekst,4)
 	#dim DossierCode As %String = $E(Korttekst,8,11)
 	
 	Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"   Product="_Product.GeefKorttekst())
-	;Set SortKey=SortKey_$CASE(LadeHoogte, "N":"N", "K":"K", :"REST")
+	Set SortKey=SortKey_$CASE(LadeHoogte, "N":"N", "K":"K", :"REST")
+	;Set SortKey=SortKey_$CASE($E(Korttekst,20,21), "S3":"ASY", :"REST")
+	;Set SortKey=SortKey_$CASE($Extract(Korttekst,22,25), "WALG":"WALG", :"REST")
+	;Set SortKey=SortKey_DossierCode
 	;Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"  Product="_Korttekst_" -> "_SortKey)
 ]]></Implementation>
 </Method>
@@ -200,6 +204,7 @@
 	Set DimensieDxB = $$$Trim(DimensieDxB)
 
 	Set mdWaarde("Korttekst"  ) = Korttekst
+	Set mdWaarde("KorttStart" ) = $Extract(Korttekst,1,3)
 	Set mdWaarde("LadeHoogte" ) = $Extract(Korttekst,4)
 	Set mdWaarde("DossierCode") = $Extract(Korttekst,8,11)
 	Set mdWaarde("DimensieDxB") = DimensieDxB
@@ -214,13 +219,16 @@
 	If (Kenmerk = "") {
 		Set SortKey = "[!! Geen Kenmerk Ingevuld !!]"
 	}
+	ElseIf (Kenmerk = "LijnNr") {
+		Set SortKey = SortKey _ " " _ ToelevLijnNr
+	}
 	ElseIf ($D(mdWaarde(Kenmerk)) = 0) {
 		Set SortKey = "[!! '"_Kenmerk_"' Is Ongeldig !!]"
 	}
 	Else {
 		Set Waarde = mdWaarde(Kenmerk)
 		Set:(Waarde = "") Waarde = "[LEEG]"
-		Set SortKey = SortKey _ " " _ $J($G(mdMapping(TOENr,Waarde), "REST"),5)
+		Set SortKey = SortKey _ " " _ ##class(TECH.StringUtils).AddLeadingChar($G(mdMapping(TOENr,Waarde), " REST"),"_",5)
 	}
 ]]></Implementation>
 </Method>
@@ -246,10 +254,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestToeleveringLijnenAdHocSplitsen">
+<Method name="SimuleerToeleveringLijnenAdHocSplitsen">
 <Description>
 Oproepen via : 
-  Do ##class(BL.Legacy.FLOWTOE).TestToeleveringLijnenAdHocSplitsen(TOENr)</Description>
+  Do ##class(BL.Legacy.FLOWTOE).SimuleerToeleveringLijnenAdHocSplitsen(TOENr)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ToeleveringId:%String,TonenMetVolledigeSortKey:%Boolean=""</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>