<% '=================================================================== ' Bom Browser Control '=================================================================== %> <% '------------ VARIABLE DEFINITION ------------- Dim rsBomTree '------------ CONSTANTS DECLARATION ----------- Const IMG_INDENT1 = "" Const IMG_INDENT2 = "" '------------ VARIABLE INIT ------------------- '---------------------------------------------- %> <% '---------------------------------------------------------------------------------------------------------------------------------------------- Function BBSelectorStyle ( nRowID, nParID, nLevel ) BBSelectorStyle = "menu_link" If dbPARprod_id <> enumDB_DEFAULT_EMPTY Then If ( CStr(nRowID) = CStr(nParID) ) AND ( nLevel = 2 ) Then BBSelectorStyle = "menu_linkselect" ElseIf dbPARos_id <> enumDB_DEFAULT_EMPTY Then If ( CStr(nRowID) = CStr(nParID) ) AND ( nLevel = 1 ) Then BBSelectorStyle = "menu_linkselect" ElseIf dbPARnode_id <> enumDB_DEFAULT_EMPTY Then If ( CStr(nRowID) = CStr(nParID) ) AND ( nLevel = 0 ) Then BBSelectorStyle = "menu_linkselect" ElseIf dbPARbom_id <> enumDB_DEFAULT_EMPTY Then If ( nLevel = -1 ) Then BBSelectorStyle = "menu_linkselect" End If End Function '---------------------------------------------------------------------------------------------------------------------------------------------- Function ChangeLogDecoder ( cFlag ) Select Case cFlag Case "U" ChangeLogDecoder = " (updated)" Case enumDB_NO ChangeLogDecoder = " (added)" Case Else ChangeLogDecoder = NULL End Select End Function '---------------------------------------------------------------------------------------------------------------------------------------------- Sub BrowserActionButtons () Dim objAbtnControl, abdQuery, rsAbtnDef, AbtnName, aAbtnList Set objAbtnControl = New ActionButtonControl If dbPARprod_id <> enumDB_DEFAULT_EMPTY Then ' Product Level aAbtnList = Array( "abtnNew", "abtnProdProperties", "width=5", "abtnAcceptRejectProd" ) ElseIf dbPARos_id <> enumDB_DEFAULT_EMPTY Then ' OS Level aAbtnList = Array( "abtnNew", "abtnOSProperties" ) ElseIf dbPARnode_id <> enumDB_DEFAULT_EMPTY Then ' Node Level aAbtnList = Array( "abtnNew", "abtnNodeProperties" ) ElseIf dbPARbom_id <> enumDB_DEFAULT_EMPTY Then ' Bom Level aAbtnList = Array( "abtnNew", "abtnBomProperties" ) Else aAbtnList = Array ( enumDB_DEFAULT_EMPTY ) ' This will return no results End If ' -- Load Action Buttons Call objAbtnControl.LoadActionButtons ( aAbtnList, OraDatabase ) ' -- Set ButtonText Space objAbtnControl.ButtonTextSpacer = 2 ' -- Tell control if buttons need to be readonly actions objAbtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly") ' -- Render Buttons Call objAbtnControl.Render ( aAbtnList ) Set objAbtnControl = Nothing End Sub '---------------------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE CONTROL RENDER ------- '---------------------------------------------- %> <%If Request.Cookies( enumCOOKIE_NAME )( "bom_browser" ) = "hide" Then%> <%Else%>

Find in BOM: ">

<% '-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER- 'objAccessControl.BeginRegion ( "oProjectList" ) 'If objAccessControl.IsVisible ( "oProjectList" ) Then %> <% 'End If 'objAccessControl.EndRegion ( "oProjectList" ) '-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER- %>

<% OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "NODE_ID", dbPARnode_id, ORAPARM_INPUT, ORATYPE_NUMBER ' Keep OS_ID at 0 if you do not want to expand packages on tree view. Else replace 0 with dbPARos_id OraDatabase.Parameters.Add "OS_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER Set rsBomTree = OraDatabase.DbCreateDynaset( GetQuery ("BomBrowser.sql") , ORADYN_DEFAULT ) While ((NOT rsBomTree.BOF) AND (NOT rsBomTree.EOF)) %> <%If rsBomTree("prod_id") <> 0 Then%> <%ElseIf rsBomTree("os_id") <> 0 Then%> <%Else%> <%End If%> <% rsBomTree.MoveNext WEnd rsBomTree.Close Set rsBomTree = Nothing OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "NODE_ID" OraDatabase.Parameters.Remove "OS_ID" %> BOM Home <%=IMG_INDENT2%>&prod_id=<%=rsBomTree("prod_id")%>" class="menu_link"><%=GetProductIcon( rsBomTree )%>"><%=rsBomTree("prod_name")%><%=ChangeLogDecoder( rsBomTree("change_log_flag") )%> " class="menu_link"><%=IMG_INDENT1%><%=Expander ( rsBomTree("expand") )%>" width="19" height="19" hspace="2" border="0" align="absmiddle">"><%=rsBomTree("os_name")%> " class="menu_link" title="<%=rsBomTree("node_version") &"."& rsBomTree("node_life_cycle") %>"><%=Expander ( rsBomTree("expand") )%>" width="19" height="19" hspace="4" border="0" align="absmiddle">"><%=rsBomTree("node_name")%>

<%End If%> <% '------------ RUN AFTER CONTROL RENDER -------- '---------------------------------------------- %>