Index: EWMS/TransLoc.cls.xml
===================================================================
diff -u -r2326 -r2331
--- EWMS/TransLoc.cls.xml	(.../TransLoc.cls.xml)	(revision 2326)
+++ EWMS/TransLoc.cls.xml	(.../TransLoc.cls.xml)	(revision 2331)
@@ -204,13 +204,19 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TransLoc:%String,IsPickbaar:%Boolean</FormalSpec>
 <Implementation><![CDATA[
+	If '..CheckLocTrans(TransLoc){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige TransLoc: "_TransLoc_"",0))
+	}
+	
 	Set UpdateResultSet = ##class(%ResultSet).%New()
 	Do UpdateResultSet.Prepare("Update EWMS.TransLoc SET loc_ispickbaar = ? WHERE loc_trans = ?")
 	Set UpdateStatus = UpdateResultSet.Execute(IsPickbaar,TransLoc)
 	If ($$$ISERR(UpdateStatus))
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"Kon de pickbaarheid van TransLoc niet wijzigen. (TransLoc:"_TransLoc_",Pickbaar:"_IsPickbaar_")",UpdateStatus))
 	}
+	Do UpdateResultSet.%Close()
+	Set UpdateResultSet = ""
 ]]></Implementation>
 </Method>
 
@@ -219,6 +225,11 @@
 <FormalSpec>TransLoc:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	
+	If '..CheckLocTrans(TransLoc){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige TransLoc: "_TransLoc_"",0))
+	}
+	
 	Set IsPickbaar = ""
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("Select loc_ispickbaar As IsPickbaar FROM EWMS.TransLoc WHERE loc_trans = ?")
@@ -236,7 +247,8 @@
 	If (IsPickbaar = ""){
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kon de pickbaarheid van TransLoc niet ophalen, TransLoc niet gevonden ! (TransLoc:"_TransLoc_",Pickbaar:"_IsPickbaar_")"))	
 	}
-	
+	Do ResultSet.%Close()
+	Set ResultSet = ""
 	Quit IsPickbaar
 ]]></Implementation>
 </Method>