Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml
===================================================================
diff -u -r32815 -r32827
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 32815)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 32827)
@@ -22,6 +22,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Controle van de foutmelding bij lege response ">
+<Implementation><![CDATA[
+	#dim Response As %String = ""
+	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
+
+	Set RateService = ##class(APPS.TRANSP.UPS.impl.Rate.Service.RatePort).%New()
+	Set RateService.Transport = TransportSpy
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS Rate")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	#dim DummyResponse As APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse = RateService.Process(..GeefRateRequest())
+]]></Implementation>
+</Method>
+
 <Method name="FormateerXmlStream">
 <FormalSpec>BronStream:%Stream</FormalSpec>
 <Private>1</Private>
Index: APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml
===================================================================
diff -u -r32816 -r32827
--- APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml	(.../RatePort.cls.xml)	(revision 32816)
+++ APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml	(.../RatePort.cls.xml)	(revision 32827)
@@ -66,11 +66,11 @@
 		Set Response = ..WebMethod("Process").Invoke($this,"http://onlinetools.ups.com/webservices/RateBinding/v1.1",.Body)
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set Response = ""
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS Rate : " _Exception.ToString())
 		}
 
 	If ($$$Not($IsObject(Response))){
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS Rate : " _Exception.ToString())
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS Rate")
 	}
 	
 	Quit Response