Index: FLOWTOE3.mac.rou
===================================================================
diff -u -r48006 -r53255
--- FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 48006)
+++ FLOWTOE3.mac.rou	(.../FLOWTOE3.mac.rou)	(revision 53255)
@@ -576,7 +576,7 @@
  ;    + extra split KAD & TBX
 SplitHaluxProd(TOENr,NTLNr)
  New R,LEVNr,TLNr,NTOENr,LCount, TLUNr,PRNr,OrderLijnVolgnummer
- New arSplit,SortKey,LastSortKey
+ New arSplit,SortKey,LastSortKey,Leverdag
  new Toelevering, KlantID,Product,ProductAPI
  new ProductieService set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
  set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
@@ -594,7 +594,10 @@
  . . . Set SortKey=$$$LevHalux
  . . 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())
+ . . Else  Do
+ . . . If LEVNr=$$$LevHalux Do
+ . . . . Set Leverdag = ##class(BL.Legacy.FLOWTOE).GeefLeverdag(Toelevering,TLNr)
+ . . . . Set SortKey = ProductieService.GeefCategorie(Product.GeefID())_" "_ProductieService.GeefProductieGroep(KlantID,Product.GeefID())_" "_Leverdag
  . . 
  . . If ##class(BL.Legacy.FLOWTOE).IsToeleveringLijnVoorSpaceTowerProduct(Toelevering,TLNr) Set SortKey = OrderLijnVolgnummer
  . . 
@@ -636,4 +639,3 @@
  ;
 
 
-
Index: BL/Legacy/FLOWTOE.cls.xml
===================================================================
diff -u -r48468 -r53255
--- BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 48468)
+++ BL/Legacy/FLOWTOE.cls.xml	(.../FLOWTOE.cls.xml)	(revision 53255)
@@ -177,6 +177,27 @@
 	;Do WLIP^vhDBG(97,"Te splitsen : KLNr="_KlantID_"  "_SortKey)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLeverdag">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,ToeleveringLijnNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Leverdag As %String
+	#dim OrderApi As DOM.VKP.OrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
+	#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(ToeleveringLijnNr)
+	#dim OrderlijnVolgnummer As %String = ToeleveringLijn.GeefOrderLijnVolgnummer()
+	#dim OrderID As %String = ToeleveringLijn.GeefOrderID()
+	
+	If ($$$HasLength(OrderID)) {
+		#dim Order As DOM.VKP.Order = OrderApi.GeefOrder(OrderID)
+		#dim OrderLijn As DOM.VKP.Orderlijn = Order.GeefOrderLijnViaVolgnummer(OrderlijnVolgnummer)
+		Set Leverdag = OrderLijn.GeefLeverdag()
+	}
+	
+	Quit Leverdag
+]]></Implementation>
+</Method>
 </Class>