Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml
===================================================================
diff -u -r61384 -r61563
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 61384)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/HernoemPallet/Test.cls.xml	(.../Test.cls.xml)	(revision 61563)
@@ -91,6 +91,7 @@
 	Set ..Request.NieuweCode = ""
 	
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet",..Request.OudeCode).DanReturn(..EmptyIterator())
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
 	
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.OudeCode).DanReturn($$$True)
 
@@ -128,6 +129,7 @@
 	
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaDnaCode",..Request.OudeCode).DanReturn(..DnaCodeIterator1)
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet",..DnaCode1.PalletCode).DanReturn(..EmptyIterator())
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(..DnaCodeRepositoryMock)
 	
@@ -145,6 +147,7 @@
 	Set ..Request.NieuweCode = ""
 	
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet",..Request.OudeCode).ExactAantalKeer(0).DanDoeNiks()
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
 	
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.OudeCode).DanReturn($$$False)
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.NieuweCode).DanReturn($$$True)
@@ -167,6 +170,7 @@
 	Set ..Request.NieuweCode = $$$DummyString
 	
 	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVoorHernoemPallet",..Request.OudeCode).ExactAantalKeer(0).DanDoeNiks()
+	Do ..DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
 	
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.OudeCode).DanReturn($$$True)
 	Do ..PalletCodeValidatorStub.IndienMethodCall("ValideerPalletCode",..Request.NieuweCode).DanReturn($$$False)
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61513 -r61563
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61513)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61563)
@@ -550,7 +550,22 @@
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCode)
 				}	
 				If DnaCodeIterator.HasNext() {
+					Set DnaCode = DnaCodeIterator.Next()
 					
+					If $$$Not(..IsKaderdeurLocatie(NieuwePalletCode)) {
+						If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) {
+							Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode)
+						} Else {
+							Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)						
+						}
+					}
+					
+					If $$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode) {
+						Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaDnaCode(HernoemPalletRequest.EnkelDezeDnaCode)
+					} Else {
+						Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCode)
+					}	
+					
 					While DnaCodeIterator.HasNext() {
 						Set DnaCode = DnaCodeIterator.Next()
 						Set DnaCode.PalletCode = NieuwePalletCode
@@ -560,14 +575,6 @@
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					
-					If $$$Not(..IsKaderdeurLocatie(NieuwePalletCode)) {
-						If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) {
-							Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode)
-						} Else {
-							Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)						
-						}
-					}
-					
 					Set Response.Header.Status = "200"
 					Set Response.Header.Omschrijving = "Pallet is succesvol gewijzigd"
 					Set Response.Header.OmschrijvingVoorLogging = "Pallet is succesvol gewijzigd van '"_OudePalletCode_"' naar '"_NieuwePalletCode_"'"