Index: UI/TBXWeb/GroepOrderVerwerker.cls.xml =================================================================== diff -u -r326 -r356 --- UI/TBXWeb/GroepOrderVerwerker.cls.xml (.../GroepOrderVerwerker.cls.xml) (revision 326) +++ UI/TBXWeb/GroepOrderVerwerker.cls.xml (.../GroepOrderVerwerker.cls.xml) (revision 356) @@ -68,6 +68,7 @@ set ..GroepOrder.WebDomain = Domein set ..GroepOrder.KLNummer = KlantNr set ..GroepOrder.Referentie = Referentie + set ..GroepOrder.ShowInHist = 80 ; Tijdelijke fix. Later implementatie op de correcte plaats en waarde analoog als bij (gewoon) Order zetten. Quit $$$OK ]]> 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 - Index: csp/vhisie/TBX/Main/tmpDev.mac.rou =================================================================== diff -u -r353 -r356 --- csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 353) +++ csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 356) @@ -620,6 +620,9 @@ set $ztrap="" new Exception set Exception = ##class(TECH.ExceptionHandler).Catch() ;new + + do ##class(vhLib.Logger).%New("TBXWeb").ErrorMail("Error bij Transfereer (=OrderToAdmin) "_$G(wsID)_". ",Exception.ToString()) + Do oxxAddToLog("!TRANSF!") set arJSExec(1)="alert("_$$$QuoteJS("Transfer to ADMIN:")_"+'\n'+"_$$$QuoteJS(Exception.GeefOmschrijving())_");" set arJSExec(2)="document.location.replace("_$$$QuoteJS("main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr))_");"