Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r58585 -r61581
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 58585)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 61581)
@@ -606,7 +606,9 @@
  . . . If LEVNr=$$$LevHalux Do
  . . . . Set Leverdag = ##class(BL.Legacy.FLOWTOE).GeefLeverdag(Toelevering,TLNr)
  . . . . Set:($Length(Leverdag)) SortKey = ProductieService.GeefCategorie(Product.GeefID())_" "_ProductieService.GeefProductieGroep(KlantID,Product.GeefID(),ToeleveringSplitser)_" "_Leverdag
- . . 
+ . . If ($$IsGlassetProduct(PRNr) || $$IsVerzagingProduct(PRNr) || $$IsCabloxProduct(PRNr)) do
+ . . . Set Leverdag = ##class(BL.Legacy.FLOWTOE).GeefLeverdag(Toelevering,TLNr)
+ . . . Set:($Length(Leverdag)) SortKey = $$GeefUniekeClassificatieCode(PRNr)_ProductieService.GeefProductieGroep(KlantID,Product.GeefID(),ToeleveringSplitser)_" "_Leverdag
  . . If ##class(BL.Legacy.FLOWTOE).IsToeleveringLijnVoorSpaceTowerProduct(Toelevering,TLNr) Set SortKey = OrderLijnVolgnummer
  . . 
  . . // Ad hoc splitsing van bvb. specifieke te grote toeleveringen kan gebeuren door aan SortKey iets te appenden, zoals een kenmerk van een lade.
@@ -646,4 +648,15 @@
  Quit ^TO("IU",TOENr,TLUNr)
  ;
 
-
+IsGlassetProduct(PRNr)
+ Quit ($$GeefUniekeClassificatieCode(PRNr) = "BX/ACC/ACC/VH")
+ 
+IsVerzagingProduct(PRNr)
+ Quit ($$GeefUniekeClassificatieCode(PRNr) = "AL/DIV/DIV/MA")
+ 
+IsCabloxProduct(PRNr)
+ Quit ($$GeefUniekeClassificatieCode(PRNr) = "ZZ/CAB/CAB/HA")
+ 
+GeefUniekeClassificatieCode(PRNr)
+ #dim ClassificatieKnoop As DOM.PM.ClassificatieKnoop = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNr).GeefClassificatieKnoop()
+ Quit ClassificatieKnoop.GeefUniekeCode()