33 lines
1.0 KiB
XML
33 lines
1.0 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!-- 公共后处理 -->
|
|
<Root>
|
|
<If condition="#SysRet=0">
|
|
<!-- #SysRet 系统异常错误标志 -->
|
|
<!--@msg 系统异常 -->
|
|
<Set>GWA.MSG_CD=SCM6001</Set>
|
|
</If>
|
|
<If condition="ISNULL($GWA.MSG_CD)">
|
|
<!--@msg 系统异常 -->
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If>
|
|
<If condition="IS_SUCC($GWA.MSG_CD)">
|
|
<Set>GWA.MSG_TYP=N</Set>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:ProcMsgCod" error="IGNORE"></Exec>
|
|
</Else>
|
|
<If
|
|
condition="OR(IS_EQUAL_STRING($GWA.MSG_TYP,N),IS_EQUAL_STRING($GWA.MSG_TYP,W))">
|
|
<!-- 若消息类型正常或警告则提交数据库事务 -->
|
|
<Exec func="PUB:CommitWork" error="IGNORE" />
|
|
|
|
<!--Exec func="IIF:IIFCheck" error="IGNORE">
|
|
<Arg name="RqRp" value="rp" />
|
|
</Exec-->
|
|
</If>
|
|
<Else>
|
|
<!-- 否则回滚数据库事务 -->
|
|
<Exec func="PUB:RollbackWork" error="IGNORE" />
|
|
</Else>
|
|
</Root>
|