Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56418 -r56434
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56418)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56434)
@@ -8,13 +8,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..DnaCodeRepository = ##class(DOM.Halux.AAP.DnaCodeRepository).%New()
+	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -59,6 +59,22 @@
 <Implementation><![CDATA[	Do ..DnaCodeRepository.VerwijderNieuweCodesVoorToeleveringId(ToeleveringLijn.GeefID())
 ]]></Implementation>
 </Method>
+
+<Method name="WijzigAantalDnaCodesVoorToeleveringLijn">
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Implementation><![CDATA[
+	#dim DnaCodeTeller As %Integer = 0
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringLijn.GeefID())
+	While DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		Set DnaCodeTeller = DnaCodeTeller + 1
+		If DnaCodeTeller > ToeleveringLijn.GeefAantal() {
+			Do ..DnaCodeRepository.VerwijderDnaCodeVoorToeleveringId(ToeleveringLijn.GeefID(), DnaCode.DnaCode)
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>