62 lines
2.2 KiB
XML
62 lines
2.2 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<!--ATM-->
|
|
<Application name="cap" code="204">
|
|
|
|
<Define>
|
|
<!--插入报表登记表-->
|
|
<Macro name="Do_SVRInf">
|
|
<DynSentence name="Insrpt">
|
|
<Sentence>
|
|
INSERT INTO CMMTRPTREG (RPT_DAT,RPT_TYP,RPT_KND,RPT_FIL,RPT_FIL_NM) VALUES('%s','%s','%s','%s','%s')
|
|
</Sentence>
|
|
<Fields>RPT_DAT|RPT_TYP|RPT_KND|RPT_FIL|RPT_FIL_NM|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="Delrpt">
|
|
<Sentence>
|
|
DELETE CMMTRPTREG WHERE RPT_DAT=? AND RPT_TYP=? AND RPT_KND=? AND RPT_FIL=?
|
|
</Sentence>
|
|
<Fields>RPT_DAT|RPT_TYP|RPT_KND|RPT_FIL|</Fields>
|
|
</DynSentence>
|
|
</Macro>
|
|
<!--插入报表登记表-->
|
|
<Macro name="Do_SVRPro">
|
|
<Set>RPT_DAT=$GWA.AC_DT</Set>
|
|
<Set>RPT_KND=$RPT_KND</Set>
|
|
<Set>RPT_FIL=$raqname</Set>
|
|
<!--Set>TM_SMP=GETDATETIME()</Set-->
|
|
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="Delrpt"/>
|
|
</Exec>
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="Insrpt"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="000000"/>
|
|
<Arg name="MsgDat" value="插入报表登记表成功"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="20499"/>
|
|
<Arg name="MsgDat" value="数据库操作错误"/>
|
|
</Exec>
|
|
<Return/>
|
|
</Else>
|
|
</Macro>
|
|
</Define>
|
|
<ConfigDeclare>
|
|
<Config name="BatFormat" value="etc/cap/OCAPRPT1/CAP_RPT_FMT.XML" /> <!-- FMT格式文件声明 -->
|
|
</ConfigDeclare>
|
|
|
|
<Include file="etc/OCAPRPT1/204061_CTL.XML" desc="商户成功交易清单"/>
|
|
<Include file="etc/OCAPRPT1/204062_CTL.XML" desc="商户失败交易清单"/>
|
|
<Include file="etc/OCAPRPT1/204063_CTL.XML" desc="商户结算信息清单"/>
|
|
<Include file="etc/OCAPRPT1/204064_CTL.XML" desc="商户批量报盘清单"/>
|
|
<Include file="etc/OCAPRPT1/204065_CTL.XML" desc="商户批量回盘清单"/>
|
|
<Include file="etc/OCAPRPT1/204066_CTL.XML" desc="工商银行拨款文件清单"/>
|
|
|
|
</Application>
|