Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62236 -r62239
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62236)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62239)
@@ -40,8 +40,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConfiguratorService">
+<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService="",Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI="",ProductApi:DOM.PM.ProductAPI="",SequentieService:APPS.Halux.common.SequentieService="",Logger:vhLib.Logger="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -55,6 +60,7 @@
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
+	Set ..ConfiguratorService = $$$Inject(ConfiguratorService,##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -220,10 +226,10 @@
 	#dim Resultaat As %Boolean = $$$False
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"H") {
 		
-		#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(DnaCode.ProductNummer)
+		#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(DnaCode.ProductNummer)
 		#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
-		Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
-		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(Product.GeefID())
+		
+		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(Product.GeefID())
 
 		If IngegevenKenmerken.VerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk() {
 			Set Resultaat = $$$True