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 
'|			          BomVersionTree			 	 |
 5 
'|			          BomVersionTree			 	 |
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 parBom_id_list
 24 
Dim parBom_id_list
25 
Dim parBom_name_id
 25 
Dim parBom_name_id
26 
Dim parRoot_version
 26 
Dim parRoot_version
27 
Dim currLevel
 27 
Dim currLevel
28 
Dim lastLevel
 28 
Dim lastLevel
29 
Dim aOptionList
 29 
Dim aOptionList
30 
Dim query
 30 
Dim query
31 
Dim objPopupMenuTreeOptions
 31 
Dim objPopupMenuTreeOptions
32 
Dim objFormCollector
 32 
Dim objFormCollector
33 
'------------ CONSTANTS DECLARATION -----------
 33 
'------------ CONSTANTS DECLARATION -----------
34 
Const LIMG_TREE_I_HALF = "<img src='images/spacer.gif' width='27' height='1'><img src='icons/tree_i_half.gif' align='absmiddle'>"
 34 
Const LIMG_TREE_I_HALF = "<img src='images/spacer.gif' width='27' height='1'><img src='icons/tree_i_half.gif' align='absmiddle'>"
35 
Const LIMG_TREE_I_FULL = "<img src='images/spacer.gif' width='27' height='1'><img src='icons/tree_i.gif' align='absmiddle'>"
 35 
Const LIMG_TREE_I_FULL = "<img src='images/spacer.gif' width='27' height='1'><img src='icons/tree_i.gif' align='absmiddle'>"
36 
Const LIMG_TREE_T = "<img src='images/spacer.gif' width='27' height='1'><img src='icons/tree_t.gif' align='absmiddle'>"
 36 
Const LIMG_TREE_T = "<img src='images/spacer.gif' width='27' height='1'><img src='icons/tree_t.gif' align='absmiddle'>"
37 
'------------ VARIABLE INIT -------------------
 37 
'------------ VARIABLE INIT -------------------
38 
parBom_id_list = Request("bom_id_list")
 38 
parBom_id_list = Request("bom_id_list")
39 
parBranch_id = Request("branch_id")
 39 
parBranch_id = Request("branch_id")
40 
parRoot_version = Request("root_version")
 40 
parRoot_version = Request("root_version")
41 
parBom_name_id = Request("bom_name_id")
 41 
parBom_name_id = Request("bom_name_id")
42 
Set objPopupMenuTreeOptions = New PopupMenuControl
 42 
Set objPopupMenuTreeOptions = New PopupMenuControl
43 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 43 
Set objFormCollector = CreateObject("Scripting.Dictionary")
44 
objPopupMenuTreeOptions.PopupMenuStyle ReadFile( Server.MapPath("scripts/popup_menu_styles.html") ), "StyleWinXP"
 44 
objPopupMenuTreeOptions.PopupMenuStyle ReadFile( Server.MapPath("scripts/popup_menu_styles.html") ), "StyleWinXP"
45 
'------------ CONDITIONS ----------------------
 45 
'------------ CONDITIONS ----------------------
46 
If (parBom_id_list <> "") AND (parRoot_version = "") AND (parBom_name_id = "") Then
 46 
If (parBom_id_list <> "") AND (parRoot_version = "") AND (parBom_name_id = "") Then
47 
	' Get root version and bom_name_id from bom_id_list
 47 
	' Get root version and bom_name_id from bom_id_list
48 
	Call GetParameters ( parBom_id_list, parRoot_version, parBom_name_id )
 48 
	Call GetParameters ( parBom_id_list, parRoot_version, parBom_name_id )
49
49
50 
End If
 50 
End If
51 
'----------------------------------------------
 51 
'----------------------------------------------
52 
%>
 52 
%>
53 
<%
 53 
<%
54 
'--------------------------------------------------------------------------------------------------------------------------
 54 
'--------------------------------------------------------------------------------------------------------------------------
55 
Sub GetFormDetails ( nBomNameId, ByRef outobjDetails )
 55 
Sub GetFormDetails ( nBomNameId, ByRef outobjDetails )
56 
	Dim rsQry, query
 56 
	Dim rsQry, query
57 
	OraDatabase.Parameters.Add "BOM_NAME_ID",	nBomNameId, ORAPARM_INPUT, ORATYPE_NUMBER
57 
	OraDatabase.Parameters.Add "BOM_NAME_ID",	nBomNameId, ORAPARM_INPUT, ORATYPE_NUMBER
58
58
59 
	query = _
 59 
	query = _
60 
	" SELECT bn.BOM_NAME FROM BOM_NAMES bn  WHERE bn.BOM_NAME_ID = :BOM_NAME_ID"
 60 
	" SELECT bn.BOM_NAME FROM BOM_NAMES bn  WHERE bn.BOM_NAME_ID = :BOM_NAME_ID"
61
61
62 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 62 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
63
63
64 
	If rsQry.RecordCount > 0 Then
 64 
	If rsQry.RecordCount > 0 Then
65 
		outobjDetails.Item ("bom_name")  = rsQry("bom_name").Value
 65 
		outobjDetails.Item ("bom_name")  = rsQry("bom_name").Value
66
66
67 
	End If
 67 
	End If
68
68
69 
	OraDatabase.Parameters.Remove "BOM_NAME_ID"
 69 
	OraDatabase.Parameters.Remove "BOM_NAME_ID"
70
70
71 
	rsQry.Close
 71 
	rsQry.Close
72 
	Set rsQry = Nothing
 72 
	Set rsQry = Nothing
73 
End Sub
 73 
End Sub
74 
'----------------------------------------------------------------------------------------------------------------------------------------------
 74 
'----------------------------------------------------------------------------------------------------------------------------------------------
75 
Sub GetParameters ( nBomIdList, ByRef outRootVersion, ByRef outBomNameId )
 75 
Sub GetParameters ( nBomIdList, ByRef outRootVersion, ByRef outBomNameId )
76 
	Dim oBomCollector
 76 
	Dim oBomCollector
77
77
78 
	Set oBomCollector = CreateObject("Scripting.Dictionary")
 78 
	Set oBomCollector = CreateObject("Scripting.Dictionary")
79
79
80 
	Call GetBomDetails ( nBomIdList, oBomCollector )
 80 
	Call GetBomDetails ( nBomIdList, oBomCollector )
81
81
82 
	outRootVersion = GetRootVersion ( oBomCollector.Item("bom_version") )
 82 
	outRootVersion = GetRootVersion ( oBomCollector.Item("bom_version") )
83 
	outBomNameId = oBomCollector.Item("bom_name_id")
 83 
	outBomNameId = oBomCollector.Item("bom_name_id")
84
84
85 
	Set oBomCollector = Nothing
 85 
	Set oBomCollector = Nothing
86
86
87 
End Sub
 87 
End Sub
88 
'----------------------------------------------------------------------------------------------------------------------------------------------
 88 
'----------------------------------------------------------------------------------------------------------------------------------------------
89 
Function GetLevel ( sBomVersion )
 89 
Function GetLevel ( sBomVersion )
90 
	Dim tempArr
 90 
	Dim tempArr
91
91
92 
	If InStr( sBomVersion, "." ) > 0 Then
 92 
	If InStr( sBomVersion, "." ) > 0 Then
93 
		'-- Dot separator found --
 93 
		'-- Dot separator found --
94
94
95 
		'-- Split version --
 95 
		'-- Split version --
96 
		tempArr = Split( sBomVersion, "." )
 96 
		tempArr = Split( sBomVersion, "." )
97
97
98 
		GetLevel = UBound( tempArr ) + 1
 98 
		GetLevel = UBound( tempArr ) + 1
99
99
100 
	Else
 100 
	Else
101 
		GetLevel = 1
 101 
		GetLevel = 1
102
102
103 
	End If
 103 
	End If
104
104
105 
End Function
 105 
End Function
106 
'----------------------------------------------------------------------------------------------------------------------------------------------
 106 
'----------------------------------------------------------------------------------------------------------------------------------------------
107 
Sub RenderRowConnectors ( nLastLevel, nCurrLevel )
 107 
Sub RenderRowConnectors ( nLastLevel, nCurrLevel )
108 
	Dim i, LastLine
 108 
	Dim i, LastLine
109
109
110 
	'-- Initial Draw --
 110 
	'-- Initial Draw --
111 
	If nLastLevel = 0 Then
 111 
	If nLastLevel = 0 Then
112 
		nLastLevel = nCurrLevel
 112 
		nLastLevel = nCurrLevel
113 
		Exit Sub
 113 
		Exit Sub
114 
	End If
 114 
	End If
115
115
116 
	'-- Calculate number of half lines rendered
 116 
	'-- Calculate number of half lines rendered
117 
	If nLastLevel < nCurrLevel Then
 117 
	If nLastLevel < nCurrLevel Then
118 
		LastLine = nLastLevel
 118 
		LastLine = nLastLevel
119 
	Else
 119 
	Else
120 
		LastLine = nCurrLevel
 120 
		LastLine = nCurrLevel
121 
	End If
 121 
	End If
122
122
123
123
124 
	'-- Render half lines
 124 
	'-- Render half lines
125 
	For i = 1 To LastLine
 125 
	For i = 1 To LastLine
126 
		Response.write LIMG_TREE_I_HALF
 126 
		Response.write LIMG_TREE_I_HALF
127 
	Next
 127 
	Next
128
128
129 
End Sub
 129 
End Sub
130 
'----------------------------------------------------------------------------------------------------------------------------------------------
 130 
'----------------------------------------------------------------------------------------------------------------------------------------------
131 
Sub RenderIndent ( nLastLevel, nCurrLevel )
 131 
Sub RenderIndent ( nLastLevel, nCurrLevel )
132 
	Dim i
 132 
	Dim i
133
133
134 
	If nCurrLevel <= 1 Then Exit Sub
 134 
	If nCurrLevel <= 1 Then Exit Sub
135
135
136
136
137 
	'-- Render half lines
 137 
	'-- Render half lines
138 
	If nCurrLevel > 2 Then
 138 
	If nCurrLevel > 2 Then
139 
		For i = 1 To nCurrLevel - 2
 139 
		For i = 1 To nCurrLevel - 2
140 
			Response.write LIMG_TREE_I_FULL
 140 
			Response.write LIMG_TREE_I_FULL
141 
		Next
 141 
		Next
142 
	End If
 142 
	End If
143
143
144
144
145 
	'-- Render branch or line
 145 
	'-- Render branch or line
146 
	If nLastLevel < nCurrLevel Then
 146 
	If nLastLevel < nCurrLevel Then
147 
		Response.write LIMG_TREE_T
 147 
		Response.write LIMG_TREE_T
148 
	Else
 148 
	Else
149 
		Response.write LIMG_TREE_I_FULL
 149 
		Response.write LIMG_TREE_I_FULL
150 
	End If
 150 
	End If
151
151
152
152
153
153
154
154
155 
End Sub
 155 
End Sub
156 
'----------------------------------------------------------------------------------------------------------------------------------------------
 156 
'----------------------------------------------------------------------------------------------------------------------------------------------
157 
%>
 157 
%>
158 
<%
 158 
<%
159 
'------------ RUN BEFORE PAGE RENDER ----------
 159 
'------------ RUN BEFORE PAGE RENDER ----------
160 
Call objPMod.PersistInQryStringWithValue ( aPersistList(enumPAR_ROOT_VERSION), parRoot_version )
 160 
Call objPMod.PersistInQryStringWithValue ( aPersistList(enumPAR_ROOT_VERSION), parRoot_version )
161 
Call objPMod.PersistInQryStringWithValue ( aPersistList(enumPAR_BOM_NAME_ID), parBom_name_id )
 161 
Call objPMod.PersistInQryStringWithValue ( aPersistList(enumPAR_BOM_NAME_ID), parBom_name_id )
162 
 
 162 
 
163 
If (Request("action") <> "") Then
 163 
If (Request("action") <> "") Then
164 
	'-- Select Action
 164 
	'-- Select Action
165 
	Call ActionRedirection ( Request("action") )
 165 
	Call ActionRedirection ( Request("action") )
166
166
167 
End If
 167 
End If
168 
 
 168 
 
169 
Call GetFormDetails ( parBom_name_id, objFormCollector )
 169 
Call GetFormDetails ( parBom_name_id, objFormCollector )
170 
'----------------------------------------------
 170 
'----------------------------------------------
171 
%>
 171 
%>
172 
<html>
 172 
<html>
173 
<head>
 173 
<head>
174 
<title>Deployment Manager</title>
 174 
<title>Deployment Manager</title>
175 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 175 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
176 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 176 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
177 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 177 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
178 
<script language="JavaScript" src="scripts/common.js"></script>
 178 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
179 
</head>
 179 
<script language="JavaScript" src="scripts/common.js"></script>
180 
 
 180 
</head>
181 
<body leftmargin="0" topmargin="0">
 181 
 
182 
<!-- HEADER ++++++++++++++++ -->
 182 
<body leftmargin="0" topmargin="0">
183 
<!--#include file="_header.asp"-->
 183 
<!-- HEADER ++++++++++++++++ -->
184 
<!-- +++++++++++++++++++++++ -->
 184 
<!--#include file="_header.asp"-->
185 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
 185 
<!-- +++++++++++++++++++++++ -->
186 
<!--#include file="_main_menu.asp"-->
 186 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
187 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 187 
<!--#include file="_main_menu.asp"-->
188 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 188 
<!-- +++++++++++++++++++++++++++++++++++++ -->
189 
  <tr>
 189 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
190 
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 190 
  <tr>
191 
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 191 
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
192 
  </tr>
 192 
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
193 
  <tr>
 193 
  </tr>
194 
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
 194 
  <tr>
195 
    <td background="images/bg_bage_0.gif">&nbsp;</td>
 195 
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
196 
  </tr>
 196 
    <td background="images/bg_bage_0.gif">&nbsp;</td>
197 
  <tr>
 197 
  </tr>
198 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 198 
  <tr>
199 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 199 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
200 
  </tr>
 200 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
201 
  <tr>
 201 
  </tr>
202 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
 202 
  <tr>
203 
    <td><img src="images/spacer.gif" width="1" height="8"></td>
 203 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
204 
  </tr>
 204 
    <td><img src="images/spacer.gif" width="1" height="8"></td>
205 
  <tr>
 205 
  </tr>
206 
    <td>&nbsp;</td>
 206 
  <tr>
207 
    <td class="body_ttl1">Version Tree </td>
 207 
    <td>&nbsp;</td>
208 
  </tr>
 208 
    <td class="body_ttl1">Version Tree </td>
209 
  <tr>
 209 
  </tr>
210 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
 210 
  <tr>
211 
    <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>
 211 
    <td><img src="images/spacer.gif" width="1" height="1"></td>
212 
  </tr>
 212 
    <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>
213 
</table>
 213 
  </tr>
214 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 214 
</table>
215 
  <tr>
 215 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
216 
    <td width="1%">&nbsp;</td>
 216 
  <tr>
217 
    <td width="100%" rowspan="2" valign="top">
 217 
    <td width="1%">&nbsp;</td>
218 
	<!-- PAGE DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 218 
    <td width="100%" rowspan="2" valign="top">
219 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 219 
	<!-- PAGE DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
220 
	<%
 220 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
221 
	'-- FROM START ---------------------------------------------------------------------------------------------------------
 221 
	<%
222 
	objFormComponent.FormName = "FormState"
 222 
	'-- FROM START ---------------------------------------------------------------------------------------------------------
223 
	objFormComponent.Action = SCRIPT_NAME
 223 
	objFormComponent.FormName = "FormState"
224 
	Call objFormComponent.FormStart()
 224 
	objFormComponent.Action = SCRIPT_NAME
225 
	%>
225 
	Call objFormComponent.FormStart()
226 
      <tr>
 226 
	%>
227 
        <td class="body_ttl3">
 227 
      <tr>
228 
		  <%=objFormCollector.Item("bom_name")%><br><br>
 228 
        <td class="body_ttl3">
229 
          <%
 229 
		  <%=objFormCollector.Item("bom_name")%><br><br>
230 
		  '/*  Option Menu  */
 230 
          <%
231 
		  	aOptionList = Array( "pmiNewBom", _
 231 
		  '/*  Option Menu  */
232 
							   	 "pmiDestroyBom", _
 232 
		  	aOptionList = Array( "pmiNewBom", _
233 
							      enumSEPARATOR_LABEL, _
 233 
							   	 "pmiDestroyBom", _
234 
							   	 "pmiLockBom", _
 234 
							      enumSEPARATOR_LABEL, _
235 
							   	 "pmiUnlockBom" )
 235 
							   	 "pmiLockBom", _
236
236 
							   	 "pmiUnlockBom" )
237 
		  	query = GetQuery ("PopupMenuItemsList.sql")
 237
238 
		  	query = Replace ( query, "%ITEM_LIST%", Join( aOptionList, "','") )
 238 
		  	query = GetQuery ("PopupMenuItemsList.sql")
239
239 
		  	query = Replace ( query, "%ITEM_LIST%", Join( aOptionList, "','") )
240 
			Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 240
241
241 
			Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
242 
			'--- Render Option Menus
 242
243 
			If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 243 
			'--- Render Option Menus
244
244 
			If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
245 
				With objPopupMenuTreeOptions
 245
246 
					.LoadRows rsQry.GetRows()
 246 
				With objPopupMenuTreeOptions
247
247 
					.LoadRows rsQry.GetRows()
248 
					Response.write "<a href='javascript:;' onClick=""ToggleDisplay('divTreeOption');"" title='Options...' class='body_link'><img src='icons/b_options.gif' width='12' height='10' border='0' vspace='2' hspace='4' align='absmiddle'></a>"
 248
249
249 
					Response.write "<a href='javascript:;' onClick=""ToggleDisplay('divTreeOption');"" title='Options...' class='body_link'><img src='icons/b_options.gif' width='12' height='10' border='0' vspace='2' hspace='4' align='absmiddle'></a>"
250 
					.RenderInOrder "divTreeOption", aOptionList, objAccessControl, "pmoCreator"
 250
251 
				End With
 251 
					.RenderInOrder "divTreeOption", aOptionList, objAccessControl, "pmoCreator"
252
252 
				End With
253 
			End If
 253
254 
			rsQry.Close
 254 
			End If
255
255 
			rsQry.Close
256 
		  %>
256
257
257 
		  %>
258
258
259 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 259
260 
		  <tr>
 260 
		  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
261 
            <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 261 
		  <tr>
262 
          </tr>
 262 
            <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
263 
		  <%
 263 
          </tr>
264 
		  OraDatabase.Parameters.Add "BOM_NAME_ID", 		parBom_name_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
264 
		  <%
265 
		  OraDatabase.Parameters.Add "BRANCH_ID", 			parBranch_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
265 
		  OraDatabase.Parameters.Add "BOM_NAME_ID", 		parBom_name_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
266 
		  OraDatabase.Parameters.Add "BOM_VERSION", 		parRoot_version, 						ORAPARM_INPUT, ORATYPE_VARCHAR2
 266 
		  OraDatabase.Parameters.Add "BRANCH_ID", 			parBranch_id, 		ORAPARM_INPUT, ORATYPE_NUMBER
267 
		  OraDatabase.Parameters.Add "LIKE_BOM_VERSION", 	parRoot_version &".%", 					ORAPARM_INPUT, ORATYPE_VARCHAR2
267 
		  OraDatabase.Parameters.Add "BOM_VERSION", 		parRoot_version, 						ORAPARM_INPUT, ORATYPE_VARCHAR2
268
268 
		  OraDatabase.Parameters.Add "LIKE_BOM_VERSION", 	parRoot_version &".%", 					ORAPARM_INPUT, ORATYPE_VARCHAR2
269
269
270 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomVersionTree.sql") , ORADYN_DEFAULT )
 270
271 
		  lastLevel = 0
 271 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomVersionTree.sql") , ORADYN_DEFAULT )
272
272 
		  lastLevel = 0
273 
		  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 273
274 
		  	currLevel = GetLevel ( rsQry("bom_version") )
 274 
		  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
275 
		  %>
 275 
		  	currLevel = GetLevel ( rsQry("bom_version") )
276 
		  <tr>
 276 
		  %>
277 
            <td class="body_txt"><%Call RenderRowConnectors( lastLevel, currLevel )%></td>
 277 
		  <tr>
278 
          </tr>
 278 
            <td class="body_txt"><%Call RenderRowConnectors( lastLevel, currLevel )%></td>
279 
		  <tr>
 279 
          </tr>
280 
              <td class="body_txt"><%Call RenderIndent( lastLevel, currLevel )%><input type="checkbox" name="bom_id_list" value="<%=rsQry("bom_id")%>"><a href="Bom_AllProducts.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link" title="Open BOM..."><%=BomIcon( rsQry("is_readonly"), rsQry("is_rejected") )%><%=rsQry("bom_version") &"."& rsQry("bom_lifecycle")%></a></td>
 280 
		  <tr>
281 
          </tr>
 281 
              <td class="body_txt"><%Call RenderIndent( lastLevel, currLevel )%><input type="checkbox" name="bom_id_list" value="<%=rsQry("bom_id")%>"><a href="Bom_AllProducts.asp?bom_id=<%=rsQry("bom_id")%>" class="menu_link" title="Open BOM..."><%=BomIcon( rsQry("is_readonly"), rsQry("is_rejected") )%><%=rsQry("bom_version") &"."& rsQry("bom_lifecycle")%></a></td>
282
282 
          </tr>
283 
		  <%
 283
284 
		  	lastLevel = currLevel
 284 
		  <%
285 
		  	rsQry.MoveNext
 285 
		  	lastLevel = currLevel
286 
	  	  WEnd
 286 
		  	rsQry.MoveNext
287
287 
	  	  WEnd
288 
		  rsQry.Close
 288
289 
		  Set rsQry = Nothing
 289 
		  rsQry.Close
290
290 
		  Set rsQry = Nothing
291 
		  OraDatabase.Parameters.Remove "BOM_NAME_ID"
 291
292 
		  OraDatabase.Parameters.Remove "LIKE_BOM_VERSION"
 292 
		  OraDatabase.Parameters.Remove "BOM_NAME_ID"
293 
		  OraDatabase.Parameters.Remove "BOM_VERSION"
 293 
		  OraDatabase.Parameters.Remove "LIKE_BOM_VERSION"
294 
		  OraDatabase.Parameters.Remove "BRANCH_ID"
 294 
		  OraDatabase.Parameters.Remove "BOM_VERSION"
295 
		  %>
 295 
		  OraDatabase.Parameters.Remove "BRANCH_ID"
296 
		  <tr>
 296 
		  %>
297 
            <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 297 
		  <tr>
298 
          </tr>
 298 
            <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
299 
		  </table>
 299 
          </tr>
300 
		  <%=objPMod.ComposeHiddenTags()%>
 300 
		  </table>
301 
    	  <input type="hidden" name="action" value="true">
301 
		  <%=objPMod.ComposeHiddenTags()%>
302
302 
    	  <input type="hidden" name="action" value="true">
303 
	    </td>
 303
304 
      </tr>
 304 
	    </td>
305 
	<%
 305 
      </tr>
306 
	Call objFormComponent.FormEnd()
 306 
	<%
307 
	'-- FROM END ----------------------------------------------------------------------------------------------------------------
 307 
	Call objFormComponent.FormEnd()
308 
	%>
308 
	'-- FROM END ----------------------------------------------------------------------------------------------------------------
309 
    </table>
309 
	%>
310 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 310 
    </table>
311 
	</td>
 311 
	<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
312 
  </tr>
 312 
	</td>
313 
  <tr>
 313 
  </tr>
314 
    <td valign="bottom"><img src="images/ill_bom_version_tree.jpg" width="146" height="300"></td>
 314 
  <tr>
315 
  </tr>
 315 
    <td valign="bottom"><img src="images/ill_bom_version_tree.jpg" width="146" height="300"></td>
316 
</table>
 316 
  </tr>
317 
 
 317 
</table>
318 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 318 
 
319 
  <tr>
 319 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
320 
    <td><img src="images/spacer.gif" width="8" height="20"></td>
 320 
  <tr>
321 
  </tr>
 321 
    <td><img src="images/spacer.gif" width="8" height="20"></td>
322 
</table>
 322 
  </tr>
323 
<!-- FOOTER ++++++++++++++++ -->
 323 
</table>
324 
<!--#include file="_footer.asp"-->
 324 
<!-- FOOTER ++++++++++++++++ -->
325 
<!-- +++++++++++++++++++++++ -->
 325 
<!--#include file="_footer.asp"-->
326 
</body>
 326 
<!-- +++++++++++++++++++++++ -->
327 
</html>
 327 
</body>
328 
<%
 328 
</html>
329 
'------------ RUN AFTER PAGE RENDER -----------
 329 
<%
330 
Set objPMod = Nothing
 330 
'------------ RUN AFTER PAGE RENDER -----------
331 
Set objCrumbs = Nothing
 331 
Set objPMod = Nothing
332 
'----------------------------------------------
 332 
Set objCrumbs = Nothing
- 
 
 333 
'----------------------------------------------
333 
%><!--#include file="common/globals_destructor.asp"-->
 334 
%><!--#include file="common/globals_destructor.asp"-->
334 

            335