1 AbstractOrderHandler 0 0 %Boolean %String %List ") errorBijRegio Set $ZT = "" set Exception = ##class(TECH.ExceptionHandler).Catch() do ##class(vhLib.Logger).%New("TBXWeb").ErrorMail("Error bij ophalen Regio "_..WSOrd.mID_" ("_DataIO.Location_ ")",Exception.ToString()) Quit $listbuild("""OV_TBX_KLANT"" ") ]]> 1 %String %String %String %Status %String " } Else { if ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Destil() { set From = $$$EMailAKHelmY } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).SFS() { set From = $$$EMailAKSfs } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).MBHolland() { set From = $$$EMailAKMbho } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE() { set From = $$$EMailAKHflb } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).HafeleNL() { set From = $$$EMailAKHfle } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Dupont() { set From = $$$EMailAKDupo } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Kisch() { set From = $$$EMailAKKisch } else { set From = $$$EMailAKUnknown } } Quit From ]]>