Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60609 -r60610
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60609)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60610)
@@ -401,14 +401,12 @@
 				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"
@@ -423,20 +421,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
+						If ..IsKaderdeurLocatie(NieuwePalletCode) {
+							Set DnaCode.Locatie = 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)						
+					If $$$Not(..IsKaderdeurLocatie(NieuwePalletCode)) {
+						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"
@@ -466,6 +463,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsKaderdeurLocatie">
+<FormalSpec>Locatie:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((Locatie?1"10"1"K"2N1"T"2N) || (Locatie?1"10"1"k"2N1"t"2N))
+]]></Implementation>
+</Method>
+
 <Method name="IsDirecteLevering">
 <FormalSpec>DirecteLeveringRequest:WS.Halux.AAP.DirecteLeveringRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.DirecteLeveringResponse</ReturnType>
@@ -585,6 +590,7 @@
 
 <Method name="GeefPalletCodeVanDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCodeIterator As TECH.Iterator