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