Index: APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml =================================================================== diff -u -r32694 -r32820 --- APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml (.../TimeInTransitPort.cls.xml) (revision 32694) +++ APPS/TRANSP/UPS/impl/TimeInTransit/Service/TimeInTransitPort.cls.xml (.../TimeInTransitPort.cls.xml) (revision 32820) @@ -61,16 +61,12 @@ Set ..SSLConfiguration = "UPS" #dim Response As APPS.TRANSP.UPS.impl.TimeInTransit.Service.tnt.TimeInTransitResponse = "" - #dim Pogingen As %Integer = 0 - For { - try { - 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() - Set Response = "" - } - Set Pogingen = Pogingen + 1 - Quit:(Pogingen = 3 || $IsObject(Response)) + + try { + 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 ") } If ($$$Not($IsObject(Response))){