MrTech/ctg-app-cap
5
0
Fork 0
Code Releases Activity

电子回单

Browse Source
This commit is contained in:
Alawn
2022-06-29 14:06:43 +08:00
parent ea11aaa4f0
commit 0f0e6ed8d3
13 changed files with 888 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cap/etc/api/CCAHRO1_ITF.XML
+1
View File
@@ -108,6 +108,7 @@
<WriteElement name="payerAcctNo" ETF_name="PAYER_ACCT_NO" necessary="yes"/> <!--出款账户-->
<WriteElement name="payerAcctName" ETF_name="PAYER_ACCT_NAME" necessary="yes"/> <!--出款户名-->
<WriteElement name="remark" ETF_name="REMARK" necessary="yes"/> <!--备注-->
<WriteElement name="refundDate" ETF_name="REFUND_DATE" necessary="yes"/> <!--退票登记日期-->
</WriteGroupElement>
</WriteElement>
</WriteElement>
cap/etc/api/CCAHRO2_ITF.XML
+39 -4
View File
@@ -132,7 +132,7 @@
</WriteElement>
</Response>
</Transaction>
<Transaction code="acctWhitelistSync" service="ACCT_WHITELIST_SYNC" desc=" 账户白名单同步" log_switch="1" timeout="60">
<Request>
<Quote name="readHead"/>
@@ -143,7 +143,7 @@
<ReadElement name="acctNo" ETF_name="ACCT_NO" necessary="yes"/> <!--账号-->
<ReadElement name="acctName" ETF_name="ACCT_NAME" necessary="yes"/> <!--户名-->
<ReadElement name="receiptSyncFlag" ETF_name="RPT_SYC_FLG" necessary="no" /> <!--电子回单同步标志-->
<ReadElement name="billSyncFlag" ETF_name="BIL_SYC_FLG" necessary="no" /> <!--明细对账单同步标志-->
<ReadElement name="billSyncFlag" ETF_name="BIL_SYC_FLG" necessary="no" /> <!--明细对账单同步标志-->
<ReadElement name="enabled" ETF_name="ENABLED" necessary="yes"/> <!--是否启用 Y:启用 N:停用-->
</ReadElement>
</Request>
@@ -168,6 +168,41 @@
<Quote name="writeHead"/>
</WriteElement>
</Response>
</Transaction>
</Transaction>
<Transaction code="printReceiptApply" service="PRINT_RECEIPT_APPLY" desc="明细对账单申请" log_switch="1" timeout="60">
<Request>
<Quote name="readHead"/>
<ReadElement name="body">
<ReadElement name="acctName" ETF_name="ACCT_NAME" necessary="yes"/> <!--收款户名-->
<ReadElement name="payerAcctNo" ETF_name="PAYER_ACCT_NO" necessary="yes"/> <!--付款账号-->
<ReadElement name="startDate" ETF_name="START_DATE" necessary="yes"/> <!--开始时间-->
<ReadElement name="endDate" ETF_name="END_DATE" necessary="yes"/> <!--结束时间-->
<ReadElement name="taskID" ETF_name="TASK_ID" necessary="yes"/> <!--任务编号-->
</ReadElement>
</Request>
<Response>
<WriteElement name="Response">
<Quote name="writeHead"/>
</WriteElement>
</Response>
</Transaction>
<Transaction code="printReceiptResult" service="PRINT_RECEIPT_RESULT" desc="明细对账单结果查询" log_switch="1" timeout="60">
<Request>
<Quote name="readHead"/>
<ReadElement name="body">
<ReadElement name="taskID" ETF_name="TASK_ID" necessary="yes"/> <!--任务编号-->
</ReadElement>
</Request>
<Response>
<WriteElement name="Response">
<Quote name="writeHead"/>
<WriteElement name="body">
<WriteElement name="taskResult" ETF_name="TASK_RESULT" necessary="no"/> <!-- 申请打印结果 -->
<WriteElement name="filePath" ETF_name="FILE_PATH" necessary="no"/> <!-- 文件路径 -->
</WriteElement>
</WriteElement>
</Response>
</Transaction>
</Application>
cap/etc/batch/BAT_GETBILLSP_TIMER_CTL.XML
+73
View File
@@ -0,0 +1,73 @@
<?xml version='1.0' encoding='UTF-8'?>
<Tran>
<Transaction code="BAT_GETBILLSP_TIMER" log_switch='1' timeout="3600" desc="人工申请明细对账单定时发起">
<Attributes>
<Attribute name="nodatabase" value="2"/> <!--数据库长连接-->
</Attributes>
<DynSentence name="QRY_CAPPRINTTASK_LST">
<Sentence>
SELECT * FROM (
SELECT TASK_ID,PRT_ID FROM CAPPRINTTASK WHERE PRT_STS='1' AND PRT_DAT &gt;=? AND (SND_TM &lt;=?))
ORDER BY PRT_DAT,TASK_ID
</Sentence>
<Fields>CHECK_DATE|C_SND_TIME|</Fields>
</DynSentence>
<FlowCtrl>
<Quote name="Init_CAP01"/> <!--交易初始化-->
<If condition="ISNULL($CHECK_DATE)">
<Set>CHECK_DATE=CALCDATE(GETDATE(),-,d,3)</Set>
</If>
<If condition="ISNULL($SND_TIME_INTERVAL)">
<Set>SND_TIME_INTERVAL=2</Set>
</If>
<Set>C_SND_TIME=CALCTIME(GETDATETIME(MMDDHHMISS),-,m,$SND_TIME_INTERVAL)</Set>
<Exec func="PUB:OpenCursor" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPPRINTTASK_LST"/>
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<If condition="~RetCod=-1">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=数据库错误</Set>
<Return/>
</If>
<While>
<Exec func="PUB:FetchCursor" error="IGNORE">
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:CloseCursor" error="IGNORE"> <!-- 关闭游标 -->
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<Break/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=循环游标失败</Set>
<Return/>
</ElseIf>
<Set>TTXN_CD=GET_CMBBILL_SPECIAL</Set>
<Exec func="PUB:CallThirdService" error="IGNORE">
<Arg name="HTxnCd" value="$TTXN_CD" />
<Arg name="ObjSvr" value="OFRTCAP3" />
<Arg name="In" value="TASK_ID|PRT_ID|" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=发送批次失败</Set>
<Return/>
</If>
</While>
<Exec func="PUB:CloseCursor" error="IGNORE"> <!-- 关闭游标 -->
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<Exec func="PUB:CommitWork"/>
<Set>Rsp_Cd=00</Set>
<Set>Rsp_Msg=交易成功</Set>
</FlowCtrl>
</Transaction>
</Tran>
cap/etc/batch/BAT_ICBCRECEIPT_TIMER_CTL.XML
+6 -3
View File
@@ -7,14 +7,17 @@
<DynSentence name="QRY_CAPICBCJNLTOT_LST">
<Sentence>
SELECT * FROM (
SELECT ACCOUNT_NO,TRS_DATE FROM CAPICBCJNLTOT WHERE ACC_RPT_STS='1' AND TOT_CNT!='0' )
SELECT * FROM (
SELECT ACCOUNT_NO,TRS_DATE FROM CAPICBCJNLTOT WHERE ACC_RPT_STS='1' AND TOT_CNT!='0' AND TRS_DATE &gt;=?)
</Sentence>
<Fields>CHECK_DATE|</Fields>
</DynSentence>
<FlowCtrl>
<Quote name="Init_CAP01"/> <!--交易初始化-->
<If condition="ISNULL($CHECK_DATE)">
<Set>CHECK_DATE=CALCDATE(GETDATE(),-,d,4)</Set>
</If>
<Exec func="PUB:OpenCursor" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPICBCJNLTOT_LST"/>
<Arg name="CursorName" value="CURSOR_1"/>
cap/etc/batch/BAT_QRYBILLSP_TIMER_CTL.XML
+70
View File
@@ -0,0 +1,70 @@
<?xml version='1.0' encoding='UTF-8'?>
<Tran>
<Transaction code="BAT_QRYBILLSP_TIMER" log_switch='1' timeout="3600" desc="人工申请明细对账单查询定时发起">
<Attributes>
<Attribute name="nodatabase" value="2"/> <!--数据库长连接-->
</Attributes>
<DynSentence name="QRY_CAPPRINTTASK_LST">
<Sentence>
SELECT * FROM (
SELECT TASK_ID,STR_DAT,END_DAT,ACC_NBR,ACC_NAM,ACCT_TYPE TAC_TYP FROM CAPPRINTTASK WHERE PRT_STS='0' AND PRT_DAT &gt;=? )
ORDER BY PRT_DAT,TASK_ID
</Sentence>
<Fields>CHECK_DATE|</Fields>
</DynSentence>
<FlowCtrl>
<Quote name="Init_CAP01"/> <!--交易初始化-->
<If condition="ISNULL($CHECK_DATE)">
<Set>CHECK_DATE=CALCDATE(GETDATE(),-,d,3)</Set>
</If>
<Exec func="PUB:OpenCursor" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPPRINTTASK_LST"/>
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<If condition="~RetCod=-1">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=数据库错误</Set>
<Return/>
</If>
<While>
<Exec func="PUB:FetchCursor" error="IGNORE">
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:CloseCursor" error="IGNORE"> <!-- 关闭游标 -->
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<Break/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=循环游标失败</Set>
<Return/>
</ElseIf>
<Set>TTXN_CD=QRY_CMBBILL_SPECIAL</Set>
<Exec func="PUB:CallThirdService" error="IGNORE">
<Arg name="HTxnCd" value="$TTXN_CD" />
<Arg name="ObjSvr" value="OFRTCAP3" />
<Arg name="In" value="TASK_ID|STR_DAT|END_DAT|ACC_NBR|ACC_NAM|TAC_TYP|" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=发送批次失败</Set>
<Return/>
</If>
</While>
<Exec func="PUB:CloseCursor" error="IGNORE"> <!-- 关闭游标 -->
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<Exec func="PUB:CommitWork"/>
<Set>Rsp_Cd=00</Set>
<Set>Rsp_Msg=交易成功</Set>
</FlowCtrl>
</Transaction>
</Tran>
cap/etc/batch/BAT_QRYRECEIPT_TIMER_CTL.XML
+7 -4
View File
@@ -7,15 +7,18 @@
<DynSentence name="QRY_CAPCMBJNLTOT_LST">
<Sentence>
SELECT * FROM (
SELECT ACC_NBR EAC_NBR,TRS_DAT FROM CAPCMBJNLTOT WHERE ACC_RPT_STS='0' AND TOT_CNT!='0'
AND ACC_NBR IN (SELECT ACCT_NO ACC_NBR FROM CAPRECEIPTACCT WHERE RPT_SYC_FLG='Y'))
SELECT * FROM (
SELECT ACC_NBR EAC_NBR,TRS_DAT FROM CAPCMBJNLTOT WHERE ACC_RPT_STS='0' AND TOT_CNT!='0' AND TRS_DAT &gt;=?
AND ACC_NBR IN (SELECT ACCT_NO ACC_NBR FROM CAPRECEIPTACCT WHERE RPT_SYC_FLG='Y'))
</Sentence>
<Fields>CHECK_DATE|</Fields>
</DynSentence>
<FlowCtrl>
<Quote name="Init_CAP01"/> <!--交易初始化-->
<If condition="ISNULL($CHECK_DATE)">
<Set>CHECK_DATE=CALCDATE(GETDATE(),-,d,3)</Set>
</If>
<Exec func="PUB:OpenCursor" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPCMBJNLTOT_LST"/>
<Arg name="CursorName" value="CURSOR_1"/>
cap/etc/batch/BAT_ULDRECEIPTORI_TIMER_CTL.XML
+68
View File
@@ -0,0 +1,68 @@
<?xml version='1.0' encoding='UTF-8'?>
<Tran>
<Transaction code="BAT_ULDRECEIPTORI_TIMER" log_switch='1' timeout="3600" desc="获取账户电子回单定时发起">
<Attributes>
<Attribute name="nodatabase" value="2"/> <!--数据库长连接-->
</Attributes>
<DynSentence name="QRY_CAPCMBJNLTOT_LST">
<Sentence>
SELECT * FROM (
SELECT ACC_NBR,TRS_DAT FROM CAPCMBJNLTOT WHERE ACC_RPT_STS='4' AND TOT_CNT!='0' AND TRS_DAT &gt;=?)
ORDER BY ACC_NBR
</Sentence>
<Fields>CHECK_DATE|</Fields>
</DynSentence>
<FlowCtrl>
<Quote name="Init_CAP01"/> <!--交易初始化-->
<If condition="ISNULL($CHECK_DATE)">
<Set>CHECK_DATE=CALCDATE(GETDATE(),-,d,3)</Set>
</If>
<Exec func="PUB:OpenCursor" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPCMBJNLTOT_LST"/>
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<If condition="~RetCod=-1">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=数据库错误</Set>
<Return/>
</If>
<While>
<Exec func="PUB:FetchCursor" error="IGNORE">
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:CloseCursor" error="IGNORE"> <!-- 关闭游标 -->
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<Break/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=循环游标失败</Set>
<Return/>
</ElseIf>
<Set>TTXN_CD=GET_CMBRECEIPT</Set>
<Exec func="PUB:CallThirdService" error="IGNORE">
<Arg name="HTxnCd" value="$TTXN_CD" />
<Arg name="ObjSvr" value="OFRTCAP3" />
<Arg name="In" value="ACC_NBR|TRS_DAT|" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=发送批次失败</Set>
<Return/>
</If>
</While>
<Exec func="PUB:CloseCursor" error="IGNORE"> <!-- 关闭游标 -->
<Arg name="CursorName" value="CURSOR_1"/>
</Exec>
<Exec func="PUB:CommitWork"/>
<Set>Rsp_Cd=00</Set>
<Set>Rsp_Msg=交易成功</Set>
</FlowCtrl>
</Transaction>
</Tran>
cap/etc/batch/OFRTCAP3_CTL.XML
+6
View File
@@ -54,5 +54,11 @@
<Include file="etc/batch/BAT_ICBCRECEIPT_TIMER_CTL.XML"/> <!--工行电子回单上传定时发起 -->
<Include file="etc/batch/ACCT_WHITELIST_SYNC.XML"/> <!--账户白名单同步 -->
<Include file="etc/batch/SPECIAL_ROUTE_SYNC.XML"/> <!--特殊路由信息同步 -->
<Include file="etc/batch/PRINT_RECEIPT_APPLY.XML"/> <!--明细对账单申请 -->
<Include file="etc/batch/PRINT_RECEIPT_RESULT.XML"/> <!--明细对账单结果查询 -->
<Include file="etc/batch/BAT_QRYBILLSP_TIMER_CTL.XML"/> <!--人工申请明细对账单查询定时发起 -->
<Include file="etc/batch/BAT_GETBILLSP_TIMER_CTL.XML"/> <!--人工申请明细对账单获取定时发起 -->
<Include file="etc/batch/BAT_ULDRECEIPTORI_TIMER_CTL.XML"/> <!--电子回单原始文件上传发起 -->
<Include file="etc/batch/BAT_ICBCDOWNLOAD_TIMER_CTL.XML"/> <!--工行电子回单补发获取-->
</Application>
cap/etc/batch/PRINT_RECEIPT_APPLY.XML
+79
View File
@@ -0,0 +1,79 @@
<?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>
cap/etc/batch/PRINT_RECEIPT_RESULT.XML
+45
View File
@@ -0,0 +1,45 @@
<?xml version="1.0" encoding="UTF-8"?>
<Tran>
<!-- 明细打印申请结果查询 -->
<Transaction code="PRINT_RECEIPT_RESULT" log_switch='1' desc="结果查询">
<DynSentence name="QRY_CAPPRINTTASK_INF"><!--查询申请信息是否存在 -->
<Sentence>
SELECT PRT_STS TASK_RESULT,LCL_FIL_ID FILE_PATH FROM CAPPRINTTASK
WHERE TASK_ID=?
</Sentence>
<Fields>TASK_ID|</Fields>
</DynSentence>
<FlowCtrl>
<!--清理数据 -->
<Delete>RSP_CD</Delete>
<Delete>RSP_MSG</Delete>
<Set>TM_SMP=GETDATETIME()</Set>
<!--检查支付地信息是否存在-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPPRINTTASK_INF"/>
</Exec>
<If condition="~RetCod=0"><!-- 查询成功-->
<!-- 交易成功 -->
<Set>RSP_CD=00</Set>
<Set>RSP_MSG=交易成功</Set>
<Return/>
</If>
<ElseIf condition="~RetCod=2"><!--信息不存在-->
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=该任务申请不存在</Set>
<Return/>
</ElseIf>
<Else><!--数据库查询错误-->
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=查询数据库失败</Set>
<Return/>
</Else>
</FlowCtrl>
</Transaction>
</Tran>
cap/etc/batch/REFUND_QUERY_CTL.XML
+1 -1
View File
@@ -8,7 +8,7 @@
SELECT DSK_NAM AS DISK_NO,CAP_ORD_NO AS TRANS_ID,MERC_ORD_NO REF_ID,BTH_DTL BANK_REFID,EAC_NBR ACCT_NO,EAC_NAM ACCT_NAME,
TRS_DAT TRANS_DATE,STS_COD TRANS_STS,TRS_AMT * 100 AMOUNT,RTN_COD REFUND_CODE,RTN_TXT REFUND_PS,
TAC_NO PAYER_ACCT_NO,TAC_NAM PAYER_ACCT_NAME,TXT_CLT REMARK,
decode(STS_COD,'A','待处理','C','取消','E','失败','I','待复核','S','成功','其他') AS transStsMsg
decode(STS_COD,'A','待处理','C','取消','E','失败','I','待复核','S','成功','其他') AS transStsMsg,SUBSTR(TM_SMP,1,8) REFUND_DATE
FROM CAPCMBRFD
WHERE trs_dat between ? and ?
</Sentence>
cap/etc/batch/TRANS_QUERY.XML
+10 -2
View File
@@ -13,7 +13,7 @@
rpy_bnk AS BANK_NAME,
yur_ref AS BATCH_ID,
ref_nbr AS BANK_REF_ID,
(trs_amt * 100) AS AMOUNT,
(trs_amt * 100) AS AMOUNT,
L_POSTSCRIPT AS POSTSCRIPT,
acc_nbr AS TITLE_ACCT_NO,
ACC_NAM AS TITLE_ACCT_NAME,
@@ -50,7 +50,7 @@
rpy_bnk AS BANK_NAME,
yur_ref AS BATCH_ID,
ref_nbr AS BANK_REF_ID,
(trs_amt * 100) AS AMOUNT,
(trs_amt * 100) AS AMOUNT,
L_POSTSCRIPT AS POSTSCRIPT,
acc_nbr AS TITLE_ACCT_NO,
ACC_NAM AS TITLE_ACCT_NAME,
@@ -189,6 +189,7 @@
</Else>
<Set>BANK_DC_FLAG=$DC_FLAG</Set>
<If condition="IS_EQUAL_STRING($BANK_CODE,CMB)">
@@ -206,6 +207,13 @@
<Else>
<Set>QRY_SQL=QRY_CAPICBCCURJNL_INF</Set>
</Else>
<If condition="IS_EQUAL_STRING($BANK_DC_FLAG,C)">
<Set>BANK_DC_FLAG=2</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($BANK_DC_FLAG,D)">
<Set>BANK_DC_FLAG=1</Set>
</ElseIf>
</ElseIf>
<Else>
<Set>RSP_CD=80</Set>
cap/etc/channel/cmb/QUERY_CMB.XML
+483 -6
View File
@@ -886,8 +886,8 @@
<Exec func="PUB:DeleteFile" error="IGNORE">
<Arg name="FilNam" value="STRCAT($FIL_DIR,$R_FILE_NAME)"/>
</Exec>
</Exec>
<!--更新账户回单信息-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CAPCMBHIJNL"/>
@@ -972,6 +972,15 @@
<Fields>BIL_SND_TM|BIL_PRT_ID|BIL_TOT_CNT|ACC_NBR|TRS_DAT|REF_NBR|</Fields>
</DynSentence>
<DynSentence name="UPD_CAPCMBHIJNL_FAIL">
<Sentence>
UPDATE CAPCMBHIJNL
SET BIL_RPT_STS='5',BIL_SND_TM=?
WHERE ACC_NBR=? AND TRS_DAT=? AND REF_NBR=? AND BIL_RPT_STS='0'
</Sentence>
<Fields>BIL_SND_TM|ACC_NBR|TRS_DAT|REF_NBR|</Fields>
</DynSentence>
<DynSentence name="UPD_CAPCMBJNLTOT">
<Sentence>
UPDATE CAPCMBJNLTOT
@@ -1008,8 +1017,8 @@
<Exec func="PUB:DumpETF"/>
</If>
</Process>
</Function>
</Function>
<FlowCtrl>
<Delete>TRSP_CD</Delete>
<Delete>TRSP_MSG</Delete>
@@ -1134,7 +1143,18 @@
<Set>BIL_PRT_ID=$PRINTID</Set>
<Set>BIL_TOT_CNT=$TOTAL</Set>
<If condition="ISNULL(DELBOTHSPACE($PRINTID))">
<!--对于任务ID为空的情况认为查询不到对账单 一般此种情形 为整批次全部失败或退款-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CAPCMBHIJNL_FAIL"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新数据失败</Set>
<Return/>
</If>
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=该笔明细对账单任务ID为空</Set>
<Continue/>
@@ -1238,7 +1258,7 @@
<Sentence>
UPDATE CAPCMBJNLTOT
SET BIL_STS='4'
WHERE ACC_NBR=? AND TRS_DAT=?
WHERE ACC_NBR=? AND TRS_DAT=? AND BIL_STS='1'
</Sentence>
<Fields>ACC_NBR|TRS_DAT|</Fields>
</DynSentence>
@@ -1434,7 +1454,7 @@
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CAPCMBJNLTOT"/>
</Exec>
<If condition="~RetCod!=0">
<If condition="~RetCod=-1">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=登记明细信息表失败</Set>
<Exec func="PUB:RollbackWork" />
@@ -1819,4 +1839,461 @@
<Set>RSP_MSG=交易成功</Set>
</FlowCtrl>
</Transaction>
<!-- 招行代发明细对账单人工申请 ADD BY 20220425-->
<Transaction code="QRY_CMBBILL_SPECIAL" log_switch='1' timeout="3600" desc="招行明细对账单人工申请">
<DynSentence name="UPD_CAPPRINTTASK">
<Sentence>
UPDATE CAPPRINTTASK"
SET PRT_STS=?,SND_TM=?,PRT_ID=?,TOT_CNT=?,PRT_RMK=?
WHERE TASK_ID=? AND PRT_STS='0'
</Sentence>
<Fields>SND_TM|PRT_ID|TOT_CNT|RSP_MSG|TASK_ID|</Fields>
</DynSentence>
<Function name="_before">
<Process>
<Exec func="PUB:DumpETF"/>
<Set>LockKey=STRCAT($TXN_CD,$TASK_ID)</Set>
<!-- 应用加锁,防止并发 -->
<Exec func="PUB:Lock" error="IGNORE">
<Arg name="RecKey" value="$LockKey" error="IGNORE"/>
<Arg name="TimOut" value="600" />
<Arg name="AutoUnlock" value="no" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=加锁失败</Set>
<Exit/>
</If>
<Set>IS_LOCKED=TRUE</Set>
</Process>
</Function>
<Function name="_after">
<Process>
<If condition="IS_EQUAL_STRING($IS_LOCKED,TRUE)">
<Exec func="PUB:UnLock" error="IGNORE">
<Arg name="RecKey" value="$LockKey" />
</Exec>
<Exec func="PUB:DumpETF"/>
</If>
</Process>
</Function>
<FlowCtrl>
<Delete>TRSP_CD</Delete>
<Delete>TRSP_MSG</Delete>
<Delete>PRT_STS</Delete>
<Quote name="Batch_Cfg_CMB"/>
<Set>ACC_NBR=$ACC_NBR</Set>
<Set>begdat=$STR_DAT</Set>
<Set>enddat=$END_DAT</Set>
<Set>begdat=FMTDATE($begdat,0,4)</Set>
<Set>enddat=FMTDATE($enddat,0,4)</Set>
<Set>TAC_TYP=$TAC_TYP</Set>
<If condition="IS_EQUAL_STRING($TAC_TYP,B)">
<!--代发工资-->
<Set>busmod=$PARA.BUSMOD1</Set>
<Set>buscod=N03010</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TAC_TYP,N)">
<!--代发其它-->
<Set>busmod=$PARA.BUSMOD2</Set>
<Set>buscod=N03020</Set>
</ElseIf>
<Else>
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=无此路由</Set>
<Return/>
</Else>
<Delete>RESULTCODE</Delete>
<Delete>RESULTMSG</Delete>
<Delete>BEGIDX</Delete>
<Delete>PRINTID</Delete>
<Delete>TOTAL</Delete>
<Set>TX_COD=DCAGPPDF</Set><!--查询交易码-->
<Set>TMP_TM=GETDATETIME()</Set>
<Set>reqid=STRCAT($TMP_TM,$TASK_ID)</Set>
<Set>userid=$PARA.USERID</Set>
<Set>payeac=$ACC_NBR</Set>
<Set>begdat=$begdat</Set>
<Set>enddat=$enddat</Set>
<Set>eacnam=$ACC_NAM</Set>
<!--调用查询接口-->
<Exec func="PUB:CallThirdComm" error="IGNORE">
<Arg name="HTxnCd" value="$TX_COD"/>
<Arg name="ObjSvr" value="SCMBPAY2"/>
</Exec>
<If condition="~RetCod !=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=查询失败</Set>
<Return/>
</If>
<Set>RSP_MSG=查询成功</Set>
<Set>PRT_STS=1</Set>
<Set>RESULTCODE=$RESULTCODE</Set>
<If condition="ISNULL($RESULTCODE)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=$RESULTMSG</Set>
<Return/>
</If>
<ElseIf condition="IS_EQUAL_STRING($RESULTCODE,PRTBIZ1)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=等待处理的任务数超过上限</Set>
<Return/>
</ElseIf>
<ElseIf condition="IS_NOEQUAL_STRING($RESULTCODE,SUC0000)">
<Set>PRT_STS=2</Set>
<Set>Rsp_Msg=$RESULTMSG</Set>
</ElseIf>
<Set>BEGIDX=$BEGIDX</Set>
<If condition="NOT(ISNULL(DELBOTHSPACE($BEGIDX)))">
<Set>PRT_STS=2</Set>
<Set>Rsp_Msg=对账单查询超限</Set>
</If>
<Set>SND_TM=GETDATETIME(MMDDHHMISS)</Set>
<Set>PRT_ID=$PRINTID</Set>
<Set>TOT_CNT=$TOTAL</Set>
<If condition="ISNULL(DELBOTHSPACE($PRINTID))">
<Set>PRT_STS=2</Set>
<Set>Rsp_Msg=无此用户对账单</Set>
</If>
<!--更新明细对账单信息-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CAPPRINTTASK"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新数据失败</Set>
<Return/>
</If>
<Exec func="PUB:CommitWork"/>
<Delete>STR_DAT</Delete>
<Delete>END_DAT</Delete>
<Delete>ACC_NBR</Delete>
<Delete>TAC_TYP</Delete>
<!-- 交易成功 -->
<Set>RSP_CD=00</Set>
<Set>RSP_MSG=交易成功</Set>
</FlowCtrl>
</Transaction>
<!-- 人工申请招行明细对账单获取 并上传-->
<Transaction code="GET_CMBBILL_SPECIAL" log_switch='1' timeout="3600" desc="人工申请招行明细对账单获取">
<DynSentence name="UPD_CAPPRINTTASK">
<Sentence>
UPDATE CAPPRINTTASK
SET PRT_STS='4',GET_TM=?,FIL_NAM=?,FIL_URL=?,LCL_FIL_ID=?,LCL_FIL_URL=?,FIN_TIM=?
WHERE TASK_ID=? AND PRT_STS='1'
</Sentence>
<Fields>GET_TM|FIL_NAM|FIL_URL|LCL_FIL_ID|LCL_FIL_URL|FIN_TIM|TASK_ID|</Fields>
</DynSentence>
<Function name="_before">
<Process>
<Exec func="PUB:DumpETF"/>
<Set>LockKey=STRCAT($TXN_CD,$TASK_ID)</Set>
<!-- 应用加锁,防止并发 -->
<Exec func="PUB:Lock" error="IGNORE">
<Arg name="RecKey" value="$LockKey" error="IGNORE"/>
<Arg name="TimOut" value="600" />
<Arg name="AutoUnlock" value="no" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=加锁失败</Set>
<Exit/>
</If>
<Set>IS_LOCKED=TRUE</Set>
</Process>
</Function>
<Function name="_after">
<Process>
<If condition="IS_EQUAL_STRING($IS_LOCKED,TRUE)">
<Exec func="PUB:UnLock" error="IGNORE">
<Arg name="RecKey" value="$LockKey" />
</Exec>
<Exec func="PUB:DumpETF"/>
</If>
</Process>
</Function>
<FlowCtrl>
<Delete>TRSP_CD</Delete>
<Delete>TRSP_MSG</Delete>
<Quote name="Batch_Cfg_CMB"/>
<Set>ACC_NBR=$ACC_NBR</Set>
<Set>trs_dat=$trs_dat</Set>
<Set>CHK_DAT_TMP=GETDATE()</Set>
<Set>CHK_DAT=CALCDATE($CHK_DAT_TMP,-,d,1)</Set>
<If condition="ISNULL($trs_dat)">
<Set>trs_dat=$CHK_DAT</Set>
</If>
<Delete>RESULTCODE</Delete>
<Delete>RESULTMSG</Delete>
<Delete>fileurl</Delete>
<Delete>fintim</Delete>
<Delete>FIL_NAM</Delete>
<Delete>FIL_URL</Delete>
<Delete>LCL_FIL_ID</Delete>
<Delete>LCL_FIL_URL</Delete>
<Delete>OUT_DAT</Delete>
<Set>TM_SMP=GETDATETIME()</Set>
<Set>GET_TM=$TM_SMP</Set>
<Set>TX_COD=DCTASKID</Set><!--查询交易码-->
<Set>reqid=STRCAT($TM_SMP,002,$TASK_ID)</Set>
<Set>taskid=$PRT_ID</Set>
<Set>userid=$PARA.USERID</Set>
<Exec func="PUB:CallThirdComm" error="IGNORE">
<Arg name="HTxnCd" value="$TX_COD"/>
<Arg name="ObjSvr" value="SCMBPAY2"/>
</Exec>
<If condition="~RetCod !=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=获取文件失败</Set>
<Return/>
</If>
<Set>RESULTCODE=$RESULTCODE</Set>
<If condition="ISNULL($RESULTCODE)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=$RESULTMSG</Set>
<Return/>
</If>
<ElseIf condition="IS_NOEQUAL_STRING($RESULTCODE,SUC0000)"> <!-- PRTASYNC 错误码表示等待处理中 其他错误码属于系统异常 -->
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=$RESULTMSG</Set>
<Return/>
</ElseIf>
<Set>FIL_URL=$fileurl</Set>
<Set>FIN_TIM=$fintim</Set>
<If condition="ISNULL($FIL_URL)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=银行返回文件URL为空</Set>
<Return/>
</If>
<Set>FIL_DIR=STRCAT(/home/capadm/dat/receipt/cmb,/,special,/)</Set>
<Set>BIL_FIL_NAM=STRCAT(PRT,_,$TASK_ID,.,zip)</Set>
<Set>SHELL_NAME=STRCAT(/home/capadm/app/cap/etc/common/shell/,downloadCMBBILL.sh)</Set>
<Exec func="PUB:SystemAndWait" error="IGNORE">
<Arg name="cmd" value="$SHELL_NAME"/>
<Arg name="FILE_URL" value="$FIL_URL"/>
<Arg name="FILE_PATH" value="$FIL_DIR"/>
<Arg name="FILE_NAME" value="$BIL_FIL_NAM"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=下载文件失败</Set>
<Exec func="PUB:RollbackWork" />
<Return/>
</If>
<Set>FILE_NAME=STRCAT($FIL_DIR,$BIL_FIL_NAM)</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Set>LCLFIL_URL=$OUT_DAT.FILE_URL</Set>
<Set>LCL_FIL_ID=$OUT_DAT.FILE_ID</Set>
<If condition="ISNULL($LCL_FIL_URL)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=文件上传失败</Set>
<Return/>
</If>
<ElseIf condition="ISNULL($LCL_FIL_ID)">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=文件上传失败</Set>
<Return/>
</ElseIf>
<!--更新明细对账单信息-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CAPPRINTTASK"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新数据失败</Set>
<Return/>
</If>
<Exec func="PUB:CommitWork"/>
<Delete>TASK_ID</Delete>
<!-- 交易成功 -->
<Set>RSP_CD=00</Set>
<Set>RSP_MSG=交易成功</Set>
</FlowCtrl>
</Transaction>
<!-- 招行电子回单原始文件上传 -->
<Transaction code="UPLOAD_CMBRECEIPT_ORI" log_switch='1' timeout="3600" desc="招行电子回单原始文件上传">
<Attributes>
<Attribute name="nodatabase" value="2"/> <!--数据库长连接-->
</Attributes>
<DynSentence name="QRY_CAPCMBRECEIPT_INF">
<Sentence>
SELECT RTN_NUM,RTN_DAT,ACC_NBR
FROM CAPCMBRECEIPT
WHERE ACC_NBR=? AND TRS_DAT=? AND RPT_STS='2'
</Sentence>
<Fields>ACC_NBR|TRS_DAT|</Fields>
</DynSentence>
<DynSentence name="UPD_CAPCMBRECEIPT">
<Sentence>
UPDATE CAPCMBRECEIPT
SET RPT_STS='4',LCL_FIL_URL=?,LCL_FIL_ID=?,ULD_TM=?
WHERE ACC_NBR=? AND TRS_DAT=? AND RPT_STS='2' AND RTN_NUM =?
</Sentence>
<Fields>LCL_FIL_URL|LCL_FIL_ID|ULD_TM|ACC_NBR|TRS_DAT|RTN_NUM|</Fields>
</DynSentence>
<FlowCtrl>
<Delete>TRSP_CD</Delete>
<Delete>TRSP_MSG</Delete>
<Delete>RTN_NUM</Delete>
<Delete>RTN_DAT</Delete>
<!--读取参数配置 -->
<Quote name="Batch_Cfg_CMB"/>
<Set>userid=$PARA.USERID</Set>
<Set>ACC_NBR=$ACC_NBR</Set>
<Set>trs_dat=$trs_dat</Set>
<Set>CHK_DAT_TMP=GETDATE()</Set>
<Set>CHK_DAT=CALCDATE($CHK_DAT_TMP,-,d,1)</Set>
<If condition="ISNULL($trs_dat)">
<Set>trs_dat=$CHK_DAT</Set>
</If>
<!--读取需要获取文件地址 -->
<Exec func="PUB:OpenCursor" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPCMBRECEIPT_INF"/>
<Arg name="CursorName" value="CURSOR_2"/>
</Exec>
<If condition="~RetCod=-1">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=游标查询失败</Set>
<Return/>
</If>
<While>
<Exec func="PUB:FetchCursor" error="IGNORE">
<Arg name="CursorName" value="CURSOR_2"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:CloseCursor" error="IGNORE">
<Arg name="CursorName" value="CURSOR_2"/>
</Exec>
<Break/>
</If>
<ElseIf condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=循环游标失败</Set>
<Exec func="PUB:RollbackWork"/>
<Return/>
</ElseIf>
<Delete>RESULTCODE</Delete>
<Delete>RESULTMSG</Delete>
<Delete>LCL_FIL_ID</Delete>
<Delete>LCL_FIL_URL</Delete>
<Delete>OUT_DAT</Delete>
<Delete>FIL_DIR</Delete>
<Delete>FIL_NAM</Delete>
<Set>TM_SMP=GETDATETIME()</Set>
<Set>ULD_TM=$TM_SMP</Set>
<Set>FIL_DIR=STRCAT(/home/capadm/dat/receipt/cmb,/,$TRS_DAT,/,$ACC_NBR,/)</Set>
<Set>FIL_NAM=STRCAT($ACC_NBR,$TRS_DAT,$RTN_NUM,.,zip)</Set>
<Set>FILE_NAME=STRCAT($FIL_DIR,$FIL_NAM)</Set>
<Call package="UPLOAD_FILE" function="UPLOAD_FILE">
</Call>
<Exec func="PUB:DumpETF" />
<Set>LCL_FIL_URL=$OUT_DAT.FILE_URL</Set>
<Set>LCL_FIL_ID=$OUT_DAT.FILE_ID</Set>
<If condition="ISNULL($LCL_FIL_URL)">
<Set>UPD_FLG=0</Set>
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=文件上传失败进行下一笔</Set>
<Continue/>
</If>
<ElseIf condition="ISNULL($LCL_FIL_ID)">
<Set>UPD_FLG=0</Set>
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=文件上传失败进行下一笔</Set>
<Continue/>
</ElseIf>
<!--更新账户回单信息-->
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CAPCMBRECEIPT"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=更新数据失败</Set>
<Exec func="PUB:RollbackWork" />
<Return/>
</If>
<Exec func="PUB:CommitWork"/>
</While>
<Exec func="PUB:CloseCursor" error="IGNORE"> <!-- 关闭游标 -->
<Arg name="CursorName" value="CURSOR_2"/>
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=关闭游标失败</Set>
<Exec func="PUB:RollbackWork" />
<Return/>
</If>
<Delete>TRS_DAT</Delete>
<Delete>ACC_NBR</Delete>
<!-- 交易成功 -->
<Set>RSP_CD=00</Set>
<Set>RSP_MSG=交易成功</Set>
</FlowCtrl>
</Transaction>
</Tran>