Subversion Repositories DevTools

Rev

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

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