65 lines
2.4 KiB
XML
65 lines
2.4 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!-- 支付后台公共前后处理(包含解锁) -->
|
|
<Root>
|
|
<GlobalFunction>
|
|
<!-- 公共前处理 -->
|
|
<Function name="_before">
|
|
<DynSentence name="QRY_PUBTTXIF_INF">
|
|
<Sentence>
|
|
SELECT VLD_FLG ,LOG_FLG FROM PUBTTXIF WHERE
|
|
TX_CD=?
|
|
</Sentence>
|
|
<Fields>TXN_CD|</Fields>
|
|
</DynSentence>
|
|
<Process>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_PUBTTXIF_INF" />
|
|
<Arg name="GrpNam" value="TXIF" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<!-- @msg 读交易属性表失败 -->
|
|
<Set>GWA.MSG_CD=SCM60006</Set>
|
|
<Exit />
|
|
</If>
|
|
<If condition="$TXIF.VLD_FLG=0">
|
|
<!-- @msg 交易为停止状态 -->
|
|
<Set>GWA.MSG_CD=SCM60007</Set>
|
|
<Exit />
|
|
</If>
|
|
<Include file="app/cmm/etc/PUB_BEFORE01_INC.XML" />
|
|
<Exec func="PUB:IIFCheck" error="IGNORE">
|
|
<Arg name="RqRp" value="rq" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exit />
|
|
</If>
|
|
</Process>
|
|
</Function>
|
|
|
|
<!-- 公共后处理 -->
|
|
<Function name="_after">
|
|
<Process>
|
|
<Include file="app/cmm/etc/PUB_AFTER01_INC.XML" />
|
|
<If condition="OR(IS_EQUAL_STRING($GWA.MSG_TYP,N),IS_EQUAL_STRING($GWA.MSG_TYP,W))">
|
|
<!-- 交易成功则做订阅发布 -->
|
|
<If condition="ISBLANK($GWA.TX_CD)=0">
|
|
<Exec func="PUB:PublishTopic" error="IGNORE">
|
|
<Arg name="TopId" value="$GWA.TX_CD" />
|
|
</Exec>
|
|
</If>
|
|
|
|
<Exec func="PUB:IIFCheck" error="IGNORE">
|
|
<Arg name="RqRp" value="rp" />
|
|
</Exec>
|
|
</If>
|
|
<If condition="NOT(ISNULL($PWM_LOCK_NM))">
|
|
<!-- 解锁处理 -->
|
|
<Exec func="PUB:UnLock">
|
|
<Arg name="RecKey" value="$PWM_LOCK_NM" />
|
|
</Exec>
|
|
</If>
|
|
</Process>
|
|
</Function>
|
|
</GlobalFunction>
|
|
</Root>
|