MrTech/ctg-app-cap
5
0
Fork 0
Code Releases Activity
Files
dev
ctg-app-cap/cap/etc/batch/MACRO_BAT_RESEND.XML
T
alawn b79e3e731f 新版本
2021-01-12 23:30:48 +08:00

165 lines
7.8 KiB
XML
Raw Permalink Blame History

<?xml version='1.0' encoding='UTF-8'?>
<FrontTab>
<Macro name="GET_BAT_PARA" desc="生成重发批次参数">
<Set>TACC_TM=GETDATETIME()</Set>
<Set>SND_DT=SUBSTR($TACC_TM,1,8)</Set>
<Set>SND_TM=SUBSTR($TACC_TM,9,6)</Set>
<Switch expression="$CORG_NO">
<!--农行参数-->
<Case value="ABC">
<Quote name="GET_CUP_BAT_NO"/> <!--取银联批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<Quote name="Batch_Cfg_ABC"/>
<Exec func="PUB:GetUniqueNo">
<Arg name="Name" value="nextval" />
<Arg name="SeqNam" value="abc_sequence" />
<Arg name="Len" value="4" />
</Exec>
<If condition="~RetCod!=0">
<Set>Rsp_Cd=80</Set>
<Set>Rsp_Msg=内部错误</Set>
<Return />
</If>
<Set>FileNum=$nextval</Set><!--文件序号-->
<Delete>nextval</Delete>
<Set>MercCode=$MercCode</Set> <!--商户号-->
<Set>ProNum=$ProNum</Set><!--项目号-->
<Set>CORG_FIL_NAM=STRCAT($MercCode,_,$ProNum,_,$TXN_MOD,_,GETDATETIME(YYMMDD),_,$FileNum)</Set>
<Break/>
</Case>
<!--交行参数-->
<Case value="BCOM">
<Quote name="GET_CUP_BAT_NO"/> <!--获取批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<If condition="IS_EQUAL_STRING($TXN_MOD,01)"> <!--代收-->
<Set>CORG_FIL_NAM=STRCAT(bcomds,GETDATETIME(YYYYMMDD),$CORG_DSK_NO)</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TXN_MOD,02)"> <!--代付-->
<Set>CORG_FIL_NAM=STRCAT(bcomdf,GETDATETIME(YYYYMMDD),$CORG_DSK_NO)</Set>
</ElseIf>
<Break/>
</Case>
<!--中行参数-->
<Case value="BOC">
<Quote name="GET_BOC_CAP_ORD_NO"/> <!--获取批次号-->
<Set>CORG_DSK_NO=$CAP_ORD_NO</Set>
<If condition="IS_EQUAL_STRING($TXN_MOD,01)"> <!--代收-->
<Set>CORG_FIL_NAM=STRCAT(zhds,GETDATETIME(YYMMDD),$CORG_DSK_NO)</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TXN_MOD,02)"> <!--代付-->
<Set>CORG_FIL_NAM=STRCAT(zhdf,GETDATETIME(YYMMDD),$CORG_DSK_NO)</Set>
</ElseIf>
<Break/>
</Case>
<!--光大参数-->
<Case value="CEB">
<Quote name="GET_CEB_BAT_NO"/> <!--获取批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CEB_CORG_DSK_NO)</Set>
<If condition="IS_EQUAL_STRING($TXN_MOD,01)"> <!--代收-->
<Set>CORG_FIL_NAM=STRCAT(PAF,2,$CEB_CORG_DSK_NO)</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TXN_MOD,02)"> <!--代付-->
<Set>CORG_FIL_NAM=STRCAT(PAF,1,$CEB_CORG_DSK_NO)</Set>
</ElseIf>
<Break/>
</Case>
<!--建行参数-->
<Case value="CCBBAT">
<Quote name="GET_CUP_BAT_NO"/> <!--取银联批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<Set>CORG_FIL_NAM=STRCAT(batReq_,CCBBAT,_,GETDATETIME(YYYYMMDD),_,$CORG_DSK_NO,.txt)</Set>
<Break/>
</Case>
<Case value="CCBBATP">
<Quote name="GET_CUP_BAT_NO"/> <!--取银联批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<Set>CORG_FIL_NAM=STRCAT(batReq_,CCBBAT,_,GETDATETIME(YYYYMMDD),_,$CORG_DSK_NO,.txt)</Set>
<Break/>
</Case>
<Case value="CCBBATR">
<Quote name="GET_CUP_BAT_NO"/> <!--取银联批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<Set>CORG_FIL_NAM=STRCAT(batReq_,CCBBAT,_,GETDATETIME(YYYYMMDD),_,$CORG_DSK_NO,.txt)</Set>
<Break/>
</Case>
<!--中信银行参数-->
<Case value="CITIC">
<Quote name="GET_CUP_BAT_NO"/> <!--获取批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<If condition="IS_EQUAL_STRING($TXN_MOD,01)"> <!--代收-->
<Set>CORG_FIL_NAM=STRCAT(citicds,GETDATETIME(YYYYMMDD),$CORG_DSK_NO)</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TXN_MOD,02)"> <!--代付-->
<Set>CORG_FIL_NAM=STRCAT(citicdf,GETDATETIME(YYYYMMDD),$CORG_DSK_NO)</Set>
</ElseIf>
<Break/>
</Case>
<!--民生参数-->
<Case value="CMBC">
<Quote name="GET_CUP_BAT_NO"/> <!--取民生批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<Set>CORG_FIL_NAM=STRCAT(batReq_,$CORG_NO,_,GETDATETIME(YYMMDD),_,$CORG_DSK_NO,.txt)</Set>
<Break/>
</Case>
<!--银联参数-->
<Case value="EBPPP">
<Quote name="GET_CUP_BAT_NO"/> <!--取银联批次号-->
<Set>CORG_DSK_NO=$CORG_DSK_NO</Set>
<Set>CORG_FIL_NAM=STRCAT(batReq_,$CORG_NO,_,GETDATETIME(YYMMDD),_,$CORG_DSK_NO,.txt)</Set>
<Break/>
</Case>
<!--华夏银行参数-->
<Case value="HXB">
<Quote name="GET_CAP_ORD_NO"/> <!-- 获取订单号 -->
<Set>CORG_DSK_NO=$CAP_ORD_NO</Set> <!-- 批次号 -->
<If condition="IS_EQUAL_STRING($TXN_MOD,01)"> <!--代收-->
<Set>CORG_FIL_NAM=STRCAT(hxds,GETDATETIME(YYMMDD),$CORG_DSK_NO)</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TXN_MOD,02)"> <!--代付-->
<Set>CORG_FIL_NAM=STRCAT(hxdf,GETDATETIME(YYMMDD),$CORG_DSK_NO)</Set>
</ElseIf>
<Break/>
</Case>
<!--工行参数-->
<Case value="ICBC">
<Quote name="GET_CUP_BAT_NO" />
<Set>CORG_DSK_NO=STRCAT(GETDATETIME(),$CORG_DSK_NO)</Set>
<If condition="IS_EQUAL_STRING($TXN_MOD,01)"> <!--代收 -->
<!--批量对私代收接口 PERDIS -->
<Set>CORG_FIL_NAM=STRCAT(ICBCDS_DG,GETDATETIME(YYMMDD),$CORG_DSK_NO)</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TXN_MOD,02)"> <!--代付 -->
<!--批量对私代付接口 PAYPER -->
<Set>CORG_FIL_NAM=STRCAT(ICBCDF_DG,GETDATETIME(YYMMDD),$CORG_DSK_NO)</Set>
</ElseIf>
<Break/>
</Case>
<!--平安银行参数-->
<Case value="PAB">
<Quote name="GET_CUP_BAT_NO"/> <!--获取批次号-->
<Set>CORG_DSK_NO=STRCAT(GETDATE(),$CORG_DSK_NO)</Set>
<If condition="IS_EQUAL_STRING($TXN_MOD,01)"> <!--代收-->
<Set>CORG_FIL_NAM=STRCAT(PABDS,GETDATETIME(YYYYMMDD),$CORG_DSK_NO)</Set>
</If>
<ElseIf condition="IS_EQUAL_STRING($TXN_MOD,02)"> <!--代付-->
<Set>CORG_FIL_NAM=STRCAT(PABDF,GETDATETIME(YYYYMMDD),$CORG_DSK_NO)</Set>
</ElseIf>
<Break/>
</Case>
<!--浦发银行参数-->
<Case value="SPDB">
<Quote name="GET_CAP_ORD_NO"/> <!-- 获取订单号 -->
<Set>CORG_DSK_NO=$CAP_ORD_NO</Set> <!-- 批次号 -->
<Set>CORG_FIL_NAM=STRCAT(pfdf,GETDATETIME(YYMMDD),$CORG_DSK_NO)</Set> <!-- 批次文件名称 -->
<Break/>
</Case>
</Switch>
</Macro>
</FrontTab>
View Git Blame Copy Permalink