39 lines
1.1 KiB
XML
39 lines
1.1 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>GWA.TX_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" />
|
|
</Process>
|
|
</Function>
|
|
|
|
<!-- 公共后处理 -->
|
|
<Function name="_after">
|
|
<Process>
|
|
<Include file="app/cmm/etc/PUB_AFTER01_INC.XML" />
|
|
</Process>
|
|
</Function>
|
|
</GlobalFunction>
|
|
</Root> |