Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r58584 -r61588
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 58584)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 61588)
@@ -180,6 +180,16 @@
 	Quit Leverdag
 ]]></Implementation>
 </Method>
+
+<Method name="GeefUniekeClassificatieCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassificatieKnoop As DOM.PM.ClassificatieKnoop = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(PRNr).GeefClassificatieKnoop()
+	Quit ClassificatieKnoop.GeefUniekeCode()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r61581 -r61588
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 61581)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 61588)
@@ -576,7 +576,7 @@
  ;    + extra splits toegevoegd .. Baliko , Dekaply --> per kleur..
  ;    + extra split KAD & TBX
 SplitHaluxProd(TOENr,NTLNr)
- New R,LEVNr,TLNr,NTOENr,LCount, TLUNr,PRNr,OrderLijnVolgnummer
+ New R,LEVNr,TLNr,NTOENr,LCount, TLUNr,PRNr,OrderLijnVolgnummer, UniekeClassificatieCode
  New arSplit,SortKey,LastSortKey,Leverdag
  New Toelevering,KlantID,Product,ProductAPI,AdHocSplitser
  New ProductieService,ToeleveringSplitser, ToeleveringSplitserBepaler, Aantal
@@ -606,9 +606,12 @@
  . . . 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 UniekeClassificatieCode = ##class(BL.Legacy.FLOWTOE).GeefUniekeClassificatieCode(PRNr)
+ . . If ($$IsGlassetProduct(UniekeClassificatieCode) || $$IsVerzagingProduct(UniekeClassificatieCode) || $$IsCabloxProduct(UniekeClassificatieCode)) Do
  . . . Set Leverdag = ##class(BL.Legacy.FLOWTOE).GeefLeverdag(Toelevering,TLNr)
- . . . Set:($Length(Leverdag)) SortKey = $$GeefUniekeClassificatieCode(PRNr)_ProductieService.GeefProductieGroep(KlantID,Product.GeefID(),ToeleveringSplitser)_" "_Leverdag
+ . . . Set:($Length(Leverdag)) SortKey = UniekeClassificatieCode_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.
@@ -648,15 +651,11 @@
  Quit ^TO("IU",TOENr,TLUNr)
  ;
 
-IsGlassetProduct(PRNr)
- Quit ($$GeefUniekeClassificatieCode(PRNr) = "BX/ACC/ACC/VH")
+IsGlassetProduct(UniekeClassificatieCode)
+ Quit (UniekeClassificatieCode = "BX/ACC/ACC/VH")
  
-IsVerzagingProduct(PRNr)
- Quit ($$GeefUniekeClassificatieCode(PRNr) = "AL/DIV/DIV/MA")
+IsVerzagingProduct(UniekeClassificatieCode)
+ Quit (UniekeClassificatieCode = "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()
+IsCabloxProduct(UniekeClassificatieCode)
+ Quit (UniekeClassificatieCode = "ZZ/CAB/CAB/HA")