997 lines
41 KiB
XML
997 lines
41 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Application name="CMM" code="002"
|
|
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" />
|
|
<Library name="ATM" value="hiatmp.jar" />
|
|
</LibDeclare>
|
|
|
|
<GlobalFunction>
|
|
<Function name="_before">
|
|
<Exec func="PUB:DumpETF" />
|
|
<Set>RSP_CD=9999999</Set>
|
|
<Set>RSP_MSG=异常错误</Set>
|
|
<Set>BR_NO=331999</Set>
|
|
<Set>U_BR_NO=331999</Set>
|
|
<Set>CURUID=$SESSION.USR_ID</Set>
|
|
|
|
<Set>SYS_CD=BFC</Set>
|
|
<Set>CNL_TYP=UI</Set>
|
|
<Set>MON_FLG=1</Set>
|
|
</Function>
|
|
<Function name="_after">
|
|
<If condition="NOT(ISNULL($output))">
|
|
<Exec func="PUB:SetRetPage">
|
|
<Arg name="page" value="$output" />
|
|
</Exec>
|
|
</If>
|
|
|
|
<If condition="NOT(ISNULL($RSP_CD))">
|
|
<Set>RSP_CODY=SUBSTR($RSP_CD,4,4)</Set>
|
|
<If condition="$RSP_CODY=0000">
|
|
<Set>MSG_TYP=N</Set>
|
|
<Set>MON_STS=S</Set>
|
|
</If>
|
|
<Else>
|
|
<If condition="$MSG_TYP!=N">
|
|
<Exec func="PUB:RollbackWork" />
|
|
<Set>MSG_TYP=E</Set>
|
|
<Set>RSP_MSG=STRCAT( ,$RSP_MSG, )</Set>
|
|
<Set>RSP_CD=1052999</Set>
|
|
<Set>MON_STS=F</Set>
|
|
</If>
|
|
</Else>
|
|
</If>
|
|
|
|
<Exec func="PUB:DumpETF" />
|
|
|
|
</Function>
|
|
</GlobalFunction>
|
|
|
|
<!-- 用户登陆,input:UID, USERPWD-->
|
|
<Transaction code="uilogin" log_switch="1">
|
|
<DynSentence name="queryUser">
|
|
<Sentence>
|
|
SELECT PASSWORD,ACTIVED,UPDDAT,FALSTS,BR_NO FROM MNGUSRINF
|
|
WHERE ID='%s'
|
|
</Sentence>
|
|
<Fields>UID|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="updUsrInf">
|
|
<Sentence>
|
|
UPDATE MNGUSRINF SET FALSTS='%s',ACTIVED='%s' WHERE ID='%s'
|
|
</Sentence>
|
|
<Fields>FalSts|Actived|UID|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="queryGroup">
|
|
<Sentence>
|
|
SELECT TXN_CD,PAG_ID FROM MNGUSRGRP,MNGTXNPRV,MNGGRPINF
|
|
WHERE
|
|
MNGUSRGRP.USR_ID='%s' and MNGUSRGRP.GRP_ID=MNGTXNPRV.GRP_ID AND
|
|
MNGUSRGRP.GRP_ID=MNGGRPINF.GRP_ID AND MNGGRPINF.ACTIVED='1' AND
|
|
MNGTXNPRV.STS='1'
|
|
</Sentence>
|
|
<Fields>UID|</Fields>
|
|
</DynSentence>
|
|
|
|
|
|
<Function name="_after">
|
|
<FlowCtrl>
|
|
<If condition="$RSP_CD=0000000">
|
|
<Exec func="PUB:SetRetPage">
|
|
<Arg name="page" value="/jsp/base/main_frame.jsp" />
|
|
</Exec>
|
|
</If>
|
|
<Else>
|
|
<If condition="ISNULL($RSP_MSG)">
|
|
<Set>RSP_MSG=异常错误</Set>
|
|
</If>
|
|
<Exec func="PUB:SetRetPage">
|
|
<Arg name="page" value="/jsp/pubmng/login.jsp" />
|
|
</Exec>
|
|
</Else>
|
|
<If condition="NOT(ISNULL($RSP_CD))">
|
|
<Set>RSP_CODY=SUBSTR($RSP_CD,4,4)</Set>
|
|
<If condition="$RSP_CODY=0000">
|
|
<Set>MSG_TYP=N</Set>
|
|
<Set>MON_STS=S</Set>
|
|
</If>
|
|
<Else>
|
|
<If condition="$MSG_TYP!=N">
|
|
<Exec func="PUB:RollbackWork" />
|
|
<Set>MSG_TYP=E</Set>
|
|
<Set>RSP_MSG=STRCAT( ,$RSP_MSG, )</Set>
|
|
<Set>RSP_CD=1052999</Set>
|
|
<Set>MON_STS=F</Set>
|
|
</If>
|
|
</Else>
|
|
</If>
|
|
</FlowCtrl>
|
|
</Function>
|
|
<FlowCtrl>
|
|
<Set>ORG_UID=$UID</Set>
|
|
<Set>TXN_CD=020300</Set>
|
|
<Set>TLR_ID=$UID</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="queryUser" />
|
|
</Exec>
|
|
<!--查询此用户-->
|
|
<If condition="~RetCod=0">
|
|
<!--检查是否处于激活状态-->
|
|
<If condition="IS_NOEQUAL_STRING($ACTIVED,1)">
|
|
<Set>RSP_CD=CTS0001</Set>
|
|
<Set>RSP_MSG=此用户处于非激活状态,不允许登陆</Set>
|
|
<Return />
|
|
</If>
|
|
|
|
<!--检查密码是否为空-->
|
|
<If condition="ISNULL(DELBOTHSPACE($USERPWD))">
|
|
<Set>RSP_CD=CTS0002</Set>
|
|
<Set>RSP_MSG=请输入密码</Set>
|
|
<Return />
|
|
</If>
|
|
|
|
<!--检查密码-->
|
|
<Exec func="ATM:XOREncrypt">
|
|
<Arg name="node" value="USERPWD" />
|
|
</Exec>
|
|
<If condition="IS_NOEQUAL_STRING($PASSWORD,$USERPWD)">
|
|
<Set>RSP_CD=CTS2000</Set>
|
|
<Set>RSP_MSG=密码错误</Set>
|
|
<Set>FalSts=ADD($FalSts,1)</Set>
|
|
<If condition="INTCMP($FalSts,5,5)">
|
|
<Set>$ACTIVED=2</Set>
|
|
</If>
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="updUsrInf" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<!--密码正,检验是否过期,强度为30天-->
|
|
<If condition="ISNULL($UPDDAT)">
|
|
<Set>RSP_CD=CTS2001</Set>
|
|
<Set>RSP_MSG=此密码为系统初始密码,需进行重设</Set>
|
|
</If>
|
|
<ElseIf condition="INTCMP(DIFFDATE($UPDDAT,$ACC_DT),6,30)">
|
|
<Set>RSP_CD=CTS2002</Set>
|
|
<Set>RSP_MSG=此密码已过期,需进行重设</Set>
|
|
</ElseIf>
|
|
<Else>
|
|
<If condition="INTCMP(DIFFDATE($UPDDAT,$ACC_DT),6,28)">
|
|
<Set>RSP_CD=CTS2003</Set>
|
|
<Set>RSP_MSG=密码距离有效期还有两天，请及时更新</Set>
|
|
</If>
|
|
</Else>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=CTS2004</Set>
|
|
<Set>RSP_MSG=用户不存在</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Set>RSP_MSG=系统错误,查询数据库失败</Set>
|
|
<Return />
|
|
</Else>
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="queryGroup" />
|
|
<Arg name="RecordName" value="Grp" />
|
|
</Exec>
|
|
<!--更新FalSts为0-->
|
|
<If condition="$FalSts!=0">
|
|
<Set>FalSts=0</Set>
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="updUsrInf" />
|
|
</Exec>
|
|
</If>
|
|
<If condition="~RetCod=-1">
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Set>RSP_MSG=系统错误,操作数据库失败</Set>
|
|
<Return />
|
|
</If>
|
|
|
|
|
|
|
|
|
|
<Set>UID=$ORG_UID</Set>
|
|
<Exec func="PUB:PageAuth" error="IGNORE" />
|
|
<Exec func="PUB:SetSessionData">
|
|
<Arg name="USR_ID" value="$ORG_UID" />
|
|
<Arg name="BK_NO" value="$BR_NO" />
|
|
</Exec>
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=验证成功</Set>
|
|
<Exec func="PUB:DumpETF" />
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 用户列表查询,input: QRY_ID,QRY_NAME-->
|
|
<Transaction code="020301" desc="Get User List" log_switch="1">
|
|
<DynSentence name="user_query">
|
|
<Sentence>
|
|
Select * from mngusrinf where ('%s' is null or ID='%s' )
|
|
and ('%s' is null
|
|
or NAME like '%%%s%%' ) and ('%s' is null or
|
|
Actived='%s' ) order by
|
|
id
|
|
</Sentence>
|
|
<Fields>QRY_ID|QRY_ID|QRY_NAME|QRY_NAME|QRY_STS|QRY_STS|</Fields>
|
|
</DynSentence>
|
|
|
|
<FlowCtrl>
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="user_query" />
|
|
<Arg name="RecordName" value="GRP" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Set>RSP_CD=CTS2020</Set>
|
|
<Set>RSP_MSG=无该用户</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=验证成功</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Set>RSP_MSG=系统错误,操作数据库失败</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 用户明细查询,input:COND_ID -->
|
|
<Transaction code="020302" desc="Get User List" log_switch="1">
|
|
<DynSentence name="user_query">
|
|
<Sentence>
|
|
Select ID CUR_ID,NAME CUR_NAME,BR_NO CUR_BR_NO,ACTIVED
|
|
CUR_ACTIVED,ACT_USER CUR_ACT_USER,REMARK
|
|
CUR_REMARK,LIM_FLG,MAC,MAC_W from mngusrinf where ID='%s'
|
|
</Sentence>
|
|
<Fields>COND_ID|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="usergrp_query">
|
|
<Sentence>
|
|
select GRP_ID GRP_ID,GRPNAM GRP_NM,ACTIVED Actived,Act_User
|
|
Act_User from
|
|
mnggrpinf where grp_id in (select grp_id from mngusrgrp
|
|
where
|
|
usr_id='%s') order by grp_id
|
|
</Sentence>
|
|
<Fields>COND_ID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="user_query" />
|
|
</Exec>
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="usergrp_query" />
|
|
<Arg name="RecordName" value="ROLEGRP" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Set>RSP_CD=CTS2020</Set>
|
|
<Set>RSP_MSG=无该用户</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=验证成功</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Set>RSP_MSG=系统错误,操作数据库失败</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--
|
|
用户新增,input:CUR_ID,CUR_NAME,cur_br_no,CUR_PWD,CUR_ACTIVED,CUR_ACT_USER,cur_remark
|
|
-->
|
|
<Transaction code="020303" desc="User add" log_switch="1">
|
|
<DynSentence name="user_add">
|
|
<Sentence>Insert into
|
|
mngusrinf(ID,NAME,BR_NO,PASSWORD,ACTIVED,ACT_USER,REMARK,LIM_FLG,MAC,MAC_W)
|
|
values('%s','%s','%s','%s','%s','%s','%s','%s','%s','%s') </Sentence>
|
|
<Fields>CUR_ID|CUR_NAME|CUR_BR_NO|CUR_PWD|CUR_ACTIVED|CUR_ACT_USER|CUR_REMARK|LIM_FLG|MAC|MAC_W|
|
|
</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="user_sel">
|
|
<Sentence>Select count(*) USERNUM from mngusrinf where ID='%s'
|
|
</Sentence>
|
|
<Fields>UID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
|
|
<!-- For test, add by flydish , date: 2009-11-06 -->
|
|
<Set>USR_ID=$CURUID</Set>
|
|
<Set>ACT=ins_usr</Set> <!-- 检测此用户是否有权进行添加用户的操作 -->
|
|
<Set>TYP=00</Set>
|
|
<!--
|
|
Call package="PRV" function="ActPrvChk">
|
|
<Input>USR_ID|ACT|TYP|</Input> <Output>Flg</Output> </Call> <If
|
|
condition="$Flg=N"> <Set>RSP_CD=CTS2040</Set>
|
|
<Set>RSP_MSG=您无权限做此操作</Set> <Return/> </If
|
|
-->
|
|
<!-- add end -->
|
|
<Exec func="ATM:PasswdCheck">
|
|
<Arg name="PassWd" value="$CUR_PWD" />
|
|
</Exec>
|
|
<If condition="~RetCod!=1">
|
|
<Set>RSP_CD=CTS2030</Set>
|
|
<Set>RSP_MSG=密码至少包含一个字母！</Set>
|
|
<Return />
|
|
</If>
|
|
<If condition="ISNULL($U_NAME)">
|
|
<Set>U_NAME=$UID</Set>
|
|
</If>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="user_sel" />
|
|
</Exec>
|
|
<If condition="INTCMP($USERNUM,6,0)">
|
|
<Set>RSP_MSG=用户ID已经存在</Set>
|
|
<Set>RSP_CD=CTS2031</Set>
|
|
<Return />
|
|
</If>
|
|
<Else>
|
|
<Exec func="ATM:XOREncrypt">
|
|
<Arg name="node" value="CUR_PWD" />
|
|
</Exec>
|
|
<!--跳过审核,ACTIVED,ACT_USER-->
|
|
<Set>CUR_ACTIVED=1</Set>
|
|
<Set>CUR_ACT_USER=SYSTEM</Set>
|
|
<If condition="ISNULL($LIM_FLG)">
|
|
<Set>LIM_FLG=N</Set>
|
|
</If>
|
|
<If condition="ISNULL($MAC)">
|
|
<Set>MAC=</Set>
|
|
</If>
|
|
<If condition="ISNULL($MAC_W)">
|
|
<Set>MAC_W=</Set>
|
|
</If>
|
|
<Exec func="PUB:ExecSql" error="IGNORE">
|
|
<Arg name="SqlCmd" value="user_add" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_MSG=添加用户失败:操作数据库出错</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Return />
|
|
</If>
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=添加用户成功</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 用户修改,input:CUR_NAME,CUR_Remark,CUR_BR_NO,CUR_PWD,CUR_ID -->
|
|
<Transaction code="020304" desc="Update User" log_switch="1">
|
|
<DynSentence name="UpdUserInfo">
|
|
<Sentence>
|
|
update mngusrinf set
|
|
NAME='%s',REMARK='%s',BR_NO='%s',ACTIVED='%s',LIM_FLG='%s',MAC='%s',MAC_W='%s'
|
|
where ID='%s'
|
|
</Sentence>
|
|
<Fields>CUR_NAME|CUR_Remark|CUR_BR_NO|ACTIVED|LIM_FLG|MAC|MAC_W|CUR_ID|
|
|
</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<If condition="ISNULL($LIM_FLG)">
|
|
<Set>LIM_FLG=N</Set>
|
|
</If>
|
|
<If condition="ISNULL($MAC)">
|
|
<Set>MAC=</Set>
|
|
</If>
|
|
<If condition="ISNULL($MAC_W)">
|
|
<Set>MAC_W=</Set>
|
|
</If>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UpdUserInfo" />
|
|
</Exec>
|
|
<!--
|
|
Exec func="PUB:QueryInGroup" error="IGNORE"> <Arg name="SqlCmd"
|
|
value="user_query" /> <Arg name="RecordName" value="GROUP" /> </Exec
|
|
-->
|
|
<If condition="~RetCod=-2">
|
|
<Set>RSP_CD=CTS2040</Set>
|
|
<Set>RSP_MSG=无该用户</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=修改用户失败:操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0040</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=修改用户成功</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
<!-- 删除用户,input:ID -->
|
|
<Transaction code="020305" desc="User delete" log_switch="1">
|
|
<DynSentence name="DelUse">
|
|
<Sentence>
|
|
DELETE FROM MNGUSRINF WHERE ID='%s'
|
|
</Sentence>
|
|
<Fields>DEL_ID|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="DelRel">
|
|
<Sentence>Delete from mngusrgrp where USR_ID='%s' </Sentence>
|
|
<Fields>DEL_ID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<If condition="ISNULL($DEL_ID)">
|
|
<Set>RSP_MSG=请选择要删除的用户</Set>
|
|
<Set>RSP_CD=CTS2051</Set>
|
|
<Return />
|
|
</If>
|
|
<If condition="IS_EQUAL_STRING($DEL_ID,$CURUID)">
|
|
<Set>RSP_MSG=用户不能删除自己</Set>
|
|
<Set>RSP_CD=CTS2050</Set>
|
|
<!--Set>OUTPUT=/jsp/usermng/usermng_error.jsp</Set-->
|
|
<Return />
|
|
</If>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DelUse" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_MSG=删除用户操作失败</Set>
|
|
<Set>RSP_CD=CTS0050</Set>
|
|
<!--Set>OUTPUT=/jsp/usermng/usermng_error.jsp</Set-->
|
|
<Return />
|
|
</If>
|
|
<Else>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DelRel" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_MSG=删除角色操作失败</Set>
|
|
<Set>RSP_CD=CTS0051</Set>
|
|
<!--Set>OUTPUT=/jsp/usermng/usermng_error.jsp</Set-->
|
|
<Return />
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=删除用户操作成功</Set>
|
|
</Else>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 添加该用户角色,input:CUR_ID,NEW_ROLE -->
|
|
<Transaction code="020306" desc="qry new role" log_switch="1">
|
|
<DynSentence name="InsertUserRole">
|
|
<Sentence>
|
|
insert into mngusrgrp (usr_id,grp_id) values('%s','%s')
|
|
</Sentence>
|
|
<Fields>CUR_ID|NEW_ROLE</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<If condition="ISNULL($CUR_ID)">
|
|
<Set>RSP_CD=CTS2060</Set>
|
|
<Set>RSP_MSG=用户ID不可为空</Set>
|
|
<Return />
|
|
</If>
|
|
<If condition="ISNULL($ROLE_LIST)">
|
|
<Set>RSP_CD=CTS2061</Set>
|
|
<Set>RSP_MSG=选择角色列表不可为空</Set>
|
|
<Return />
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$ROLE_LIST" />
|
|
<Arg name="group" value="GRP" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<Set>ISSUCCESS=0</Set> <!--成功失败标志，0：成功、1：失败-->
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break />
|
|
</If>
|
|
<Set>NEW_ROLE=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="InsertUserRole" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Set>RSP_MSG=添加用户角色失败：操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Set>ISSUCCESS=1</Set>
|
|
<Break />
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
<If condition="$ISSUCCESS=0">
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=添加用户角色成功</Set>
|
|
</If>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 删除该用户角色,input:CUR_ID,DEL_ROLE -->
|
|
<Transaction code="020307" desc="del user role" log_switch="1">
|
|
<DynSentence name="DelUserRole">
|
|
<Sentence>
|
|
delete from mngusrgrp where usr_id='%s' and grp_id='%s'
|
|
</Sentence>
|
|
<Fields>CUR_ID|DEL_ROLE|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="usergrp_query">
|
|
<Sentence>
|
|
select GRP_ID GRP_ID,GRPNAM GRP_NM,ACTIVED Actived,Act_User
|
|
Act_User from
|
|
mnggrpinf where grp_id in (select grp_id from mngusrgrp
|
|
where
|
|
usr_id='%s')
|
|
</Sentence>
|
|
<Fields>CUR_ID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<If condition="ISNULL($CUR_ID)">
|
|
<Set>RSP_CD=CTS2070</Set>
|
|
<Set>RSP_MSG=用户ID不可为空</Set>
|
|
<Return />
|
|
</If>
|
|
<If condition="ISNULL($ROLE_LIST)">
|
|
<Set>RSP_CD=CTS2071</Set>
|
|
<Set>RSP_MSG=选择角色列表不可为空</Set>
|
|
<Return />
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$ROLE_LIST" />
|
|
<Arg name="group" value="GRP" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<Set>ISSUCCESS=0</Set> <!--成功失败标志，0：成功、1：失败-->
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break />
|
|
</If>
|
|
<Set>DEL_ROLE=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DelUserRole" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Set>RSP_MSG=操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Set>ISSUCCESS=1</Set>
|
|
<Break />
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="usergrp_query" />
|
|
<Arg name="RecordName" value="ROLEGRP" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Set>RSP_CD=CTS2072</Set>
|
|
<Set>RSP_MSG=无该用户</Set>
|
|
<Return />
|
|
</If>
|
|
<If condition="$ISSUCCESS=0">
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=删除用户角色成功</Set>
|
|
</If>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 查询该用户可添加的角色,input:CUR_ID -->
|
|
<Transaction code="020308" desc="qry new role" log_switch="1">
|
|
<DynSentence name="QryRoleNewList">
|
|
<Sentence>
|
|
select GRP_ID GRP_ID,GRPNAM GRP_NM,ACTIVED Actived,Act_User
|
|
Act_User from
|
|
mnggrpinf where grp_id not in (select grp_id from
|
|
mngusrgrp where
|
|
usr_id='%s')
|
|
</Sentence>
|
|
<Fields>CUR_ID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QryRoleNewList" />
|
|
<Arg name="RecordName" value="GRP" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Set>RSP_CD=CTS2080</Set>
|
|
<Set>RSP_MSG=无该用户可添加的角色</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 用户重置密码,input:CUR_PWD,CUR_ID -->
|
|
<Transaction code="020309" desc="Update User Pwd"
|
|
log_switch="1">
|
|
<DynSentence name="UpdUserInfo">
|
|
<Sentence>
|
|
update mngusrinf set PASSWORD='%s' where ID='%s'
|
|
</Sentence>
|
|
<Fields>CUR_PWD|CUR_ID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="ATM:PasswdCheck">
|
|
<Arg name="PassWd" value="$CUR_PWD" />
|
|
</Exec>
|
|
<If condition="~RetCod!=1">
|
|
<Set>RSP_CD=CTS2090</Set>
|
|
<Set>RSP_MSG=密码至少包含一个字母！</Set>
|
|
<Return />
|
|
</If>
|
|
<Exec func="ATM:XOREncrypt">
|
|
<Arg name="node" value="CUR_PWD" />
|
|
</Exec>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UpdUserInfo" />
|
|
</Exec>
|
|
<If condition="~RetCod=-2">
|
|
<Set>RSP_CD=CTS2091</Set>
|
|
<Set>RSP_MSG=无该用户</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=修改用户密码失败:操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=修改用户密码成功</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--用户修改密码-->
|
|
<Transaction code="020310" desc="change passwd" log_switch="1">
|
|
<DynSentence name="QRY_PSW">
|
|
<Sentence>
|
|
SELECT PASSWORD FROM MNGUSRINF WHERE ID='%s'
|
|
</Sentence>
|
|
<Fields>CURUID|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="UpdUserInfo">
|
|
<Sentence>
|
|
update mngusrinf set PASSWORD='%s' where ID='%s'
|
|
</Sentence>
|
|
<Fields>NEW_PSW|CURUID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_PSW" />
|
|
</Exec>
|
|
<!--查询此用户-->
|
|
<If condition="~RetCod=0">
|
|
<!--检查密码-->
|
|
<Exec func="ATM:XOREncrypt">
|
|
<Arg name="node" value="CUR_PSW" />
|
|
</Exec>
|
|
<If condition="IS_NOEQUAL_STRING($PASSWORD,$CUR_PSW)">
|
|
<Set>RSP_CD=CTS2000</Set>
|
|
<Set>RSP_MSG=输入的密码错误</Set>
|
|
</If>
|
|
|
|
<Exec func="ATM:PasswdCheck">
|
|
<Arg name="PassWd" value="$NEW_PSW" />
|
|
</Exec>
|
|
<If condition="~RetCod!=1">
|
|
<Set>RSP_CD=CTS2090</Set>
|
|
<Set>RSP_MSG=密码至少包含一个字母！</Set>
|
|
<Return />
|
|
</If>
|
|
<Exec func="ATM:XOREncrypt">
|
|
<Arg name="node" value="NEW_PSW" />
|
|
</Exec>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="UpdUserInfo" />
|
|
</Exec>
|
|
<If condition="~RetCod=-2">
|
|
<Set>RSP_CD=CTS2091</Set>
|
|
<Set>RSP_MSG=无该用户</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=修改用户密码失败:操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=修改用户密码成功</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_CD=CTS2000</Set>
|
|
<Set>RSP_MSG=系统出错</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--用户登陆日志查询-->
|
|
<Transaction code="020311" log_switch="1">
|
|
<DynSentence name="QRY_USRLOGIN">
|
|
<Sentence>
|
|
SELECT NAME,TLR_ID,SIP,TXN_DAT,BEG_TIM1
|
|
FROM MONTXNREC
|
|
A,MNGUSRINF B
|
|
WHERE A.TLR_ID=B.ID
|
|
AND ('%s' IS NULL OR TLR_ID ='%s')
|
|
AND ('%s' IS NULL OR TXN_DAT >'%s')
|
|
AND ('%s' IS NULL OR
|
|
'%s'>TXN_DAT)
|
|
|
|
</Sentence>
|
|
<Fields>QRY_TLR_ID|QRY_TLR_ID|QRY_STA_DT__D|QRY_STA_DT__D|QRY_END_DT__D|QRY_END_DT__D|
|
|
</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>PAG_NUM=15</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_USRLOGIN" />
|
|
<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>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=02070001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else> <!--生成查询数据集失败-->
|
|
<Set>RSP_CD=02070002</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return />
|
|
</Else>
|
|
<Set>RSP_CD=000000</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--受限制的MAC地址查询(列表)-->
|
|
<Transaction code="020312" log_switch="1">
|
|
<DynSentence name="QRY_MAC_LSIT">
|
|
<Sentence>
|
|
SELECT ROWNUM ID,MAC,RMK,UPD_TLR,UPD_TM
|
|
FROM MRCTMAC
|
|
</Sentence>
|
|
<Fields />
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>PAG_NUM=15</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_MAC_LSIT" />
|
|
<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>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2"> <!--没查询到数据-->
|
|
<Set>RSP_CD=02070001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else> <!--生成查询数据集失败-->
|
|
<Set>RSP_CD=02070002</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return />
|
|
</Else>
|
|
<Set>RSP_CD=000000</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
|
|
<!-- 添加受限的MAC地址 -->
|
|
<Transaction code="020313" desc="add new mac" log_switch="1">
|
|
<DynSentence name="QRY_MRCTMAC">
|
|
<Sentence>
|
|
SELECT 'Y' FROM MRCTMAC WHERE MAC='%s'
|
|
</Sentence>
|
|
<Fields>ADD_MAC|</Fields>
|
|
</DynSentence>
|
|
<DynSentence name="ADD_MRCTMAC">
|
|
<Sentence>
|
|
INSERT INTO MRCTMAC (MAC,RMK,UPD_TLR,UPD_TM)
|
|
values('%s','%s','%s','%s')
|
|
</Sentence>
|
|
<Fields>ADD_MAC|RMK|CURUID|CUR_TM|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>CUR_TM=GETDATETIME()</Set>
|
|
<If condition="STRLEN($ADD_MAC)!=17">
|
|
<Set>RSP_CD=CTS2060</Set>
|
|
<Set>RSP_MSG=输入的MAC地址长度不对</Set>
|
|
<Return />
|
|
</If>
|
|
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_MRCTMAC" />
|
|
</Exec>
|
|
<!--查询此用户-->
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=CTS2060</Set>
|
|
<Set>RSP_MSG=输入的MAC地址已经存在</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=-1">
|
|
<Set>RSP_MSG=添加MAC失败：操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="ADD_MRCTMAC" />
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Set>RSP_MSG=添加MAC失败：操作数据库故障</Set>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=添加MAC成功</Set>
|
|
</ElseIf>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--受限MAC地址删除delete -->
|
|
<Transaction code="020314" log_switch="1">
|
|
<DynSentence name="DEL_MAC">
|
|
<Sentence>
|
|
DELETE FROM MRCTMAC WHERE MAC='%s'
|
|
</Sentence>
|
|
<Fields>SIG_MAC|</Fields>
|
|
</DynSentence>
|
|
<!--
|
|
DynSentence name="QRY_MRCTCRDCOST_COST"> <Sentence> SELECT
|
|
SP_CD,CRD_CD,CRD_PV,COMM_AMT/100 COMM_AMT,COMM_RAT,COMM_TYP,STS FROM
|
|
MRCTCRDCOST WHERE SP_CD='%s' AND AGT_TYP='1' </Sentence>
|
|
<Fields>QRY_SP_NO|</Fields> </DynSentence
|
|
-->
|
|
<FlowCtrl>
|
|
|
|
<If condition="ISNULL($MAC_LIST)">
|
|
<Set>RSP_CD=02031400</Set>
|
|
<Set>RSP_MSG=选择MAC地址不可为空</Set>
|
|
<Return />
|
|
</If>
|
|
<Exec func="PUB:SplitString" error="IGNORE">
|
|
<Arg name="list" value="$MAC_LIST" />
|
|
<Arg name="group" value="GRP" />
|
|
</Exec>
|
|
<Set>NUM=1</Set>
|
|
<While>
|
|
<If condition="$NUM > $GRP_NUM">
|
|
<Break />
|
|
</If>
|
|
<Set>SIG_MAC=$GRP[$NUM].DATA</Set>
|
|
<Exec func="PUB:ExecSql">
|
|
<Arg name="SqlCmd" value="DEL_MAC" />
|
|
</Exec>
|
|
<If condition="~RetCod!=0">
|
|
<Set>RSP_CD=02048601</Set>
|
|
<Set>RSP_MSG=删除MAC地址失败</Set>
|
|
<Return />
|
|
</If>
|
|
<Set>NUM=ADD($NUM,1)</Set>
|
|
</While>
|
|
<Set>RSP_CD=0000000</Set>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!-- 用户角色查询,input:COND_ID -->
|
|
<Transaction code="020315" desc="Get User Role List"
|
|
log_switch="1">
|
|
<DynSentence name="usergrp_query">
|
|
<Sentence>
|
|
select GRP_ID GRP_ID,GRPNAM GRP_NM,ACTIVED Actived,Act_User
|
|
Act_User from
|
|
mnggrpinf where grp_id in (select grp_id from mngusrgrp
|
|
where
|
|
usr_id='%s') order by grp_id
|
|
</Sentence>
|
|
<Fields>COND_ID|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="usergrp_query" />
|
|
<Arg name="RecordName" value="ROLEGRP" />
|
|
</Exec>
|
|
<If condition="~RetCod=2">
|
|
<Set>RSP_CD=CTS2020</Set>
|
|
<Set>RSP_MSG=无该用户</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=0">
|
|
<Set>RSP_CD=0000000</Set>
|
|
<Set>RSP_MSG=验证成功</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=CTS0320</Set>
|
|
<Set>RSP_MSG=系统错误,操作数据库失败</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<!--操作员列表查询-->
|
|
<Transaction code="020711" log_switch="1">
|
|
<DynSentence name="QRY_UPD_TLR">
|
|
<Sentence>
|
|
SELECT ID,UPD_TLR
|
|
FROM MNGUSRINF
|
|
</Sentence>
|
|
<Fields></Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Exec func="PUB:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_UPD_TLR" />
|
|
<Arg name="RecordName" value="TLR_GRP" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<Set>RSP_CD=000000</Set>
|
|
<Return />
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<Set>RSP_CD=02061001</Set>
|
|
<Set>RSP_MSG=没有符合条件的记录</Set>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<Set>RSP_CD=02061002</Set>
|
|
<Set>RSP_MSG=数据库错误</Set>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
<Transaction code="021323" desc="chk for prv" log_switch="1">
|
|
<FlowCtrl>
|
|
<Set>USR_ID=$USR_ID</Set>
|
|
<Set>ACT=up00</Set>
|
|
<Set>TYP=00</Set>
|
|
<Call package="PRV" function="ActPrvChk">
|
|
<Input>USR_ID|ACT|TYP|</Input>
|
|
<Output>Flg</Output>
|
|
</Call>
|
|
<If condition="$Flg=Y">
|
|
<Set>RSP_MSG=用户有操作权限</Set>
|
|
</If>
|
|
<Else>
|
|
<Set>RSP_MSG=用户无操作权限</Set>
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
|
|
</Application>
|
|
|