Index: APPS/TBXWeb/OrderService.cls.xml =================================================================== diff -u -r340 -r356 --- APPS/TBXWeb/OrderService.cls.xml (.../OrderService.cls.xml) (revision 340) +++ APPS/TBXWeb/OrderService.cls.xml (.../OrderService.cls.xml) (revision 356) @@ -141,13 +141,15 @@ do WebOrder.AddToTransferLog(OfferteID,SoapClient.Location,"") do WebOrder.%Save() } + set $zt="" quit onError set $zt="" set Exception = ##class(TECH.ExceptionHandler).Catch() - do WebOrder.AddToTransferLog(0,SoapClient.Location,Exception.GeefOmschrijving()) - do ##class(vhLib.Logger).%New("TBXWeb").ErrorMail("onErrorSoap: "_WebOrder.mID_" ("_SoapClient.Location_ ")",Exception.ToString()) + Set SoapClientLocation=$S($IsObject($G(SoapClient)):SoapClient.Location, 1:"") + do WebOrder.AddToTransferLog(0,SoapClientLocation,Exception.GeefOmschrijving()) + do ##class(vhLib.Logger).%New("TBXWeb").ErrorMail("onErrorSoap: "_WebOrder.mID_" ("_SoapClientLocation_ ")",Exception.ToString()) do ##class(TECH.ExceptionHandler).Rethrow(Exception) quit ]]> @@ -193,7 +195,7 @@ WebOrder:WS.TBX.OrderAbstract -