Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66777 -r66791
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66777)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66791)
@@ -9,7 +9,7 @@
right
-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
Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66789 -r66791
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66789)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml (.../DnaCodeServiceHelper.cls.xml) (revision 66791)
@@ -87,8 +87,22 @@
ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl
1
@@ -103,6 +117,7 @@
Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
Set DnaCode.ProductNummer = ProductID
+
Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ProductID))
Set DnaCode.Toelevering = Toelevering.GeefID()
Set DnaCode.KlantNummer = Toelevering.GeefKlantID()