Index: BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml
===================================================================
diff -u
--- BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(revision 0)
+++ BL/Legacy/FLOWTOE/AdHocSplitser.cls.xml	(revision 58583)
@@ -0,0 +1,327 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.FLOWTOE.AdHocSplitser">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="mdProductLijnen">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+<Private>1</Private>
+</Property>
+
+<Method name="StelInMappingViaUI">
+<Description>
+Oproepen via : 
+  Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().StelInMappingViaUI(TOENr) </Description>
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim TOENr As %String = ToeleveringId
+	#dim LEVNr As %String = $P(^KTO1(TOENr),"\",1)
+	#dim TLNr As %String = 100
+	
+	Kill ^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)
+
+	#dim ProductAPI As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	#dim Product As DOM.PM.Product
+
+	#dim Rec, PRNr, LijnAantal, OrderLijnVolgnummer, GroepKey
+
+	For { Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:(TLNr="")
+		Set Rec=^KTO(LEVNr,TOENr,TLNr)
+		Set PRNr=$P(Rec,"\",2),LijnAantal=$P(Rec,"\",3),OrderLijnVolgnummer=$P(Rec,"\",28)
+		If PRNr > 0 {
+			Set Product = ProductAPI.GeefProduct(PRNr)
+			Set GroepKey = "    0"
+			Set ..mdProductLijnen(TLNr) = $LB(Product.GeefKorttekst(), LijnAantal, OrderLijnVolgnummer, GroepKey)
+		}
+	}
+	
+	Write !,!
+	Write $$ArrayToText^vhTools("mdProductLijnen", $this, "mdProductLijnen")
+	Write !,!
+
+	#dim Kenmerk As %String
+	#dim Waarde As %String
+	
+	Write !,"Kies een kenmerk om een eerste groepering mee te definieren : ",!,"DossierCode/Korttekst/KorttStart/LadeHoogte/DimensieDxB/LadeDiepte/LadeBreedte/KleurenCode/OrderLijnNr",!
+	Read Kenmerk
+	Write !
+	
+	; Bepaal Lijst Mogelijke KM-waarden
+	#dim mdGroepKeyMapping As %String = Kenmerk
+	;#dim MappingId As %String = ""
+	;#dim TLNr As %String = ""
+	For { Set TLNr = $Order(..mdProductLijnen(TLNr))  Quit:(TLNr="")
+		#dim lbProductLijnData As %List = ..mdProductLijnen(TLNr) 
+		#dim Korttekst As %String = $LG(lbProductLijnData,1)
+		#dim KenmerkWaarde As %String = ..GeefKenmerkVoorProductLijn(TLNr,Kenmerk)
+		If $Data(mdGroepKeyMapping(KenmerkWaarde)) {
+			Set GroepKey = mdGroepKeyMapping(KenmerkWaarde)
+		}
+		Else {
+			Write !,"Geef GroepKey voor KenmerkWaarde '"_KenmerkWaarde_"' : "
+			Read GroepKey
+			Write !
+			Set mdGroepKeyMapping(KenmerkWaarde) = GroepKey
+		}
+		Set $LI(..mdProductLijnen(TLNr),4) = GroepKey
+	}
+	
+	Do ..BewaarSortKeyMapping(TOENr)
+	
+	zw ^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)
+	/*
+	Splitser v2.1 : 
+	Verzamel Producten van Toelevering 
+	Combinatie LijnNr+Korttekst oplijsten : initieel allen GroepKey "    0" 
+	SelectALL Lijnen 
+	StartModifyStep (1) : Kies kenmerk --> Lijst Mogelijke KM-waarden --> Vraag GroepKey voor iedere KM-Waarde --> Toon overzicht "GroepKey Mapping" --> Confirm 
+	Simuleer Groepering : Voor alle geselecteerde lijnen : "GroepKey Mapping" toepassen indien mogelijk --> Nieuwe Groepkey "bewaren" --> Toon overzicht "LijnInfo" + "Aantal per Key" 
+	Keuze : "Nieuwe mapping bijvoegen" of "Groepering Toepassen" ? 
+	"Nieuwe mapping bijvoegen" (Optioneel) --> Toggle SelectLijnen : Kies GroepKey --> StartModifyStep (2) --> Simuleer Groepering 
+	Keuze : "Nieuwe mapping bijvoegen" of "Groepering Toepassen" ? 
+	"Groepering Toepassen" : PasAanSortKeyViaMapping() oproepen via "Wijzig Order" op basis van GroepKey mapping op LijnNr+Korttekst --> Tekst tonen aan User : "Wijzig Order in Admin" 
+	*/
+]]></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)
+	#dim DimensieDxB As %String = $Extract(Korttekst,12,19)
+	Set DimensieDxB = $$$Trim(DimensieDxB)
+
+	Set mdWaarde("Korttekst"  ) = Korttekst						// structuur: zie DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler 
+	Set mdWaarde("KorttStart" ) = $Extract(Korttekst,1,3)
+	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 Waarde As %String
+
+	If (Kenmerk = "") {
+		Set Waarde = "[!! Geen Kenmerk Ingevuld !!]"  ; Exception smijten 
+	}
+	ElseIf (Kenmerk = "OrderLijnNr") {
+		Set Waarde = $LG(lbProductLijnData,3)
+	}
+	ElseIf ($D(mdWaarde(Kenmerk)) = 0) {
+		Set Waarde = "[!! '"_Kenmerk_"' Is Ongeldig !!]"  ; Exception smijten 
+	}
+	Else {
+		Set Waarde = mdWaarde(Kenmerk)
+	}
+
+	Quit Waarde
+]]></Implementation>
+</Method>
+
+<Method name="BewaarSortKeyMapping">
+<FormalSpec>TOENr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim mdMapping As %String = "LijnNr+Korttekst"
+	#dim MappingId As %String = ""
+	#dim TLNr As %String = ""
+	For { Set TLNr = $Order(..mdProductLijnen(TLNr))  Quit:(TLNr="")
+		#dim lbProductLijnData As %List = ..mdProductLijnen(TLNr) 
+		#dim Korttekst As %String = $LG(lbProductLijnData,1)
+		#dim GroepKey As %String = $LG(lbProductLijnData,4)
+		Set MappingId = TLNr _ "_" _ Korttekst
+		Set mdMapping(MappingId) = GroepKey
+	}
+	
+	Merge ^Lgc.FLOWTOE.SplitsToelevMapping(TOENr) = mdMapping
+]]></Implementation>
+</Method>
+
+<Method name="PasAanSortKeyViaMapping">
+<Description>
+Ad hoc splitsing Versie 2 : 
+Hierbij wordt de splisting gedefinieerd in een mapping (Global/multidim local) en kan de splitsing eerst gesimuleerd worden (via method SimuleerToeleveringLijnenAdHocSplitsen). </Description>
+<FormalSpec><![CDATA[&SortKey:%String,Product:DOM.PM.Product,TOENr:%String,ToelevLijnNr:%String,KlantID:DOM.VKP.KlantID]]></FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim mdMapping As %String
+	Do ..HaalOpSortKeyMapping(TOENr, .mdMapping)
+	
+	If ($$$HasLength($G(mdMapping(TOENr)))) {
+		
+		#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						// structuur: zie DOM.PM.Maatwerk.TAX.impl.StandaardKorttekstBepaler 
+		Set mdWaarde("KorttStart" ) = $Extract(Korttekst,1,3)
+		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 (Kenmerk = "LijnNr+Korttekst") {
+			#dim MappingId = ToelevLijnNr _ "_" _ Korttekst
+			Set SortKey = SortKey _ " " _ ##class(TECH.StringUtils).AddLeadingChar($G(mdMapping(TOENr,MappingId), " REST"),"_",5)
+		}
+		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 _ " " _ ##class(TECH.StringUtils).AddLeadingChar($G(mdMapping(TOENr,Waarde), " REST"),"_",5)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsAdHocSplitsingActief">
+<FormalSpec>TOENr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsAdHocSplitsingActief As %Boolean = $$$False
+	If $$$HasLength(TOENr) {
+		Set IsAdHocSplitsingActief = $$$HasLength( $Get(^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)) )
+	}
+	Quit IsAdHocSplitsingActief
+]]></Implementation>
+</Method>
+
+<Method name="HaalOpSortKeyMapping">
+<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) =^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)
+ /*   */
+]]></Implementation>
+</Method>
+
+<Method name="SimuleerToeleveringLijnenAdHocSplitsen">
+<Description>
+Oproepen via : 
+  Do ##class(BL.Legacy.FLOWTOE.AdHocSplitser).%New().SimuleerToeleveringLijnenAdHocSplitsen(TOENr)</Description>
+<FormalSpec>ToeleveringId:%String,TonenMetVolledigeSortKey:%Boolean=""</FormalSpec>
+<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 ..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="PasAanSortKeyVersie01">
+<Description>
+Ad hoc splitsing Versie 1 : deze is nog mogelijk, maar verouderde methode. 
+Hierbij moet de implementatie van deze method aangepast worden, naargelang de gewenste splisting. </Description>
+<FormalSpec><![CDATA[&SortKey:%String,Product:DOM.PM.Product,TOENr:%String,ToelevLijnNr:%String,KlantID:DOM.VKP.KlantID]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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($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>
+</Class>
+
+
+</Export>