Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58091 -r58103
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58091)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58103)
@@ -299,12 +299,23 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	#dim DnaCodeIterator As TECH.Iterator
 	
+	#dim OudePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.OudeCode)
+	#dim NieuwePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.NieuweCode)
+	
 	Set Response = ##class(WS.Halux.AAP.HernoemPalletResponse).%New()
 	Try {
-		If HernoemPalletRequest.NieuweCode = "" {
-			If ..PalletCodeValidator.ValideerPalletCode(HernoemPalletRequest.OudeCode) {
-				Set PalletCode = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.OudeCode)
-				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletCode)
+		If NieuwePalletCode = "" {
+			
+			If $Length(OudePalletCode)=7 {
+				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(OudePalletCode)
+				If DnaCodeIterator.HasNext() {
+					Set DnaCode = DnaCodeIterator.Next()
+					Set OudePalletCode = DnaCode.PalletCode
+				}
+			}
+			
+			If ..PalletCodeValidator.ValideerPalletCode(OudePalletCode) {
+				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(OudePalletCode)
 				
 				If DnaCodeIterator.HasNext() {
 					Set Response.Header.Status = "200"
@@ -313,34 +324,33 @@
 					}
 				} Else {
 					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
-					Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_PalletCode_"'"
+					Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_OudePalletCode_"'"
 				}
 			} Else {
 				Set Response.Header.Status = "1005:InvalidUserInput"
 				Set Response.Header.Omschrijving = "Ongeldige code"
-				Set Response.Header.OmschrijvingVoorLogging = "Ongeldige code: '"_HernoemPalletRequest.OudeCode_"'"
+				Set Response.Header.OmschrijvingVoorLogging = "Ongeldige code: '"_OudePalletCode_"'"
 			}
 		} Else {
-			If $$$Not(..PalletCodeValidator.ValideerPalletCode(HernoemPalletRequest.OudeCode)) || $$$Not(..PalletCodeValidator.ValideerPalletCode(HernoemPalletRequest.NieuweCode)) {
+			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: '"_HernoemPalletRequest.OudeCode_"' of '"_HernoemPalletRequest.NieuweCode_"'"
+				Set Response.Header.OmschrijvingVoorLogging = "Ongeldige code: '"_OudePalletCode_"' of '"_NieuwePalletCode_"'"
 			} Else {
-				Set PalletCode = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.OudeCode)
-				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(PalletCode)
+				Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(OudePalletCode)
 				
 				If DnaCodeIterator.HasNext() {
 					While DnaCodeIterator.HasNext() {
 						Set DnaCode = DnaCodeIterator.Next()
-						Set DnaCode.PalletCode = HernoemPalletRequest.NieuweCode
+						Set DnaCode.PalletCode = NieuwePalletCode
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					Set Response.Header.Status = "200"
 					Set Response.Header.Omschrijving = "Pallet is succesvol gewijzigd"
-					Set Response.Header.OmschrijvingVoorLogging = "Pallet is succesvol gewijzigd van '"_HernoemPalletRequest.OudeCode_"' naar '"_HernoemPalletRequest.NieuweCode_"'"
+					Set Response.Header.OmschrijvingVoorLogging = "Pallet is succesvol gewijzigd van '"_OudePalletCode_"' naar '"_NieuwePalletCode_"'"
 				} Else {
 					Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
-					Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_PalletCode_"'"
+					Set Response.Header.Omschrijving = "Geen data gevonden voor pallet '"_OudePalletCode_"'"
 				}
 			}
 		}
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml
===================================================================
diff -u -r58091 -r58103
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 58091)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 58103)
@@ -51,48 +51,45 @@
 ]]></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 = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
-	Set Request.OudeCode = "TBX12345"
+	Set Request.OudeCode = "LABCDE1"
 	
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	Set DnaCode1.PalletCode = "TBX12345"
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",Request.OudeCode).DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",DnaCode1.PalletCode).DanReturn(DnaCodeIterator)
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
 	
-	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.ZoekViaToelevering(Request)
+	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.HernoemPallet(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
-	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
-	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),1)
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></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 = ##class(WS.Halux.AAP.HernoemPalletRequest).%New()
-	Set Request.OudeCode = "TBX12345"
+	Set Request.OudeCode = "LABCDE1"
 	
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",Request.Toelevering).DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",Request.OudeCode).DanReturn(DnaCodeIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCode",DnaCode1.PalletCode).ExactAantalKeer(0).DanReturn(DnaCodeIterator)
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
 	
-	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.ZoekViaToelevering(Request)
+	#dim Antwoord As WS.Halux.AAP.ZoekViaToeleveringResponse = DnaCodeService.HernoemPallet(Request)
 	
-	Do $$$AssertEquals(Antwoord.Header.Status,"200")
-	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),2)
-	Do $$$AssertEquals(Antwoord.AantalInToelevering,"2")
-	Do $$$AssertEquals(Antwoord.AantalReedsGescand,"0")
+	Do $$$AssertEquals(Antwoord.Header.Status,"1005:InvalidUserInput")
+	Do $$$AssertEquals(Antwoord.DnaCodes.Count(),0)
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>