Index: vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml
===================================================================
diff -u -r72486 -r72495
--- vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72486)
+++ vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72495)
@@ -241,22 +241,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Geef DueOutTime 12:00 voor DuPont">
+<Method name="Test: Geef DueOutTime 16:00 voor DuPont">
 <Implementation><![CDATA[
 	#dim KlantNummer As %String = "1736"
 	#dim OrderID As %String = "DummyOrderID"
 	#dim OorsprongKetting As %List = ""
-	#dim DueOutProductieTime As %Time = ##class(TECH.DateTime.impl.DateTimeAPI).%New().TextToTime("12:00:00")
 	
 	Set CategorieBepalerMock = ##class(vhTest.Mock.APPS.Halux.common.impl.ProductieService.CategorieBepaler).%New()
 	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
 	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID",KlantNummer).DanReturn("K||"_KlantNummer)
 	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantNummerVoorPartijID","K||26329").DanReturn($$$False)
 	
 	Set KlantOrderInstellingenMock = ##class(vhTest.Mock.DOM.VKP.KlantOrderInstellingen).%New()
-	Do KlantOrderInstellingenMock.VerwachtMethodCall("MoetOpWegwerppallet").DanReturn($$$False)
 	
 	#dim KlantMock As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantMock.IndienMethodCall("GeefID").DanReturn("K||"_KlantNummer)
 	Do KlantMock.VerwachtMethodCall("GeefKlantOrderInstellingen").DanReturn(KlantOrderInstellingenMock)
 	
 	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
@@ -269,19 +268,14 @@
 	Do OrderAPIMock.IndienMethodCall("BestaatOrder",OrderID).DanReturn($$$True)
 	Do OrderAPIMock.IndienMethodCall("GeefOrder",OrderID).DanReturn(OrderMock)
 	
-	Set VerzendWijzeMock = ##class(vhTest.Mock.APPS.VKP.VerzendWijze).%New()
-	Do VerzendWijzeMock.VerwachtMethodCall("DueOutProductieTime").DanReturn(DueOutProductieTime)
-	
 	Set DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler).%New(CategorieBepalerMock, LegacyPartijAPIMock, VerkoopAPIMock, OrderAPIMock)
-	#dim DueOutTime As %String = $ZT(DueOutProductieBepaler.GeefDueOutProductieTime("", "", KlantNummer, VerzendWijzeMock, OrderID))
+	#dim DueOutTime As %String = $ZT(DueOutProductieBepaler.GeefDueOutProductieTime("", "", KlantNummer,, OrderID))
 	
-	Do $$$AssertEquals(DueOutTime,"12:00:00")
+	Do $$$AssertEquals(DueOutTime,"16:00:00")
 	
 	Do LegacyPartijAPIMock.Verifieer()
-	Do KlantOrderInstellingenMock.Verifieer()
 	Do KlantMock.Verifieer()
 	Do VerkoopAPIMock.Verifieer()
-	Do VerzendWijzeMock.Verifieer()
 ]]></Implementation>
 </Method>
 
Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml
===================================================================
diff -u -r72486 -r72495
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 72486)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 72495)
@@ -67,7 +67,7 @@
 		
 		If IsKlantOIC {
 			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("09:00")
-		} ElseIf ..IsKlantVanPersonalityVoorWegwerppallet(OrderID) {
+		} ElseIf ..IsPersonalityVoorWegwerppallet(Klant, OrderID) {
 			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("16:00")
 		} ElseIf KlantOrderInstellingen.MoetOpWegwerppallet() {
 			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("11:00")
@@ -103,11 +103,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsKlantVanPersonalityVoorWegwerppallet">
-<FormalSpec>OrderID:%String=""</FormalSpec>
+<Method name="IsPersonalityVoorWegwerppallet">
+<FormalSpec>Klant:DOM.VKP.VanHoeckeKlant,OrderID:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim KlantId = Klant.GeefID()
+	
+	If ((KlantId = ##class(DOM.VKP.enu.Klant).DuPont()) || (KlantId = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) || (KlantId = ##class(DOM.VKP.enu.Klant).HaefeleNederland())) {
+		Quit $$$True
+	}
+	
 	#dim EindPersonality As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
 	
 	If $$$HasLength(OrderID) {