Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wAddNode					 	 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
20 
<!--#include file="_access_control_general.asp"-->
21 
<%
22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector
24 
Dim parNode_id_list
25 
Dim parNode_type_id
26 
'------------ CONSTANTS DECLARATION -----------
27 
'------------ VARIABLE INIT -------------------
28 
 
29 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
30 
parBom_id = dbPARbom_id
31 
parNode_id_list = Request("node_id_list")
32 
parNode_type_id = Request("node_type_id")
33 
Set objFormCollector = CreateObject("Scripting.Dictionary")
34 
'------------ CONDITIONS ----------------------
35 
'----------------------------------------------
36 
%>
37 
<%
38 
'--------------------------------------------------------------------------------------------------------------------------
39 
Sub GetFormDetails ( nNodeId, ByRef outobjDetails )
40 
	Dim rsQry, query
41 
 
42 
	If nNodeId <> "" Then
43 
		OraDatabase.Parameters.Add "NODE_ID", nNodeId,	ORAPARM_INPUT, ORATYPE_NUMBER
44 
 
21 rsolanki 45 
		Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM NETWORK_NODES WHERE NODE_ID ="& nNodeId, ORADYN_DEFAULT )
46 
 
13 rsolanki 47 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
48 
			outobjDetails.Item ("node_id") = rsQry("node_id")
49 
			outobjDetails.Item ("node_name") = rsQry("node_name")
50 
			outobjDetails.Item ("node_comments") = rsQry("node_comments")
51 
			outobjDetails.Item ("node_type_id") = rsQry("node_type_id")
19 rsolanki 52 
			outobjDetails.Item ("node_version") = rsQry("node_version")
53 
			outobjDetails.Item ("node_life_cycle") = rsQry("node_life_cycle")
23 rsolanki 54 
			outobjDetails.Item ("not_xml") = rsQry("not_xml")
13 rsolanki 55 
 
56 
		Else
57 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
58 
 
59 
		End If
60 
 
61 
		OraDatabase.Parameters.Remove "NODE_TYPE_ID"
62 
		rsQry.Close
63 
		Set rsQry = Nothing
64 
	End If
65 
 
66 
 
67 
	If parNode_type_id <> "" Then
68 
 
69 
		OraDatabase.Parameters.Add "NODE_TYPE_ID", parNode_type_id,	ORAPARM_INPUT, ORATYPE_NUMBER
70 
 
71 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NetworkNodeTypeDetails.sql"), ORADYN_DEFAULT )
72 
 
73 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
74 
			outobjDetails.Item ("node_type_id")   = rsQry("node_type_id")
75 
			outobjDetails.Item ("node_type")   = rsQry("node_type")
76 
			outobjDetails.Item ("node_icon")   = rsQry("node_icon")
77 
 
78 
		End If
79 
		OraDatabase.Parameters.Remove "NODE_TYPE_ID"
80 
 
81 
		rsQry.Close
82 
		Set rsQry = Nothing
83 
	End If
84 
 
85 
 
86 
End Sub
87 
'--------------------------------------------------------------------------------------------------------------------------
88 
Function GetNodeTypeList ( nNodeTypeId )
89 
	Dim rsQry, query
90 
 
91 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", nNodeTypeId,		ORAPARM_INPUT, ORATYPE_NUMBER
92 
 
93 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NetworkNodeTypeCombo.sql"), ORADYN_DEFAULT )
94 
 
95 
	If rsQry.RecordCount > 0 Then
96 
		GetNodeTypeList = rsQry.GetRows()
97 
 
98 
	Else
99 
		GetNodeTypeList = NULL
100 
 
101 
	End If
102 
 
103 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
104 
 
105 
	rsQry.Close
106 
	Set rsQry = Nothing
107 
End Function
108 
'--------------------------------------------------------------------------------------------------------------------------
109 
Sub AddNode ()
110 
	On Error Resume Next
111 
 
112 
	OraDatabase.Parameters.Add "NODE_NAME", 	Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
113 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 	Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
114 
	OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
115 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
23 rsolanki 116 
	OraDatabase.Parameters.Add "NOT_XML", 		Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
15 rsolanki 117 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
13 rsolanki 118 
 
119 
	objEH.TryORA ( OraSession )
120 
 
121 
	OraDatabase.ExecuteSQL _
23 rsolanki 122 
	"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID, :USER_ID, :NOT_XML ); END;"
13 rsolanki 123 
 
124 
	objEH.CatchORA ( OraSession )
125 
 
126 
 
127 
	OraDatabase.Parameters.Remove "NODE_NAME"
128 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
129 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
130 
	OraDatabase.Parameters.Remove "BOM_ID"
15 rsolanki 131 
	OraDatabase.Parameters.Remove "USER_ID"
23 rsolanki 132 
	OraDatabase.Parameters.Remove "NOT_XML"
13 rsolanki 133 
 
134 
End Sub
135 
'--------------------------------------------------------------------------------------------------------------------------
136 
Sub UpdateNode ()
137 
	On Error Resume Next
138 
 
19 rsolanki 139 
	OraDatabase.Parameters.Add "NODE_ID", 				Request("node_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
140 
	OraDatabase.Parameters.Add "NODE_NAME", 			Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
141 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 			Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
142 
	OraDatabase.Parameters.Add "NODE_COMMENTS", 		Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
143 
	OraDatabase.Parameters.Add "USER_ID", 				objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
144 
	OraDatabase.Parameters.Add "NODE_LIFE_CYCLE", 		Request("node_life_cycle"), 	ORAPARM_INPUT, ORATYPE_NUMBER
23 rsolanki 145 
	OraDatabase.Parameters.Add "NOT_XML", 				Request("not_xml"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
146 
 
13 rsolanki 147 
	objEH.TryORA ( OraSession )
148 
 
149 
	OraDatabase.ExecuteSQL _
23 rsolanki 150 
	"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE, :NOT_XML ); END;"
13 rsolanki 151 
 
152 
	objEH.CatchORA ( OraSession )
153 
 
154 
 
155 
	OraDatabase.Parameters.Remove "NODE_NAME"
156 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
157 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
158 
	OraDatabase.Parameters.Remove "NODE_ID"
15 rsolanki 159 
	OraDatabase.Parameters.Remove "USER_ID"
23 rsolanki 160 
	OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"
161 
	OraDatabase.Parameters.Remove "NOT_XML"
13 rsolanki 162 
 
163 
End Sub
164 
'--------------------------------------------------------------------------------------------------------------------------
165 
%>
166 
<%
167 
'------------ RUN BEFORE PAGE RENDER ----------
168 
' --- Get Form details from DB ---
169 
Call GetFormDetails ( parNode_id_list, objFormCollector )
170 
 
171 
' --- Load Validation Rules ---
172 
Call objForm.LoadValidationRules ( Array("node_name","node_comments"), OraDatabase )		' Load Validation Rules
173 
 
174 
' --- Enter Form Validation Rule Changes here... ----
175 
'----------------------------------------------------
176 
 
177 
If CBool(Request("action")) Then
178 
	If objForm.IsValidOnPostBack Then
179 
		' --- Form is Valid ---
180 
		If parNode_id_list <> "" Then
181 
			Call UpdateNode()
182 
		Else
183 
			Call AddNode()
184 
		End If
185 
 
186 
 
187 
 
188 
		If objEH.Finally Then
189 
			Call OpenInParentWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
190 
			Call CloseWindow()
191 
		End If
192 
 
193 
	End If
194 
End If
195 
 
196 
'----------------------------------------------
197 
%>
198 
<html>
199 
<head>
200 
<title>Deployment Manager</title>
201 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
202 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
203 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
204 
<script language="JavaScript" src="scripts/common.js"></script>
205 
</head>
206 
 
207 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.node_name.focus();">
208 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
209 
  <tr>
210 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Network Node</span> <br>
211 
    Enter Node name and optional comments.
212 
    </td>
213 
  </tr>
214 
  <%
215 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
216 
  objFormComponent.FormName = "FormName"
217 
  objFormComponent.Action = SCRIPT_NAME
218 
  objFormComponent.OnSubmit = "ShowProgress();"
219 
  Call objFormComponent.FormStart()
220 
  %>
221 
  <tr>
222 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
223 
      <tr>
224 
        <td><%=ProgressBar%></td>
225 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
226 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
227 
      </tr>
228 
    </table></td>
229 
  </tr>
230 
  <tr>
231 
    <td>
232 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
233 
	<!--#include file="messages/_msg_inline.asp"-->
234 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
235 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
236 
      <tr>
237 
        <td valign="top" nowrap class="form_iname">Node Type </td>
238 
        <td valign="top" class="body_txt">
239 
		<%If parNode_type_id <> "" Then%>
240 
			<img src="icons/<%=objFormCollector.Item ("node_icon")%>" hspace="2" vspace="2" border="0" align="absmiddle"><%=objFormCollector.Item ("node_type")%>
241 
			<input type="hidden" name="node_type_id" value="<%=parNode_type_id%>">
242 
		<%Else%>
243 
			<%=objFormComponent.Combo ( "node_type_id", GetNodeTypeList( objForm.GetValue( "node_type_id", objFormCollector.Item("node_type_id") ) ), FALSE, "class='form_ivalue'" )%>
244 
		<%End If%>
245 
		</td>
246 
		<td valign="top"></td>
247 
      </tr>
248 
      <tr>
249 
        <td nowrap class="form_iname" valign="top">Node Name </td>
250 
        <td valign="top"><%=objFormComponent.TextBox ( "node_name", objForm.GetValue( "node_name", objFormCollector.Item("node_name") ), "size='60' class='form_ivalue'" )%></td>
251 
		<td valign="top"><%=objForm.Validate ("node_name")%></td>
252 
      </tr>
19 rsolanki 253 
<%If objFormCollector.Item("node_version") <> "" Then %>
13 rsolanki 254 
      <tr>
19 rsolanki 255 
        <td nowrap class="form_iname" valign="top">Node Version </td>
256 
        <td valign="top"><%=objFormComponent.TextBox ( "node_version", objForm.GetValue( "node_version", objFormCollector.Item("node_version") ), "size='60' class='form_ivalue' disabled" )%></td>
257 
      </tr>
258 
      <tr>
259 
        <td nowrap class="form_iname" valign="top">Node LifeCycle </td>
260 
        <td valign="top"><%=objFormComponent.TextBox ( "node_life_cycle", objForm.GetValue( "node_life_cycle", objFormCollector.Item("node_life_cycle") ), "size='60' class='form_ivalue'" )%></td>
261 
      </tr>
23 rsolanki 262 
<%End If%>
263 
	  <tr>
264 
        <td nowrap class="form_iname" valign="top">Checked If Not Required In XML</td>
265 
		<%If IsNull(objFormCollector.Item("not_xml")) Then%>
266 
        <td valign="top"><input type="checkbox" name="not_xml"></td>
267 
		<%Else%>
268 
        <td valign="top"><input type="checkbox" name="not_xml" checked></td>
269 
		<%End If%>
270 
		<td valign="top"></td>
271 
      </tr>
19 rsolanki 272 
      <tr>
13 rsolanki 273 
        <td valign="top" nowrap class="form_iname">Comments</td>
274 
        <td valign="top"><%=objFormComponent.TextArea ( "node_comments", objForm.GetValue( "node_comments", objFormCollector.Item("node_comments") ), 10, 60, "class='form_ivalue'" )%></td>
275 
		<td valign="top"><%=objForm.Validate ("node_comments")%></td>
276 
      </tr>
277 
      <tr>
278 
        <td width="10%" class="form_iname">&nbsp;</td>
279 
        <td width="1%">&nbsp;</td>
280 
		<td width="90%" class="val_err"></td>
281 
      </tr>
282 
    </table></td>
283 
  </tr>
284 
  <%=objPMod.ComposeHiddenTagsWithout("bom_id")%>
285 
  <input type="hidden" name="node_id_list" value="<%=parNode_id_list%>">
286 
  <input type="hidden" name="bom_id" value="<%=parBom_id%>">
287 
  <input type="hidden" name="action" value="true">
288 
  <%
289 
  Call objFormComponent.FormEnd()
290 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
291 
  %>
292 
</table>
293 
</body>
294 
</html>
295 
<%
296 
'------------ RUN AFTER PAGE RENDER -----------
297 
Set objFormCollector = Nothing
298 
'----------------------------------------------
299 
%><!--#include file="common/globals_destructor.asp"-->