182 lines
7.9 KiB
XML
182 lines
7.9 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Package>
|
|
<!--交通对账:出账-->
|
|
<Function name="CUP_EXPORT">
|
|
<Output>MSG_CD|</Output>
|
|
<!--统计银联充值对账明细表(借方)-->
|
|
<DynSentence name="CNT_PPDTCKCP_CK1">
|
|
<Sentence>
|
|
SELECT COUNT(*) AS TOT_DR_NUM, NVL(SUM(TX_AMT),0) AS
|
|
TOT_DR_AMT
|
|
FROM PPDTCKCP
|
|
WHERE CP_TX_TYP='0002' AND CHK_BAT_NO=?
|
|
</Sentence>
|
|
<Fields>CHK_BAT_NO|</Fields>
|
|
</DynSentence>
|
|
<!--统计银联充值对账明细表(贷方)-->
|
|
<DynSentence name="CNT_PPDTCKCP_CK2">
|
|
<Sentence>
|
|
SELECT COUNT(*) AS TOT_CR_NUM, NVL(SUM(TX_AMT),0) AS
|
|
TOT_CR_AMT
|
|
FROM PPDTCKCP
|
|
WHERE CHK_BAT_NO=?
|
|
</Sentence>
|
|
<Fields>CHK_BAT_NO|</Fields>
|
|
</DynSentence>
|
|
<!-- 查询机构信息 -->
|
|
<DynSentence name="QRY_CMMTORGN">
|
|
<Sentence>
|
|
SELECT IN_AC_SEQ,CORG_NM FROM CMMTORGN WHERE CORP_ORG=?
|
|
</Sentence>
|
|
<Fields>RUT_CORG|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 更新对账总控表（出帐） -->
|
|
<DynSentence name="UPD_PWMTCKCT_EXPORT">
|
|
<Sentence>
|
|
UPDATE PWMTCKCT
|
|
SET CHK_FIL_STS = ?,
|
|
AC_DT = ?
|
|
WHERE
|
|
CHK_BAT_NO=?
|
|
</Sentence>
|
|
<Fields>CHK_FIL_STS|AC_DT|CHK_BAT_NO|
|
|
</Fields>
|
|
</DynSentence>
|
|
<Process>
|
|
<!-- 统计借方总金额 (借方总笔数) -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="CNT_PPDTCKCP_CK1" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg 统计借方总金额 (借方总笔数) -->
|
|
<Arg name="MsgCd" value="PWM22157" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
|
|
<!-- 统计贷方总金额 (贷方总笔数) -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="CNT_PPDTCKCP_CK2" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg 统计贷方总金额(贷方总笔数) -->
|
|
<Arg name="MsgCd" value="PWM22157" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<Set>TOT_AMT=SUBAMT($TOT_CR_AMT,$TOT_DR_AMT)</Set> <!-- 存入总金额： 贷方总金额 -借方总金额 -->
|
|
|
|
<!--查询机构信息-->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTORGN" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- 没有对应的路径合作机构(银联对账) -->
|
|
<Arg name="MsgCd" value="PWM22157" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- 查询路径合作机构失败(银联对账) -->
|
|
<Arg name="MsgCd" value="PWM22158" />
|
|
</Exec>
|
|
<Return />
|
|
</ElseIf>
|
|
|
|
<!-- 内部账户借记 -->
|
|
<Set>INP_DAT1.AC_CD=$IN_AC_SEQ</Set> <!--账户代码: 0005 -->
|
|
<Set>INP_DAT1.AC_TYP=302</Set> <!--账户种类: 303 -->
|
|
<Set>INP_DAT1.AC_NM=应收账款-待结算款-银联充值</Set> <!--账户名称 -->
|
|
<Set>INP_DAT1.CAP_TYP=1</Set> <!--资金种类: 1:现金-->
|
|
<Set>INP_DAT1.AMT=$TOT_AMT</Set> <!--存入金额 -->
|
|
<Set>INP_DAT1.TX_DT=$GWA.TX_DT</Set> <!-- 原始交易日期 -->
|
|
<Set>INP_DAT1.TX_TM=$GWA.TX_TM</Set> <!-- 原始交易时间 -->
|
|
<Set>INP_DAT1.TX_CD=$GWA.TX_CD</Set> <!-- 交易码 -->
|
|
<Set>INP_DAT1.TX_TYP=$GWA.TX_TYP</Set> <!-- 交易类型 -->
|
|
<Set>INP_DAT1.BUS_TYP=$GWA.BUS_TYP</Set> <!-- 业务类型 -->
|
|
<Set>INP_DAT1.SUB_BUS_TYP=</Set> <!-- 业务子类型 -->
|
|
<Set>INP_DAT1.TX_OPP_TYP=2</Set> <!-- 交易对手类型 -->
|
|
<Set>INP_DAT1.TX_OPP_ID=$RUT_CORG</Set> <!-- 交易对手编号 -->
|
|
<Set>INP_DAT1.TX_OPP_NM=$CORG_NM</Set> <!-- 交易对手名称 -->
|
|
<Set>INP_DAT1.OPP_AC=STRCAT(303,$IN_AC_SEQ)</Set> <!-- 对方账号 -->
|
|
<Set>INP_DAT1.TX_DESC=银联网银充值对账</Set> <!-- 交易描述 -->
|
|
<Set>INP_DAT1.ORD_TYP=10</Set> <!-- 订单类型（10：对账） -->
|
|
<Set>INP_DAT1.VCH_NO_TYP=0</Set> <!-- 传票号类型: 0：交易流水号 -->
|
|
<Set>INP_DAT1.VCH_NO=$GWA.JRN_NO</Set> <!-- 传票号: 缺省为交易流水号 -->
|
|
<Set>INP_DAT1.RVS_NO_TYP=0</Set> <!-- 销账号类型: 0：支付订单号 -->
|
|
<Set>INP_DAT1.UPD_FLG=N</Set> <!-- 是否强制更新余额: N:否 -->
|
|
<Exec func="ACM:InnerAccountWithdraw" error="IGNORE">
|
|
<Arg name="_I_GWA" value="GWA" />
|
|
<Arg name="_I_INP_DAT" value="INP_DAT1" />
|
|
<Arg name="_O_OUT_DAT" value="OUT_DAT1" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 内部账户存入 -->
|
|
<Set>INP_DAT.AC_CD=$IN_AC_SEQ</Set> <!-- 帐户代码 -->
|
|
<Set>INP_DAT.AC_TYP=303</Set> <!-- 账户种类 -->
|
|
<Set>INP_DAT.AC_NM=应收账款-渠道充值款-银联充值</Set> <!--账户名称 -->
|
|
<Set>INP_DAT.CAP_TYP=1</Set> <!--资金种类: 1:现金-->
|
|
<Set>INP_DAT.AMT=$TOT_AMT</Set> <!--存入金额 -->
|
|
<Set>INP_DAT.TX_DT=$GWA.TX_DT</Set> <!-- 原始交易日期 -->
|
|
<Set>INP_DAT.TX_TM=$GWA.TX_TM</Set> <!-- 原始交易时间 -->
|
|
<Set>INP_DAT.TX_CD=$GWA.TX_CD</Set> <!-- 交易码 -->
|
|
<Set>INP_DAT.TX_TYP=$GWA.TX_TYP</Set> <!-- 交易类型 -->
|
|
<Set>INP_DAT.BUS_TYP=$GWA.BUS_TYP</Set> <!-- 业务类型 -->
|
|
<Set>INP_DAT.SUB_BUS_TYP=</Set> <!-- 业务子类型 -->
|
|
<Set>INP_DAT.TX_OPP_TYP=2</Set> <!-- 交易对手类型 -->
|
|
<Set>INP_DAT.TX_OPP_ID=$RUT_CORG</Set> <!-- 交易对手编号 -->
|
|
<Set>INP_DAT.TX_OPP_NM=$CORG_NM</Set> <!-- 交易对手名称 -->
|
|
<Set>INP_DAT.OPP_AC=STRCAT(302,$IN_AC_SEQ)</Set> <!-- 对方账号 -->
|
|
<Set>INP_DAT.TX_DESC=银联网银充值对账</Set> <!-- 交易描述 -->
|
|
<Set>INP_DAT.VCH_NO_TYP=0</Set> <!-- 传票号类型: 0：交易流水号 -->
|
|
<Set>INP_DAT.VCH_NO=$GWA.JRN_NO</Set> <!-- 传票号: 缺省为交易流水号 -->
|
|
<Set>INP_DAT.RVS_NO_TYP=0</Set> <!-- 销账号类型: 0：支付订单号 -->
|
|
<Set>INP_DAT.UPD_FLG=N</Set> <!-- 是否强制更新余额: N:否 -->
|
|
<Exec func="ACM:InnerAccountDeposit" error="IGNORE">
|
|
<Arg name="_I_GWA" value="GWA" />
|
|
<Arg name="_I_INP_DAT" value="INP_DAT" />
|
|
<Arg name="_O_OUT_DAT" value="OUT_DAT" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 对账控制表所对应的字段 -->
|
|
<Set>AC_DT=$GWA.AC_DT</Set> <!-- 对账会计日期 -->
|
|
<Set>CHK_FIL_STS=4</Set> <!-- 更新对账状态为4:对账完成 -->
|
|
|
|
<!-- 更新对账总控表（出帐） -->
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="UPD_PWMTCKCT_EXPORT" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<!-- @msg 更新对账状态失败(银联)-->
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="PWM22454" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
|
|
<!-- 交易成功 -->
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="PWM00000" />
|
|
</Exec>
|
|
</Process>
|
|
</Function>
|
|
</Package> |