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 
'|			          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 GetFormDetails ( nState_id, ByRef outobjDetails )
48 
	Dim rsQry, query
49 
	OraDatabase.Parameters.Add "STATE_ID", 		nState_id,		ORAPARM_INPUT, ORATYPE_NUMBER
50 
 
51 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateDetails.sql"), ORADYN_DEFAULT )
52 
 
53 
	If rsQry.RecordCount > 0 Then
54 
		outobjDetails.Item ("state_id")  = rsQry("state_id")
55 
		outobjDetails.Item ("state_name")  = rsQry("state_name").Value
56 
		outobjDetails.Item ("state_type_enum")  = rsQry("state_type_enum")
57 
 
58 
	End If
59 
 
60 
	OraDatabase.Parameters.Remove "STATE_ID"
61 
 
62 
	rsQry.Close
63 
	Set rsQry = Nothing
64 
End Sub
65 
'----------------------------------------------------------------------------------------------------------------------------------------------
66 
Sub NewBOMList ( rsQry )
67 
%>
68 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
69 
	  <tr>
70 
	    <td width="1"><img src="images/spacer.gif" width="20" height="1"></td>
71 
	    <td width="20%" nowrap class="body_scol">BOM&nbsp;Name</td>
72 
		<td width="20%" nowrap class="body_scol">Version</td>
73 
	    <td width="60%" nowrap class="body_scol">Bom&nbsp;Comments</td>
74 
		<td width="1%" nowrap class="body_scol">Released&nbsp;By</td>
75 
		<td width="1%" nowrap class="body_scol">Arrived</td>
76 
		<td width="1%" nowrap class="body_scol">Hide</td>
77 
	  </tr>
78 
	  <tr>
79 
	    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
80 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
81 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
82 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
83 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
84 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td><br>
85 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
86 
	  </tr>
87 
	  <%
88 
	  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) AND (NOT IsNull(rsQry("bom_id"))))
89 
 
90 
		If IsNull( RowColor ) Then
91 
			RowColor = "bgcolor='#F5F5F5'"
92 
		Else
93 
			RowColor = NULL
94 
		End If
95 
	  %>
96 
 
97 
	  <tr>
98 
	    <td <%=RowColor%> valign="top"><input type="checkbox" name="bom_id_list" value="<%=rsQry("bom_id")%>"></td>
99 
	    <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>
100 
		<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>
101 
		<td <%=RowColor%> class="body_rowlite"><%=objFormater.TextToHtml( rsQry("bom_comments") )%></td>
102 
		<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>
103 
	    <td <%=RowColor%> nowrap align="right" valign="top" class="body_txt">&nbsp;<%=objFormater.FormatDate ( rsQry("arrived_date"), 1 ) %></td>
104 
		<td <%=RowColor%> align="center" valign="top"><a href="_ToggleIsDisplayedBom.asp?rfile=<%=SCRIPT_NAME%>&bom_id_list=<%=rsQry("bom_id")%>&<%=objPMod.ComposeURL()%>"><%=GetIsDisplayedIcon( rsQry("is_displayed") )%></a></td>
105 
	  </tr>
106 
 
107 
	  <%
108 
	  	rsQry.MoveNext
109 
	  WEnd
110 
  	  %>
111 
	  <tr>
112 
	    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
113 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
114 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
115 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
116 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
117 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
118 
		<td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
119 
	  </tr>
120 
	</table>
121 
<%
122 
End Sub
123 
'----------------------------------------------------------------------------------------------------------------------------------------------
124 
Sub NewState ( rsQry )
125 
%>
126 
	<td valign="top">
127 
		<table width="100%"  border="0" cellspacing="0" cellpadding="2">
128 
		  <tr>
129 
		    <td class="body_txt"><b><%=objFormCollector.Item("state_name")%></b></td>
130 
		  </tr>
131 
		</table>
132 
		<table width="100%"  border="0" cellspacing="0" cellpadding="0">
133 
		  <form name="FormState<%=StateId%>" method="post" action="<%=SCRIPT_NAME%>">
134 
		  <tr>
135 
		    <td width="1"><img src="images/spacer.gif" width="10" height="300"></td>
136 
		    <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
137 
		    <td width="100%" valign="top">
138 
			<%
139 
			'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
140 
			'objAccessControl.BeginRegion ( "SomeName" )
141 
			%>
142 
		      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
143 
		        <tr>
144 
		          <td width="1" valign="top"><img src="<%=GetStateImage( StateTypeEnum )%>"></td>
145 
		          <!-- OPTIONS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
146 
				  <!--#include file="_state_menu_options.asp"-->
147 
		          <!-- OPTIONS END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
148 
		          </td>
149 
		        </tr>
150 
	      </table>
151 
			<%
152 
			'objAccessControl.EndRegion ( "SomeName" )
153 
			'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
154 
			%>
155 
		    <%Call NewBOMList( rsQry )%>
156 
		    </td>
157 
		  </tr>
158 
		  <%=objPMod.ComposeHiddenTags()%>
159 
		  <input type="hidden" name="action" value="true">
160 
		  </form>
161 
		</table>
162 
	</td>
163 
<%
164 
End Sub
165 
'----------------------------------------------------------------------------------------------------------------------------------------------
166 
%>
167 
<%
168 
'------------ RUN BEFORE PAGE RENDER ----------
169 
Call objPMod.PersistInQryString ( aPersistList(enumPAR_STATE_ID) )
170 
 
171 
Call GetFormDetails ( parState_id, objFormCollector )
172 
 
173 
If (Request("action") <> "") Then
174 
	'-- Select Action
175 
	Call ActionRedirection ( Request("action") )
176 
 
177 
End If
178 
 
179 
'----------------------------------------------
180 
%>
181 
<html>
182 
<head>
183 
<title>Deployment Manager</title>
184 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
185 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
186 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
187 
<script language="JavaScript" src="scripts/common.js"></script>
188 
</head>
189 
 
190 
<body leftmargin="0" topmargin="0">
191 
<!-- HEADER ++++++++++++++++ -->
192 
<!--#include file="_header.asp"-->
193 
<!-- +++++++++++++++++++++++ -->
194 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
195 
<!--#include file="_main_menu.asp"-->
196 
<!-- +++++++++++++++++++++++++++++++++++++ -->
197 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
198 
  <tr>
199 
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
200 
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
201 
  </tr>
202 
  <tr>
203 
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
204 
    <td background="images/bg_bage_0.gif">&nbsp;</td>
205 
  </tr>
206 
  <tr>
207 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
208 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
209 
  </tr>
210 
  <tr>
211 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
212 
    <td><img src="images/spacer.gif" width="1" height="8"></td>
213 
  </tr>
214 
  <tr>
215 
    <td>&nbsp;</td>
216 
    <td class="body_ttl1"><%=objFormCollector.Item("state_name")%> Explorer </td>
217 
  </tr>
218 
  <tr>
219 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
220 
    <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>
221 
  </tr>
222 
</table>
223 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
224 
  <tr>
225 
    <td width="1%">&nbsp;</td>
226 
    <td width="100%" rowspan="2" valign="top">
227 
	<!-- PAGE DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
228 
	<!-- STATES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
229 
	 <%If (dbPARproj_id <> enumDB_DEFAULT_EMPTY) AND (dbPARbranch_id <> enumDB_DEFAULT_EMPTY) Then%>
230 
	 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
231 
      <tr>
232 
		<%
233 
		OraDatabase.Parameters.Add "STATE_ID",   parState_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
234 
		OraDatabase.Parameters.Add "BRANCH_ID", dbPARbranch_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
235 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomStateExplorer.sql") , ORADYN_DEFAULT )
236 
 
237 
		StateId = objFormCollector.Item("state_id")
238 
		StateTypeEnum = objFormCollector.Item("state_type_enum")
239 
 
240 
		If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
241 
			Call NewState ( rsQry )
242 
 
243 
		End If
244 
 
245 
		rsQry.Close
246 
		Set rsQry = Nothing
247 
		OraDatabase.Parameters.Remove "STATE_ID"
248 
		OraDatabase.Parameters.Remove "BRANCH_ID"
249 
		%>
250 
 
251 
      </tr>
252 
    </table>
253 
	<%End If%>
254 
	<!-- STATES END +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
255 
	<br><br>
256 
	<!-- PAGE DETAILS END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
257 
	</td>
258 
  </tr>
259 
  <tr>
260 
    <td valign="bottom"><img src="images/ill_bom_location.jpg" width="146" height="300"></td>
261 
  </tr>
262 
</table>
263 
 
264 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
265 
  <tr>
266 
    <td><img src="images/spacer.gif" width="8" height="20"></td>
267 
  </tr>
268 
</table>
269 
<!-- FOOTER ++++++++++++++++ -->
270 
<!--#include file="_footer.asp"-->
271 
<!-- +++++++++++++++++++++++ -->
272 
</body>
273 
</html>
274 
<%
275 
'------------ RUN AFTER PAGE RENDER -----------
276 
Set objPMod = Nothing
277 
Set objCrumbs = Nothing
278 
'----------------------------------------------
279 
%><!--#include file="common/globals_destructor.asp"-->