Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
62 rsolanki 1 
<%
2 
'===================================================================
3 
'						Bom Browser Control
4 
'===================================================================
5 
%>
6 
<%
7 
'------------ VARIABLE DEFINITION -------------
8 
Dim rsBomTree
9 
'------------ CONSTANTS DECLARATION -----------
10 
Const IMG_INDENT1 = "<img src='images/spacer.gif' width='15' height='5' align='absmiddle' border='0'>"
11 
Const IMG_INDENT2 = "<img src='images/spacer.gif' width='40' height='5' align='absmiddle' border='0'>"
12 
'------------ VARIABLE INIT -------------------
13 
'----------------------------------------------
14 
%>
15 
<%
16 
'----------------------------------------------------------------------------------------------------------------------------------------------
17 
Function BBSelectorStyle ( nRowID, nParID, nLevel )
18 
 
19 
	BBSelectorStyle = "menu_link"
20 
 
21 
	If dbPARprod_id <> enumDB_DEFAULT_EMPTY Then
22 
		If ( CStr(nRowID) =  CStr(nParID) ) AND ( nLevel = 2 ) Then BBSelectorStyle = "menu_linkselect"
23 
 
24 
	ElseIf dbPARos_id <> enumDB_DEFAULT_EMPTY Then
25 
		If ( CStr(nRowID) =  CStr(nParID) ) AND ( nLevel = 1 ) Then BBSelectorStyle = "menu_linkselect"
26 
 
27 
	ElseIf dbPARnode_id <> enumDB_DEFAULT_EMPTY Then
28 
		If ( CStr(nRowID) =  CStr(nParID) ) AND ( nLevel = 0 ) Then BBSelectorStyle = "menu_linkselect"
29 
 
30 
	ElseIf dbPARbom_id <> enumDB_DEFAULT_EMPTY Then
31 
		If ( nLevel = -1 ) Then BBSelectorStyle = "menu_linkselect"
32 
 
33 
	End If
34 
 
35 
 
36 
End Function
37 
'----------------------------------------------------------------------------------------------------------------------------------------------
38 
Function ChangeLogDecoder ( cFlag )
39 
	Select Case cFlag
40 
		Case "U"
41 
			ChangeLogDecoder = "<SPAN class='body_txtr'>&nbsp;(updated)</SPAN>"
42 
		Case enumDB_NO
43 
			ChangeLogDecoder = "<SPAN class='body_txtr'>&nbsp;(added)</SPAN>"
44 
		Case Else
45 
			ChangeLogDecoder = NULL
46 
	End Select
47 
End Function
48 
'----------------------------------------------------------------------------------------------------------------------------------------------
49 
Sub BrowserActionButtons ()
50 
	Dim objAbtnControl, abdQuery, rsAbtnDef, AbtnName, aAbtnList
51 
 
52 
	Set objAbtnControl = New ActionButtonControl
53 
 
54 
 
55 
	If dbPARprod_id <> enumDB_DEFAULT_EMPTY Then
56 
		' Product Level
57 
		aAbtnList = Array( "abtnNew", "abtnProdProperties", "width=5", "abtnAcceptRejectProd" )
58 
 
59 
	ElseIf dbPARos_id <> enumDB_DEFAULT_EMPTY Then
60 
		' OS Level
61 
		aAbtnList = Array( "abtnNew", "abtnOSProperties" )
62 
 
63 
	ElseIf dbPARnode_id <> enumDB_DEFAULT_EMPTY Then
64 
		' Node Level
65 
		aAbtnList = Array( "abtnNew", "abtnNodeProperties" )
66 
 
67 
	ElseIf dbPARbom_id <> enumDB_DEFAULT_EMPTY Then
68 
		' Bom Level
69 
		aAbtnList = Array( "abtnNew", "abtnBomProperties" )
70 
 
71 
	Else
72 
		aAbtnList = Array ( enumDB_DEFAULT_EMPTY )		' This will return no results
73 
 
74 
	End If
75 
 
76 
 
77 
	' -- Load Action Buttons
78 
	Call objAbtnControl.LoadActionButtons ( aAbtnList, OraDatabase )
79 
 
80 
	' -- Set ButtonText Space
81 
	objAbtnControl.ButtonTextSpacer = 2
82 
 
83 
	' -- Tell control if buttons need to be readonly actions
84 
	objAbtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly")
85 
 
86 
	' -- Render Buttons
87 
	Call objAbtnControl.Render  ( aAbtnList )
88 
 
89 
	Set objAbtnControl = Nothing
90 
End Sub
91 
'----------------------------------------------------------------------------------------------------------------------------------------------
92 
%>
93 
<%
94 
'------------ RUN BEFORE CONTROL RENDER -------
95 
'----------------------------------------------
96 
%>
97 
 
98 
<!-- BOM BROWSER ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
99 
 
100 
<%If Request.Cookies( enumCOOKIE_NAME )( "bom_browser" ) = "hide" Then%>
101 
	<a href="<%=SCRIPT_NAME%>?bom_browser=<%=enumDEFAULT%>&<%=objPMod.ComposeURL()%>"><img src="icons/b_right.gif" width="13" height="13" border="0" hspace="2" vspace="3" title="Maximize BOM Browser"></a>
102 
 
103 
<%Else%>
104 
 
105 
<table width="100%"  border="0" cellspacing="0" cellpadding="5">
106 
  <form name="Find" method="get" action="FindInBom.asp">
107 
  <tr>
108 
    <td width="100%" background="images/bg_bage_1.gif" nowrap><span class="body_smltxt">Find in BOM:</span><br>
109 
      <input name="keyword" type="text" class="form_iname" size="25" value="<%=Request("keyword")%>">
110 
      <input name="btn" type="submit" class="form_iname" value="Go"></td>
111 
	<td width="1" valign="top" background="images/bg_bage_1.gif"><a href="<%=SCRIPT_NAME%>?bom_browser=hide&<%=objPMod.ComposeURL()%>"><img src="icons/b_left.gif" width="13" height="13" border="0" title="Minimize BOM Browser"></a></td>
112 
  </tr>
113 
  <input type="hidden" name="bom_id" value="<%=dbPARbom_id%>">
114 
  </form>
115 
</table>
116 
 
117 
<%
118 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
119 
'objAccessControl.BeginRegion ( "oProjectList" )
120 
'If objAccessControl.IsVisible ( "oProjectList" ) Then
121 
%>
122 
<!-- ACTION BUTTONS +++++++++++++ -->
123 
<table width="100%"  border="0" cellspacing="0" cellpadding="5">
124 
  <tr>
125 
    <td width="100%" nowrap background="images/bg_bage_0a.gif"></td>
126 
  </tr>
127 
</table>
128 
	<!-- MENU OPTIONS NEW ... -->
129 
	<!--#include file="_menu_option_abtn_new.asp"-->
130 
	<!-- MENU OPTIONS NEW ... -->
131 
<!-- ACTION BUTTONS END +++++++++ -->
132 
<%
133 
'End If
134 
'objAccessControl.EndRegion ( "oProjectList" )
135 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
136 
%>
137 
 
138 
<!-- BOM BROWSER ++++++++++++++++ -->
139 
<table width="100%"  border="0" cellspacing="5" cellpadding="0">
140 
  <tr>
141 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
142 
	  <tr>
143 
        <td nowrap><img src="images/spacer.gif" width="15" height="19" hspace="2" vspace="1" align="absmiddle"><a href="Bom_Home.asp?bom_id=<%=dbPARbom_id%>" class="<%=BBSelectorStyle ( 0, 0, -1 )%>">BOM Home</a></td>
144 
      </tr>
145 
      <tr>
146 
        <td nowrap background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
147 
      </tr>
148 
 
149 
	  <%
150 
	  OraDatabase.Parameters.Add "BOM_ID", 	dbPARbom_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
151 
	  OraDatabase.Parameters.Add "NODE_ID", dbPARnode_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
152 
 
153 
 
154 
 
155 
	  ' Keep OS_ID at 0 if you do not want to expand packages on tree view. Else replace 0 with dbPARos_id
156 
	  OraDatabase.Parameters.Add "OS_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
157 
 
158 
 
159 
 
160 
	  Set rsBomTree = OraDatabase.DbCreateDynaset( GetQuery ("BomBrowser.sql") , ORADYN_DEFAULT )
161 
 
162 
	  While ((NOT rsBomTree.BOF) AND (NOT rsBomTree.EOF))
163 
	  %>
164 
      <%If rsBomTree("prod_id") <> 0 Then%>
165 
	  	<tr>
166 
        	<td nowrap><%=IMG_INDENT2%><a href="ProdDefault.asp?bom_id=<%=dbPARbom_id%>&os_id=<%=rsBomTree("os_id")%>&prod_id=<%=rsBomTree("prod_id")%>" class="menu_link"><%=GetProductIcon( rsBomTree )%><SPAN class="<%=BBSelectorStyle( rsBomTree("prod_id"), dbPARprod_id, 2 )%>"><%=rsBomTree("prod_name")%></SPAN></a><%=ChangeLogDecoder( rsBomTree("change_log_flag") )%></td>
167 
      	</tr>
168 
	  <%ElseIf rsBomTree("os_id") <> 0 Then%>
169 
	  	<tr>
170 
        	<td nowrap><a href="OsDefault.asp?bom_id=<%=dbPARbom_id%>&os_id=<%=rsBomTree("os_id")%>" class="menu_link"><%=IMG_INDENT1%><%=Expander ( rsBomTree("expand") )%><img src="icons/<%=rsBomTree("bos_icon")%>" width="19" height="19" hspace="2" border="0" align="absmiddle"><SPAN class="<%=BBSelectorStyle( rsBomTree("os_id"), dbPARos_id, 1 )%>"><%=rsBomTree("os_name")%></SPAN></a></td>
171 
      	</tr>
172 
	  <%Else%>
173 
	  	<tr>
174 
        	<td nowrap><a href="NodeDefault.asp?bom_id=<%=dbPARbom_id%>&node_id=<%=rsBomTree("node_id")%>" class="menu_link" title="<%=rsBomTree("node_version") &"."& rsBomTree("node_life_cycle") %>"><%=Expander ( rsBomTree("expand") )%><img src="icons/<%=rsBomTree("node_icon")%>" width="19" height="19" hspace="4" border="0" align="absmiddle"><SPAN class="<%=BBSelectorStyle( rsBomTree("node_id"), dbPARnode_id, 0 )%>"><%=rsBomTree("node_name")%></SPAN></a></td>
175 
      	</tr>
176 
	  <%End If%>
177 
	  <%
178 
	  	rsBomTree.MoveNext
179 
  	  WEnd
180 
 
181 
	  rsBomTree.Close
182 
	  Set rsBomTree = Nothing
183 
	  OraDatabase.Parameters.Remove "BOM_ID"
184 
	  OraDatabase.Parameters.Remove "NODE_ID"
185 
	  OraDatabase.Parameters.Remove "OS_ID"
186 
	  %>
187 
    </table></td>
188 
  </tr>
189 
</table>
190 
<img src="images/spacer.gif" width="200" height="1">
191 
 
192 
 
193 
<%End If%>
194 
<!-- BOM BROWSER END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
195 
<%
196 
'------------ RUN AFTER CONTROL RENDER --------
197 
'----------------------------------------------
198 
%>