<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| OS_BaseConf | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim background Dim pointer Dim BaseEnvId Dim BaseEnvName Dim ProdId Dim ProdName '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBom_id = Request("bom_id") parOs_id = Request("os_id") BaseEnvName = objOsCollector.Item("base_env_name") BaseEnvId = objOsCollector.Item("base_env_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function GetBaseEnvList( nBom_id, nOs_id ) Dim rsQry, query OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OS_ID", dbPARos_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BaseEnvList.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then GetBaseEnvList = rsQry.GetRows() Else GetBaseEnvList = NULL End If OraDatabase.Parameters.Remove "BOS_ID" OraDatabase.Parameters.Remove "OS_ID" rsQry.Close Set rsQry = Nothing End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %>

		<%Call RenderTitle( objOsCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrOsTabDef ) objTabControl.SelectByName ("Base Configuration") objTabControl.Render () %> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddBaseEnv", "btnDestroyBaseEnv", "height=30", "btnPropertiesBaseEnv", "height=30", "btnSortBase") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) ' -- Tell control if buttons need to be readonly actions objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly") ' -- Conditions If IsNull( BaseEnvId ) Then Call objBtnControl.Active ("btnPropertiesBaseEnv", "N") Call objBtnControl.Active ("btnDestroyBaseEnv", "N") End If ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) %>     <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "SetBaseConf" objFormComponent.Action = "_SetBaseConf.asp" objFormComponent.OnSubmit = "ShowProgress();" objFormComponent.IsReadonlyAction = objBomCollector.Item("is_readonly") Call objFormComponent.FormStart() %> Assign Base Configurations to OS <%=objFormComponent.Combo ( "base_env_id", GetBaseEnvList( parBom_id, parOs_id ), TRUE, "class='form_ivalue'" )%> <%=objPMod.ComposeHiddenTags()%> <%=objFormComponent.SubmitButton ("Assign", "name='btn' class='form_btn'")%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %> <%If BaseEnvId <> "" Then%> Base Configuration Setup <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddBaseEnvProd","height=30", "btnPasteProdToBaseEnv") Call objBtnControl.LoadActionButtons ( aTabBtnsDef, OraDatabase ) ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) %> <% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditProdBaseEnv", "btnRemoveProdBaseEnv"), OraDatabase ) objBtnControl.ButtonSpacer = 1 OraDatabase.Parameters.Add "BASE_ENV_ID", BaseEnvId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BaseEnvContents.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) ProdId = rsQry("prod_id") ProdName = rsQry("pkg_name").Value %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "BASE_ENV_ID" %>  Install Order Product Name Version Installation Comments <%=rsQry("seq_num")%> <%=GetProductIcon(rsQry) & ProdName%> <%=rsQry("pkg_version")%> <%=objFormater.TextToHtml( rsQry("base_env_comments") )%> <%Call objBtnControl.Render ( Array("btnEditProdBaseEnv", "btnRemoveProdBaseEnv") )%> <%End If%>	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%=GetNodeImage ( dbPARnode_id )%> Reason for release Fixed Issues <%End If%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing Set objTabControl = Nothing '---------------------------------------------- %>