Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r56677 -r56695
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 56677)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 56695)
@@ -178,10 +178,72 @@
 	
 	Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"   Product="_Product.GeefKorttekst())
 	;Set SortKey=SortKey_$CASE(LadeHoogte, "N":"N", "K":"K", :"REST")
-	;Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"  "_SortKey)
+	;Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"  Product="_Korttekst_" -> "_SortKey)
 ]]></Implementation>
 </Method>
 
+<Method name="PasAanSortKeyViaMapping">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&SortKey:%String,Product:DOM.PM.Product,TOENr:%String,ToelevLijnNr:%String,KlantID:DOM.VKP.KlantID]]></FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:(TOENr'="294135")
+	
+	#dim mdMapping As %String
+	Do ..HaalOpSortKeyMapping(TOENr, .mdMapping)
+	
+	#dim mdWaarde As %String
+	#dim Korttekst As %String = Product.GeefKorttekst()
+	#dim DimensieDxB As %String = $Extract(Korttekst,12,19)
+	Set DimensieDxB = $$$Trim(DimensieDxB)
+
+	Set mdWaarde("Korttekst"  ) = Korttekst
+	Set mdWaarde("LadeHoogte" ) = $Extract(Korttekst,4)
+	Set mdWaarde("DossierCode") = $Extract(Korttekst,8,11)
+	Set mdWaarde("DimensieDxB") = DimensieDxB
+	Set mdWaarde("LadeDiepte" ) = $Piece(DimensieDxB,"x",1)
+	Set mdWaarde("LadeBreedte") = $Piece(DimensieDxB,"x",2)
+	Set mdWaarde("KleurenCode") = $Extract(Korttekst,22,25)
+
+	#dim Kenmerk As %String
+	#dim Waarde As %String
+
+	Set Kenmerk = $G(mdMapping(TOENr))
+	If (Kenmerk = "") {
+		Set SortKey = "[!! Geen Kenmerk Ingevuld !!]"
+	}
+	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)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="HaalOpSortKeyMapping">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[TOENr:%String,&mdMapping:%String]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill mdMapping
+	
+ /*   */
+	// Ofwel lokale multi-dim hier gedefinieerd 
+	Set mdMapping(TOENr)="DossierCode"
+	Set mdMapping(TOENr,"WMA7")="A"
+	Set mdMapping(TOENr,"WMA3")="B"
+	Set mdMapping(TOENr,"WMA6")="B"
+	Set mdMapping(TOENr,"WL99")="C"
+ /*   * /
+	// Ofwel Merge from global 
+	Merge mdMapping(TOENr) = ^BL.Legacy.FLOWTOE.SplitsToelevMapping(TOENr)
+ /*   */
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverdag">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,ToeleveringLijnNr:%String</FormalSpec>