Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml
===================================================================
diff -u -r58649 -r58946
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 58649)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 58946)
@@ -66,7 +66,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode is geldige palletcode met data (NieuweCode leeg) -&gt; lijst DnaCodes">
+<Method name="aTest: OudeCode is geldige palletcode met data (NieuweCode leeg) -&gt; lijst DnaCodes">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
 	Set ..Request.NieuweCode = ""
@@ -85,7 +85,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode is geldige palletcode zonder data (NieuweCode leeg) -&gt; foutmelding geven">
+<Method name="aTest: OudeCode is geldige palletcode zonder data (NieuweCode leeg) -&gt; foutmelding geven">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
 	Set ..Request.NieuweCode = ""
@@ -105,7 +105,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode is geldige DnaCode (NieuweCode leeg) -&gt; lijst DnaCodes die op zelfde pallet zitten">
+<Method name="aTest: OudeCode is geldige DnaCode (NieuweCode leeg) -&gt; lijst DnaCodes die op zelfde pallet zitten">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "LABCDE1"
 	
@@ -122,7 +122,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode is geldige DnaCode die niet op pallet staat (NieuweCode leeg) -&gt; foutmelding geven">
+<Method name="aTest: OudeCode is geldige DnaCode die niet op pallet staat (NieuweCode leeg) -&gt; foutmelding geven">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "LABCDE1"
 	
@@ -139,7 +139,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode is zinloos (NieuweCode leeg) -&gt; foutmelding geven">
+<Method name="aTest: OudeCode is zinloos (NieuweCode leeg) -&gt; foutmelding geven">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = $$$DummyString
 	Set ..Request.NieuweCode = ""
@@ -161,7 +161,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode en NieuweCode ingevuld, maar NieuweCode bevat geen palletcode -&gt; foutmelding geven">
+<Method name="aTest: OudeCode en NieuweCode ingevuld, maar NieuweCode bevat geen palletcode -&gt; foutmelding geven">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
 	Set ..Request.NieuweCode = $$$DummyString
@@ -183,7 +183,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode en NieuweCode is geldige palletcode -&gt; hernoemen">
+<Method name="aTest: OudeCode en NieuweCode is geldige palletcode -&gt; hernoemen">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
 	Set ..Request.NieuweCode = "TBX54321"
@@ -208,7 +208,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: OudeCode en NieuweCode is geldige DnaCode -&gt; hernoemen">
+<Method name="aTest: OudeCode en NieuweCode is geldige DnaCode -&gt; hernoemen">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "LABCDE1"
 	Set ..Request.NieuweCode = "LABCDF2"
@@ -235,15 +235,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: EnkelDezeDnaCode ingevuld (en oude en nieuwe pallet ook) -&gt; hernoemen">
+<Method name="aTest: EnkelDezeDnaCode ingevuld (en oude en nieuwe pallet ook) -&gt; hernoemen">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
 	Set ..Request.NieuweCode = "TBX54321"
 	Set ..Request.EnkelDezeDnaCode = "LABCDF2"
 	
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",..Request.EnkelDezeDnaCode).DanReturn(..DnaCodeIterator1)
-	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",$$$ElkeWaarde).ExactAantalKeer(0)
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",..Request.NieuweCode).ExactAantalKeer(1).DanReturn(..EmptyIterator())
 	
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode1.PalletCode).DanReturn($$$True)
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode2.PalletCode).DanReturn($$$True)
@@ -263,13 +263,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: mix van pallet- en DnaCode -&gt; hernoemen">
+<Method name="aTest: mix van pallet- en DnaCode -&gt; hernoemen">
 <Implementation><![CDATA[
 	Set ..Request.OudeCode = "TBX12345"
 	Set ..Request.NieuweCode = "LABCDF2"
 	
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",..Request.NieuweCode).DanReturn(..DnaCodeIterator2)
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",..DnaCode1.PalletCode).DanReturn(..DnaCodeIterator1)
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",..DnaCode2.PalletCode).DanReturn(..DnaCodeIterator2)
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
 	
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..DnaCode1.PalletCode).DanReturn($$$True)
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58728 -r58946
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58728)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
@@ -172,6 +172,21 @@
 	Quit DnaCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVolgendeAfTeDrukkenDnaCode">
+<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator As TECH.Iterator
+	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringID)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	If DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		Set DnaCode.SequentieNummer = SequentieNummer
+		Do ..DnaCodeRepository.Bewaar(DnaCode)
+	}
+	Quit DnaCode
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r57882 -r58946
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57882)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
@@ -19,6 +19,11 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendeAfTeDrukkenDnaCode">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodesVoorBatch">
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r57882 -r58946
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 57882)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
@@ -28,6 +28,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVolgendeAfTeDrukkenDnaCode">
+<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefVolgendeAfTeDrukkenDnaCode",ToeleveringID,ProductID,SequentieNummer)
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodesVoorBatch">
 <FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58911 -r58946
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58911)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
@@ -328,6 +328,7 @@
 	#dim NieuwePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.NieuweCode)
 	
 	Set Response = ##class(WS.Halux.AAP.HernoemPalletResponse).%New()
+	w !,"100"
 	Try {
 		If NieuwePalletCode = "" {
 			
@@ -353,17 +354,25 @@
 				Set Response.Header.OmschrijvingVoorLogging = "Ongeldige code: '"_OudePalletCode_"'"
 			}
 		} Else {
+			w !,"200"
 			If ..IsDnaCode(NieuwePalletCode) {
 				Set NieuwePalletCode = ..GeefPalletCodeVanDnaCode(NieuwePalletCode)
 			}
 			If ..IsDnaCode(OudePalletCode) {
 				Set OudePalletCode = ..GeefPalletCodeVanDnaCode(OudePalletCode)
 			}
+			w !,"300"_NieuwePalletCode
+			w !,"ssss "_NieuwePalletCode_" /"_..DnaCodeRepository.ZoekViaPalletCode(NieuwePalletCode).HasNext()
 			If $$$Not(..PalletCodeValidator.ValideerPalletCode(OudePalletCode)) || $$$Not(..PalletCodeValidator.ValideerPalletCode(NieuwePalletCode)) {
 				Set Response.Header.Status = "1005:InvalidUserInput"
 				Set Response.Header.Omschrijving = "Ongeldige code"
 				Set Response.Header.OmschrijvingVoorLogging = "Ongeldige code: '"_OudePalletCode_"' of '"_NieuwePalletCode_"'"
+			} ElseIf ($$$HasLength(NieuwePalletCode) && (..DnaCodeRepository.ZoekViaPalletCode(NieuwePalletCode).HasNext())) {
+				Set Response.Header.Status = "1005:InvalidUserInput"
+				Set Response.Header.Omschrijving = "Nieuwe pallet al in gebruik"
+				Set Response.Header.OmschrijvingVoorLogging = "Nieuwe pallet '"_NieuwePalletCode_"' is reeds in gebruik"
 			} Else {
+				w !,"hier"
 				If $$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode) {
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(HernoemPalletRequest.EnkelDezeDnaCode)
 				} Else {
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml
===================================================================
diff -u -r39156 -r58946
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 39156)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 58946)
@@ -58,6 +58,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeService">
+<Type>APPS.Halux.AAP.DnaCodeService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
 <Private>1</Private>
@@ -74,6 +79,7 @@
 	set ..BarcodeService = ##class(APPS.algemeen.BarcodeService).%New()
 	Set ..LosseComponentNaarProductieWijzeConverter = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New()
 	Set ..IngegevenKenmerkenTypeAPI = ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	Set ..DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -109,6 +115,8 @@
 	Set UitvoeringInfo.KlantEtiketData.DossierCode = Product.GeefDossierCode()
 	Set UitvoeringInfo.KlantEtiketData.DossierTitel = ..Vertaler.GeefVertaling("Dossier")
 	Set UitvoeringInfo.KlantEtiketData.Dossier = UitvoeringInfo.ToeleveringID
+	
+	Set UitvoeringInfo.KlantEtiketData.DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ProductID)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml
===================================================================
diff -u -r38758 -r58946
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml	(.../KlantEtiketData.cls.xml)	(revision 38758)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml	(.../KlantEtiketData.cls.xml)	(revision 58946)
@@ -132,6 +132,10 @@
 <Type>TECH.String</Type>
 </Property>
 
+<Property name="DnaCode">
+<Type>TECH.String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>KlantEtiketDataState</State>
@@ -233,6 +237,9 @@
 <Value name="32">
 <Value>Ean</Value>
 </Value>
+<Value name="33">
+<Value>DnaCode</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(revision 58946)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: 1 DnaCode in Toelevering">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer As %String = "1234567"
+	#dim SequentieNummer As %String = "1"
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.PalletCode = "TBX12345"
+	#dim DnaCodeIterator1 As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(DnaCodeIterator1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",DnaCode1).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
+	
+	Do $$$AssertEquals(VolgendeDnaCode.SequentieNummer,SequentieNummer)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>