Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml
===================================================================
diff -u -r59784 -r59819
--- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 59784)
+++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml	(.../DueOutProductieBepaler.cls.xml)	(revision 59819)
@@ -18,8 +18,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DueOutProductieBepaler">
+<Type>APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>CategorieBepaler:APPS.Halux.common.impl.ProductieService.CategorieBepaler,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>CategorieBepaler:APPS.Halux.common.impl.ProductieService.CategorieBepaler,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,7 +33,7 @@
 	Set ..CategorieBepaler = $$$Inject(CategorieBepaler,##class(APPS.Halux.common.impl.ProductieService.CategorieBepaler).%New())
 	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.VKP.impl.VerkoopAPI).%New())
-	
+	Set ..DueOutProductieBepaler = $$$Inject(DueOutProductieBepaler,##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -41,8 +46,7 @@
 	#dim Categorie As APPS.Halux.common.enu.Categorie = ..GeefCategorie(ProductNummer)
 	
 	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
-		Set DueOutProductieBepaler = ##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat).%New()
-		Set DueOutProductieTime = DueOutProductieBepaler.GeefDueOutProductieTime(ProductieDatum)
+		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()