60 lines
2.5 KiB
XML
60 lines
2.5 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<FrontTab>
|
|
<Macro name="Input_Check" desc="输入检查">
|
|
<!-- 判断业务类型是否为空 -->
|
|
<If condition="ISNULL($BUS_TYP)">
|
|
<Set>Rsp_Msg=业务类型为空，请传入业务类型 </Set>
|
|
<Return />
|
|
</If>
|
|
<Else>
|
|
<!-- 判断是否支持当前输入业务类型 11：代收 12：代付 -->
|
|
<If condition="AND(INTCMP($BUS_TYP,4,11),INTCMP($BUS_TYP,4,12))">
|
|
<Set>Rsp_Msg=业务类型只支持11-代收，12-代付 </Set>
|
|
<Return />
|
|
</If>
|
|
</Else>
|
|
|
|
<!-- 如果输入的对账日期不为空，判断对账日期格式是否正确 -->
|
|
<If condition="NOT(ISNULL($CHK_DAT))">
|
|
<If condition="INTCMP(CHECKDATE($CHK_DAT),4,0)">
|
|
<Set>Rsp_Msg=输入对账日期格式不正确 </Set>
|
|
<Return />
|
|
</If>
|
|
</If>
|
|
</Macro>
|
|
|
|
<Macro name="UpdateStatus" desc="更新主控">
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="UPD_PWMTCKCT_STS" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Exec func="PUB:RollBackWork" /><!-- 回滚事务 -->
|
|
<Set>Rsp_Msg=更新对账主控表中对账状态失败 </Set>
|
|
<Return />
|
|
</If>
|
|
</Macro>
|
|
|
|
<Macro name="CORE_CHK_CFG" desc="新核心对账">
|
|
<Set>YQB_MERC_ID=800075500050015</Set> <!--(生产)提现商户号-->
|
|
<!--Set>YQB_MERC_ID=800010000010021</Set--> <!--(测试)提现商户号-->
|
|
|
|
<Set>LUFAX_MERC_ID=800021000080018</Set> <!--(生产)陆金所商户号-->
|
|
<!--Set>LUFAX_MERC_ID=800022000010015</Set--> <!--(测试)陆金所商户号-->
|
|
</Macro>
|
|
|
|
<Macro name="RegisterList" desc="登记新核心对账">
|
|
<!-- 把每日生成的对账文件名写入对账列表 -->
|
|
<Set>CORE_LIST_PATH=STRCAT($CORE_FIL_DIR,"CAP_RECON_FILE_LIST_",$CHK_FIL_DT,".txt")</Set>
|
|
<Exec func="PUB:WriteFile" error="IGNORE">
|
|
<Arg name="FileName" value="$CORE_LIST_PATH"/>
|
|
<Arg name="OpenMode" value="a"/>
|
|
<Arg name="Data" value="STRCAT($CORE_FIL_NM,\n)"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>Rsp_Cd=80</Set>
|
|
<Set>Rsp_Msg=登记对账列表失败 </Set>
|
|
</If>
|
|
</Macro>
|
|
|
|
</FrontTab>
|