Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56435 -r56438
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56435)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56438)
@@ -66,6 +66,10 @@
 			Do ..DnaCodeRepository.VerwijderDnaCodeVoorToeleveringId(ToeleveringLijn.GeefID(), DnaCode.DnaCode)
 		}
 	}
+	While DnaCodeTeller < ToeleveringLijn.GeefAantal() {
+		Do ..DnaCodeRepository.Bewaar(..MaakDnaCodeVoorToeleveringLijn(ToeleveringLijn))
+		Set DnaCodeTeller = DnaCodeTeller + 1
+	}
 ]]></Implementation>
 </Method>