Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62867 -r62889
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62867)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62889)
@@ -624,6 +624,21 @@
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					
+					If ##class(APPS.VisiDot.impl.Tech).IsFrameID(OudePalletCode) {
+						#dim OudePalletCodeAndereKant = ##class(APPS.VisiDot.impl.Tech).GeefFrameIdAndereZijkant(OudePalletCode)
+						#dim NieuwePalletCodeAndereKant = ##class(APPS.VisiDot.impl.Tech).GeefFrameIdAndereZijkant(NieuwePalletCode)
+						Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCodeAndereKant)	
+					
+						While DnaCodeIterator.HasNext() {
+							Set DnaCode = DnaCodeIterator.Next()
+							Set DnaCode.PalletCode = NieuwePalletCodeAndereKant
+							If ..IsKaderdeurLocatie(NieuwePalletCodeAndereKant) {
+								Set DnaCode.Locatie = NieuwePalletCodeAndereKant
+							}
+							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 '"_OudePalletCode_"' naar '"_NieuwePalletCode_"'"