Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62909 -r62950
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62909)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62950)
@@ -556,14 +556,17 @@
 					
 					If $$$Not(..IsKaderdeurLocatie(NieuwePalletCode)) {
 						If HernoemPalletRequest.OokEWMSverwerken {
+							#dim OudePalletCodeEWMSCompatibel As %String = OudePalletCode
+							#dim NieuwePalletCodeEWMSCompatibel As %String = NieuwePalletCode
+							If ##class(APPS.VisiDot.impl.Tech).IsFrameID(OudePalletCode) {
+								Set OudePalletCodeEWMSCompatibel = ##class(APPS.VisiDot.impl.Tech).GeefVHossIdVanFrameId(OudePalletCode)
+								Set NieuwePalletCodeEWMSCompatibel = ##class(APPS.VisiDot.impl.Tech).GeefVHossIdVanFrameId(NieuwePalletCode)
+							}
 							If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) {
-								Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode)
+								Do ..InventarisService.HernoemPallet(OudePalletCodeEWMSCompatibel, NieuwePalletCodeEWMSCompatibel)
 							} Else {
-								Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New("Deze actie is niet mogelijk"))
-								/*#dim Locatie As DOM.MAG.MagazijnLocatie = ..InventarisService.GeefLocatieVoorDrager(OudePalletCode).GeefCode()
-								Do ..InventarisService.VerplaatsPallet(OudePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit())
-								Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)
-								Do ..InventarisService.VerplaatsPallet(OudePalletCode,Locatie)*/
+								Do ..InventarisService.VoerBijladenUit(OudePalletCodeEWMSCompatibel, NieuwePalletCodeEWMSCompatibel, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)
+								
 							}
 						}
 					}
@@ -583,7 +586,7 @@
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					
-					If ##class(APPS.VisiDot.impl.Tech).IsFrameID(OudePalletCode) {
+					If ##class(APPS.VisiDot.impl.Tech).IsFrameID(OudePalletCode) && ((HernoemPalletRequest.EnkelDezeDnaCode)= "") {
 						#dim OudePalletCodeAndereKant = ##class(APPS.VisiDot.impl.Tech).GeefFrameIdAndereZijkant(OudePalletCode)
 						#dim NieuwePalletCodeAndereKant = ##class(APPS.VisiDot.impl.Tech).GeefFrameIdAndereZijkant(NieuwePalletCode)
 						Set DnaCodeIterator = ..DnaCodeRepository.ZoekVoorHernoemPallet(OudePalletCodeAndereKant)	
@@ -805,7 +808,6 @@
 		
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(Tools.Wlip).%New(127).String(Exception.ToString())
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 	}