Subversion Repositories DevTools

Rev

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

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

            347