Index: vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml =================================================================== diff -u -r32834 -r32878 --- vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml (.../Test.cls.xml) (revision 32834) +++ vhUnitTest/APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort/Test.cls.xml (.../Test.cls.xml) (revision 32878) @@ -31,7 +31,7 @@ Set TimeInTransitService.Transport = TransportSpy #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Kon geen gegevens ophalen van UPS TransitTime ") - Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings)) + Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.CommunicationErrorException",Substrings)) #dim DummyResponse As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = TimeInTransitService.Process(..GeefTransitInTimeRequest()) ]]> @@ -42,7 +42,7 @@ 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)) + Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException",Substrings)) #dim DummyResponse As APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse = TimeInTransitServiceLeegResultaat.Process(..GeefTransitInTimeRequest()) ]]> Index: APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml =================================================================== diff -u -r32834 -r32878 --- APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml (.../TimeInTransitPort.cls.xml) (revision 32834) +++ APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml (.../TimeInTransitPort.cls.xml) (revision 32878) @@ -66,11 +66,11 @@ 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 : " _Exception.ToString()) + Do ##class(TECH.Exceptions.CommunicationErrorException).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 ") + Do ##class(TECH.Exceptions.InvalidResponseException).Throw("Kon geen gegevens ophalen van UPS TransitTime ") } Quit Response