Subversion Repositories DevTools

Rev

Rev 25 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          BomStates 				 	 |
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/_explorer_common.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
20 
<!--#include file="_access_control_general.asp"-->
21 
<%
22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
24 
Dim StateId, StateTypeEnum
25 
Dim objFormCollector
26 
Dim parState_id
27 
Dim RowColor
28 
'------------ CONSTANTS DECLARATION -----------
29 
'------------ VARIABLE INIT -------------------
30 
Set objFormCollector = CreateObject("Scripting.Dictionary")
31 
parState_id = Request("state_id")
32 
RowColor = NULL
33 
'------------ CONDITIONS ----------------------
34 
'----------------------------------------------
35 
%>
36 
<%
37 
'--------------------------------------------------------------------------------------------------------------------------
38 
Function GetIsDisplayedIcon ( cIsDisplayed )
39 
	If cIsDisplayed = enumDB_YES Then
40 
		GetIsDisplayedIcon = "<img src='icons/b_box.gif' width='13' height='13' border='0' title='Click to HIDE this BOM in Release Explorer'>"
41 
	Else
42 
		GetIsDisplayedIcon = "<img src='icons/b_tick.gif' width='13' height='13' border='0' title='Click to SHOW this BOM in Release Explorer'>"
43 
	End If
44 
 
45 
End Function
46 
'--------------------------------------------------------------------------------------------------------------------------
25 rsolanki 47 
Sub ToggleDisplay()
48 
Dim aDiffList, numOfRows, rowNum, OraParameter
49 
 
50 
	Const bom_id_column = 0
51 
 
52 
	OraDatabase.Parameters.Add "STATE_ID",   parState_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
54 
 
55 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
56 
 
57 
	aDiffList = rsQry.GetRows()
58 
	numOfRows = UBound( aDiffList, 2 )
59 
 
60 
	For rowNum = 0 To numOfRows
61 
		If Request("hide_"& aDiffList( bom_id_column, rowNum )) <> "" Then
62 
 
63 
 
64 
			OraDatabase.Parameters.Add "BOM_ID", 	aDiffList( bom_id_column, rowNum ), 	ORAPARM_INPUT, ORATYPE_NUMBER
65 
			OraDatabase.Parameters.Add "DISPLAY", 	"N", 	ORAPARM_INPUT, ORATYPE_VARCHAR
66 
 
67 
			objEH.TryORA ( OraSession )
68 
 
69 
			OraDatabase.ExecuteSQL _
70 
			"BEGIN   pk_State.Toggle_Is_Displayed ( :STATE_ID, :BOM_ID, :DISPLAY );   END;"
71 
 
72 
			objEH.CatchORA ( OraSession )
73 
 
74 
			OraDatabase.Parameters.Remove "BOM_ID"
75 
			OraDatabase.Parameters.Remove "DISPLAY"
76 
		Else
77 
 
78 
			OraDatabase.Parameters.Add "BOM_ID", 	aDiffList( bom_id_column, rowNum ), 	ORAPARM_INPUT, ORATYPE_NUMBER
79 
			OraDatabase.Parameters.Add "DISPLAY", 	"Y", 	ORAPARM_INPUT, ORATYPE_VARCHAR
80 
			objEH.TryORA ( OraSession )
81 
 
82 
			OraDatabase.ExecuteSQL _
83 
			"BEGIN   pk_State.Toggle_Is_Displayed ( :STATE_ID, :BOM_ID, :DISPLAY );   END;"
84 
 
85 
			objEH.CatchORA ( OraSession )
86 
 
87 
			OraDatabase.Parameters.Remove "BOM_ID"
88 
			OraDatabase.Parameters.Remove "DISPLAY"
89 
		End If
90 
	Next
91 
 
92 
	rsQry.Close
93 
	Set rsQry = Nothing
94 
 
95 
	OraDatabase.Parameters.Remove "STATE_ID"
96 
	OraDatabase.Parameters.Remove "BRANCH_ID"
97 
 
98 
End Sub
99 
'--------------------------------------------------------------------------------------------------------------------------
13 rsolanki 100 
Sub GetFormDetails ( nState_id, ByRef outobjDetails )
101 
	Dim rsQry, query
102 
	OraDatabase.Parameters.Add "STATE_ID", 		nState_id,		ORAPARM_INPUT, ORATYPE_NUMBER
103 
 
104 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateDetails.sql"), ORADYN_DEFAULT )
105 
 
106 
	If rsQry.RecordCount > 0 Then
107 
		outobjDetails.Item ("state_id")  = rsQry("state_id")
108 
		outobjDetails.Item ("state_name")  = rsQry("state_name").Value
109 
		outobjDetails.Item ("state_type_enum")  = rsQry("state_type_enum")
110 
 
111 
	End If
112 
 
113 
	OraDatabase.Parameters.Remove "STATE_ID"
114 
 
115 
	rsQry.Close
116 
	Set rsQry = Nothing
117 
End Sub
118 
'----------------------------------------------------------------------------------------------------------------------------------------------
119 
Sub NewBOMList ( rsQry )
120 
%>
121 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
122 
	  <tr>
123 
	    <td width="1"><img src="images/spacer.gif" width="20" height="1"></td>
124 
	    <td width="20%" nowrap class="body_scol">BOM&nbsp;Name</td>
125 
		<td width="20%" nowrap class="body_scol">Version</td>
126 
	    <td width="60%" nowrap class="body_scol">Bom&nbsp;Comments</td>
127 
		<td width="1%" nowrap class="body_scol">Released&nbsp;By</td>
128 
		<td width="1%" nowrap class="body_scol">Arrived</td>
129 
		<td width="1%" nowrap class="body_scol">Hide</td>
130 
	  </tr>
131 
	  <tr>
132 
	    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
133 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
134 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
135 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
136 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
137 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td><br>
138 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
139 
	  </tr>
140 
	  <%
141 
	  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("bom_id"))))
142 
 
143 
		If IsNull( RowColor ) Then
144 
			RowColor = "bgcolor='#F5F5F5'"
145 
		Else
146 
			RowColor = NULL
147 
		End If
148 
	  %>
149 
 
150 
	  <tr>
151 
	    <td <%=RowColor%> valign="top"><input type="checkbox" name="bom_id_list" value="<%=rsQry("bom_id")%>"></td>
152 
	    <td <%=RowColor%> nowrap valign="top"><a href="Bom_Home.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link"><%=BomIcon( rsQry("is_readonly"), rsQry("is_rejected") )%><%=rsQry("bom_name")%></a></td>
153 
		<td <%=RowColor%> nowrap valign="top"><a href="Bom_Home.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link"><%=rsQry("bom_version") &"."& rsQry("bom_lifecycle")%></a></td>
154 
		<td <%=RowColor%> class="body_rowlite"><%=objFormater.TextToHtml( rsQry("bom_comments") )%></td>
155 
		<td <%=RowColor%> nowrap valign="top"><a href="mailto:<%=rsQry("user_email")%>" title="Send email to <%=rsQry("user_email")%>" class="body_link"><img src="icons/i_email.gif" width="15" height="10" hspace="2" border="0" align="absmiddle"><%=rsQry("full_name").Value%></a></td>
156 
	    <td <%=RowColor%> nowrap align="right" valign="top" class="body_txt">&nbsp;<%=objFormater.FormatDate ( rsQry("arrived_date"), 1 ) %></td>
25 rsolanki 157 
		<td <%=RowColor%> align="left" valign="top"><input type="checkbox" name="hide_<%=rsQry("bom_id")%>" value="<%=rsQry("bom_id")%>"
158 
		<%If rsQry("is_displayed") = "Y" Then%>
159 
		 >
160 
		<%Else%>
161 
		checked >
162 
		<%End If%>
163 
		</td>
164 
 
13 rsolanki 165 
	  </tr>
166 
 
167 
	  <%
168 
	  	rsQry.MoveNext
169 
	  WEnd
170 
  	  %>
171 
	  <tr>
172 
	    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
173 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
174 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
175 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
176 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
177 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
25 rsolanki 178 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"><input name="btn" type="submit" class="form_btn" value="Execute"></td>
13 rsolanki 179 
	  </tr>
180 
	</table>
181 
<%
182 
End Sub
183 
'----------------------------------------------------------------------------------------------------------------------------------------------
184 
Sub NewState ( rsQry )
185 
%>
186 
	<td valign="top">
187 
		<table width="100%"  border="0" cellspacing="0" cellpadding="2">
188 
		  <tr>
189 
		    <td class="body_txt"><b><%=objFormCollector.Item("state_name")%></b></td>
190 
		  </tr>
191 
		</table>
192 
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
193 
		  <form name="FormState<%=StateId%>" method="post" action="<%=SCRIPT_NAME%>">
194 
		  <tr>
195 
		    <td width="1"><img src="images/spacer.gif" width="10" height="300"></td>
196 
		    <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
197 
		    <td width="100%" valign="top">
198 
			<%
199 
			'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
200 
			'objAccessControl.BeginRegion ( "SomeName" )
201 
			%>
202 
		      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
203 
		        <tr>
204 
		          <td width="1" valign="top"><img src="<%=GetStateImage( StateTypeEnum )%>"></td>
205 
		          <!-- OPTIONS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
206 
				  <!--#include file="_state_menu_options.asp"-->
207 
		          <!-- OPTIONS END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
208 
		          </td>
209 
		        </tr>
210 
	      </table>
211 
			<%
212 
			'objAccessControl.EndRegion ( "SomeName" )
213 
			'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
214 
			%>
215 
		    <%Call NewBOMList( rsQry )%>
216 
		    </td>
217 
		  </tr>
218 
		  <%=objPMod.ComposeHiddenTags()%>
219 
		  <input type="hidden" name="action" value="true">
220 
		  </form>
221 
		</table>
222 
	</td>
223 
<%
224 
End Sub
225 
'----------------------------------------------------------------------------------------------------------------------------------------------
226 
%>
227 
<%
228 
'------------ RUN BEFORE PAGE RENDER ----------
229 
Call objPMod.PersistInQryString ( aPersistList(enumPAR_STATE_ID) )
230 
 
231 
Call GetFormDetails ( parState_id, objFormCollector )
232 
 
233 
If (Request("action") <> "") Then
25 rsolanki 234 
 
235 
	Call ToggleDisplay()
13 rsolanki 236 
	'-- Select Action
237 
	Call ActionRedirection ( Request("action") )
238 
 
25 rsolanki 239 
	If objEH.Finally Then
240 
		Call OpenInWindow ( Request("rfile") &"?UPDATED=OK"& objPMod.ComposeURLWithout("rfile") )
241 
	End If
242 
 
13 rsolanki 243 
End If
244 
 
245 
'----------------------------------------------
246 
%>
247 
<html>
248 
<head>
249 
<title>Deployment Manager</title>
250 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
251 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
252 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
253 
<script language="JavaScript" src="scripts/common.js"></script>
254 
</head>
255 
 
256 
<body leftmargin="0" topmargin="0">
257 
<!-- HEADER ++++++++++++++++ -->
258 
<!--#include file="_header.asp"-->
259 
<!-- +++++++++++++++++++++++ -->
260 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
261 
<!--#include file="_main_menu.asp"-->
262 
<!-- +++++++++++++++++++++++++++++++++++++ -->
263 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
264 
  <tr>
265 
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
266 
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
267 
  </tr>
268 
  <tr>
269 
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
270 
    <td background="images/bg_bage_0.gif">&nbsp;</td>
271 
  </tr>
272 
  <tr>
273 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
274 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
275 
  </tr>
276 
  <tr>
277 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
278 
    <td><img src="images/spacer.gif" width="1" height="8"></td>
279 
  </tr>
280 
  <tr>
281 
    <td>&nbsp;</td>
282 
    <td class="body_ttl1"><%=objFormCollector.Item("state_name")%> Explorer </td>
283 
  </tr>
284 
  <tr>
285 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
286 
    <td><img src="images/spacer.gif" width="1" height="30"><a href="BomStates.asp?BACK=OK<%=objPMod.ComposeURLWithout("state_id")%>" class="body_link"><img src="icons/i_caretone.gif" width="11" height="7" hspace="2" border="0">Release Explorer</a></td>
287 
  </tr>
288 
</table>
289 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
290 
  <tr>
291 
    <td width="1%">&nbsp;</td>
292 
    <td width="100%" rowspan="2" valign="top">
293 
	<!-- PAGE DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
294 
	<!-- STATES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
295 
	 <%If (dbPARproj_id <> enumDB_DEFAULT_EMPTY) AND (dbPARbranch_id <> enumDB_DEFAULT_EMPTY) Then%>
296 
	 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
297 
      <tr>
298 
		<%
299 
		OraDatabase.Parameters.Add "STATE_ID",   parState_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
300 
		OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
301 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
302 
 
303 
		StateId = objFormCollector.Item("state_id")
304 
		StateTypeEnum = objFormCollector.Item("state_type_enum")
305 
 
306 
		If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
307 
			Call NewState ( rsQry )
308 
 
309 
		End If
310 
 
311 
		rsQry.Close
312 
		Set rsQry = Nothing
313 
		OraDatabase.Parameters.Remove "STATE_ID"
314 
		OraDatabase.Parameters.Remove "BRANCH_ID"
315 
		%>
316 
 
317 
      </tr>
318 
    </table>
319 
	<%End If%>
320 
	<!-- STATES END +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
321 
	<br><br>
322 
	<!-- PAGE DETAILS END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
323 
	</td>
324 
  </tr>
325 
  <tr>
326 
    <td valign="bottom"><img src="images/ill_bom_location.jpg" width="146" height="300"></td>
327 
  </tr>
328 
</table>
329 
 
330 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
331 
  <tr>
332 
    <td><img src="images/spacer.gif" width="8" height="20"></td>
333 
  </tr>
334 
</table>
335 
<!-- FOOTER ++++++++++++++++ -->
336 
<!--#include file="_footer.asp"-->
337 
<!-- +++++++++++++++++++++++ -->
338 
</body>
339 
</html>
340 
<%
341 
'------------ RUN AFTER PAGE RENDER -----------
342 
Set objPMod = Nothing
343 
Set objCrumbs = Nothing
344 
'----------------------------------------------
345 
%><!--#include file="common/globals_destructor.asp"-->