Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r29059 -r31767
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 29059)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 31767)
@@ -58,6 +58,20 @@
 	}
 ]]></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,KlantID:DOM.VKP.KlantID]]></FormalSpec>
+<Implementation><![CDATA[
+	Quit:(TOENr'="2nnnnn")
+	
+	Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"   Product="_Product.GeefKorttekst())
+	;Set SortKey=SortKey_$CASE($E(Product.GeefKorttekst(),4), "N":"N", "K":"K", :"REST")
+	;Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"  "_SortKey)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r30481 -r31767
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 30481)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 31767)
@@ -593,9 +593,10 @@
  . . If ((LEVNr=$$$LevBaliko)||(LEVNr=$$$LevStylinArt)||(LEVNr=$$$LevUnilin)) do 		// laatste 4 codes van korttekst (kleur)
  . . . Set SortKey = LEVNr_"."_$E($$$PRGet($$$KortTekst),22,25)  
  . . Else  Set:LEVNr=$$$LevHalux SortKey = ProductieService.GeefCategorie(Product.GeefID())_" "_ProductieService.GeefProductieGroep(KlantID,Product.GeefID())
+ . . // Ad hoc splitsing van bvb. specifieke te grote toeleveringen kan gebeuren door aan SortKey iets te appenden, zoals een kenmerk van een lade.
+ . . Do:(TOENr="299999") ##class(BL.Legacy.FLOWTOE).PasAanSortKey(.SortKey,Product,TOENr,KlantID)
  . Else  Set SortKey=$G(LastSortKey)  
  . Set:'$L(SortKey) SortKey="0000"
- . // Ad hoc splitsing van bvb. specifieke te grote toeleveringen kan gebeuren door hier aan SortKey iets te appenden, zoals een kenmerk van een lade.
  . If 'PRNr,'$D(arSplit(SortKey)) Set arSplit("~~~~",TLNr)="" Quit  ; Tekst eventueel op wacht zetten voor bij eerstvolgende productgroep
  . Merge arSplit(SortKey)=arSplit("~~~~") Kill arSplit("~~~~") ; Wachtende lijnen toevoegen
  . Set arSplit(SortKey,TLNr)=""