Index: vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml
===================================================================
diff -u -r70576 -r72486
--- vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 70576)
+++ vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 72486)
@@ -112,7 +112,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Geef DueOutTime 11:00 voor klanten van DuPont">
+<Method name="Test: Geef DueOutTime 16:00 voor klanten van DuPont">
 <Implementation><![CDATA[
 	#dim KlantNummer As %String = "1736"
 	#dim OrderID As %String = "DummyOrderID"
@@ -124,7 +124,6 @@
 	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.VerwachtMethodCall("GeefKlantOrderInstellingen").DanReturn(KlantOrderInstellingenMock)
@@ -148,16 +147,15 @@
 	Set DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler).%New(CategorieBepalerMock, LegacyPartijAPIMock, VerkoopAPIMock, , OrderAPIMock, EindPersonalityBepalerMock)
 	#dim DueOutTime As %String = $ZT(DueOutProductieBepaler.GeefDueOutProductieTime("", "", KlantNummer, "", OrderID))
 	
-	Do $$$AssertEquals(DueOutTime,"11:00:00")
+	Do $$$AssertEquals(DueOutTime,"16:00:00")
 	
 	Do LegacyPartijAPIMock.Verifieer()
-	Do KlantOrderInstellingenMock.Verifieer()
 	Do KlantMock.Verifieer()
 	Do VerkoopAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Geef DueOutTime 11:00 voor klanten van Haefele Nederland">
+<Method name="Test: Geef DueOutTime 16:00 voor klanten van Haefele Belgie">
 <Implementation><![CDATA[
 	#dim KlantNummer As %String = "2671"
 	#dim OrderID As %String = "DummyOrderID"
@@ -169,7 +167,6 @@
 	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.VerwachtMethodCall("GeefKlantOrderInstellingen").DanReturn(KlantOrderInstellingenMock)
@@ -185,6 +182,49 @@
 	Do OrderAPIMock.IndienMethodCall("GeefOrder",OrderID).DanReturn(OrderMock)
 	
 	Set PersonalityMock = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do PersonalityMock.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).HaefeleBE())
+	
+	#dim EindPersonalityBepalerMock As vhTest.Mock.DOM.VKP.impl.EindPersonalityBepaler = ##class(vhTest.Mock.DOM.VKP.impl.EindPersonalityBepaler).%New()
+	Do EindPersonalityBepalerMock.IndienMethodCall("GeefEindPersonality", OorsprongKetting).DanReturn(PersonalityMock)
+	
+	Set DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler).%New(CategorieBepalerMock, LegacyPartijAPIMock, VerkoopAPIMock, , OrderAPIMock, EindPersonalityBepalerMock)
+	#dim DueOutTime As %String = $ZT(DueOutProductieBepaler.GeefDueOutProductieTime("", "", KlantNummer, "", OrderID))
+	
+	Do $$$AssertEquals(DueOutTime,"16:00:00")
+	
+	Do LegacyPartijAPIMock.Verifieer()
+	Do KlantMock.Verifieer()
+	Do VerkoopAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geef DueOutTime 16:00 voor klanten van Haefele Nederland">
+<Implementation><![CDATA[
+	#dim KlantNummer As %String = "2671"
+	#dim OrderID As %String = "DummyOrderID"
+	#dim OorsprongKetting As %List = $LB($LB(4, "5883", 5010213),$LB(1, "K||"_KlantNummer, 5010215))
+	
+	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()
+	
+	#dim KlantMock As vhTest.Mock.DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Do KlantMock.VerwachtMethodCall("GeefKlantOrderInstellingen").DanReturn(KlantOrderInstellingenMock)
+	
+	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant","K||"_KlantNummer).DanReturn(KlantMock)
+	
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.IndienMethodCall("GeefOorsprongKetting").DanReturn(OorsprongKetting)
+	
+	#dim OrderAPIMock as DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do OrderAPIMock.IndienMethodCall("BestaatOrder",OrderID).DanReturn($$$True)
+	Do OrderAPIMock.IndienMethodCall("GeefOrder",OrderID).DanReturn(OrderMock)
+	
+	Set PersonalityMock = ##class(vhTest.Mock.DOM.common.Personality).%New()
 	Do PersonalityMock.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).HaefeleNL())
 	
 	#dim EindPersonalityBepalerMock As vhTest.Mock.DOM.VKP.impl.EindPersonalityBepaler = ##class(vhTest.Mock.DOM.VKP.impl.EindPersonalityBepaler).%New()
@@ -193,10 +233,9 @@
 	Set DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler).%New(CategorieBepalerMock, LegacyPartijAPIMock, VerkoopAPIMock, , OrderAPIMock, EindPersonalityBepalerMock)
 	#dim DueOutTime As %String = $ZT(DueOutProductieBepaler.GeefDueOutProductieTime("", "", KlantNummer, "", OrderID))
 	
-	Do $$$AssertEquals(DueOutTime,"11:00:00")
+	Do $$$AssertEquals(DueOutTime,"16:00:00")
 	
 	Do LegacyPartijAPIMock.Verifieer()
-	Do KlantOrderInstellingenMock.Verifieer()
 	Do KlantMock.Verifieer()
 	Do VerkoopAPIMock.Verifieer()
 ]]></Implementation>
Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml
===================================================================
diff -u -r70576 -r72486
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 70576)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 72486)
@@ -67,7 +67,9 @@
 		
 		If IsKlantOIC {
 			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("09:00")
-		} ElseIf ((KlantOrderInstellingen.MoetOpWegwerppallet()) || (..IsKlantVanPersonalityVoorWegwerppallet(OrderID))) {
+		} ElseIf ..IsKlantVanPersonalityVoorWegwerppallet(OrderID) {
+			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("16:00")
+		} ElseIf KlantOrderInstellingen.MoetOpWegwerppallet() {
 			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("11:00")
 		} ElseIf (##class(TECH.StringUtils).Equals(VerzendWijze.VerzendWijzeID, "DI1", "DD1", "DI2") && (Klant.GeefStandaardLeverAdres().GeefLand().GeefCode() = "NL")) {
 			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("12:00")
@@ -116,7 +118,7 @@
 		}
 	}
 	
-	If ((EindPersonality = ##class(DOM.common.enu.Personality).Dupont()) || (EindPersonality = ##class(DOM.common.enu.Personality).HaefeleNL())) {
+	If ((EindPersonality = ##class(DOM.common.enu.Personality).Dupont()) || (EindPersonality = ##class(DOM.common.enu.Personality).HaefeleBE()) || (EindPersonality = ##class(DOM.common.enu.Personality).HaefeleNL())) {
 		Quit $$$True
 	}