Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r58432 -r58561
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 58432)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 58561)
@@ -609,7 +609,7 @@
  . . 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.
- . . Do:(TOENr="2nnnnn") ##class(BL.Legacy.FLOWTOE).PasAanSortKey(.SortKey,Product,TOENr,TLNr,KlantID)
+ . . Do:(##class(BL.Legacy.FLOWTOE).IsAdHocSplitsingActief(TOENr)) ##class(BL.Legacy.FLOWTOE).PasAanSortKey(.SortKey,Product,TOENr,TLNr,KlantID)
  . Else  Set SortKey=$G(LastSortKey)  
  . Set:'$L(SortKey) SortKey="0000"
  . If 'PRNr,'$D(arSplit(SortKey)) Set arSplit("~~~~",TLNr)="" Quit  ; Tekst eventueel op wacht zetten voor bij eerstvolgende productgroep
Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r58400 -r58561
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 58400)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 58561)
@@ -282,6 +282,20 @@
 ]]></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 :