Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58639 -r58648
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58639)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58648)
@@ -100,6 +100,29 @@
 <Method name="ZoekViaDnaCode">
 <FormalSpec>ZoekViaDnaCodeRequest:WS.Halux.AAP.ZoekViaDnaCodeRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.ZoekViaDnaCodeResponse</ReturnType>
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Halux.AAP.ZoekViaDnaCodeResponse).%New()
+	
+	Try {
+		#dim DnaCode = ##class(TECH.StringUtils).ToUpper(ZoekViaDnaCodeRequest.DnaCode)
+		
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaDnaCode(DnaCode)
+		
+		If DnaCodeIterator.HasNext() {
+			Set Response.Header.Status = "200"
+			Set Response.DnaCodes = ..DnaCodeNaarDto(DnaCodeIterator.Next())
+		} Else {
+			Set Response.Header.Status = ##class(TECH.enu.ExceptionCode).DataNotFound()
+			Set Response.Header.Omschrijving = "Geen data gevonden voor DnaCode '"_DnaCode_"'"
+		}
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
+	}
+	
+	Quit Response
+]]></Implementation>
 </Method>
 
 <Method name="ZoekViaToelevering">
@@ -361,16 +384,19 @@
 					Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaPalletCode(OudePalletCode)
 				}	
 				If DnaCodeIterator.HasNext() {
-					If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) {
-						Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode)
-					}
 					
 					While DnaCodeIterator.HasNext() {
 						Set DnaCode = DnaCodeIterator.Next()
 						Set DnaCode.PalletCode = NieuwePalletCode
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					
+					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_"'"