59 lines
1.9 KiB
XML
59 lines
1.9 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--公共后处理-->
|
|
<Function name="PUBAfterProcess">
|
|
<Process>
|
|
<!-- #SysRet 系统异常错误标志 -->
|
|
<If condition="#SysRet=0">
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If>
|
|
|
|
<!-- GWA区未赋值错误码 -->
|
|
<If condition="ISNULL($GWA.MSG_CD)">
|
|
<Set>GWA.MSG_CD=SCM60001</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"/>
|
|
<If condition="~RetCod!=0">
|
|
<Set>GWA.MSG_CD=SCM60001</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" />
|
|
|
|
<!-- 接口检查 -->
|
|
<!--Exec func="PUB:IIFCheck" error="IGNORE">
|
|
<Arg name="RqRp" value="rp" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If-->
|
|
|
|
<If condition="ISBLANK($GWA.TX_CD)=0">
|
|
<Exec func="PUB:PublishTopic" error="IGNORE">
|
|
<Arg name="TopId" value="$GWA.TX_CD" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Set>GWA.MSG_CD=SCM60001</Set>
|
|
</If>
|
|
</If>
|
|
</If>
|
|
<Else>
|
|
<!-- 交易失败回滚数据库事务 -->
|
|
<Exec func="PUB:RollbackWork" error="IGNORE" />
|
|
</Else>
|
|
</Process>
|
|
</Function>
|
|
|
|
</Package>
|