Web service for HAEFELE to confirm orders This is the internal version, called by our proxy running in the DMZ APPS.TBXWeb 1 %SOAP.WebService 0 Name of the WebService. OrderServiceInternal SOAP Namespace for the WebService http://www.vanhoecke.be/HAEFELE 1 SecureKey:%String,EDInr:%Integer,RequestedDeliveryDate:%String,HaefeleBestelRef:%String="" WS.TBX.HAEFELE.ConfirmOrderResult 1 1 SecureKey:%String,EDInr:%Integer WS.TBX.HAEFELE.TbxOrderInfoResult 1 1000000) && ($L(##class(WS.TBX.OrderAbstract).IDViaEDINr(EDInr,$$$True))) { Set TBXHandelBepaler = ##class(WS.TBX.OrderService.TBXHandelBepaler).%New() Set TBXHandel = TBXHandelBepaler.BepaalTBXHandelViaEDINr(EDInr) } Else { // Dit is wellicht geen EDINr van een TBoxWeb order Set TBXHandel = "" } Set TbxOrderInfoResult=##class(WS.TBX.HAEFELE.TbxOrderInfoResult).%New(TBXHandel) Quit TbxOrderInfoResult GeefTbxOrderInfoError Set $ZTrap="" Set Exception=##class(TECH.ExceptionHandler).Catch() Set ErrorMessage="" If (Exception.%Extends("WS.TBX.OrderService.VerwerkingException")) { // Deze specifieke exceptions zijn reeds gelogd. Hier enkel de SoapFault opzetten Set ErrorMessage=Exception.GeefOmschrijving() } Else { // Alle andere exceptions en caché-errors worden hier gelogd+gemaild naar ICT Set ErrorMessage="Error in confirmation of order "_EDInr_". Van Hoecke ICT has been notified." Do Logger.ErrorMail("HAEFELE_ORDER",ErrorMessage_$$$CRLF_Exception.GeefOmschrijving()_" "_Exception.ToString()) } Do ..ReturnFault(##class(WS.WSServerFault).%New(ErrorMessage, ..#SERVICENAME, "CO")) ]]> 1 OrderServiceHelper:WS.TBX.OrderService.Verwerker,WsOrder:WS.TBX.OrderAbstract 1