Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(revision 56434)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ToeleveringLijn met aantal 0 -&gt; alles verwijderen">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(0)
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.Toelevering = "222222"
+	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(3).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal = aantal -&gt; niets doen">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(3)
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.Toelevering = "222222"
+	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(0)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal = aantal - 1 -&gt; 1 lijn verwijderen">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.Toelevering = "222222"
+	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(2).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal = aantal - 2 -&gt; 2 lijn verwijderen">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.Toelevering = "222222"
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.Toelevering = "222222"
+	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode3.Toelevering = "222222"
+	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(2).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal = aantal + 1 -&gt; 1 lijn toevoegen">
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal = aantal + 1 -&gt; 2 lijnen toevoegen">
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/AKP/ProductToeleveringLijn.cls.xml
===================================================================
diff -u -r54449 -r56434
--- vhTest/Utils/DOM/AKP/ProductToeleveringLijn.cls.xml	(.../ProductToeleveringLijn.cls.xml)	(revision 54449)
+++ vhTest/Utils/DOM/AKP/ProductToeleveringLijn.cls.xml	(.../ProductToeleveringLijn.cls.xml)	(revision 56434)
@@ -23,6 +23,7 @@
     Do ToeleveringLijnMock.IndienMethodCall("GeefAxConfigId").DanReturn("AxConfigId")
 	Do ToeleveringLijnMock.IndienMethodCall("GeefAxInventTransId").DanReturn("AxInventTransId")
 	Do ToeleveringLijnMock.IndienMethodCall("GeefAxMaatwerkGenerischItemId").DanReturn("AxMaatwerkGenerischItemId")
+	Do ToeleveringLijnMock.IndienMethodCall("GeefID").DanReturn("222222")
     Quit ToeleveringLijnMock
 ]]></Implementation>
 </Method>
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>