37 lines
1.1 KiB
XML
37 lines
1.1 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="lps" code="010" trace="yes">
|
|
|
|
<!--贴片卡待补登记录查询-->
|
|
<Transaction code="2142045" log_switch='1'>
|
|
<DynSentence name="QRY_LPSTWEMK_REC">
|
|
<Sentence>
|
|
SELECT JRN_NO, REG_DT,REG_TM,TX_AMT, BUS_CNL,sub_ac
|
|
FROM LPSTWEMK
|
|
WHERE MAIN_AC=? AND (PROC_RSL='U' OR PROC_RSL='C') AND SUB_AC=?
|
|
</Sentence>
|
|
<Fields>MAIN_AC|SUB_AC</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
|
|
<!-- 查询待补登记录 -->
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_LPSTWEMK_REC"/>
|
|
<Arg name="RecordName" value="REC" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00001"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:DumpETF"/>
|
|
<!--交易成功-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application>
|