Subversion Repositories DevTools

Rev

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

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

            274