Index: APPS/VKP/LeveringsTermijn.cls.xml
===================================================================
diff -u -r55851 -r56484
--- APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 55851)
+++ APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 56484)
@@ -186,9 +186,19 @@
 <Implementation><![CDATA[
 	#dim ProductieDatum As %Date =..GetLaatstePicking(LeverDatum)
 	#dim DagenVroeger As %Integer =..blVerzendWijze.DueOutProductieDagenVroeger()
+	#dim DueOutProductieTime As %Time = ..blVerzendWijze.DueOutProductieTime()
+	
+	#dim LegacyPartijAPI As DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+ 	#dim Klant As DOM.VKP.Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(LegacyPartijAPI.GeefKlantPartijID(..KLNr))
+	#dim KlantOrderInstellingen As DOM.VKP.KlantOrderInstellingen = Klant.GeefKlantOrderInstellingen()
+	If (KlantOrderInstellingen.MoetOpWegwerppallet()) {
+		Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("11:00")
+	}
+	
 	If DagenVroeger Set ProductieDatum=$$CALCDATE^vhLib.DataTypes(ProductieDatum,"A",-DagenVroeger)
 	Set ProductieDatum=..CheckExeption($$$LevHalux, ProductieDatum, -1)
-	Quit ProductieDatum_","_..blVerzendWijze.DueOutProductieTime()
+	
+	Quit ProductieDatum_","_DueOutProductieTime
 ]]></Implementation>
 </Method>