Index: APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml =================================================================== diff -u -r32694 -r32816 --- APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml (.../RatePort.cls.xml) (revision 32694) +++ APPS/TRANSP/UPS/impl/Rate/Service/RatePort.cls.xml (.../RatePort.cls.xml) (revision 32816) @@ -61,18 +61,14 @@ Set ..SSLConfiguration = "UPS" #dim Response As APPS.TRANSP.UPS.impl.Rate.Service.rate.RateResponse = "" - #dim Pogingen As %Integer = 0 - For { - try { - 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 = "" + + try { + 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 = "" } - Set Pogingen = Pogingen + 1 - Quit:(Pogingen = 3 || $IsObject(Response)) - } - + If ($$$Not($IsObject(Response))){ Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Kon geen gegevens ophalen van UPS Rate : " _Exception.ToString()) }