Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60606 -r60609
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60606)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60609)
@@ -372,8 +372,8 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	#dim DnaCodeIterator As TECH.Iterator
 	
-	#dim OudePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.OudeCode)
-	#dim NieuwePalletCode As %String = ##class(TECH.StringUtils).ToUpper(HernoemPalletRequest.NieuweCode)
+	#dim OudePalletCode As %String = HernoemPalletRequest.OudeCode
+	#dim NieuwePalletCode As %String = HernoemPalletRequest.NieuweCode
 	
 	Set Response = ##class(WS.Halux.AAP.HernoemPalletResponse).%New()
 	Try {
@@ -401,12 +401,14 @@
 				Set Response.Header.OmschrijvingVoorLogging = "Ongeldige code: '"_OudePalletCode_"'"
 			}
 		} Else {
+			Do ##class(Tools.Wlip).%New(127).String(NieuwePalletCode_"/"_OudePalletCode)
 			If ..IsDnaCode(NieuwePalletCode) {
 				Set NieuwePalletCode = ..GeefPalletCodeVanDnaCode(NieuwePalletCode)
 			}
 			If ..IsDnaCode(OudePalletCode) {
 				Set OudePalletCode = ..GeefPalletCodeVanDnaCode(OudePalletCode)
 			}
+			Do ##class(Tools.Wlip).%New(127).String(NieuwePalletCode_"/"_OudePalletCode)
 			If $$$Not(..PalletCodeValidator.ValideerPalletCode(OudePalletCode)) || $$$Not(..PalletCodeValidator.ValideerPalletCode(NieuwePalletCode)) {
 				Set Response.Header.Status = "1005:InvalidUserInput"
 				Set Response.Header.Omschrijving = "Ongeldige code"
@@ -421,13 +423,19 @@
 					
 					While DnaCodeIterator.HasNext() {
 						Set DnaCode = DnaCodeIterator.Next()
+						Do ##class(Tools.Wlip).%New(127).String("vorige palletcode = "_DnaCode.PalletCode)
+						Do ##class(Tools.Wlip).%New(127).String("nieuwe palletcode = "_NieuwePalletCode)
 						Set DnaCode.PalletCode = NieuwePalletCode
 						Do ..DnaCodeRepository.Bewaar(DnaCode)
 					}
 					
+					if 
+					
 					If $$$Not($$$HasLength(HernoemPalletRequest.EnkelDezeDnaCode)) {
+						Do ##class(Tools.Wlip).%New(127).String("..InventarisService.HernoemPallet")
 						Do ..InventarisService.HernoemPallet(OudePalletCode, NieuwePalletCode)
 					} Else {
+						Do ##class(Tools.Wlip).%New(127).String(".InventarisService.VoerBijladenUit")
 						Do ..InventarisService.VoerBijladenUit(OudePalletCode, NieuwePalletCode, ##class(APPS.MAG.enu.MagazijnTransitLocatie).Halux2Transit(), DnaCode.ProductNummer, 1)						
 					}
 					
@@ -577,7 +585,6 @@
 
 <Method name="GeefPalletCodeVanDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
-<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCodeIterator As TECH.Iterator