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_"'"