80 lines
2.9 KiB
XML
80 lines
2.9 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<Tran>
|
|
<!-- 明细打印申请 -->
|
|
<Transaction code="PRINT_RECEIPT_APPLY" log_switch='1' desc="信息同步">
|
|
|
|
<DynSentence name="QRY_CAPPRINTTASK_INF"><!--查询申请信息是否存在 -->
|
|
<Sentence>
|
|
SELECT 'Y' YN FROM CAPPRINTTASK
|
|
WHERE TASK_ID=?
|
|
</Sentence>
|
|
<Fields>TASK_ID|</Fields>
|
|
</DynSentence>
|
|
|
|
|
|
<DynSentence name="QRY_CAPRECEIPTACCT_INF"><!-- 查询付款账户是否存在 -->
|
|
<Sentence>
|
|
SELECT ACCT_TYPE FROM CAPRECEIPTACCT WHERE BIL_SYC_FLG='Y' AND ACC_NBR=?
|
|
</Sentence>
|
|
<Fields>ACC_NBR|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<!--清理数据 -->
|
|
<Delete>RSP_CD</Delete>
|
|
<Delete>RSP_MSG</Delete>
|
|
<Set>ACC_NBR=$PAYER_ACCT_NO</Set>
|
|
<Set>ACC_NAM=$ACCT_NAME</Set>
|
|
<Set>STR_DAT=$START_DATE</Set>
|
|
<Set>END_DAT=$END_DATE</Set>
|
|
|
|
<Set>TM_SMP=GETDATETIME()</Set>
|
|
<!--检查付款账户信息是否存在-->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CAPRECEIPTACCT_INF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2"><!-- 账户信息不存在-->
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=付款账户不支持获取明细对账单</Set>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1"><!--数据库查询失败-->
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=查询付款账户信息数据库异常</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
|
|
<!--检查支付地信息是否存在-->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CAPPRINTTASK_INF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=2"><!-- 信息不存在则插入新增数据-->
|
|
<Set>CRE_DT=$UPD_DT</Set>
|
|
<Set>CRE_TM=$UPD_TM</Set>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CAPPRINTTASK" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=数据库操作错误</Set>
|
|
<Return />
|
|
</If>
|
|
</If>
|
|
<ElseIf condition="~RetCod=0"><!--信息已存在则更新数据-->
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=该任务申请已经存在</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else><!--数据库查询错误-->
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=查询数据库失败</Set>
|
|
<Return/>
|
|
</Else>
|
|
|
|
<!-- 交易成功 -->
|
|
<Set>RSP_CD=00</Set>
|
|
<Set>RSP_MSG=交易成功</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Tran>
|