952 lines
39 KiB
XML
952 lines
39 KiB
XML
<?xml version="1.0" encoding="UTF-8"?>
|
|
<!-- 公共参数维护 -->
|
|
<Application name="cmm" code="001" trace="yes"
|
|
xmlns="http://www.hisuntech.com/ctltem" xmlns:xs="http://www.w3.org/2001/XMLSchema-instance"
|
|
xs:schemaLocation="http://www.hisuntech.com/ctltem http://10.8.2.225:8580/cts/CTLTEM.xsd">
|
|
<!--全局处理-->
|
|
<GlobalFunction>
|
|
<Function name="_before"> <!--全局前处理-->
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=OK</Set>
|
|
<Set>UPD_OPR=usradm</Set>
|
|
<Set>CRE_ORG=$SESSION.BR_NO</Set>
|
|
</Function>
|
|
<Function name="_after"> <!--全局后处理-->
|
|
<If condition="NOT(ISNULL($OUTPUT))">
|
|
<Exec func="PUB:SetRetPage">
|
|
<Arg name="page" value="$OUTPUT" />
|
|
</Exec>
|
|
<Exec func="PUB:DumpETF" /> <!-- 在交易日志中打印ETF节点树 -->
|
|
</If>
|
|
</Function>
|
|
</GlobalFunction>
|
|
|
|
<!-- 公共参数管理模块 -->
|
|
<!-- 参数基本信息查询 -->
|
|
<Transaction code="0011101" log_switch="1">
|
|
<DynSentence name="QRY_CMMTBSPM_BASINF"> <!-- 基本信息查询语句 -->
|
|
<Sentence>
|
|
SELECT PARM_CLS, CST_NM, EFF_DT, EXP_DT, CST_DISP_NM, CST_VAL, EFF_MOD
|
|
FROM CMMTBSPM
|
|
WHERE ('%s' IS NULL OR PARM_CLS='%s')
|
|
AND ('%s' IS NULL OR CST_NM='%s')
|
|
</Sentence>
|
|
<Fields>QRY_PARM_CLS|QRY_PARM_CLS|QRY_CST_NM|QRY_CST_NM</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTBSPM_BASINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTBSPM_BASINF"/><!--查询语句-->
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=CMM9000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<!--生成查询数据集失败-->
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return/>
|
|
</Else>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction >
|
|
|
|
<!-- 详细参数信息查询 -->
|
|
<Transaction code="0011102" log_switch="1" >
|
|
<DynSentence name="QRY_CMMTBSPM_DETAIL">
|
|
<Sentence> <!-- 详细信息查询语句 -->
|
|
SELECT * FROM CMMTBSPM
|
|
WHERE CST_NM = '%s'
|
|
AND EFF_DT = '%s'
|
|
AND EXP_DT = '%s'
|
|
</Sentence>
|
|
<Fields>CST_NM|EFF_DT|EXP_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE"> <!-- 执行查询详细信息的操作 -->
|
|
<Arg name="SqlCmd" value="QRY_CMMTBSPM_DETAIL"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=查找成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统发生错误！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM2001</Set>
|
|
<Set>RSP_MSG=未找到对应记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 修改公共参数 -->
|
|
<Transaction code="0011103" log_switch="1">
|
|
<DynSentence name="UPD_CMMTBSPM_PRMINF">
|
|
<Sentence> <!-- 数据库UPDATE语句 -->
|
|
CST_NM = '%s'
|
|
AND EFF_DT = '%s'
|
|
AND EXP_DT = '%s'
|
|
</Sentence>
|
|
<Fields>CST_NM|EFF_DT|EXP_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE"> <!-- 执行修改记录操作 -->
|
|
<Arg name="TblNam" value="CMMTBSPM"/>
|
|
<Arg name="CndSts" value="UPD_CMMTBSPM_PRMINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改公共参数信息成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=修改公共参数失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除一个公共参数 -->
|
|
<Transaction code="0011104" log_switch="1">
|
|
<DynSentence name="DEL_CMMTBSPM_PRMINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTBSPM
|
|
WHERE CST_NM = '%s'
|
|
AND EFF_DT = '%s'
|
|
AND EXP_DT = '%s'
|
|
</Sentence>
|
|
<Fields>CST_NM|EFF_DT|EXP_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql" error="IGNORE"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTBSPM_PRMINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=删除成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=删除失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 添加公共参数 -->
|
|
<Transaction code="0011105" log_switch="1">
|
|
<DynSentence name="QRY_CMMTBSPM_CHECK">
|
|
<Sentence>
|
|
SELECT 'Y'
|
|
FROM CMMTBSPM
|
|
WHERE CST_NM = '%s'
|
|
AND EFF_DT = '%s'
|
|
AND EXP_DT = '%s'
|
|
</Sentence>
|
|
<Fields>CST_NM|EFF_DT|EXP_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTBSPM_CHECK" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_MSG=抱歉，该公共参数已经存在，请重新编辑！</Set>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="-RetCod=-1">
|
|
<Set>RSP_MSG=信息查找失败！</Set>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<If condition="INTCMP($CST_TYP, 3, 1)=1"> <!-- 若参数类型为时间 -->
|
|
<Set>
|
|
CST_VAL = $CST_VALD
|
|
</Set>
|
|
</If>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:InsertRecord" error="IGNORE"> <!-- 执行插入记录操作 -->
|
|
<Arg name="TblNam" value="CMMTBSPM"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=新增公共参数成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=新增公共参数失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM2001</Set>
|
|
<Set>RSP_MSG=插入多条记录，存在失败的记录!</Set>
|
|
</Else>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<!-- 公共代码管理模块 -->
|
|
<!-- 公共代码基本信息查询 -->
|
|
<Transaction code="0011201" log_switch="1">
|
|
<DynSentence name="QRY_CMMTCMCD_BASINF"> <!-- 基本信息查询语句 -->
|
|
<Sentence>
|
|
SELECT PUB_CD_TYP, PUB_CD_VAL, PUB_CD_LEN, PUB_CD_ABBR
|
|
FROM CMMTCMCD
|
|
WHERE ('%s' IS NULL OR PUB_CD_TYP='%s')
|
|
AND ('%s' IS NULL OR PUB_CD_VAL='%s')
|
|
</Sentence>
|
|
<Fields>PUB_CD_TYP|PUB_CD_TYP|PUB_CD_VAL|PUB_CD_VAL</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTCMCD_BASINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTCMCD_BASINF"/><!--查询语句-->
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=CMM9000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<!--生成查询数据集失败-->
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return/>
|
|
</Else>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
|
|
</FlowCtrl>
|
|
</Transaction >
|
|
|
|
<!-- 详细公共代码信息查询 -->
|
|
<Transaction code="0011202" log_switch="1" >
|
|
<DynSentence name="QRY_CMMTCMCD_DETAIL">
|
|
<Sentence> <!-- 详细信息查询语句 -->
|
|
SELECT * FROM CMMTCMCD
|
|
WHERE PUB_CD_TYP = '%s'
|
|
AND PUB_CD_VAL = '%s'
|
|
</Sentence>
|
|
<Fields>PUB_CD_TYP|PUB_CD_VAL</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE"> <!-- 执行查询详细信息的操作 -->
|
|
<Arg name="SqlCmd" value="QRY_CMMTCMCD_DETAIL"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=查找成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统发生错误！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM2001</Set>
|
|
<Set>RSP_MSG=未找到对应记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 修改公共代码信息 -->
|
|
<Transaction code="0011203" log_switch="1">
|
|
<DynSentence name="UPD_CMMTCMCD_CMCDINF">
|
|
<Sentence> <!-- 数据库UPDATE语句 -->
|
|
PUB_CD_TYP = '%s'
|
|
AND PUB_CD_VAL = '%s'
|
|
</Sentence>
|
|
<Fields>PUB_CD_TYP|PUB_CD_VAL</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE"> <!-- 执行修改记录操作 -->
|
|
<Arg name="TblNam" value="CMMTCMCD"/>
|
|
<Arg name="CndSts" value="UPD_CMMTCMCD_CMCDINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改公共代码信息成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=修改公共代码信息失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</ElseIf>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除一个公共代码 -->
|
|
<Transaction code="0011204" log_switch="1">
|
|
<DynSentence name="DEL_CMMTCMCD_CMCDINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTCMCD
|
|
WHERE PUB_CD_TYP = '%s'
|
|
AND PUB_CD_VAL = '%s'
|
|
</Sentence>
|
|
<Fields>PUB_CD_TYP|PUB_CD_VAL</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql" error="IGNORE"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTCMCD_CMCDINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=删除成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=删除失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 添加公共代码 -->
|
|
<Transaction code="0011205" log_switch="1">
|
|
<DynSentence name="QRY_CMMTCMCD_CHECK">
|
|
<Sentence>
|
|
SELECT 'Y'
|
|
FROM CMMTCMCD
|
|
WHERE PUB_CD_TYP = '%s'
|
|
AND PUB_CD_VAL = '%s'
|
|
</Sentence>
|
|
<Fields>PUB_CD_TYP|PUB_CD_VAL</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTCMCD_CHECK" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_MSG=抱歉，该公共代码已经存在，请重新编辑！</Set>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="RetCod=-1">
|
|
<Set>RSP_MSG=查询出错！</Set>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE"> <!-- 执行插入记录操作 -->
|
|
<Arg name="TblNam" value="CMMTCMCD"/> <!-- 执行插入的数据表 -->
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=新增公共代码成功！</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=新增公共代码失败！</Set>
|
|
<Return/>
|
|
</Else>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<!-- 不可充值移动号码段管理模块 -->
|
|
<!-- 不可充值移动号码段基本信息查询 -->
|
|
<Transaction code="0011301" log_switch="1">
|
|
<DynSentence name="QRY_CMMTNPCT_BASINF"> <!-- 基本信息查询语句 -->
|
|
<Sentence>
|
|
SELECT BEG_PPD_CRD, END_PPD_CRD, EFF_DT, EXP_DT, UAVA_PCRD_STS
|
|
FROM CMMTNPCT
|
|
WHERE ('%s' IS NULL OR BEG_PPD_CRD = '%s')
|
|
AND ('%s' IS NULL OR END_PPD_CRD = '%s')
|
|
AND ('%s' IS NULL OR EFF_DT = '%s')
|
|
</Sentence>
|
|
<Fields>BEG_PPD_CRD|BEG_PPD_CRD|END_PPD_CRD|END_PPD_CRD|EFF_DT|EFF_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTNPCT_BASINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTNPCT_BASINF"/><!--查询语句-->
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=CMM9000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<!--生成查询数据集失败-->
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return/>
|
|
</Else>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction >
|
|
|
|
<!-- 详细不可充值移动号码段信息查询 -->
|
|
<Transaction code="0011302" log_switch="1" >
|
|
<DynSentence name="QRY_CMMTNPCT_DETAIL">
|
|
<Sentence> <!-- 详细信息查询语句 -->
|
|
SELECT * FROM CMMTNPCT
|
|
WHERE BEG_PPD_CRD = '%s'
|
|
AND END_PPD_CRD = '%s'
|
|
AND EFF_DT = '%s'
|
|
</Sentence>
|
|
<Fields>BEG_PPD_CRD|END_PPD_CRD|EFF_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE"> <!-- 执行查询详细信息的操作 -->
|
|
<Arg name="SqlCmd" value="QRY_CMMTNPCT_DETAIL"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=查找成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统发生错误！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM2001</Set>
|
|
<Set>RSP_MSG=未找到对应记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 修改不可充值移动号码段信息 -->
|
|
<Transaction code="0011303" log_switch="1">
|
|
<DynSentence name="UPD_CMMTNPCT_NPCTINF">
|
|
<Sentence> <!-- 数据库UPDATE语句 -->
|
|
BEG_PPD_CRD = '%s'
|
|
AND END_PPD_CRD = '%s'
|
|
AND EFF_DT = '%s'
|
|
</Sentence>
|
|
<Fields>BEG_PPD_CRD|END_PPD_CRD|EFF_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set><!-- 设置时间戳 -->
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE"> <!-- 执行修改记录操作 -->
|
|
<Arg name="TblNam" value="CMMTNPCT"/>
|
|
<Arg name="CndSts" value="UPD_CMMTNPCT_NPCTINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=修改失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</ElseIf>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除一个不可充值移动号码段 -->
|
|
<Transaction code="0011304" log_switch="1">
|
|
<DynSentence name="DEL_CMMTNPCT_NPCTINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTNPCT
|
|
WHERE BEG_PPD_CRD = '%s'
|
|
AND END_PPD_CRD = '%s'
|
|
AND EFF_DT = '%s'
|
|
</Sentence>
|
|
<Fields>BEG_PPD_CRD|END_PPD_CRD|EFF_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql" error="IGNORE"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTNPCT_NPCTINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=删除成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=删除失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 添加不可充值移动号码段 -->
|
|
<Transaction code="0011305" log_switch="1">
|
|
<DynSentence name="QRY_CMMTNPCT_CHECK">
|
|
<Sentence>
|
|
SELECT 'Y'
|
|
FROM CMMTNPCT
|
|
WHERE BEG_PPD_CRD = '%s'
|
|
AND END_PPD_CRD = '%s'
|
|
AND EFF_DT = '%s'
|
|
</Sentence>
|
|
<Fields>BEG_PPD_CRD|END_PPD_CRD|EFF_DT</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTNPCT_CHECK" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_MSG=抱歉，该信息已经存在，请重新编辑！</Set>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Return/>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=查询出错！</Set>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:InsertRecord" error="IGNORE"> <!-- 执行插入记录操作 -->
|
|
<Arg name="TblNam" value="CMMTNPCT"/> <!-- 执行插入的数据表 -->
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=新增不可充值移动号码段成功！</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=新增不可充值移动号码段失败！</Set>
|
|
<Return/>
|
|
</Else>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 商户接口信息模块 -->
|
|
<!-- 商户接口基本信息查询 -->
|
|
<Transaction code="0011401" log_switch="1">
|
|
<DynSentence name="QRY_CMMTMCIF_BASINF"> <!-- 基本信息查询语句 -->
|
|
<Sentence>
|
|
SELECT ITF_NM, ITF_CD, ITF_VER, CNL_ID
|
|
FROM CMMTMCIF
|
|
WHERE ('%s' IS NULL OR ITF_CD='%s')
|
|
AND ('%s' IS NULL OR ITF_NM='%s')
|
|
AND ('%s' IS NULL OR ITF_VER='%s')
|
|
</Sentence>
|
|
<Fields>ITF_CD|ITF_CD|ITF_NM|ITF_NM|ITF_VER|ITF_VER</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTMCIF_BASINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTMCIF_BASINF"/><!--查询语句-->
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=CMM9000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<!--生成查询数据集失败-->
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return/>
|
|
</Else>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction >
|
|
|
|
<!-- 详细商户接口信息查询 -->
|
|
<Transaction code="0011402" log_switch="1" >
|
|
<DynSentence name="QRY_CMMTMCIF_DETAIL">
|
|
<Sentence> <!-- 详细信息查询语句 -->
|
|
SELECT * FROM CMMTMCIF
|
|
WHERE ITF_CD = '%s'
|
|
AND ITF_VER = '%s'
|
|
</Sentence>
|
|
<Fields>ITF_CD|ITF_VER</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE"> <!-- 执行查询详细信息的操作 -->
|
|
<Arg name="SqlCmd" value="QRY_CMMTMCIF_DETAIL"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=查找成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统发生错误！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM2001</Set>
|
|
<Set>RSP_MSG=未找到对应记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 修改商户接口信息 -->
|
|
<Transaction code="0011403" log_switch="1">
|
|
<DynSentence name="UPD_CMMTMCIF_MCIFINF">
|
|
<Sentence> <!-- 数据库UPDATE语句 -->
|
|
ITF_CD = '%s'
|
|
AND ITF_VER = '%s'
|
|
</Sentence>
|
|
<Fields>ITF_CD|ITF_VER</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE"> <!-- 执行修改记录操作 -->
|
|
<Arg name="TblNam" value="CMMTMCIF"/>
|
|
<Arg name="CndSts" value="UPD_CMMTMCIF_MCIFINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改商户接口信息成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=修改商户接口信息失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</ElseIf>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除一个商户接口 -->
|
|
<Transaction code="0011404" log_switch="1">
|
|
<DynSentence name="DEL_CMMTMCIF_MCIFINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTMCIF
|
|
WHERE ITF_CD = '%s'
|
|
AND ITF_VER = '%s'
|
|
</Sentence>
|
|
<Fields>ITF_CD|ITF_VER</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql" error="IGNORE"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTMCIF_MCIFINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=删除成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=删除失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 添加商户接口 -->
|
|
<Transaction code="0011405" log_switch="1">
|
|
<DynSentence name="QRY_CMMTMCIF_CHECK">
|
|
<Sentence>
|
|
SELECT 'Y'
|
|
FROM CMMTMCIF
|
|
WHERE ITF_CD = '%s'
|
|
AND ITF_VER = '%s'
|
|
</Sentence>
|
|
<Fields>ITF_CD|ITF_VER</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTMCIF_CHECK" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_MSG=抱歉，该商户接口已经存在，请重新编辑！</Set>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=查询出错！</Set>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE"> <!-- 执行插入记录操作 -->
|
|
<Arg name="TblNam" value="CMMTMCIF"/> <!-- 执行插入的数据表 -->
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=新增商户接口成功！</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=新增商户接口失败！</Set>
|
|
<Return/>
|
|
</Else>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<!-- 协议种类管理模块 -->
|
|
<!-- 协议种类基本信息查询 -->
|
|
<Transaction code="0011501" log_switch="1">
|
|
<DynSentence name="QRY_CMMTPLCG_BASINF"> <!-- 基本信息查询语句 -->
|
|
<Sentence>
|
|
SELECT AGR_TYP, AGR_CLS, AGR_VER, UNQ_REQ_FLG
|
|
FROM CMMTPLCG
|
|
WHERE ('%s' IS NULL OR AGR_TYP = '%s')
|
|
AND ('%s' IS NULL OR AGR_CLS = '%s')
|
|
</Sentence>
|
|
<Fields>AGR_TYP|AGR_TYP|AGR_CLS|AGR_CLS</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_BASINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_BASINF"/><!--查询语句-->
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=CMM9000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<!--生成查询数据集失败-->
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return/>
|
|
</Else>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction >
|
|
|
|
<!-- 详细协议种类信息查询 -->
|
|
<Transaction code="0011502" log_switch="1" >
|
|
<DynSentence name="QRY_CMMTPLCG_DETAIL">
|
|
<Sentence> <!-- 详细信息查询语句 -->
|
|
SELECT * FROM CMMTPLCG
|
|
WHERE AGR_TYP = '%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE"> <!-- 执行查询详细信息的操作 -->
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_DETAIL"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=查找成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统发生错误！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM2001</Set>
|
|
<Set>RSP_MSG=未找到对应记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 修改协议种类信息 -->
|
|
<Transaction code="0011503" log_switch="1">
|
|
<DynSentence name="UPD_CMMTPLCG_PLCGINF">
|
|
<Sentence> <!-- 数据库UPDATE语句 -->
|
|
AGR_TYP = '%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set><!-- 设置时间戳 -->
|
|
<Set>UPD_JRN=GETDATETIME()</Set><!-- 设置流水号 -->
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE"> <!-- 执行修改记录操作 -->
|
|
<Arg name="TblNam" value="CMMTPLCG"/>
|
|
<Arg name="CndSts" value="UPD_CMMTPLCG_PLCGINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改协议种类信息成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=修改协议种类信息失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</ElseIf>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除一个协议种类 -->
|
|
<Transaction code="0011504" log_switch="1">
|
|
<DynSentence name="DEL_CMMTPLCG_PLCGINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTPLCG
|
|
WHERE AGR_TYP = '%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql" error="IGNORE"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTPLCG_PLCGINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=删除成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=删除失败！</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 添加协议种类 -->
|
|
<Transaction code="0011505" log_switch="1">
|
|
<DynSentence name="QRY_CMMTPLCG_CHECK">
|
|
<Sentence>
|
|
SELECT 'Y'
|
|
FROM CMMTPLCG
|
|
WHERE AGR_TYP = '%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_CHECK" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_MSG=抱歉，该协议种类已经存在，请重新编辑！</Set>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=查询出错！</Set>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Return/>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>TM_SMP=GETDATETIME()</Set><!-- 设置时间戳 -->
|
|
<Set>UPD_JRN=GETDATETIME()</Set><!-- 设置流水号 -->
|
|
<Exec func="PUB:InsertRecord" error="IGNORE"> <!-- 执行插入记录操作 -->
|
|
<Arg name="TblNam" value="CMMTPLCG"/> <!-- 执行插入的数据表 -->
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=新增协议种类成功！</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=新增协议种类失败！</Set>
|
|
<Return/>
|
|
</Else>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Application>
|
|
|