Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56688 -r56689
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56688)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56689)
@@ -59,7 +59,7 @@
 
 <Method name="VerwijderDnaCodesVoorToeleveringLijn">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
-<Implementation><![CDATA[	Do ..DnaCodeRepository.VerwijderNieuweCodesVoorToeleveringId(ToeleveringLijn.GeefID())
+<Implementation><![CDATA[	Do ..DnaCodeRepository.VerwijderNieuweCodesVoorToeleveringId(ToeleveringLijn.GeefToelevering().GeefID())
 ]]></Implementation>
 </Method>
 
@@ -68,12 +68,13 @@
 <Implementation><![CDATA[
 	#dim DnaCodeTeller As %Integer = 0
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
-	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringLijn.GeefID())
+	#dim ToeleveringId As %String = ToeleveringLijn.GeefToelevering().GeefID()
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringId)
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
 		Set DnaCodeTeller = DnaCodeTeller + 1
 		If DnaCodeTeller > ToeleveringLijn.GeefAantal() {
-			Do ..DnaCodeRepository.VerwijderDnaCodeVoorToeleveringId(ToeleveringLijn.GeefID(), DnaCode.DnaCode)
+			Do ..DnaCodeRepository.VerwijderDnaCodeVoorToeleveringId(ToeleveringId, DnaCode.DnaCode)
 		}
 	}
 	While DnaCodeTeller < ToeleveringLijn.GeefAantal() {