Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r57085 -r57102
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57085)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57102)
@@ -69,7 +69,7 @@
 	#dim DnaCodeTeller As %Integer = 0
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	#dim ToeleveringId As %String = ToeleveringLijn.GeefToelevering().GeefID()
-	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringId)
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringEnToeleveringLijnId(ToeleveringId, ToeleveringLijn.GeefID())
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
 		Set DnaCodeTeller = DnaCodeTeller + 1