Subversion Repositories DevTools

Rev

Rev 13 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wRemoveBulkNodes			 	 |
 5 
'|			          wRemoveBulkNodes			 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
'------------ CONSTANTS DECLARATION -----------
 24 
'------------ CONSTANTS DECLARATION -----------
25 
'------------ VARIABLE INIT -------------------
 25 
'------------ VARIABLE INIT -------------------
26 
parBom_id = Request("bom_id")
 26 
parBom_id = Request("bom_id")
27 
'------------ CONDITIONS ----------------------
 27 
'------------ CONDITIONS ----------------------
28 
'----------------------------------------------
 28 
'----------------------------------------------
29 
%>
 29 
%>
30 
<%
 30 
<%
31 
'--------------------------------------------------------------------------------------------------------------------------
 31 
'--------------------------------------------------------------------------------------------------------------------------
32 
Sub RemoveNodeList ()
 32 
Sub RemoveNodeList ()
33 
	On Error Resume Next
 33 
	On Error Resume Next
34
34
35 
	OraDatabase.Parameters.Add "NODE_ID_LIST", 		Request("node_id_list"), 	ORAPARM_INPUT, ORATYPE_STRING
 35 
	OraDatabase.Parameters.Add "NODE_ID_LIST", 		Request("node_id_list"), 	ORAPARM_INPUT, ORATYPE_STRING
36 
	OraDatabase.Parameters.Add "BOM_ID", 			Request("bom_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 36 
	OraDatabase.Parameters.Add "BOM_ID", 			Request("bom_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
37
37
38
38
39 
	objEH.TryORA ( OraSession )
 39 
	objEH.TryORA ( OraSession )
40
40
41 
	OraDatabase.ExecuteSQL _
 41 
	OraDatabase.ExecuteSQL _
42 
	"BEGIN pk_Network_Node.Remove_Node ( :NODE_ID_LIST,  :BOM_ID ); END;"
42 
	"BEGIN pk_Network_Node.Remove_Node ( :NODE_ID_LIST,  :BOM_ID ); END;"
43
43
44 
	objEH.CatchORA ( OraSession )
 44 
	objEH.CatchORA ( OraSession )
45
45
46
46
47 
	OraDatabase.Parameters.Remove "NODE_IDS"
 47 
	OraDatabase.Parameters.Remove "NODE_IDS"
48 
	OraDatabase.Parameters.Remove "BOM_ID"
 48 
	OraDatabase.Parameters.Remove "BOM_ID"
49
49
50 
End Sub
 50 
End Sub
51 
'--------------------------------------------------------------------------------------------------------------------------
 51 
'--------------------------------------------------------------------------------------------------------------------------
52 
%>
 52 
%>
53 
<%
 53 
<%
54 
'------------ RUN BEFORE PAGE RENDER ----------
 54 
'------------ RUN BEFORE PAGE RENDER ----------
55 
 
 55 
 
56 
If Request("action") Then
 56 
If Request("action") Then
57 
	' --- Form is Valid ---
 57 
	' --- Form is Valid ---
58 
	Call RemoveNodeList()
 58 
	Call RemoveNodeList()
59
59
60 
	If objEH.Finally Then
 60 
	If objEH.Finally Then
61 
		Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() )
 61 
		Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() )
62 
		Call CloseWindow()
 62 
		Call CloseWindow()
63 
	End If
 63 
	End If
64 
Else
 64 
Else
65 
	Session( enumVALIDATION_CONTROL_SESSION ) = NULL	' Clean session for usage
 65 
	Session( enumVALIDATION_CONTROL_SESSION ) = NULL	' Clean session for usage
66 
End If
 66 
End If
67 
'----------------------------------------------
 67 
'----------------------------------------------
68 
%>
 68 
%>
69 
<html>
 69 
<html>
70 
<head>
 70 
<head>
71 
<title>Deployment Manager</title>
 71 
<title>Deployment Manager</title>
72 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 72 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
73 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 73 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
74 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 74 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
75 
<script language="JavaScript" src="scripts/common.js"></script>
 75 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
76 
</head>
 76 
<script language="JavaScript" src="scripts/common.js"></script>
77 
 
 77 
</head>
78 
<body background="images/bg_form.gif" leftmargin="0" topmargin="0" onLoad="self.focus()">
 78 
 
79 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 79 
<body background="images/bg_form.gif" leftmargin="0" topmargin="0" onLoad="self.focus()">
80 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 80 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
81 
  <tr>
 81 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
82 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 82 
  <tr>
83 
      <tr>
 83 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
84 
        <td>&nbsp;</td>
 84 
      <tr>
85 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Remove">
 85 
        <td>&nbsp;</td>
86 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 86 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Remove">
87 
      </tr>
 87 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
88 
    </table></td>
 88 
      </tr>
89 
  </tr>
 89 
    </table></td>
90 
  <tr>
 90 
  </tr>
91 
    <td class="body_txt"><span class="body_h1">Remove Network Node</span> <br>
 91 
  <tr>
92 
    Select one or more Network Nodes.
 92 
    <td class="body_txt"><span class="body_h1">Remove Network Node</span> <br>
93 
      <hr width="100%" size="1" noshade color="#ACA899"></td>
 93 
    Select one or more Network Nodes.
94 
  </tr>
 94 
      <hr width="100%" size="1" noshade color="#ACA899"></td>
95 
  <tr>
 95 
  </tr>
96 
    <td>
 96 
  <tr>
97
97 
    <td>
98 
	    <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 98
99 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
99 
	    <table width="100%"  border="0" cellspacing="3" cellpadding="0">
100 
	 	<%If NOT objEH.Finally Then%>
 100 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
101 
		  <tr>
 101 
	 	<%If NOT objEH.Finally Then%>
102 
		  	<td><img src="images/spacer.gif" width="1" height="1"></td>
 102 
		  <tr>
103 
            <td colspan="2">
 103 
		  	<td><img src="images/spacer.gif" width="1" height="1"></td>
104 
			<%objEH.DisplayMessage()%>
 104 
            <td colspan="2">
105 
			</td>
 105 
			<%objEH.DisplayMessage()%>
106 
          </tr>
 106 
			</td>
107 
		<%End If%>
 107 
          </tr>
108 
	    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 108 
		<%End If%>
109 
          <tr>
 109 
	    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
110 
		  	<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 110 
          <tr>
111 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 111 
		  	<td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
112 
              <tr>
 112 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
113 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Network Node</td>
 113 
              <tr>
114 
              </tr>
 114 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Network Node</td>
115 
            </table></td>
 115 
              </tr>
116 
			<td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
 116 
            </table></td>
117 
          </tr>
 117 
			<td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
118 
		  <%
 118 
          </tr>
119 
		  OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
119 
		  <%
120
120 
		  OraDatabase.Parameters.Add "BOM_ID", parBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
121 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NetworkNodeList.sql"), ORADYN_DEFAULT )
 121
122 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 122 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NetworkNodeList.sql"), ORADYN_DEFAULT )
123 
		  %>
 123 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
124 
		  <tr>
 124 
		  %>
125 
	        <td nowrap class="form_iname"><input type="checkbox" name="node_id_list" value="<%=rsQry("node_id")%>"></td>
 125 
		  <tr>
126 
	        <td valign="top" nowrap class="body_txt"><img src="icons/<%=rsQry("node_icon")%>" hspace="2" align="absmiddle"><%=rsQry("node_name")%></td>
 126 
	        <td nowrap class="form_iname"><input type="checkbox" name="node_id_list" value="<%=rsQry("node_id")%>"></td>
127 
	        <td valign="top">&nbsp;</td>
 127 
	        <td valign="top" nowrap class="body_txt"><img src="icons/<%=rsQry("node_icon")%>" hspace="2" align="absmiddle"><%=rsQry("node_name")%></td>
128 
	      </tr>
 128 
	        <td valign="top">&nbsp;</td>
129 
		  <%rsQry.MoveNext%>
 129 
	      </tr>
130
130 
		  <%rsQry.MoveNext%>
131 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 131
132 
          <tr>
 132 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
133 
            <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 133 
          <tr>
134 
          </tr>
 134 
            <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
135 
		  <%End If%>
 135 
          </tr>
136
136 
		  <%End If%>
137 
		  <%
 137
138 
		  WEnd
 138 
		  <%
139
139 
		  WEnd
140 
		  OraDatabase.Parameters.Remove "BOM_ID"
 140
141 
		  %>
 141 
		  OraDatabase.Parameters.Remove "BOM_ID"
142 
          <tr>
 142 
		  %>
143 
            <td colspan="3" background="images/bg_table_border.gif">
 143 
          <tr>
144 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 144 
            <td colspan="3" background="images/bg_table_border.gif">
145 
              <tr>
 145 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
146 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 146 
              <tr>
147 
              </tr>
 147 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
148 
             </table>
 148 
              </tr>
149 
			</td>
 149 
             </table>
150 
          </tr>
 150 
			</td>
151 
         </table>
151 
          </tr>
152
152 
         </table>
153 
	</td>
 153
154 
  </tr>
 154 
	</td>
155 
  <%=objPMod.ComposeHiddenTags ()%>
 155 
  </tr>
156 
  <input type="hidden" name="action" value="true">
 156 
  <%=objPMod.ComposeHiddenTags ()%>
157 
  </form>
 157 
  <input type="hidden" name="action" value="true">
158 
</table>
 158 
  </form>
159 
 
 159 
</table>
160 
 
 160 
 
161 
</body>
 161 
 
162 
</html>
 162 
</body>
163 
<%
 163 
</html>
164 
'------------ RUN AFTER PAGE RENDER -----------
 164 
<%
165 
'----------------------------------------------
 165 
'------------ RUN AFTER PAGE RENDER -----------
166 
%><!--#include file="common/globals_destructor.asp"-->
 166 
'----------------------------------------------
- 
 
 167 
%><!--#include file="common/globals_destructor.asp"-->