Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66777 -r66789
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66777)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66789)
@@ -7,6 +7,10 @@
APPS.Halux.AAP.DnaCodeGenerator
+
+DOM.Halux.AAP.DnaCodeRepository
+
+
DOM.PM.impl.ProductTypeAPIimpl
@@ -16,13 +20,20 @@
1
+
+DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper
+1
+
+
-DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",ProductAPI:DOM.PM.ProductAPI=""
+DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",DnaCodeRepository:APPS.Halux.AAP.DnaCodeGenerator="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",ProductAPI:DOM.PM.ProductAPI="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper=""
%Status
@@ -35,6 +46,14 @@
#dim ProductID As %String = ToeleveringLijn.GeefProductID()
#dim Toelevering As DOM.AKP.Toelevering= ToeleveringLijn.GeefToelevering()
#dim DnaCode As DOM.Halux.AAP.DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
+ #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()
+ }
Quit DnaCode
]]>
@@ -64,6 +83,16 @@
]]>
+
+ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl
+1
+
+
+
ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl
1