64 lines
1.9 KiB
XML
64 lines
1.9 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<Transaction code="CheckEOB" log_switch="1">
|
|
<Function name="_before">
|
|
<Process>
|
|
</Process>
|
|
</Function>
|
|
|
|
<Function name="_after">
|
|
<Process>
|
|
</Process>
|
|
</Function>
|
|
|
|
<!-- 检查是否存在未完成的BSP批次 -->
|
|
<DynSentence name="SQL_CHECK_BSP">
|
|
<Sentence>
|
|
SELECT COUNT(*) BSP_UNCMP_CNT FROM PUBBSPCTL
|
|
WHERE AC_DT = ? AND STATUS NOT IN ('S','C')
|
|
AND (TRIM(DUE_DT) IS NULL OR DUE_DT <= AC_DT)
|
|
</Sentence>
|
|
<Fields>AC_DT|</Fields>
|
|
</DynSentence>
|
|
|
|
<!-- 检查是否存在未完成的远程商户异步入账 -->
|
|
<DynSentence name="SQL_CHECK_RPM">
|
|
<Sentence>
|
|
SELECT COUNT(*) RPM_UNCMP_CNT FROM RPMTASYJ
|
|
WHERE REG_DT=? AND WAT_DEP_STS != 'N'
|
|
</Sentence>
|
|
<Fields>AC_DT|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>AC_DT=$GWA.AC_DT</Set>
|
|
|
|
<!-- 检查是否存在未完成的BSP批次 -->
|
|
<!--
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="SQL_CHECK_BSP"/>
|
|
</Exec>
|
|
<If condition="IS_EQUAL_INT($BSP_UNCMP_CNT,0)=0"-->
|
|
<!-- @MSG 存在未处理完成的BSP批次 -->
|
|
<!--
|
|
<Set>GWA.MSG_CD=BAT00010</Set>
|
|
<Return/>
|
|
</If-->
|
|
|
|
<!-- 检查是否存在未完成的远程商户异步入账
|
|
<Exec func="PUB:ReadRecord">
|
|
<Arg name="SqlCmd" value="SQL_CHECK_RPM"/>
|
|
</Exec>
|
|
<If condition="IS_EQUAL_INT($RPM_UNCMP_CNT,0)=0">
|
|
MSG 存在未处理完成的远程异步入账记录
|
|
<Set>GWA.MSG_CD=BAT00011</Set>
|
|
<Return/>
|
|
</If>
|
|
-->
|
|
|
|
<Set>GWA.MSG_TYP=N</Set>
|
|
<Set>GWA.MSG_CD=BAT00000</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root>
|