480 lines
20 KiB
XML
480 lines
20 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
|
|
<Application name="SDM" code="199"
|
|
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">
|
|
|
|
<LibDeclare>
|
|
<Library name="MNG" value="himng.jar" />
|
|
</LibDeclare>
|
|
<!--
|
|
<BusDefDeclare> <Include file="etc/UIS_BUS.XML"/> </BusDefDeclare>
|
|
-->
|
|
<GlobalFunction>
|
|
<Function name="_before">
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>GWA.MSG_CD=CTS0000</Set>
|
|
<Set>GWA.MSG_INF1=''</Set>
|
|
<Set>BR_NO=999999</Set>
|
|
<!-- <Set>U_BR_NO=$SESSION.BR_NO</Set> -->
|
|
<!--<Set>CURUID=$SESSION.USR_ID</Set>-->
|
|
<Set>CURUID=usradm</Set>
|
|
<Set>SYS_CD=BFC</Set>
|
|
<Set>CNL_TYP=UI</Set>
|
|
<Set>MON_FLG=0</Set>
|
|
</Function>
|
|
<Function name="_after">
|
|
<If condition="NOT(ISNULL($output))">
|
|
<Exec func="PUB:SetRetPage">
|
|
<Arg name="page" value="$output" />
|
|
</Exec>
|
|
</If>
|
|
</Function>
|
|
</GlobalFunction>
|
|
|
|
<!--交易码0012101-0012105为协议种类维护 -->
|
|
<!-- 查询协议类型 -->
|
|
<Transaction code="0012102" desc="QRY AGR_TYP" log_switch="1">
|
|
<DynSentence name="QRY_CMMTPLCG_AGRTYP">
|
|
<!-- 查询操协议类型 -->
|
|
<Sentence>
|
|
SELECT * FROM CMMTPLCG WHERE '%s' IS NULL OR AGR_TYP='%s' ORDER BY AGR_TYP
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|AGR_TYP_QRY|</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="QRY_CMMTPLCG_AGRTYP"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_AGRTYP"/><!--查询语句-->
|
|
<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="0012101" desc="Get agr List" log_switch="1">
|
|
<!-- 查询协议类型的信息 -->
|
|
<DynSentence name="QRY_CMMTPLCG_PLCG">
|
|
<Sentence>
|
|
SELECT * FROM CMMTPLCG WHERE AGR_TYP='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_PLCG" />
|
|
</Exec>
|
|
<Exec func="PUB:DumpETF" />
|
|
<If condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM9000</Set>
|
|
<Set>RSP_MSG1=无此协议！</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG1=查询成功！</Set>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统错误,操作数据库失败！</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 新增协议种类 -->
|
|
<Transaction code="0012105" desc="AGR add" log_switch="1">
|
|
<!-- 查检测该协议编号是否存在 -->
|
|
<DynSentence name="QRY_CMMTPLCG_AGRTYP">
|
|
<Sentence>
|
|
SELECT 'Y' FROM CMMTPLCG WHERE AGR_TYP='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>UPD_JRN=GETDATE()</Set> <!-- 最后更新流水号 -->
|
|
<Set>UPD_OPR=$OPR_ID</Set> <!-- 最后更新操作员 -->
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 时间戳 -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_AGRTYP" />
|
|
</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>
|
|
<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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 修改协议类型信息 -->
|
|
<Transaction code="0012103" log_switch="1">
|
|
<DynSentence name="UPD_CMMTPLCG_PLCG">
|
|
<Sentence>
|
|
AGR_TYP='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:UpdateRecord">
|
|
<Arg name="TblNam" value="CMMTPLCG" />
|
|
<Arg name="CndSts" value="UPD_CMMTPLCG_PLCG" />
|
|
</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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除协议类(可批量删除) -->
|
|
<Transaction code="0012104" log_switch="1">
|
|
<!-- 删除协议类型 -->
|
|
<DynSentence name="DEL_CMMTPLCG_PLCG">
|
|
<Sentence>
|
|
DELETE FROM CMMTPLCG WHERE AGR_TYP='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|</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>AGR_TYP_QRY=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DEL_CMMTPLCG_PLCG"/>
|
|
</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>
|
|
|
|
<!--交易码0012201-0012208为协议基本信息维护 -->
|
|
|
|
<Transaction code="0012202" desc="Get agr List" log_switch="1">
|
|
<!-- 查询协议版本信息 -->
|
|
<DynSentence name="QRY_CMMTPLVR_PLVR">
|
|
<Sentence>
|
|
SELECT * FROM CMMTPLVR
|
|
WHERE ('%s' IS NULL OR AGR_TYP='%s')
|
|
AND ('%s' IS NULL OR AGR_VER='%s')
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|AGR_TYP_QRY|AGR_VER_QRY|AGR_VER_QRY</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<!-- <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="QRY_CMMTPLVR_PLVR" />
|
|
<Arg name="RecKey" value="$CURUID" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryFirstPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID" />
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM" />
|
|
</Exec>
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG=查询成功！</Set>
|
|
</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>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_CMMTPLVR_PLVR"/><!--查询语句-->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--读首页数据-->
|
|
<If condition="~RetCod=0">
|
|
<Exec func="PUB:QueryHeadPage" error="IGNORE">
|
|
<Arg name="RecKey" value="$CURUID"/>
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLVR_PLVR"/><!--查询语句-->
|
|
<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="0012201" desc="Get agr List" log_switch="1">
|
|
<!-- 查询协议版本信息 -->
|
|
<DynSentence name="QRY_CMMTPLVR_PLVR">
|
|
<Sentence>
|
|
SELECT * FROM CMMTPLVR WHERE AGR_TYP='%s' AND AGR_VER='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|AGR_VER_QRY</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLVR_PLVR" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Set>RSP_CD=CMM9000</Set>
|
|
<Set>RSP_MSG1=无此协议！</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Set>RSP_CD=CMM0000</Set>
|
|
<Set>RSP_MSG1=查询成功！</Set>
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CMM0001</Set>
|
|
<Set>RSP_MSG=系统错误,操作数据库失败！</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 新增协议版本信息 -->
|
|
<Transaction code="0012205" desc="AGR add" log_switch="1">
|
|
<!-- 检测该协议版本是否已占用 -->
|
|
<DynSentence name="QRY_CMMTPLVR_PLVR">
|
|
<Sentence>
|
|
SELECT 'Y' FROM CMMTPLVR WHERE AGR_TYP='%s' AND AGR_VER='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP|AGR_VER</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>UPD_JRN=000000</Set> <!-- 最后更新流水号 -->
|
|
<Set>UPD_OPR=$OPR_ID</Set> <!-- 最后更新柜员 -->
|
|
<Set>TM_SMP=GETDATETIME()</Set> <!-- 时间戳 -->
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLVR_PLVR" />
|
|
</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>
|
|
<Exec func="PUB:InsertRecord" error="IGNORE">
|
|
<Arg name="TblNam" value="CMMTPLVR" />
|
|
</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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 修改协议版本信息 -->
|
|
<Transaction code="0012203" log_switch="1">
|
|
<DynSentence name="UPD_CMMTPLVR_PLVR">
|
|
<Sentence>
|
|
AGR_TYP='%s' AND AGR_VER='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|AGR_VER_QRY|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:UpdateRecord">
|
|
<Arg name="TblNam" value="CMMTPLVR" />
|
|
<Arg name="CndSts" value="UPD_CMMTPLVR_PLVR" />
|
|
</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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除协议版本信息(单条删除) -->
|
|
<Transaction code="0012204" log_switch="1">
|
|
<!-- 删除协议版本信息 -->
|
|
<DynSentence name="DEL_CMMTPLVR_PLVR">
|
|
<Sentence>
|
|
DELETE FROM CMMTPLVR WHERE AGR_TYP='%s' AND AGR_VER='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|AGR_VER_QRY|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ExecSql" > <!-- 执行删除记录操作 -->
|
|
<Arg name="SqlCmd" value="DEL_CMMTPLVR_PLVR"/>
|
|
</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>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除协议版本(可批量删除) -->
|
|
<Transaction code="0012108" log_switch="1">
|
|
<!-- 删除协议版本 -->
|
|
<DynSentence name="DEL_CMMTPLVR_PLVR">
|
|
<Sentence>
|
|
DELETE FROM CMMTPLVR WHERE AGR_TYP='%s' AND AGR_VER='%s'
|
|
</Sentence>
|
|
<Fields>AGR_TYP_QRY|AGR_VER_QRY|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>CRD_CD_LIST=$QRY_CRD_CD_LIST</Set>
|
|
<Set>CRD_CD_LIST1=$QRY_CRD_CD_LIST1</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>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$CRD_CD_LIST1" />
|
|
<Arg name="group" value="GRP1" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break/>
|
|
</If>
|
|
<Set>AGR_TYP_QRY=$GRP[$NUM].DATA</Set>
|
|
<Set>AGR_VER_QRY=$GRP1[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DEL_CMMTPLVR_PLVR"/>
|
|
</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="0012207" log_switch="1">
|
|
<!-- 查询 -->
|
|
<DynSentence name="QRY_CMMTPLCG_AGRTYP" >
|
|
<Sentence >
|
|
SELECT AGR_TYP FROM CMMTPLCG order by AGR_TYP
|
|
</Sentence >
|
|
</DynSentence >
|
|
<FlowCtrl >
|
|
<Exec func="PUB:QueryInGroup" >
|
|
<Arg name="SqlCmd" value="QRY_CMMTPLCG_AGRTYP" />
|
|
<Arg name="RecordName" value="REC" />
|
|
</Exec >
|
|
<Set >RSP_CD=000000 </Set >
|
|
</FlowCtrl >
|
|
</Transaction>
|
|
</Application>
|