Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r68334 -r70299
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 68334)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 70299)
@@ -187,12 +187,7 @@
 <Implementation><![CDATA[
 	#dim DueOut = C("DUEOUTTIME")
 	#dim DueOutTijd as %Numeric = $Piece(DueOut,",",2)
-	;indien halux && dueout != 03:00h
-	If (C("KLNR") = $$$KlantHalux ) && (DueOutTijd '= 10800) {
-		;dan zetten we dueout 18:00h
-		Set DueOutTijd = 18*3600
-		Set $Piece(DueOut,",",2) = DueOutTijd
-	}	
+	
 	Quit $zdt(DueOut,3)
 ]]></Implementation>
 </Method>
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r70296 -r70299
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70296)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70299)
@@ -45,14 +45,21 @@
 <Type>BL.Flow.Levering.LabelLogoBepaler</Type>
 </Property>
 
+<Property name="ExtraInfoVoorSubmagazijnBepaler">
+<Type>BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString,LabelLogoBepaler:BL.Flow.Levering.LabelLogoBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..LabelLogoBepaler = $$$Inject(LabelLogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New())
+	Set ..ExtraInfoVoorSubmagazijnBepaler = ##class(BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New("LeveringLabels")
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -195,8 +202,19 @@
 	If (..pxLabelKlant.Layout = "KlantAdres 8x11") {
 		Set ..pxLabelKlant.Layout = "KlantAdresTemp 8x11"
 	}
-	Set ..pxLabelKlant.VerzendwijzeExtraInfo = ##class(BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler).%New().GeefExtraInfoVoorSubmagazijn("")
 	
+	Try {
+		#dim Submagazijn As %String = ..ExtraInfoVoorSubmagazijnBepaler.GeefSubmagazijnVoorBon(..BONNr)
+		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ..ExtraInfoVoorSubmagazijnBepaler.GeefExtraInfoVoorSubmagazijn(Submagazijn)
+	} Catch {
+		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan Submagazijn niet bepalen voor BonId '" _ ..BONNr _ "'.")
+		Do NewException.VoegToeInnerExceptie(GecatchteException)
+		Do ..Logger.LogExceptie(NewException)
+		
+		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ""
+	}
+	
     Set blPrint = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefLabelPrinter("EWMSKlant",Printer)
     If $$$ISERR(blPrint)||('$IsObject(blPrint)) Do  Quit $$$ERROR($$$GeneralError,"Afdruk mislukt: Toepassing niet geregistreerd")
     . Do ..Logger.ErrorMail("PrintLabelKlantAdres - GetPrinter","Failed : "_$$ParseStatus^vhLib(blPrint))
Index: BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml
===================================================================
diff -u -r70240 -r70299
--- BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml	(.../ExtraInfoVoorSubmagazijnBepaler.cls.xml)	(revision 70240)
+++ BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml	(.../ExtraInfoVoorSubmagazijnBepaler.cls.xml)	(revision 70299)
@@ -3,6 +3,32 @@
 <Class name="BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="GeefSubmagazijnVoorBon">
+<Description>
+Geeft submagazijn van eerste product op deze bon, voor TransferOrder is dit voldoende sinds deze allemaal hetzelfde submagazijn hebben.</Description>
+<FormalSpec>BonId:%String</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	If $$$Not(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatBon(BonId)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bon met nr '" _ BonId _ "' bestaat niet. GeefSubmagazijnVoorBon")
+	}
+	
+	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BonId)
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductLijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Product())
+	#dim Submagazijn As %String = ""
+	
+	If (ProductLijnen.HasNext()) {
+		#dim ProductLijn As DOM.VKP.ProductOrderlijn = ProductLijnen.Next()
+		If $$$Not(ProductLijn.GeefAantal() = 0) {
+			Set Submagazijn = $Piece($Get(^KPR(ProductLijn.GeefProductID(), 15)), "\", 12)
+		}
+	}
+	
+	Quit Submagazijn
+]]></Implementation>
+</Method>
+
 <Method name="GeefExtraInfoVoorSubmagazijn">
 <FormalSpec>Submagazijn:TECH.String</FormalSpec>
 <ReturnType>TECH.String</ReturnType>