Index: APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml
===================================================================
diff -u -r59689 -r59849
--- APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 59689)
+++ APPS/TRANSP/Transsmart/impl/BerichtVerzenderTemplate.cls.xml	(.../BerichtVerzenderTemplate.cls.xml)	(revision 59849)
@@ -134,9 +134,17 @@
 <ReturnType>WS.Transsmart.tns.getStatusResponse</ReturnType>
 <Implementation><![CDATA[
 	do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,Request.%ClassName(1))
-	Quit:(Request.%ClassName(1) = "WS.Transsmart.tns.doBooking") ..TranssmartWSClient.doBooking(Request)
-	Quit:(Request.%ClassName(1) = "WS.Transsmart.tns.doDelete") ..TranssmartWSClient.doDelete(Request)
-	;invalid requesttype
+	#dim Response as WS.Transsmart.tns.getStatusResponse =""
+	Try {
+		Set:(Request.%ClassName(1) = "WS.Transsmart.tns.doBooking") Response = ..TranssmartWSClient.doBooking(Request)
+		Set:(Request.%ClassName(1) = "WS.Transsmart.tns.doDelete") Response = ..TranssmartWSClient.doDelete(Request)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
+		Do Exception.Rethrow()
+	}	
+	Quit Response
+	; todo invalid requesttype opvangen
 ]]></Implementation>
 </Method>
 
Index: WS/Transsmart/impl/TboxServicePort.cls.xml
===================================================================
diff -u -r59729 -r59849
--- WS/Transsmart/impl/TboxServicePort.cls.xml	(.../TboxServicePort.cls.xml)	(revision 59729)
+++ WS/Transsmart/impl/TboxServicePort.cls.xml	(.../TboxServicePort.cls.xml)	(revision 59849)
@@ -70,7 +70,11 @@
 <Implementation><![CDATA[
 	Do ..LogHeaders("Transsmart doBooking headers")	
 	Do ..LogXmlAsStream("Transsmart doBooking request",doBooking)
-	#dim Response as WS.Transsmart.tns.getStatusResponse = ..WebMethod("doBooking").Invoke($this,"",.doBooking)
+	Try{
+		#dim Response as WS.Transsmart.tns.getStatusResponse = ..WebMethod("doBooking").Invoke($this,"",.doBooking)
+	} catch {
+		Do ..RaiseException($$$CurrentMethod)
+	}
 	Do ..LogXmlAsStream("Transsmart doBooking response",Response)
 	Quit Response
 ]]></Implementation>
@@ -88,7 +92,12 @@
 <Implementation><![CDATA[
 	Do ..LogHeaders("Transsmart doDelete headers")	
 	Do ..LogXmlAsStream("Transsmart doDelete request",doDelete)
-	#dim Response as WS.Transsmart.tns.getStatusResponse = ..WebMethod("doDelete").Invoke($this,"",.doDelete)
+	Try{
+		#dim Response as WS.Transsmart.tns.getStatusResponse = ..WebMethod("doDelete").Invoke($this,"",.doDelete)
+	} catch {
+		Do ..RaiseException($$$CurrentMethod)
+	}
+
 	Do ..LogXmlAsStream("Transsmart doDelete response",Response)
 	Quit Response
 ]]></Implementation>
@@ -105,8 +114,12 @@
 <ReturnTypeParams>XMLNAME="getDocsResponse"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Do ..LogHeaders("Transsmart getDocs headers")	
-	Do ..LogXmlAsStream("Transsmart getDocs request",getDocs)
-	#dim Response as WS.Transsmart.tns.getDocsResponse = ..WebMethod("getDocs").Invoke($this,"",.getDocs)
+	Do ..LogXmlAsStream("Transsmart getDocs request",getDocs)	
+	try {
+		#dim Response as WS.Transsmart.tns.getDocsResponse = ..WebMethod("getDocs").Invoke($this,"",.getDocs)
+	} catch {
+		Do ..RaiseException($$$CurrentMethod)
+	}
 	Do ..LogXmlAsStream("Transsmart getDocs response",Response)
 	Quit Response
 ]]></Implementation>
Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u -r59827 -r59849
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 59827)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml	(.../EtiketService.cls.xml)	(revision 59849)
@@ -137,7 +137,9 @@
 		
 	#dim ShipmentInfoReference As %String = ..GeefShipmentInfoReference(Levering)
 	#dim Request as WS.Transsmart.tns.getDocs = ..RequestBouwer.MaakgetDocsRequest(ShipmentInfoReference)
+	
 	#dim Response As WS.Transsmart.tns.getDocsResponse = ..GeefDocs(Request)
+	
 	#dim ZlpEtiketten As %ListOfObjects = ..MaakEtikettenLijst(Response)
 	
 	Quit ZlpEtiketten
@@ -166,6 +168,7 @@
 		#dim Response As WS.Transsmart.tns.getDocsResponse = ..TranssmartWSClient.getDocs(Request)
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).LogExceptie(Exception)
 		Do ##class(vhLib.Logger).%New("Transsmart").ErrorMail("VerwerkRequest","Verzenden bericht mislukt."_$C(13,10)_$C(13,10)_Exception.ToString())
 		Set Error =##class(APPS.TRANSP.Transsmart.Error).%New("VH99",Exception.GeefOmschrijving())
 		do ..ThrowError(Error)