Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml
===================================================================
diff -u -r65995 -r65999
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 65995)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 65999)
@@ -71,7 +71,7 @@
 	 	#dim Klant As DOM.VKP.Klant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(KlantNummer))
 		#dim KlantOrderInstellingen As DOM.VKP.KlantOrderInstellingen = Klant.GeefKlantOrderInstellingen()
 		
-		If ($IsObject(Order)) && $$$HasLength(Order.GeefOorsprongKetting()) {
+		If ($$$HasLength(OrderID)) && $$$HasLength(Order.GeefOorsprongKetting()) {
 			Set IsKlantVanMultiPersonalityDupont = (..EindPersonalityBepaler.GeefEindPersonality(Order.GeefOorsprongKetting()) = ##class(DOM.common.enu.Personality).Dupont())
 		}