Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r42500 -r42810
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 42500)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 42810)
@@ -599,7 +599,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="299999") ##class(BL.Legacy.FLOWTOE).PasAanSortKey(.SortKey,Product,TOENr,TLNr,KlantID)
+ . . Do:(TOENr="2nnnnn") ##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