ctg-app-ui/bui/etc/cmm_0810/OCMMFUNC_CTL.XML

<?xml version='1.0' encoding='UTF-8'?>
<Application name="CMM" code="003"
    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">
            <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>
    
    <Transaction code="U021324" log_switch="1" desc="�����ղ�����">
			<DynSentence name="ADD_USR_FUNC">
					<Sentence>
							INSERT INTO BUIUSRFUNC VALUES(?,?,?,?,?)
      		</Sentence>
			<Fields>USR_ID|PAG_ID|PAG_NM|PAG_URL|TM_SMP</Fields>
			</DynSentence>
			<DynSentence name="QRY_FUNC_NUM">
					<Sentence>
							SELECT COUNT(USR_ID) AS USR_FUNC_NUM 
							FROM BUIUSRFUNC
							WHERE USR_ID=? AND
										PAG_ID=? 
					</Sentence>
					<Fields>USR_ID|PAG_ID</Fields>
			</DynSentence>
			<FlowCtrl>
					<Set>USR_ID=$SESSION.USR_ID</Set>
					<Set>TM_SMP=GETDATETIME()</Set>
					<If condition="ISNULL($USR_ID)=1">
							<Set>MSG_CD=210009</Set>
							<Set>RSP_MSG=�û�IDΪ��</Set>
							<Return/>
					</If>
					<If condition="ISNULL($PAG_ID)=1">
							<Set>MSG_CD=210009</Set>
							<Set>RSP_MSG=ҳ��IDΪ��</Set>
							<Return/>
					</If>
					<Exec func="pub:ReadRecord">
							<Arg name="SqlCmd" value="QRY_FUNC_NUM"/> 
					</Exec>
					<If condition="~RetCod=0">
							<If condition="STRCMP($USR_FUNC_NUM,0)=0">
									<Exec func="pub:ExecSql">
											<Arg name="SqlCmd" value="ADD_USR_FUNC"/>
									</Exec>
									<If condition="~RetCod=0">
											<Set>MSG_CD=000000</Set>
											<Set>MSG_TYP=N</Set>
											<Set>RSP_MSG=�����ղسɹ�</Set>
									</If>
									<Else>
											<Set>MSG_CD=210009</Set>
											<Set>MSG_TYP=Y</Set>
											<Set>RSP_MSG=�����ղ�ʧ�ܣ���ݿ����</Set>
									</Else>
							</If>
							<Else>
									<Set>MSG_CD=000000</Set>
									<Set>RSP_MSG=�����Ѵ������ղ���</Set>
							</Else>
					</If>
					<Else>
							<Set>MSG_CD=210009</Set>
							<Set>RSP_MSG=�����ղ�ʧ�ܣ���ݿ����</Set>
					</Else>
			</FlowCtrl>
	</Transaction>
	
	<Transaction code="U021325" log_switch="1" desc="�û�������¼">
			<DynSentence name="ADD_USR_ACT">
					<Sentence>
							INSERT INTO BUIUSRACT VALUES(?,?,?,?,?)
      		</Sentence>
			<Fields>USR_ID|PAG_ID|PAG_NM|TM_SMP|PAG_URL</Fields>
			</DynSentence>
			<FlowCtrl>
					<Set>USR_ID=$SESSION.USR_ID</Set>
					<Set>TM_SMP=GETDATETIME()</Set>  <!-- ����ʱ��� -->
					<Exec func="pub:ExecSql">
							<Arg name="SqlCmd" value="ADD_USR_ACT"/>
					</Exec>
					<If condition="~RetCod=0">
							<Set>MSG_TYP=N</Set>
					</If>
					<Else>
							<Set>MSG_TYP=Y</Set>
					</Else>
			</FlowCtrl>
	</Transaction>
	
	<Transaction code="U021326" log_switch="1" desc="�ղؼ�">
			<DynSentence name="QRY_USR_FUNC">
					<Sentence>
							SELECT PAG_ID,PAG_NM,PAG_URL,TM_SMP 
							FROM BUIUSRFUNC 
							WHERE USR_ID = ?
      		</Sentence>
					<Fields>USR_ID</Fields>
			</DynSentence>
			<DynSentence name="QRY_TOP5_FUNC">
					<Sentence>
							SELECT USR_COUNT,PAG_ID,PAG_NM,PAG_URL 
							FROM ( SELECT COUNT(USR_ID) AS USR_COUNT,PAG_ID,PAG_NM,PAG_URL FROM BUIUSRACT WHERE USR_ID = ? GROUP BY PAG_ID,PAG_NM,PAG_URL ORDER BY USR_COUNT DESC )
							WHERE ROWNUM &lt; 6
					</Sentence>
					<Fields>USR_ID</Fields>
			</DynSentence>
			<FlowCtrl>
					<Set>USR_ID=$SESSION.USR_ID</Set>
					<Exec func="PUB:QueryInGroup" error="IGNORE">
							<Arg name="SqlCmd" value="QRY_USR_FUNC" />
							<Arg name="RecordName" value="FUNC_GRP" />
					</Exec>
					<Exec func="PUB:QueryInGroup" error="IGNORE">
							<Arg name="SqlCmd" value="QRY_TOP5_FUNC" />
							<Arg name="RecordName" value="TOP5_GRP" />
					</Exec>
					<Set>MSG_TYP=N</Set>
			</FlowCtrl>
	</Transaction>
	
	<Transaction code="U021327" log_switch="1" desc="delete func">
			<DynSentence name="DEL_USR_FUNC">
					<Sentence>
							DELETE FROM BUIUSRFUNC
							WHERE  USR_ID = ? AND
										 PAG_ID = ?
      		</Sentence>
			<Fields>USR_ID|PAG_ID</Fields>
			</DynSentence>
			<FlowCtrl>
					<Set>USR_ID=$SESSION.USR_ID</Set>
					<Exec func="PUB:ExecSql">
							<Arg name="SqlCmd" value="DEL_USR_FUNC" />
					</Exec>
					<If condition="~RetCod=0">
							<Set>MSG_TYP=N</Set>
					</If>
					<Else>
							<Set>MSG_TYP=Y</Set>
							<Set>RSP_MSG=ɾ����ʧ�ܣ���ݿ����</Set>
					</Else>
			</FlowCtrl>
	</Transaction>