<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Bom_AllProducts | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, rsTemp Dim aProductList Dim parProd_id_select Dim parShowall Dim numOfRows Dim rowNum Dim objFormCollector Dim objFormComponent Dim sMessage Dim ProdId Dim ChangeType '------------ CONSTANTS DECLARATION ----------- Const LIMG_NOTE_NEW = "" Const LIMG_NOTE_EDIT = "" '------------ VARIABLE INIT ------------------- parProd_id_select = Request("prod_id_select") parShowall = Request("showall") Set objFormCollector = CreateObject("Scripting.Dictionary") Set objFormComponent = New FormComponent '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------- Sub GetAllProductsList ( nBom_id, outProductList ) Dim rsQry, query, showAll '' Use SHOWALL parameter is BOM has old bom 'showAll = "Y" 'If nBom_id <> nComparedBomId Then ' showAll = parShowall 'End If OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AllBaseConfigProducts.sql"), ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then outProductList = rsQry.GetRows() Else outProductList = NULL End If OraDatabase.Parameters.Remove "BOM_ID" End Sub '-------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %> Deployment Manager
<%Call RenderTitle( objBomCollector )%>
<% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrBomTabDef ) objTabControl.SelectByName("All BaseConfig Products") objTabControl.Render () %>
<% '-- Define Action buttons on this tab aTabBtnsDef = Array("abtnSyncProdLatest", "abtnUnhideProducts") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) ' -- Tell control if buttons need to be readonly actions objBtnControl.IsReadonlyAction = objBomCollector.Item("is_readonly") ' -- Render Buttons Call objBtnControl.Render ( aTabBtnsDef ) %>
    <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%>
<%Call RenderTitle( objBomCollector )%>
All Base Configuration Products

<% Call GetAllProductsList ( dbPARbom_id, aProductList ) If NOT IsNull( aProductList ) Then numOfRows = UBound( aProductList, 2 ) For rowNum = 0 To numOfRows ProdId = aProductList( 0, rowNum ) ChangeType = NULL Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS PV, PRODUCT_DETAILS PD WHERE PD.PROD_ID(+) = PV.PV_ID AND PV.PV_ID ="&ProdId, ORADYN_DEFAULT ) %> <%If rowNum <> numOfRows Then%> <%End If%> <% Next Else%> <%End If%>
Product
Version
<%=LIMG_EXPAND & GetProductIcon( rsTemp ) & aProductList( 1, rowNum )%> <% rsTemp.Close() Set rsTemp = nothing %> <%=aProductList( 2, rowNum )%>
No Changes Found.
<%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 '---------------------------------------------- %>