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()