<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddProd | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim objFormCollector Dim sMessage Dim aAddPkgList, aFullList, dAddPkgList, PvId '------------ CONSTANTS DECLARATION ----------- Const LIMG_PRODUCT_PATCH = "" '------------ VARIABLE INIT ------------------- sMessage = NULL parBom_id = Request("bom_id") parOs_id = Request("os_id") Set objFormCollector = CreateObject("Scripting.Dictionary") Set dAddPkgList = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nBom_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "BOM_ID", nBom_id, ORAPARM_INPUT, ORATYPE_NUMBER query = _ " SELECT bo.RTAG_ID_FK,"&_ " rm_proj.PROJ_ID,"&_ " rm_proj.PROJ_NAME,"&_ " rt.RTAG_NAME"&_ " FROM BOMS bo,"&_ " PROJECTS rm_proj,"&_ " RELEASE_TAGS rt"&_ " WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_ " AND bo.RTAG_ID_FK = rt.RTAG_ID"&_ " AND bo.BOM_ID = :BOM_ID" Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk") outobjDetails.Item ("proj_id") = rsQry("proj_id") outobjDetails.Item ("proj_name") = rsQry("proj_name") outobjDetails.Item ("rtag_name") = rsQry("rtag_name") End If OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub AddProdToBaseEnv () On Error Resume Next OraDatabase.Parameters.Add "PROD_ID_LIST", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," ) ' Clean empty parameters For Each PvId In aFullList If PvId <> "" Then dAddPkgList.Add CStr( PvId ), Empty End If Next aFullList = NULL aAddPkgList = dAddPkgList.Keys For Each PvId In aAddPkgList Call PopulateSBOMField(parBom_id, PvId, NULL, NULL ) Next OraDatabase.Parameters.Remove "PROD_ID_LIST" OraDatabase.Parameters.Remove "BASE_ENV_ID" OraDatabase.Parameters.Remove "OS_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "BOM_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub AddProdToOs () On Error Resume Next OraDatabase.Parameters.Add "PROD_ID_LIST", Request("prod_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BOM_ID", parBom_id, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," ) ' Clean empty parameters For Each PvId In aFullList If PvId <> "" Then dAddPkgList.Add CStr( PvId ), Empty End If Next aFullList = NULL aAddPkgList = dAddPkgList.Keys For Each PvId In aAddPkgList Call PopulateSBOMField(parBom_id, PvId, NULL, NULL ) Next OraDatabase.Parameters.Remove "PROD_ID_LIST" OraDatabase.Parameters.Remove "OS_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "BOM_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ( Array("base_env_id") ) If CBool(Request("action")) Then If Request("prod_id_list") <> "" Then '-- Add Product List If Request("base_env_id") = "" Then Call AddProdToOs() Else Call AddProdToBaseEnv() End If If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?ADDED=OK"& objPMod.ComposeURLWithout("rfile,base_env_id") ) Call CloseWindow() End If Else sMessage = "Please select Product(s) from Release Manager list then click Add." End If End If Call GetFormDetails ( parBom_id, objFormCollector ) '---------------------------------------------- %> <% '-- FROM START --------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormSearch" objFormComponent.Action = "wAddProdBySearch.asp" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = SCRIPT_NAME objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add Product Search for Product, Create New Product or select from Release Manager list.

Product Search

<%=ProgressBar()%>

<%Call Messenger ( sMessage , 3, "100%" )%> Create New Product Add from Release Manager <%If (objFormCollector.Item("rtag_id_fk") <> "") Then%> <%=objFormCollector.Item ("proj_name") &" / "& objFormCollector.Item ("rtag_name")%> <%Else%> <%Call Messenger ( "This BOM does not have Release Manager Reference release. Please edit BOM properties first. " , 1, "100%" )%> <%End If%> <% ' -- Only run if links with Release Manager If (objFormCollector.Item("rtag_id_fk") <> "") Then '===== Release Manager PRODUCTS ===== OraDatabase.Parameters.Add "RTAG_ID_FK", objFormCollector.Item("rtag_id_fk"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", enumPRODUCTS_BASE_VIEW_ID, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "enumAUTOPRODUCTS_BASE_VIEW_ID", enumAUTOPRODUCTS_BASE_VIEW_ID, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OS_ID", parOs_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsView.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "RTAG_ID_FK" OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID" OraDatabase.Parameters.Remove "enumAUTOPRODUCTS_BASE_VIEW_ID" OraDatabase.Parameters.Remove "OS_ID" If rsQry.RecordCount < 1 Then Response.write "No Products Found." End If While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <% WEnd %> " <%=rsQry("used")%>> <%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%> Add New Patches <% OraDatabase.Parameters.Add "OS_ID", parOs_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsUnusedPatches.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "OS_ID" If rsQry.RecordCount < 1 Then Response.write "No New Patches Found." End If While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <% WEnd End If %> "> <%=LIMG_PRODUCT_PATCH%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%>