Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r58561 -r58584
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 58561)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 58584)
@@ -158,217 +158,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PasAanSortKey">
-<Description>
-Ad hoc splitsing van bvb. specifieke te grote toeleveringen kan gebeuren door aan SortKey iets te appenden, zoals een kenmerk van een lade.</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&SortKey:%String,Product:DOM.PM.Product,TOENr:%String,ToelevLijnNr:%String,KlantID:DOM.VKP.KlantID]]></FormalSpec>
-<Implementation><![CDATA[
-	// Versie 2 
-	Do ..PasAanSortKeyViaMapping(.SortKey,Product,TOENr,ToelevLijnNr,KlantID)
-	Quit
-	
- /*   * /
- 	
-	// Versie 1  (DEPRECATED) 
-	// 
-	Do ..PasAanSortKeyVersie01(.SortKey,Product,TOENr,ToelevLijnNr,KlantID)
- /*   */
-]]></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>
-<ClassMethod>1</ClassMethod>
-<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>
-
-<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>
-<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[
-	#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") {
-			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)
-		}
-	}
-	/*
-	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="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) =^Lgc.FLOWTOE.SplitsToelevMapping(TOENr)
- /*   */
-]]></Implementation>
-</Method>
-
-<Method name="IsAdHocSplitsingActief">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>TOENr:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<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="SimuleerToeleveringLijnenAdHocSplitsen">
-<Description>
-Oproepen via : 
-  Do ##class(BL.Legacy.FLOWTOE).SimuleerToeleveringLijnenAdHocSplitsen(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>