Index: APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml
===================================================================
diff -u -r32820 -r32834
--- APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml	(.../TimeInTransitPort.cls.xml)	(revision 32820)
+++ APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml	(.../TimeInTransitPort.cls.xml)	(revision 32834)
@@ -63,14 +63,14 @@
 	#dim Response As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = ""
 	
 	try {
-		Set Response = ..WebMethod("Process").Invoke($this,"http://onlinetools.ups.com/webservices/TimeInTransitBinding/v1.0",.Body)
+		Set Response = ..WebMethod("Process").Invoke($this,"http://onlinetools.ups.com/webservices/TimeInTransitBinding/v1.0",Body)
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS TransitTime ")
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS TransitTime : " _Exception.ToString())
 	}
 	
 	If ($$$Not($IsObject(Response))){
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS TransitTime : " _Exception.ToString())
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS TransitTime ")
 	}
 	
 	Quit Response
Index: APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml
===================================================================
diff -u -r32827 -r32834
--- APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml	(.../RatePort.cls.xml)	(revision 32827)
+++ APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml	(.../RatePort.cls.xml)	(revision 32834)
@@ -63,7 +63,7 @@
 	#dim Response As APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse = ""
 
 	try {
-		Set Response = ..WebMethod("Process").Invoke($this,"http://onlinetools.ups.com/webservices/RateBinding/v1.1",.Body)
+		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()
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS Rate : " _Exception.ToString())
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/WebmethodLeegResultaat.cls.xml	(revision 32834)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort.WebmethodLeegResultaat">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort</Super>
+
+<Method name="WebMethod">
+<Internal>1</Internal>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Operation:%String,RequestTag:%String</FormalSpec>
+<ReturnType>%SOAP.Descriptor</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit ..%New()
+]]></Implementation>
+</Method>
+
+<Method name="Invoke">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml
===================================================================
diff -u -r32829 -r32834
--- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32829)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml	(.../Test.cls.xml)	(revision 32834)
@@ -22,21 +22,32 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Controle van de foutmelding bij lege response ">
+<Method name="Test: Controle van de foutmelding bij foutieve response ">
 <Implementation><![CDATA[
 	#dim Response As %String = ""
 	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
 
 	Set TimeInTransitService = ##class(APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort).%New()
 	Set TimeInTransitService.Transport = TransportSpy
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS TransitTime")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS TransitTime ")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
 	#dim DummyResponse As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(..GeefTransitInTimeRequest())
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Controle van de foutmelding bij lege response ">
+<Implementation><![CDATA[
+	Set TimeInTransitServiceLeegResultaat = ##class(vhUnitTest.APPS.TRANSP.UPS.impl.TimeInTransit.Service.TimeInTransitPort.WebmethodLeegResultaat).%New()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS TransitTime ")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+
+	#dim DummyResponse As APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse = TimeInTransitServiceLeegResultaat.Process(..GeefTransitInTimeRequest())
+]]></Implementation>
+</Method>
+
 <Method name="GeefTransitInTimeRequest">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml
===================================================================
diff -u -r32829 -r32834
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 32829)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/Test.cls.xml	(.../Test.cls.xml)	(revision 32834)
@@ -22,7 +22,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Controle van de foutmelding bij lege response ">
+<Method name="Test: Controle van de foutmelding bij foutieve response ">
 <Implementation><![CDATA[
 	#dim Response As %String = ""
 	#dim TransportSpy As vhTest.Spy.TECH.SoapClient.Transporter = ##class(vhTest.Spy.TECH.SoapClient.Transporter).%New(Response)
@@ -37,6 +37,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Controle van de foutmelding bij lege response ">
+<Implementation><![CDATA[
+	Set RateServiceLeegResultaat = ##class(vhUnitTest.APPS.TRANSP.UPS.impl.Rate.Service.RatePort.WebmethodLeegResultaat).%New()
+	
+	#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 = RateServiceLeegResultaat.Process(..GeefRateRequest())
+]]></Implementation>
+</Method>
+
 <Method name="GeefRateRequest">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitRequest</ReturnType>
Index: vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/Rate/Service/RatePort/WebmethodLeegResultaat.cls.xml	(revision 32834)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.UPS.impl.Rate.Service.RatePort.WebmethodLeegResultaat">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>APPS.TRANSP.UPS.impl.Rate.Service.RatePort</Super>
+
+<Method name="WebMethod">
+<Internal>1</Internal>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Operation:%String,RequestTag:%String</FormalSpec>
+<ReturnType>%SOAP.Descriptor</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit ..%New()
+]]></Implementation>
+</Method>
+
+<Method name="Invoke">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>