Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r66819 -r66821
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 66819)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 66821)
@@ -15,17 +15,17 @@
 <Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
 </Property>
 
-<Property name="ProjectSettingsApi">
+<Property name="ProjectSettingsAPI">
 <Type>DOM.common.ProjectSettingsAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="DateTimeApi">
+<Property name="DateTimeAPI">
 <Type>TECH.DateTime.DateTimeAPI</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProductApi">
+<Property name="ProductAPI">
 <Type>DOM.PM.ProductAPI</Type>
 <Private>1</Private>
 </Property>
@@ -56,7 +56,7 @@
 </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="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper="",DnaCodeServiceHelper:APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper</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="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper="",DnaCodeServiceHelper:APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -65,14 +65,14 @@
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	Set ..DnaCodeGenerator = $$$Inject(DnaCodeGenerator, ##class(APPS.Halux.AAP.DnaCodeGenerator).%New())
-	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
-	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
-	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	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())
 	Set ..IngegevenKenmerkenSpaceStepHelper = $$$Inject(IngegevenKenmerkenSpaceStepHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New())
-	Set ..DnaCodeServiceHelper = $$$Inject(DnaCodeServiceHelper, ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New())
+	Set ..DnaCodeServiceHelper = $$$Inject(DnaCodeServiceHelper, ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(DnaCodeGenerator, DnaCodeRepository, ProductTypeAPI, ProductAPI, ConfiguratorService, IngegevenKenmerkenSpaceStepHelper))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -99,7 +99,7 @@
 			
 			#dim Teller As %Integer = 1
 			While Teller <= ToeleveringLijn.GeefAantal() {
-				Set DnaCode = ..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
+				Set DnaCode = ..DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
 				If ParentCodeVoorToeleveringLijn = "" {
 					Set ParentCodeVoorToeleveringLijn = ..BepaalParentDnaCode(DnaCode, Batch)
 				}
@@ -152,7 +152,7 @@
 		}
 	}
 	While DnaCodeTeller < ToeleveringLijn.GeefAantal() {
-		Do ..DnaCodeRepository.Bewaar(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn))
+		Do ..DnaCodeRepository.Bewaar(..DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn))
 		Set DnaCodeTeller = DnaCodeTeller + 1
 	}
 ]]></Implementation>
@@ -185,41 +185,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakDnaCodeVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
-<Implementation><![CDATA[
-	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
-	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringLijn.GeefToelevering()
-	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode.ProductNummer = ProductID
-	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ProductID))
-	Set DnaCode.Toelevering = Toelevering.GeefID()
-	Set DnaCode.KlantNummer = Toelevering.GeefKlantID()
-	Set DnaCode.ParentDnaCode = ""
-	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
-	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
-	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
-	Set DnaCode.OrderlijnId = ToeleveringLijn.GeefOrderLijnID()
-	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
-	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID)
-	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
-		If ..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(Product.GeefIngegevenKenmerken()) {
-			Do ..MaakEnBewaarExtraDnaCodeVoorSpaceStep(ToeleveringLijn, Batch)
-		}
-		Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
-	}
-	If $IsObject(Batch) {
-		Set DnaCode.BatchId = Batch.GeefID()
-		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet(Toelevering.GeefID())
-		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
-		Set DnaCode.Lijn = Batch.GeefLijn()
-	}
-	Quit DnaCode
-]]></Implementation>
-</Method>
-
 <Method name="MaakEnBewaarExtraDnaCodeVoorSpaceStep">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
 <Private>1</Private>
@@ -247,8 +212,8 @@
 	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
 	Set DnaCode.OrderlijnId = ToeleveringLijn.GeefOrderLijnID()
 	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
-	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID)
-	Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
+	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
+	Set DnaCode.LadeCode = ..ProductAPI.GeefProduct(ProductID).GeefDottedDossierCode()
 
 	If $IsObject(Batch) {
 		Set DnaCode.BatchId = Batch.GeefID()
@@ -283,7 +248,7 @@
 	#dim Resultaat As %Boolean = $$$False
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"H") {
 		
-		#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(DnaCode.ProductNummer)
+		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(DnaCode.ProductNummer)
 		#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
 		
 		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(Product.GeefID())
@@ -301,7 +266,7 @@
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="",Herafdruk:%Boolean=$$$False,BatchId:%String="",IsKlantEtiketSpaceStep:%Boolean=$$$False</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If $$$Not(..ProjectSettingsApi.IsActiefDnaCodeOpEtiket()) {
+	If $$$Not(..ProjectSettingsAPI.IsActiefDnaCodeOpEtiket()) {
 		Quit ""
 	}
 	If ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie() = "IntegratieTest" {
@@ -323,7 +288,7 @@
 			If $$$HasLength(SequentieNummer) {
 				Set DnaCode.SequentieNummer = SequentieNummer
 			}
-			Set DnaCode.AfdrukTijdstip = ..DateTimeApi.CurrentHorolog()
+			Set DnaCode.AfdrukTijdstip = ..DateTimeAPI.CurrentHorolog()
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
 			Set Result = DnaCode.DnaCode
 			Quit
@@ -363,7 +328,7 @@
 <Implementation><![CDATA[
 	#dim ZelfdeDossierCode As %Boolean
 	try {
-		Set ZelfdeDossierCode = (DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode())
+		Set ZelfdeDossierCode = (DnaCode.LadeCode = ..ProductAPI.GeefProduct(ProductID).GeefDottedDossierCode())
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set ZelfdeDossierCode = $$$False