Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r56695 -r56696
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 56695)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 56696)
@@ -192,6 +192,8 @@
 	#dim mdMapping As %String
 	Do ..HaalOpSortKeyMapping(TOENr, .mdMapping)
 	
+	;Quit:($$$Not($$$HasLength($G(^mdMapping(TOENr)))))
+	
 	#dim mdWaarde As %String
 	#dim Korttekst As %String = Product.GeefKorttekst()
 	#dim DimensieDxB As %String = $Extract(Korttekst,12,19)
@@ -244,6 +246,79 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestToeleveringLijnenAdHocSplitsen">
+<Description>
+Oproepen via : 
+  Do ##class(BL.Legacy.FLOWTOE).TestToeleveringLijnenAdHocSplitsen(TOENr)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringId:%String,TonenMetVolledigeSortKey:%Boolean=""</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim TOENr As %String = ToeleveringId
+	
+	#dim AantalToelevVoorDitOrder As %Integer = 1   ; Zelfs indien meerdere toelev in dit order, dan is nog niet zeker of de sortkeys verschillend zullen zijn.
+	If (AantalToelevVoorDitOrder = 1) && (TonenMetVolledigeSortKey = "") {
+		Set TonenMetVolledigeSortKey = $$$False
+	}
+	If (AantalToelevVoorDitOrder '= 1) {
+		Set TonenMetVolledigeSortKey = $$$True
+	}
+
+	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr)
+	#dim KlantID As %String = Toelevering.GeefKlantID()
+	#dim Product As DOM.PM.Product
+
+	#dim LEVNr As %String = $P(^KTO1(TOENr),"\",1)
+	#dim TLNr As %String = 100
+	#dim SortKey As %String = ""
+	#dim SortKeyViaMapping As %String = ""
+	#dim LastSortKey As %String = ""
+	#dim arSplit As %String
+	#dim arSplit2 As %String
+	#define LabelSubTotaal   "SubTotaal:"
+	#define LabelGroepKey    "GroepKey"
+
+	#dim Rec,PRNr,LijnAantal,OrderLijnVolgnummer,Leverdag
+
+	For { Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""
+		Set Rec=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(Rec,"\",2),LijnAantal=$P(Rec,"\",3),OrderLijnVolgnummer=$P(Rec,"\",28)
+		Set SortKey="0000"  // default sortkey
+		If PRNr > 0 {
+			Set Product = ProductAPI.GeefProduct(PRNr)
+			If LEVNr=6332 {
+				Set Leverdag = ##class(BL.Legacy.FLOWTOE).GeefLeverdag(Toelevering,TLNr)
+				Set:($Length(Leverdag)) SortKey = ProductieService.GeefCategorie(Product.GeefID())_" "_ProductieService.GeefProductieGroep(KlantID,Product.GeefID())_" "_Leverdag
+			}
+			Else {
+				Set SortKey = "LEVNr"_LEVNr_";"	
+			}
+			If ##class(BL.Legacy.FLOWTOE).IsToeleveringLijnVoorSpaceTowerProduct(Toelevering,TLNr) Set SortKey = OrderLijnVolgnummer
+			Set SortKeyViaMapping = SortKey
+			Do ##class(BL.Legacy.FLOWTOE).PasAanSortKeyViaMapping(.SortKeyViaMapping,Product,TOENr,TLNr,KlantID)
+			If $$$Not(TonenMetVolledigeSortKey) {
+				Set SortKeyViaMapping = ##class(TECH.StringUtils).Replace(SortKeyViaMapping, SortKey, "")
+			}
+		}
+		Else {
+			Set SortKey=$G(LastSortKey)
+		}
+		Set:(SortKey="") SortKey="0000"
+		Set LastSortKey = SortKey
+
+		Set arSplit(SortKey,TLNr) = ""
+
+		Set arSplit2($$$LabelSubTotaal, SortKeyViaMapping) = $G(arSplit2($$$LabelSubTotaal, SortKeyViaMapping)) + LijnAantal
+		Set arSplit2($$$LabelGroepKey, SortKeyViaMapping, TLNr)="  #:"_$J(LijnAantal,2) _ "  -  " _ Product.GeefKorttekst()
+	}
+	
+	Write !,!
+	zw arSplit2
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverdag">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,ToeleveringLijnNr:%String</FormalSpec>