Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml =================================================================== diff -u -r66808 -r66811 --- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66808) +++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66811) @@ -55,9 +55,14 @@ #dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID) If (Product.%Extends("DOM.PM.MaatwerkProduct")) { - If ..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(Product.GeefIngegevenKenmerken()) { + + Do ##class(Tools.Wlip).%New(252).String(..ProductTypeAPI.GeefProductTypePrefix(ProductID)) + If ..ProductTypeAPI.IsAntislipmatProduct(ProductID) { + Do ..MaakEnBewaarExtraDnaCodeVoorMat(ToeleveringLijn, Batch) + } ElseIf ..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(Product.GeefIngegevenKenmerken()) { Do ..MaakEnBewaarExtraDnaCodeVoorSpaceStep(ToeleveringLijn, Batch) } + Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode() } @@ -130,6 +135,28 @@ ]]> + +ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl +1 + + + ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl,DnaCodePrefix:%String="" 1