1473 lines
60 KiB
XML
1473 lines
60 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="cmm" code="001" trace="yes">
|
|
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=$SESSION.USR_ID</Set>
|
|
<Set>CRE_ORG=$SESSION.BR_NO</Set>
|
|
</Function>
|
|
<Function name="_after"> <!--全局后处理-->
|
|
<Exec func="PUB:SetRetPage">
|
|
<Arg name="page" value="$output" />
|
|
</Exec>
|
|
<Exec func="PUB:DumpETF" />
|
|
</Function>
|
|
</GlobalFunction>
|
|
<!-- 浏览省公司信息 -->
|
|
<Transaction code="0015101" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTPCPI_PROVINF"><!-- 按不同的输入条件进行浏览 -->
|
|
<Sentence>
|
|
SELECT PROV_CD,PROV_LVL,BOSS_PROV,LPS_CD,VGOP_PROV from CMMTPCPI
|
|
WHERE ('%s'
|
|
IS NULL or PROV_CD='%s')
|
|
AND ('%s' IS NULL or BOSS_PROV='%s')
|
|
AND
|
|
('%s' IS NULL or VGOP_PROV='%s')
|
|
</Sentence>
|
|
<Fields>PROV_CD|PROV_CD|BOSS_PROV|BOSS_PROV|VGOP_PROV|VGOP_PROV|
|
|
</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<!-- <Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
首页翻过后，读后续数据
|
|
<Exec func="PUB:QueryPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ" />
|
|
<Arg name="QryCmd" value="$PAG_IDX" />
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
生成多页查询数据集
|
|
<Exec func="PUB:GenDataSet" error="IGNORE">
|
|
<Arg name="Type" value="SQL" />
|
|
<Arg name="SqlCmd" value="QRY_CMMTPCPI_PROVINF" />
|
|
<Arg name="RecKey" value="$CURUIDQ" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
读数据集首页数据
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=浏览成功！</Set>
|
|
<Exec func="PUB:QueryFirstPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ" />
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM" />
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> 没查询到数据
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else> 生成查询数据集失败
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</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="$CURUIDQ"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTPCPI_PROVINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTPCPI_PROVINF"/><!--查询语句-->
|
|
<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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--显示省公司信息明细-->
|
|
<Transaction code="0015102" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTPCPI_DETAIL">
|
|
<Sentence>
|
|
SELECT * FROM CMMTPCPI WHERE PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_ID</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPCPI_DETAIL" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=显示成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
|
|
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!--新增省公司信息-->
|
|
<Transaction code="0015105" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="INT_CMMTPCPI_PROVINF">
|
|
<Sentence>
|
|
SELECT 'Y' FROM CMMTPCPI WHERE PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
//先进行查询，然后根据结果判断再进行决定是否进行新增
|
|
<Arg name="SqlCmd" value="INT_CMMTPCPI_PROVINF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=省公司编号已经存在，请重新输入！</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=系统错误！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTPCPI" />
|
|
</Exec>
|
|
</Else>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=新增省公司信息成功！</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=新增省公司信息失败！</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!--修改省公司信息-->
|
|
|
|
<Transaction code="0015103" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="UPD_CMMTPCPI_PROVINF">
|
|
<Sentence>
|
|
PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD_QRY|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTPCPI" />
|
|
<Arg name="CndSts" value="UPD_CMMTPCPI_PROVINF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改省公司信息成功!</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=修改省公司信息失败!</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除省公司信息 -->
|
|
<Transaction code="0015104" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DEL_CMMTPCPI_PROVINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTPCPI
|
|
WHERE PROV_CD = '%s'
|
|
</Sentence>
|
|
<Fields>DEL_PROV_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:ExecSql"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTPCPI_PROVINF" />
|
|
</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=CMM2000</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!-- 批量删除省公司信息 -->
|
|
<Transaction code="0015107" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DELALL_CMMTPCPI_PROVINF">
|
|
<!-- 数据库DELETE语句 -->
|
|
<Sentence>
|
|
DELETE FROM CMMTPCPI WHERE PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>QRY_PROV_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>CRD_CD_LIST=$QRY_CRD_CD_LIST</Set>
|
|
<If condition="ISNULL($CRD_CD_LIST)">
|
|
<Set>RSP_CD=02042301</Set>
|
|
<Set>RSP_MSG=选择列表不可为空</Set>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST" />
|
|
<Arg name="group" value="GRP" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break/>
|
|
</If>
|
|
<Set>QRY_PROV_CD=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DELALL_CMMTPCPI_PROVINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG="提示: 删除失败！"</Set>
|
|
<Return/>
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
|
|
<!-- 市公司信息浏览 -->
|
|
<Transaction code="0015201" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTCCPI_CITYINF"><!-- 按不同的输入条件进行浏览 -->
|
|
<Sentence>
|
|
SELECT CITY_CD,PROV_CD,BOSS_CITY,VGOP_CITY FROM CMMTCCPI
|
|
WHERE ('%s'
|
|
IS NULL or CITY_CD='%s')
|
|
AND ('%s' IS NULL or BOSS_CITY='%s')
|
|
AND
|
|
('%s' IS NULL or VGOP_CITY='%s')
|
|
</Sentence>
|
|
<Fields>CITY_CD|CITY_CD|BOSS_CITY|BOSS_CITY|VGOP_CITY|VGOP_CITY|
|
|
</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTCCPI_CITYINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTCCPI_CITYINF"/><!--查询语句-->
|
|
<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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--显示市公司信息明细-->
|
|
<Transaction code="0015202" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTCCPI_DETAIL">
|
|
<Sentence>
|
|
SELECT * FROM CMMTCCPI WHERE CITY_CD='%s'
|
|
</Sentence>
|
|
<Fields>CITY_ID</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTCCPI_DETAIL" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=显示成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!-- 动态下拉列表 -->
|
|
<Transaction code="0015211" log_switch="1">
|
|
<DynSentence name="QRY_CMMTPCPI">
|
|
<Sentence>
|
|
SELECT PROV_CD FROM CMMTPCPI <!--
|
|
WHERE PROV_CD='%s'order by UPD_DT DESC
|
|
-->
|
|
</Sentence>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:QueryInGroup">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPCPI" />
|
|
<Arg name="RecordName" value="REC" />
|
|
</Exec>
|
|
<Set>RSP_CD=000000 </Set>
|
|
</FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
</Transaction>
|
|
|
|
<!--新增市公司信息-->
|
|
<Transaction code="0015205" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="INT_CMMTCCPI_CITYINF">
|
|
<Sentence>
|
|
SELECT 'Y' FROM CMMTCCPI WHERE CITY_CD='%s'
|
|
</Sentence>
|
|
<Fields>CITY_CD</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="INT_CMMTCCPI_CITYINF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=市公司编号已经存在，请重新输入！</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=系统错误！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTCCPI" />
|
|
</Exec>
|
|
</Else>
|
|
<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>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!--修改市公司信息-->
|
|
|
|
<Transaction code="0015203" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="UPD_CMMTCCPI_CITYINF">
|
|
<Sentence>
|
|
CITY_CD='%s'
|
|
</Sentence>
|
|
<Fields>CITY_CD_QRY|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTCCPI" />
|
|
<Arg name="CndSts" value="UPD_CMMTCCPI_CITYINF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改市公司信息成功!</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=修改市公司信息失败!</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除市公司信息 -->
|
|
<Transaction code="0015204" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DEL_CMMTCCPI_CITYINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTCCPI
|
|
WHERE CITY_CD = '%s'
|
|
</Sentence>
|
|
<Fields>DEL_CITY_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:ExecSql"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTCCPI_CITYINF" />
|
|
</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=CMM2000</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!-- 批量删除省公司信息 -->
|
|
<Transaction code="0015207" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DELALL_CMMTCCPI_CITYINF">
|
|
<!-- 数据库DELETE语句 -->
|
|
<Sentence>
|
|
DELETE FROM CMMTCCPI WHERE CITY_CD='%s'
|
|
</Sentence>
|
|
<Fields>QRY_CITY_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>CRD_CD_LIST=$QRY_CRD_CD_LIST</Set>
|
|
<If condition="ISNULL($CRD_CD_LIST)">
|
|
<Set>RSP_CD=02042301</Set>
|
|
<Set>RSP_MSG=选择列表不可为空</Set>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST" />
|
|
<Arg name="group" value="GRP" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break/>
|
|
</If>
|
|
<Set>QRY_CITY_CD=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DELALL_CMMTCCPI_CITYINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG="提示: 删除失败！"</Set>
|
|
<Return/>
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<!-- 浏览省公司业务开通状态 -->
|
|
<Transaction code="0015301" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTBSTS_PROVINF"><!-- 按不同的输入条件进行浏览 -->
|
|
<Sentence>
|
|
SELECT PROV_CD,BOSS_BUS_CD,PROV_STS FROM CMMTBSTS
|
|
WHERE ('%s'
|
|
IS NULL or
|
|
PROV_CD='%s')
|
|
AND ('%s' IS NULL or PROV_STS='%s')
|
|
</Sentence>
|
|
<Fields>PROV_CD|PROV_CD|PROV_STS|PROV_STS|
|
|
</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTBSTS_PROVINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTBSTS_PROVINF"/><!--查询语句-->
|
|
<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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--显示省公司业务开通明细-->
|
|
<Transaction code="0015302" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTBSTS_DETAIL">
|
|
<Sentence>
|
|
SELECT * FROM CMMTBSTS WHERE PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_ID</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTBSTS_DETAIL" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=显示成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--新增省公司业务开通状态信息-->
|
|
<Transaction code="0015305" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="INT_CMMTBSTS_PROV_CD">
|
|
<Sentence>
|
|
SELECT 'Y' FROM CMMTBSTS WHERE PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="INT_CMMTBSTS_PROV_CD" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=省公司编号已经存在，请重新输入！</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=系统错误！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTBSTS" />
|
|
</Exec>
|
|
</Else>
|
|
<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>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!--修改市公司信息-->
|
|
|
|
<Transaction code="0015303" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="UPD_CMMTBSTS_PROVINF">
|
|
<Sentence>
|
|
PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD_QRY|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTBSTS" />
|
|
<Arg name="CndSts" value="UPD_CMMTBSTS_PROVINF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改市公司信息成功!</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=修改市公司信息失败!</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除市公司信息 -->
|
|
<Transaction code="0015304" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DEL_CMMTBSTS_PROVINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTBSTS
|
|
WHERE PROV_CD = '%s'
|
|
</Sentence>
|
|
<Fields>DEL_PROV_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 设置时间戳 -->
|
|
<Exec func="PUB:ExecSql"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTBSTS_PROVINF" />
|
|
</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=CMM2000</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!-- 批量删除省公司信息 -->
|
|
<Transaction code="0015307" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DELALL_CMMTBSTS_PROVINF">
|
|
<!-- 数据库DELETE语句 -->
|
|
<Sentence>
|
|
DELETE FROM CMMTBSTS WHERE PROV_CD='%s'
|
|
</Sentence>
|
|
<Fields>QRY_PROV_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>CRD_CD_LIST=$QRY_CRD_CD_LIST</Set>
|
|
<If condition="ISNULL($CRD_CD_LIST)">
|
|
<Set>RSP_CD=02042301</Set>
|
|
<Set>RSP_MSG=选择列表不可为空</Set>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST" />
|
|
<Arg name="group" value="GRP" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break/>
|
|
</If>
|
|
<Set>QRY_PROV_CD=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DELALL_CMMTBSTS_PROVINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG="提示: 删除失败！"</Set>
|
|
<Return/>
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 浏览部门属性信息 -->
|
|
<Transaction code="0015401" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTDPAR_DEPTINF"><!-- 按不同的输入条件进行浏览 -->
|
|
<Sentence>
|
|
SELECT PROV_CD,CITY_CD,DEPT_CD,PROV_LVL FROM CMMTDPAR
|
|
WHERE
|
|
('%s'
|
|
IS NULL or
|
|
PROV_CD='%s')
|
|
AND ('%s' IS NULL or CITY_CD='%s')
|
|
AND
|
|
('%s' is null or PROV_LVL='%s')
|
|
</Sentence>
|
|
<Fields>PROV_CD|PROV_CD|CITY_CD|CITY_CD|PROV_LVL|PROV_LVL|
|
|
</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>PAG_NUM=5</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryOtherPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTDPAR_DEPTINF"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTDPAR_DEPTINF"/><!--查询语句-->
|
|
<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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--显示部门属性信息明细-->
|
|
<Transaction code="0015402" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="QRY_CMMTDPAR_DETAIL">
|
|
<Sentence>
|
|
SELECT * FROM CMMTDPAR WHERE PROV_CD='%s' AND CITY_CD='%s'
|
|
AND
|
|
DEPT_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD|CITY_CD|DEPT_CD|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTDPAR_DETAIL" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=显示成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--新增部门属性信息-->
|
|
<Transaction code="0015405" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="INT_CMMTDPAR_DEPT_CD">
|
|
<Sentence>
|
|
SELECT 'Y' FROM CMMTDPAR WHERE PROV_CD='%s'
|
|
AND CITY_CD='%s'
|
|
AND DEPT_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD|CITY_CD|DEPT_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="INT_CMMTDPAR_DEPT_CD" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=机构编号编号已经存在，请重新输入！</Set>
|
|
<Return />
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTDPAR" />
|
|
</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>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!--修改部门属性信息-->
|
|
|
|
<Transaction code="0015403" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="UPD_CMMTDPAR_DEPTINF">
|
|
<Sentence>
|
|
PROV_CD='%s' AND CITY_CD='%s' AND DEPT_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD_QRY|CITY_CD_QRY|DEPT_CD_QRY|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTDPAR" />
|
|
<Arg name="CndSts" value="UPD_CMMTDPAR_DEPTINF" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改部门属性成功!</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=修改部门属性失败!</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除部门属性信息 -->
|
|
<Transaction code="0015404" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DEL_CMMTDPAR_DEPTINF">
|
|
<Sentence> <!-- 数据库DELETE语句 -->
|
|
DELETE FROM CMMTDPAR
|
|
WHERE PROV_CD = '%s' AND CITY_CD='%s' AND
|
|
DEPT_CD='%s'
|
|
</Sentence>
|
|
<Fields>PROV_CD_QRY|CITY_CD_QRY|DEPT_CD_QRY|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTDPAR_DEPTINF" />
|
|
</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=CMM2000</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!-- 批量删除省公司信息 -->
|
|
<Transaction code="0015407" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DELALL_CMMTDPAR_PROVINF">
|
|
<!-- 数据库DELETE语句 -->
|
|
<Sentence>
|
|
DELETE FROM CMMTDPAR WHERE PROV_CD='%s' AND CITY_CD='%s' AND DEPT_CD='%s'
|
|
</Sentence>
|
|
<Fields>QRY_PROV_CD|QRY_CITY_CD|QRY_DEPT_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>CRD_CD_LIST1=$QRY_CRD_CD_LIST1</Set>
|
|
<Set>CRD_CD_LIST2=$QRY_CRD_CD_LIST2</Set>
|
|
<Set>CRD_CD_LIST3=$QRY_CRD_CD_LIST3</Set>
|
|
<If condition="ISNULL($CRD_CD_LIST1)">
|
|
<Set>RSP_CD=02042301</Set>
|
|
<Set>RSP_MSG=选择列表不可为空</Set>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST1" />
|
|
<Arg name="group" value="GRP1" />
|
|
</Exec>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST2" />
|
|
<Arg name="group" value="GRP2" />
|
|
</Exec>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST3" />
|
|
<Arg name="group" value="GRP3" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<While>
|
|
<If condition="$NUM > $GRP1_NUM">
|
|
<Break/>
|
|
</If>
|
|
<Set>QRY_PROV_CD=$GRP1[$NUM].DATA</Set>
|
|
<Set>QRY_CITY_CD=$GRP2[$NUM].DATA</Set>
|
|
<Set>QRY_DEPT_CD=$GRP3[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DELALL_CMMTDPAR_PROVINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG="提示: 删除失败！"</Set>
|
|
<Return/>
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!-- 错误码定义 -->
|
|
<Transaction code="0021101" log_switch="1" desc="query_transaction">
|
|
<DynSentence name="QUERY_LIST">
|
|
<Sentence>SELECT MSG_CD,MSG_INF FROM CMMTERCD WHERE ('%s'
|
|
IS NULL or
|
|
MSG_CD='%s')</Sentence>
|
|
<Fields>MSG_CD|MSG_CD</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="$CURUIDQ"/>
|
|
<Arg name="QryCmd" value="$PAG_IDX"/>
|
|
<Arg name="SqlCmd" value="QUERY_LIST"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUIDQ"/>
|
|
<Arg name="SqlCmd" value="QUERY_LIST"/><!--查询语句-->
|
|
<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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<Transaction code="0021102" log_switch="1" desc="show_transaction">
|
|
<DynSentence name="SHOW_OBJECT">
|
|
<Sentence>SELECT MSG_CD,MSG_INF,MSG_DESC FROM CMMTERCD WHERE MSG_CD = '%s'</Sentence>
|
|
<Fields>MSG_CD</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="SHOW_OBJECT" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=显示成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<Transaction code="0021104" log_switch="1" desc="delete_transaction">
|
|
<DynSentence name="DELETE_OBJECT">
|
|
<Sentence>DELETE FROM CMMTERCD WHERE MSG_CD = '%s'</Sentence>
|
|
<Fields>MSG_CD_DEL</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DELETE_OBJECT" />
|
|
</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=CMM2000</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<Transaction code="0021105" log_switch="1" desc="add_transaction">
|
|
<DynSentence name="ADD_OBJECT">
|
|
<Sentence>INSERT INTO CMMTERCD(MSG_CD,MSG_INF,MSG_DESC) VALUES ('%s','%s','%s')</Sentence>
|
|
<Fields>MSG_CD|MSG_INF|MSG_DESC</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<!-- <Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="INT_CMMTDPAR_DEPT_CD" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=机构编号编号已经存在，请重新输入！</Set>
|
|
<Return />
|
|
</If>
|
|
<Else>-->
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTERCD" />
|
|
</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>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<Transaction code="0021103" log_switch="1" desc="update_transaction">
|
|
<DynSentence name="UPD_OBJECT">
|
|
<Sentence>MSG_CD = '%s'</Sentence>
|
|
<Fields>MSG_CD</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTERCD" />
|
|
<Arg name="CndSts" value="UPD_OBJECT" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改成功!</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=修改失败!</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--手机号码段-->
|
|
<Transaction code="0015501" log_switch="1" desc="query_transaction">
|
|
<DynSentence name="QUERY_LIST">
|
|
<Sentence>SELECT MBL_SGM,PROV_CD,CITY_CD,ITL_FLG FROM CMMTMNBL WHERE ('%s'
|
|
IS NULL or
|
|
MBL_SGM='%s') AND ('%s'
|
|
IS NULL or
|
|
PROV_CD='%s') AND ('%s'
|
|
IS NULL or
|
|
CITY_CD='%s')</Sentence>
|
|
<Fields>MBL_SGM|MBL_SGM|PROV_CD|PROV_CD|CITY_CD|CITY_CD</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<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="QUERY_LIST"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QUERY_LIST"/><!--查询语句-->
|
|
<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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<Transaction code="0015502" log_switch="1" desc="show_transaction">
|
|
<DynSentence name="SHOW_OBJECT">
|
|
<Sentence>SELECT MBL_SGM,PROV_CD,PROV_NM,CITY_CD,CITY_NM,ITL_FLG,TM_SMP FROM CMMTMNBL WHERE MBL_SGM = '%s'</Sentence>
|
|
<Fields>MBL_SGM</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="SHOW_OBJECT" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=显示成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<Transaction code="0015504" log_switch="1" desc="delete_transaction">
|
|
<DynSentence name="DELETE_OBJECT">
|
|
<Sentence>DELETE FROM CMMTMNBL WHERE MBL_SGM = '%s'</Sentence>
|
|
<Fields>MBL_SGM_QRY</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DELETE_OBJECT" />
|
|
</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=CMM2000</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<Transaction code="0015505" log_switch="1" desc="add_transaction">
|
|
<DynSentence name="ADD_OBJECT">
|
|
<Sentence>INSERT INTO CMMTMNBL(MBL_SGM,PROV_CD,PROV_NM,CITY_CD,CITY_NM,ITL_FLG,TM_SMP) VALUES ('%s','%s','%s','%s','%s','%s','%s')</Sentence>
|
|
<Fields>MBL_SGM|PROV_CD|PROV_NM|CITY_CD|CITY_NM|ITL_FLG|TM_SMP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTMNBL" />
|
|
</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>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<Transaction code="0015503" log_switch="1" desc="update_transaction">
|
|
<DynSentence name="UPDATE_OBJECT">
|
|
<Sentence>MBL_SGM = '%s'</Sentence>
|
|
<Fields>MBL_SGM_QRY</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTMNBL" />
|
|
<Arg name="CndSts" value="UPDATE_OBJECT" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改成功!</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=修改失败!</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<!-- 批量删除手机号段信息 -->
|
|
<Transaction code="0015507" log_switch="1" desc="c/s say hello">
|
|
<DynSentence name="DELALL_CMMTMNBL_MOBLINF">
|
|
<!-- 数据库DELETE语句 -->
|
|
<Sentence>
|
|
DELETE FROM CMMTMNBL WHERE MBL_SGM='%s'
|
|
</Sentence>
|
|
<Fields>MBL_SGM_CD|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>CRD_CD_LIST=$QRY_CRD_CD_LIST</Set>
|
|
<If condition="ISNULL($CRD_CD_LIST)">
|
|
<Set>RSP_CD=02042301</Set>
|
|
<Set>RSP_MSG=选择列表不可为空</Set>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST" />
|
|
<Arg name="group" value="GRP" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break/>
|
|
</If>
|
|
<Set>MBL_SGM_CD=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DELALL_CMMTMNBL_MOBLINF"/>
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG="提示: 删除失败！"</Set>
|
|
<Return/>
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 序列号管理 -->
|
|
<Transaction code="0021201" log_switch="1" desc="query_transaction">
|
|
<DynSentence name="QUERY_LIST">
|
|
<Sentence>SELECT SEQ_TYP,CUR_SEQ,INIT_ZERO_DT,INIT_ZERO_PERD FROM CMMTSEQM WHERE ('%s' IS NULL OR SEQ_TYP= '%s')</Sentence>
|
|
<Fields>SEQ_TYP|SEQ_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>PAG_NUM=3</Set>
|
|
<If condition="IS_EQUAL_STRING($REQ_TYP,P)">
|
|
<!--首页翻过后，读后续数据-->
|
|
<Exec func="PUB:QueryPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID" />
|
|
<Arg name="QryCmd" value="$PAG_IDX" />
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<!--生成多页查询数据集-->
|
|
<Exec func="PUB:GenDataSet" error="IGNORE">
|
|
<Arg name="Type" value="SQL" />
|
|
<Arg name="SqlCmd" value="QUERY_LIST" />
|
|
<Arg name="RecKey" value="$CURUID" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<!--读数据集首页数据-->
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=浏览成功！</Set>
|
|
<Exec func="PUB:QueryFirstPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID" />
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM" />
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else> <!--生成查询数据集失败-->
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<Transaction code="0021202" log_switch="1" desc="show_transaction">
|
|
<DynSentence name="SHOW_OBJECT">
|
|
<Sentence>SELECT SEQ_TYP,PTR_KEY,CUR_SEQ,INIT_ZERO_DT,AC_CHK_MTH,INIT_ZERO_PERD,WARN_SEQ FROM CMMTSEQM WHERE SEQ_TYP = '%s'</Sentence>
|
|
<Fields>SEQ_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="SHOW_OBJECT" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=显示成功！</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=数据库错误！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<Transaction code="0021204" log_switch="1" desc="delete_transaction">
|
|
<DynSentence name="DELETE_OBJECT">
|
|
<Sentence>DELETE FROM CMMTSEQM WHERE SEQ_TYP = '%s'</Sentence>
|
|
<Fields>SEQ_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql"> <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DELETE_OBJECT" />
|
|
</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=CMM2000</Set>
|
|
<Set>RSP_MSG=沒有找到符合条件的记录！</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<Transaction code="0021205" log_switch="1" desc="add_transaction">
|
|
<DynSentence name="ADD_OBJECT">
|
|
<Sentence>INSERT INTO CMMTSEQM(SEQ_TYP,PTR_KEY,CUR_SEQ,INIT_ZERO_DT,AC_CHK_MTH,INIT_ZERO_PERD,WARN_SEQ) VALUES ('%s','%s','%s','%s','%s','%s','%s')</Sentence>
|
|
<Fields>SEQ_TYP|PTR_KEY|CUR_SEQ|INIT_ZERO_DT|AC_CHK_MTH|INIT_ZERO_PERD|WARN_SEQ</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTSEQM" />
|
|
</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>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<Transaction code="0021203" log_switch="1" desc="update_transaction">
|
|
<DynSentence name="UPDATE_OBJECT">
|
|
<Sentence>SEQ_TYP = '%s'</Sentence>
|
|
<Fields>SEQ_TYP</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:DumpETF" />
|
|
<Exec func="PUB:UpdateRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTSEQM" />
|
|
<Arg name="CndSts" value="UPDATE_OBJECT" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=修改成功!</Set>
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_CD=CMM2000</Set>
|
|
<Set>RSP_MSG=修改失败!</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|