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