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