Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml
===================================================================
diff -u -r66070 -r69399
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 66070)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 69399)
@@ -57,26 +57,15 @@
 <Implementation><![CDATA[
 	#dim DueOutProductieTime As %Time = ""
 	#dim Categorie As APPS.Halux.common.enu.Categorie = ..GeefCategorie(ProductNummer)
-	#dim IsKlantVanMultiPersonalityDupont As %Boolean = $$$False
 	#dim IsKlantOIC As %Boolean = (KlantNummer = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).OIC()))
-	#dim OrderAPI As DOM.VKP.OrderAPI 
-	#dim Order As DOM.VKP.Order
 	
-	If $$$HasLength(OrderID) {
-		Set Order = ..OrderAPI.GeefOrder(OrderID)
-	}
-	
 	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
 		Set DueOutProductieTime = ..DueOutProductieBepaler.GeefDueOutProductieTime(ProductieDatum)
 	} else {
 	 	#dim Klant As DOM.VKP.Klant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(KlantNummer))
 		#dim KlantOrderInstellingen As DOM.VKP.KlantOrderInstellingen = Klant.GeefKlantOrderInstellingen()
 		
-		If ($$$HasLength(OrderID)) && $$$HasLength(Order.GeefOorsprongKetting()) {
-			Set IsKlantVanMultiPersonalityDupont = (..EindPersonalityBepaler.GeefEindPersonality(Order.GeefOorsprongKetting()).GeefID() = ##class(DOM.common.enu.Personality).Dupont())
-		}
-		
-		If ((KlantOrderInstellingen.MoetOpWegwerppallet()) || (IsKlantOIC) || (IsKlantVanMultiPersonalityDupont)) {
+		If ((KlantOrderInstellingen.MoetOpWegwerppallet()) || (IsKlantOIC) || (..IsKlantVanPersonalityVoorWegwerppallet(OrderID))) {
 			Set DueOutProductieTime = $$INTTIME^vhLib.DataTypes("11:00")
 		} else {
 			Set DueOutProductieTime = VerzendWijze.DueOutProductieTime()
@@ -107,6 +96,29 @@
 	Quit Categorie
 ]]></Implementation>
 </Method>
+
+<Method name="IsKlantVanPersonalityVoorWegwerppallet">
+<FormalSpec>OrderID:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim EindPersonality As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+	
+	If $$$HasLength(OrderID) {
+		#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
+		
+		If $$$HasLength(Order.GeefOorsprongKetting()) {
+			Set EindPersonality = ..EindPersonalityBepaler.GeefEindPersonality(Order.GeefOorsprongKetting()).GeefID()
+		}
+	}
+	
+	If ((EindPersonality = ##class(DOM.common.enu.Personality).Dupont()) || (EindPersonality = ##class(DOM.common.enu.Personality).HaefeleNL())) {
+		Quit $$$True
+	}
+	
+	Quit $$$False
+]]></Implementation>
+</Method>
 </Class>