Index: APPS/TRANSP/Transsmart/impl/CommunicatieService/HistoryByQuery.cls.xml
===================================================================
diff -u -r72356 -r72373
--- APPS/TRANSP/Transsmart/impl/CommunicatieService/HistoryByQuery.cls.xml	(.../HistoryByQuery.cls.xml)	(revision 72356)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService/HistoryByQuery.cls.xml	(.../HistoryByQuery.cls.xml)	(revision 72373)
@@ -36,8 +36,9 @@
 <ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
 <Implementation><![CDATA[
 	Try {
-		#dim Response As WS.Transsmart.tns.getStatusHistoryByQueryResponse = ..VerzendBericht(Request)
+		#dim Response As WS.Transsmart.tns.getStatusHistoryByQueryResponse = ..VerzendBericht(Request)		
 		Do ..VerwerkResponse(Response)
+		
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ##class(vhLib.Logger).%New("Transsmart").ErrorMail("VerwerkRequest","Verzenden bericht mislukt."_$C(13,10)_$C(13,10)_Exception.ToString())
@@ -46,13 +47,12 @@
 		Set Error.ErrorCode = "VH99"
 		Set Error.Omschrijving = Exception.GeefOmschrijving()
 		Set Error.Niveau = ##class(TECH.Exceptions.enu.Niveau).Error()		
+		Do ..ThrowError(Error)
 	}
-	/*
 	If ..ResponseControleur.ResponseBevatFout(Response) {
 		Set Error = ..ResponseControleur.GeefFoutInResponse(Response)
 		Do ..ThrowError(Error)
 	}
-	*/	
 	Quit ""
 ]]></Implementation>
 </Method>