<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Bom_AllProducts | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% 'To enable the script timeout to 5 mins Server.ScriptTimeout=600 %> <% '------------ 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 Dim rec '------------ 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 ("AllProducts.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 ---------- '---------------------------------------------- %> Production Manager
<%Call RenderTitleWithoutVersion( 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 Products") objTabControl.Render () %>
    <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%>
<%Call RenderTitle( objBomCollector )%>
All 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 ) %> <% Set rsTemp = OraDatabase.DbCreateDynaset("SELECT * FROM BOMS WHERE BOM_ID="&Request("bom_id"), ORADYN_DEFAULT ) OraDatabase.Parameters.Add "PKG_ID", aProductList( 4, rowNum ), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROJ_ID", 122, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BRANCH_ID", rsTemp("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "FILTER_ON", 0, ORAPARM_INPUT, ORATYPE_NUMBER rsTemp.Close() Set rsTemp = nothing If IsNull(aProductList( 5, rowNum )) Then Set rsTemp = OraDatabase.DbCreateDynaset(GetQuery("LatestProdVersion.sql"), ORADYN_DEFAULT ) For rec = 1 to 1 If rsTemp("pkg_version") <> (aProductList( 2, rowNum )) Then%> <%Else%> <%End If Next rsTemp.Close() Set rsTemp = nothing Else%> <% End If OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "BRANCH_ID" OraDatabase.Parameters.Remove "FILTER_ON" %> <%If rowNum <> numOfRows Then%> <%End If%> <% Next Else%> <%End If%>
Product
Version Latest Version
<%=LIMG_EXPAND & GetProductIcon( rsTemp ) & aProductList( 1, rowNum )%> <% rsTemp.Close() Set rsTemp = nothing %> <%=aProductList( 2, rowNum )%> <%=rsTemp("pkg_version")%>
No Changes Found.
<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%End If%>