Index: MagazijnLocaties.csp
===================================================================
diff -u -r12 -r14
--- MagazijnLocaties.csp	(.../MagazijnLocaties.csp)	(revision 12)
+++ MagazijnLocaties.csp	(.../MagazijnLocaties.csp)	(revision 14)
@@ -30,19 +30,21 @@
 <script method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
  Set %session.Data("PickbaarCssClass") = "NietPickbaar"
  Kill %request.Data("IsPickbaar",1)
+ Set %session.Data("Foutmelding") = "" 
+ Do ..btnUitvoerenClick()
  
- If ..btnUitvoerenClicked() do ..btnUitvoerenClick()
- 
  Quit 1 
 </script>
 
+<script method="OnPagePOSTHTML" language="Cache" arguments="" returntype="%Boolean">
 
-<script method="btnUitvoerenClicked" language="Cache" returntype="%Boolean">
- 	quit $data(%request.Data("btnUitvoeren"))
+ Kill %request.Data
+
+ Quit 1 
 </script>
 
 <script method="btnUitvoerenClick" language="cache" arguments="ID" returntype="%Boolean">	
-	Set %session.Data("GeefInformatieChecked") = ""
+	Set %session.Data("GeefInformatieChecked") = "checked"
 	Set %session.Data("ZetPickbaarChecked") = ""
 	Set %session.Data("ZetNietPickbaarChecked") = ""
 	
@@ -57,39 +59,64 @@
 	ElseIf (Actie = "ZetPickbaar") { 
 		Do ..ZetPickbaar(TransLoc) 
 		Set %session.Data("ZetPickbaarChecked") = "checked"
+		Set %session.Data("GeefInformatieChecked") = ""
 	}
 	ElseIf (Actie = "ZetNietPickbaar") {
 		Do ..ZetNietPickbaar(TransLoc) 
 		Set %session.Data("ZetNietPickbaarChecked") = "checked"
+		Set %session.Data("GeefInformatieChecked") = ""
 	}
 	 
 	Quit 1
 </script>
 
 
 <script language="Cache" method="ZetPickbaar" arguments="TransLoc:%String" returntype="">
+	SET $ZTRAP = "ZetPickbaarCatch"
 	Do ##class(EWMS.TransLoc).ZetIsPickbaar(TransLoc,1)
 	Do ..GeefInformatie(TransLoc)
+	Quit ""
+:ZetPickbaarCatch
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do ##class(vhLib.Logger).%New("Magazijn Locaties").Error("ZetPickbaar mislukt",Exception.ToString())
+	Set %session.Data("Foutmelding") = Exception.GeefOmschrijving()
+    Quit 
 </script>
 
 <script language="Cache" method="ZetNietPickbaar" arguments="TransLoc:%String" returntype="">
+	SET $ZTRAP = "ZetNietPickbaarCatch"
 	Do ##class(EWMS.TransLoc).ZetIsPickbaar(TransLoc,0)
 	Do ..GeefInformatie(TransLoc)
+	Quit ""
+:ZetNietPickbaarCatch
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do ##class(vhLib.Logger).%New("Magazijn Locaties").Error("ZetNietPickbaar mislukt",Exception.ToString())
+	Set %session.Data("Foutmelding") = Exception.GeefOmschrijving()
+    Quit 
 </script>
 
 
 <script language="Cache" method="GeefInformatie" arguments="TransLoc:%String" returntype="">
-	
+	Set $ZTRAP = "IsPickbaarCatch"
 	Set IsPickbaar = ##class(EWMS.TransLoc).IsPickbaar(TransLoc)
-	
+	Set %session.Data("Foutmelding") = "" 
 	If IsPickbaar { 
 		Set %session.Data("PickbaarCssClass") = "Pickbaar" 
 		Set %session.Data("IsPickbaarChecked") = "checked"
 	}Else{
 		Set %session.Data("PickbaarCssClass") = "NietPickbaar"	
 		Set %session.Data("IsPickbaarChecked") = ""
-	}
+	}	
 	Quit ""
+:IsPickbaarCatch
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do ##class(vhLib.Logger).%New("Magazijn Locaties").Error("GeefIsPickbaar mislukt",Exception.ToString())
+	Set %session.Data("Foutmelding") = Exception.GeefOmschrijving()
+    Quit 
+  
 </script>
 
 
@@ -108,7 +135,7 @@
 <!-- use CSP:OBJECT tag to create a reference to an instance of the class -->
 <csp:object name="objForm" classname="EWMS.TransLoc" OBJID=#($Get(%session.Data("TransLocID")))#>
 
-<form name="form" cspbind="objForm" cspjs="All" onsubmit='return form_validate();'>
+<form name="form" cspbind="objForm" cspjs="All" onsubmit='return form_validate();' action="" method="post">
 
 <table>
   <tr>
@@ -118,9 +145,12 @@
   <tr>
     <td><b><div align="right">Actie</div></b></td>
     <td>
-    	<input type="radio" name="Actie" value="ZetPickbaar" #($Get(%session.Data("ZetPickbaarChecked")))#/> Pickbaar<br />
-		<input type="radio" name="Actie" value="ZetNietPickbaar" #($Get(%session.Data("ZetNietPickbaarChecked")))#/> Niet pickbaar<br />
-		<input type="radio" name="Actie" value="GeefInformatie" #($Get(%session.Data("GeefInformatieChecked")))#/> Vraag status<br />
+    	<input type="radio" name="Actie" id="ZetPickbaar" value="ZetPickbaar" #($Get(%session.Data("ZetPickbaarChecked")))#/> 
+    	<Label for="ZetPickbaar">Pickbaar</Label><br />
+		<input type="radio" name="Actie" id="ZetNietPickbaar" value="ZetNietPickbaar" #($Get(%session.Data("ZetNietPickbaarChecked")))#/> 
+		<Label for="ZetNietPickbaar">Niet pickbaar</Label><br />
+		<input type="radio" name="Actie" id="GeefInformatie" value="GeefInformatie" #($Get(%session.Data("GeefInformatieChecked")))#/> 
+		<Label for="GeefInformatie">Vraag status</Label><br />
 		</td>
   </tr>
   <tr>
@@ -131,17 +161,24 @@
     <td colspan="2" class="lijn"></td>
   </tr>
   
-  <CSP:IF condition='($l($get(%session.Data("TransLocID")))>0)'>
-	  <tr>
-	    <td><b><div align="right">TransLoc</div></b></td>
-	    <td><input type="text" name="TransLoc" value="#(%session.Data("TransLocID"))#" size="15" disabled readonly></td>
-	  </tr>
-	  <tr>
-	    <td><b><div align="right">Is Pickbaar</div></b></td>
-	    <td class=#($Get(%session.Data("PickbaarCssClass")))#><input type="checkbox" name="IsPickbaar" size="50" disabled readonly #(%session.Data("IsPickbaarChecked"))#></td>
-	  </tr>
+  <CSP:IF condition='%session.Data("Foutmelding")=""'>
+	  <CSP:IF condition='($l($get(%session.Data("TransLocID")))>0)'>
+		  <tr>
+		    <td><b><div align="right">TransLoc</div></b></td>
+		    <td><input type="text" name="TransLoc" value="#(%session.Data("TransLocID"))#" size="15" disabled readonly></td>
+		  </tr>
+		  <tr>
+		    <td><b><div align="right">Is Pickbaar</div></b></td>
+		    <td class=#($Get(%session.Data("PickbaarCssClass")))#><input type="checkbox" name="IsPickbaar" size="50" disabled readonly #(%session.Data("IsPickbaarChecked"))#></td>
+		  </tr>
+	  </CSP:IF>
+  <CSP:ELSE>
+  	<tr>
+  		<td colspan="2">#(%session.Data("Foutmelding"))#</td>
+  	</tr>
   </CSP:IF>
   
+  
 </table>
 
 </form>