Index: APPS/MAG/Inventaris/impl/InventarisService.cls.xml
===================================================================
diff -u -r73263 -r73264
--- APPS/MAG/Inventaris/impl/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 73263)
+++ APPS/MAG/Inventaris/impl/InventarisService.cls.xml	(.../InventarisService.cls.xml)	(revision 73264)
@@ -914,8 +914,9 @@
 <FormalSpec>OriginelePalletID:%String,NieuwePalletID:%String</FormalSpec>
 <Implementation><![CDATA[
 	If (($Length(NieuwePalletID) '= 8) || ($Length(NieuwePalletID) '= 9)) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuwe pallet ID moet 8 tekens lang zijn. Opgegeven PalletID:"_NieuwePalletID))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuwe pallet ID moet 8 of 9 tekens lang zijn. Opgegeven PalletID:"_NieuwePalletID))
 	}
+	Set NieuwePalletID = $Extract(NieuwePalletID, 1, 8)
 	If (..IsPalletGeregistreerdOpEenLocatie(NieuwePalletID)) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuwe pallet '"_NieuwePalletID_"' bestaat al."))
 	}
@@ -982,12 +983,12 @@
 <FormalSpec>DragerID:%String</FormalSpec>
 <ReturnType>DOM.MAG.MagazijnLocatie</ReturnType>
 <Implementation><![CDATA[
-	If ($Length(DragerID) > 8) {
+	If ($Length(DragerID) > 9) {
 		Set ExceptionDragerIDIsTeLang = ##class(TECH.Exceptions.InvalidUserInputException).%New("Een drager mag maximum 8 tekens bevatten.")
 		Do ExceptionDragerIDIsTeLang.VoegToeExtraInfo("DragerID : "_DragerID)
 		Do ##class(TECH.ExceptionHandler).Throw(ExceptionDragerIDIsTeLang)
 	}
-	
+	Set DragerID = $Extract(DragerID, 1, 8)
 	#Dim Locatie As DOM.MAG.MagazijnLocatie = ##class(DOM.DomeinContext).Instance().GeefMagazijnAPI().GeefMagazijnLocatie("")
 	#Dim SQL As %String = "SELECT L.loc_m As M,L.loc_g As G,L.loc_x As X,L.loc_y As Y FROM EWMS.Locations L WHERE Loc_id = ? "
 	#Dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(SQL,$listbuild(DragerID))