<%
'===================================================================
' Bom Common
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim objTabControl
Dim objTemplateManager
Dim objBomCollector
Dim objBtnControl
Dim objFormater
Dim objRepeater
Dim aTabBtnsDef
'------------ CONSTANTS DECLARATION -----------
Const LIMG_EXPAND = "
"
Const LIMG_COLLAPSE = "
"
Const LIMG_EDIT = "
"
Const LIMG_REMOVE = "
"
Const LIMG_PRODUCT = "
"
'------------ VARIABLE INIT -------------------
Set objCrumbs = New Crumbs
Set objPMod = New PersistanceModule
Set objFormater = New Formater
Set objRepeater = New Repeater
Set objBomCollector = CreateObject("Scripting.Dictionary")
Set objBtnControl = New ActionButtonControl
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
Call InitialiseCrumbs ( objCrumbs )
objPMod.PersistInCookie ("bom_browser")
objPMod.PersistInCookie ("user_bar")
objPMod.PersistInQryString ( aPersistList(enumPAR_BOM_ID) )
Call GetBomDetails ( dbPARbom_id, objBomCollector )
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub RenderTitle ( objCollector )
Response.write ""& objCollector.Item("bom_name") &" "& objCollector.Item("bom_version") &"."& objCollector.Item("bom_lifecycle") &""
End Sub
'-----------------------------------------------------------------------------------------------------------------
%>