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", "abtnProdRemove", "width=5", "abtnAcceptRejectProd", "width=5", "abtnRMlink" )
58 
 
59 
 
60 
	ElseIf dbPARbom_id <> enumDB_DEFAULT_EMPTY Then
61 
		' Bom Level
62 
		aAbtnList = Array( "abtnNew", "abtnBomProperties" )
63 
 
64 
	Else
65 
		aAbtnList = Array ( enumDB_DEFAULT_EMPTY )		' This will return no results
66 
 
67 
	End If
68 
 
69 
 
70 
	' -- Load Action Buttons
71 
	Call objAbtnControl.LoadActionButtons ( aAbtnList, OraDatabase )
72 
 
73 
	' -- Set ButtonText Space
74 
	objAbtnControl.ButtonTextSpacer = 2
75 
 
76 
	' -- Tell control if buttons need to be readonly actions
77 
	objAbtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly")
78 
 
79 
	' -- Render Buttons
80 
	Call objAbtnControl.Render  ( aAbtnList )
81 
 
82 
	Set objAbtnControl = Nothing
83 
End Sub
84 
'----------------------------------------------------------------------------------------------------------------------------------------------
85 
%>
86 
<%
87 
'------------ RUN BEFORE CONTROL RENDER -------
88 
'----------------------------------------------
89 
%>
90 
 
91 
<!-- BOM BROWSER ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
92 
 
93 
<%If Request.Cookies( enumCOOKIE_NAME )( "bom_browser" ) = "hide" Then%>
94 
	<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>
95 
 
96 
<%Else%>
97 
 
98 
<table width="100%"  border="0" cellspacing="0" cellpadding="5">
99 
  <form name="Find" method="get" action="FindInBom.asp">
100 
  <tr>
101 
    <td width="100%" background="images/bg_bage_1.gif" nowrap><span class="body_smltxt">Find in BOM:</span><br>
102 
      <input name="keyword" type="text" class="form_iname" size="25" value="<%=Request("keyword")%>">
103 
      <input name="btn" type="submit" class="form_iname" value="Go"></td>
104 
	<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>
105 
  </tr>
106 
  <input type="hidden" name="bom_id" value="<%=dbPARbom_id%>">
107 
  </form>
108 
</table>
109 
 
110 
<%
111 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
112 
'objAccessControl.BeginRegion ( "oProjectList" )
113 
'If objAccessControl.IsVisible ( "oProjectList" ) Then
114 
%>
115 
<!-- ACTION BUTTONS +++++++++++++ -->
116 
<table width="100%"  border="0" cellspacing="0" cellpadding="5">
117 
  <tr>
118 
    <td width="100%" nowrap background="images/bg_bage_0a.gif"><%Call BrowserActionButtons ()%></td>
119 
  </tr>
120 
</table>
121 
	<!-- MENU OPTIONS NEW ... -->
122 
	<!--#include file="_menu_option_abtn_new.asp"-->
123 
	<!-- MENU OPTIONS NEW ... -->
124 
<!-- ACTION BUTTONS END +++++++++ -->
125 
<%
126 
'End If
127 
'objAccessControl.EndRegion ( "oProjectList" )
128 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
129 
%>
130 
 
131 
<!-- BOM BROWSER ++++++++++++++++ -->
132 
<table width="100%"  border="0" cellspacing="5" cellpadding="0">
133 
  <tr>
134 
    <td><table width="100%"  border="0" cellspacing="2" cellpadding="0">
135 
	  <tr>
136 
        <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>
137 
      </tr>
138 
      <tr>
139 
        <td nowrap background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
140 
      </tr>
141 
 
142 
	  <%
143 
	  OraDatabase.Parameters.Add "BOM_ID", 	dbPARbom_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
144 
	  OraDatabase.Parameters.Add "NODE_ID", dbPARnode_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
145 
 
146 
 
147 
 
148 
	  ' Keep OS_ID at 0 if you do not want to expand packages on tree view. Else replace 0 with dbPARos_id
149 
	  OraDatabase.Parameters.Add "OS_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
150 
 
151 
 
152 
 
153 
	  Set rsBomTree = OraDatabase.DbCreateDynaset( GetQuery ("BomBrowser.sql") , ORADYN_DEFAULT )
154 
 
155 
	  While ((NOT rsBomTree.BOF) AND (NOT rsBomTree.EOF))
156 
	  %>
157 
      <%If rsBomTree("prod_id") <> 0 Then%>
158 
	  	<tr>
159 
        	<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>
160 
      	</tr>
161 
	  <%ElseIf rsBomTree("os_id") <> 0 Then%>
162 
	  	<tr>
163 
        	<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>
164 
      	</tr>
165 
	  <%Else%>
166 
	  	<tr>
167 
        	<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>
168 
      	</tr>
169 
	  <%End If%>
170 
	  <%
171 
	  	rsBomTree.MoveNext
172 
  	  WEnd
173 
 
174 
	  rsBomTree.Close
175 
	  Set rsBomTree = Nothing
176 
	  OraDatabase.Parameters.Remove "BOM_ID"
177 
	  OraDatabase.Parameters.Remove "NODE_ID"
178 
	  OraDatabase.Parameters.Remove "OS_ID"
179 
	  %>
180 
    </table></td>
181 
  </tr>
182 
</table>
183 
<img src="images/spacer.gif" width="200" height="1">
184 
 
185 
 
186 
<%End If%>
187 
<!-- BOM BROWSER END ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
188 
<%
189 
'------------ RUN AFTER CONTROL RENDER --------
190 
'----------------------------------------------
191 
%>