Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml
===================================================================
diff -u -r58946 -r58949
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 58946)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 58949)
@@ -66,7 +66,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: OudeCode is geldige palletcode met data (NieuweCode leeg) -&gt; lijst DnaCodes">
+<Method name="Test: 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="aTest: OudeCode is geldige palletcode zonder data (NieuweCode leeg) -&gt; foutmelding geven">
+<Method name="Test: 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="aTest: OudeCode is geldige DnaCode (NieuweCode leeg) -&gt; lijst DnaCodes die op zelfde pallet zitten">
+<Method name="Test: 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="aTest: OudeCode is geldige DnaCode die niet op pallet staat (NieuweCode leeg) -&gt; foutmelding geven">
+<Method name="Test: 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="aTest: OudeCode is zinloos (NieuweCode leeg) -&gt; foutmelding geven">
+<Method name="Test: 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="aTest: OudeCode en NieuweCode ingevuld, maar NieuweCode bevat geen palletcode -&gt; foutmelding geven">
+<Method name="Test: 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="aTest: OudeCode en NieuweCode is geldige palletcode -&gt; hernoemen">
+<Method name="Test: 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="aTest: OudeCode en NieuweCode is geldige DnaCode -&gt; hernoemen">
+<Method name="Test: 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="aTest: EnkelDezeDnaCode ingevuld (en oude en nieuwe pallet ook) -&gt; hernoemen">
+<Method name="Test: 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,14 +263,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: mix van pallet- en DnaCode -&gt; hernoemen">
+<Method name="Test: 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: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58946 -r58949
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58949)
@@ -328,7 +328,6 @@
 	#dim NieuwePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.NieuweCode)
 	
 	Set Response = ##class(WS.Halux.AAP.HernoemPalletResponse).%New()
-	w !,"100"
 	Try {
 		If NieuwePalletCode = "" {
 			
@@ -354,25 +353,17 @@
 				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: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r58946 -r58949
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58946)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58949)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: 1 DnaCode in Toelevering">
+<Method name="Test: 1 DnaCode (zonder sequentienummer) in Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer As %String = "1234567"
@@ -25,6 +25,24 @@
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Geen relevantie DnaCodes te vinden -&gt; exception">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer As %String = "1234567"
+	#dim SequentieNummer As %String = "1"
+	
+	Set DnaCodeRepositoryStub = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..EmptyIterator())
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryStub)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringId_"' en product '"_ProductNummer_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
+	
+	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml
===================================================================
diff -u -r58946 -r58949
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml	(.../KlantEtiketData.cls.xml)	(revision 58946)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml	(.../KlantEtiketData.cls.xml)	(revision 58949)
@@ -132,10 +132,6 @@
 <Type>TECH.String</Type>
 </Property>
 
-<Property name="DnaCode">
-<Type>TECH.String</Type>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>KlantEtiketDataState</State>
@@ -237,9 +233,6 @@
 <Value name="32">
 <Value>Ean</Value>
 </Value>
-<Value name="33">
-<Value>DnaCode</Value>
-</Value>
 </Data>
 </Storage>
 </Class>