Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66773 -r66775
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66773)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66775)
@@ -22,8 +22,8 @@
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
 <ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
-	#dim Toelevering As DOM.AKP.Toelevering= ToeleveringLijn.GeefToelevering()
+	;#dim ProductID As %String = ToeleveringLijn.GeefProductID()
+	;#dim Toelevering As DOM.AKP.Toelevering= ToeleveringLijn.GeefToelevering()
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
 
 	Quit DnaCode
@@ -59,7 +59,20 @@
 <Private>1</Private>
 <ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
 <Implementation><![CDATA[
+	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
+	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringLijn.GeefToelevering()
+	
 	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()
+	Set DnaCode.ParentDnaCode = ""
+	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
+	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
+	Set DnaCode.OrderlijnId = ToeleveringLijn.GeefOrderLijnID()
+	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	
 	Quit DnaCode
 ]]></Implementation>