Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56459 -r56544
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56459)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56544)
@@ -88,11 +88,14 @@
 <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 = ToeleveringLijn.GeefProductID()
-	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ToeleveringLijn.GeefProductID()))
-	Set DnaCode.Toelevering = ToeleveringLijn.GeefToelevering().GeefID()
-	Set DnaCode.KlantNummer = ToeleveringLijn.GeefToelevering().GeefKlantID()
+	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 = "" //genereren onder voorwaarde
 	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()