52 lines
1.6 KiB
XML
52 lines
1.6 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!-- UI公共后处理 -->
|
|
<Root>
|
|
<If condition="~RetCod=-1">
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If>
|
|
|
|
<If condition="#SysRet=0">
|
|
<!-- #SysRet 系统异常错误标志 -->
|
|
<!--@msg 系统正忙,请稍后提交 -->
|
|
<Set>GWA.MSG_CD=SCM60002</Set>
|
|
</If>
|
|
<If condition="ISNULL($GWA.MSG_CD)">
|
|
<!--@msg 系统正忙,请稍后提交 -->
|
|
<Set>GWA.MSG_CD=SCM60003</Set>
|
|
</If>
|
|
<If condition="IS_SUCC($GWA.MSG_CD)">
|
|
<Set>GWA.MSG_TYP=N</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>GWA.MSG_TYP=E</Set>
|
|
<!-- <Exec func="PUB:ProcMsgCod" error="IGNORE" />-->
|
|
<Exec func="PUB:UIProcMsgCod" error="IGNORE" />
|
|
<If condition="~RetCod!=0">
|
|
<!--@msg 系统正忙,请稍后提供 -->
|
|
<Set>GWA.MSG_CD=SCM60004</Set>
|
|
</If>
|
|
</Else>
|
|
<If
|
|
condition="OR(IS_EQUAL_STRING($GWA.MSG_TYP,N),IS_EQUAL_STRING($GWA.MSG_TYP,W))">
|
|
<!-- 若消息类型正常或警告则提交数据库事务 -->
|
|
<Exec func="PUB:CommitWork" error="IGNORE" />
|
|
</If>
|
|
<Else>
|
|
<!-- 否则回滚数据库事务 -->
|
|
<Exec func="PUB:RollbackWork" error="IGNORE" />
|
|
<If condition="STRCMP($GWA.MON_FLG,1)=0">
|
|
<Exec func="PUB:EventSaveToFile" error="IGNORE">
|
|
<Arg name="FILEPATH"
|
|
value="STRCAT(GETENV(HWORKDIR),/log/evt_,GETDATETIME(yyMMdd),.log)" />
|
|
<Arg name="SYS_CNL" value="$GWA.SYS_CNL" />
|
|
<Arg name="BUS_CNL" value="$GWA.BUS_CNL" />
|
|
<Arg name="MOD_NM" value="$MOD_NM" />
|
|
<Arg name="EVT_LVL" value="$EVT_LVL" />
|
|
<Arg name="EVT_TYP" value="$GWA.MSG_TYP" />
|
|
<Arg name="EVT_CTT" value="$GWA.MSG_INF" />
|
|
</Exec>
|
|
</If>
|
|
</Else>
|
|
</Root>
|
|
|