Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56098 -r56103
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56098)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56103)
@@ -247,8 +247,29 @@
 	
 	Set Response = ##class(WS.Halux.AAP.HernoemPalletResponse).%New()
 	Try {
+		If HernoemPalletRequest.NieuweCode = "" {
+			If ..PalletCodeValidator.ValideerPalletCode(HernoemPalletRequest.OudeCode) {
+				#dim PalletCode = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.OudeCode)
+				#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletCode)
+				
+				If DnaCodeIterator.HasNext() {
+					Set Response.Header.Status = "200"
+					While DnaCodeIterator.HasNext() {
+						Do Response.DnaCodes.Insert(..DnaCodeNaarDto(DnaCodeIterator.Next()))
+					}
+				} Else {
+					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+					Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_PalletCode_"'"
+				}
+			} Else {
+				Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+				Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_HernoemPalletRequest.OudeCode_"'"
+			}
+		} Else {
+			w !,"piep"
+			//echt hernoemen naar NieuweCode
+		}
 		
-		
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml
===================================================================
diff -u -r56097 -r56103
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 56097)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 56103)
@@ -5,7 +5,7 @@
 
 <Method name="Test: OudeCode is geldige palletcode met data (NieuweCode leeg) -&gt; lijst DnaCodes">
 <Implementation><![CDATA[
-	/*Set Request = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
+	Set Request = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
 	Set Request.OudeCode = "TBX12345"
 	Set Request.NieuweCode = ""
 	
@@ -15,30 +15,37 @@
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",Request.OudeCode).DanReturn(DnaCodeIterator)
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set PalletCodeValidator = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New()
+	Do PalletCodeValidator.IndienMethodCall("ValideerPalletCode",Request.OudeCode).DanReturn($$$True)
+
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, PalletCodeValidator)
 	
 	#dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
-	Do DnaCodeRepositoryMock.Verifieer()*/
+	Do DnaCodeRepositoryMock.Verifieer()
 ]]></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 = ##class(WS.Halux.AAP.ZoekViaToeleveringRequest).%New()
-	Set Request.Toelevering = "333333"
+	Set Request = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
+	Set Request.OudeCode = "TBX12345"
+	Set Request.NieuweCode = ""
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(..EmptyIterator())
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",Request.OudeCode).DanReturn(..EmptyIterator())
 	
-	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set PalletCodeValidator = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.PalletCodeValidator).%New()
+	Do PalletCodeValidator.IndienMethodCall("ValideerPalletCode",Request.OudeCode).DanReturn($$$True)
+
+	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, PalletCodeValidator)
 	
-	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.ZoekViaToelevering(Request)
+	#dim Antwoord As WS.Halux.AAP.HernoemPalletResponse = DnaCodeService.HernoemPallet(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).DataNotFound())
-	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Geen data gevonden voor pallet '333333'")
+	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Geen data gevonden voor pallet 'TBX12345'")
 	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>