Index: APPS/Halux/AAP/DnaCodeService.cls.xml =================================================================== diff -u -r62410 -r63344 --- APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 62410) +++ APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 63344) @@ -45,8 +45,13 @@ 1 + +DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper +1 + + -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="" +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="" 1 1 %Status @@ -61,6 +66,7 @@ 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()) Quit $$$OK ]]> @@ -190,7 +196,11 @@ Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID() Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID() Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog() - If (..ProductApi.GeefProduct(ProductID).%Extends("DOM.PM.MaatwerkProduct")) { + #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) { @@ -203,6 +213,33 @@ ]]> + +ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl="" +1 + + + DnaCode:DOM.Halux.AAP.DnaCode,Batch:APPS.Halux.common.impl.BatchImpl="" 1 Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml =================================================================== diff -u -r62410 -r63344 --- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml (.../Test.cls.xml) (revision 62410) +++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorBatch/Test.cls.xml (.../Test.cls.xml) (revision 63344) @@ -28,6 +28,10 @@ DOM.PM.ProductAPI + +DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper + + aTestName:%String @@ -220,6 +231,39 @@ } ]]> + + + + Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml =================================================================== diff -u -r60246 -r63344 --- vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml (.../Test.cls.xml) (revision 60246) +++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml (.../Test.cls.xml) (revision 63344) @@ -25,9 +25,11 @@ Set DnaCode3.Toelevering = "222222" Set ..DnaCodeIteratorDrieStuks = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3) + #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade() Set ..ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New() Set ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New() Do ProductStub.IndienMethodCall("GeefDottedDossierCode").DanReturn("A.BC.DE.F") + Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(IngegevenKenmerken) Do ..ProductApiStub.IndienMethodCall("GeefProduct",1000).DanReturn(ProductStub) ]]> Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml =================================================================== diff -u -r62253 -r63344 --- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 62253) +++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml (.../DnaCodeService.cls.xml) (revision 63344) @@ -9,7 +9,7 @@ right -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="" +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="" %Status