<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wUnDeployView | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% 'To enable the script timeout to 10 mins Server.ScriptTimeout=600 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim aProducts Dim numOfRows Dim rowNum Dim objFormCollector Dim currPkg_id Dim Query_String 'Dim parProj_id 'Dim parBranch_id '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parProj_id = Request("proj_id") parBranch_id = Request("branch_id") Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '---------------------------------------------------------------------------------------------------------------------------------- Sub GetFormDetails ( nProj_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER query = _ " SELECT * FROM DM_PROJECTS WHERE PROJ_ID= "&nProj_id Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then outobjDetails.Item ("RM_PROJECTS_FK") = rsQry("RM_PROJECTS_FK") End If OraDatabase.Parameters.Remove "PROJ_ID" rsQry.Close Set rsQry = Nothing End Sub '---------------------------------------------------------------------------------------------------------------------------------- Sub Get_Project_Release ( NNproj_id ) Dim rsTemp, Query_String Query_String = _ "SELECT * FROM RELEASE_TAGS WHERE PROJ_ID="&NNproj_id&" ORDER BY RTAG_ID DESC" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) Response.write "" rsTemp.Close Set rsTemp = nothing End Sub '---------------------------------------------------------------------------------------------------------------------------------- Sub Get_SBOM_Release ( NNbranch_id ) Dim rsTemp, Query_String Query_String = _ "SELECT * FROM BOMS BM, BOM_NAMES BN "&_ "WHERE BM.BOM_NAME_ID = BN.BOM_NAME_ID "&_ "AND BM.BRANCH_ID="&NNbranch_id&" ORDER BY BOM_ID DESC" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) Response.write "" rsTemp.Close Set rsTemp = nothing End Sub '---------------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetFormDetails ( parProj_id, objFormCollector ) '---------------------------------------------- %> Deployment Manager <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = SCRIPT_NAME objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>
 UnDeployed View For Products/Patches
UnDeployed View, comparing with the latest from "Release Manager".
Release Manager Reference Release: <%Call Get_Project_Release( objFormCollector.Item("RM_PROJECTS_FK") )%>
Deployment Manager SBOM Release: <%Call Get_SBOM_Release( parBranch_id )%>
<%=ProgressBar()%>
';">
<% 'If objFormCollector.Item("rtag_id_fk") = "" Then 'Call Messenger ( "This BOM does not have Release Manager Reference release.
Please edit BOM properties first.
", 1, "100%" ) 'End If %> <% OraDatabase.Parameters.Add "BOM_ID", Request("FRbom_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RTAG_ID", Request("FRrtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("CompareBomWithLatestFromRM.sql"), ORADYN_DEFAULT ) currPkg_id = 0 %> <%If rsQry.RecordCount < 1 Then%> <%End If%> <% While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%If currPkg_id <> rsQry("pkg_id") Then%> <%currPkg_id = rsQry("pkg_id")%> <%End If%> <%rsQry.MoveNext Wend %> <% Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NewPatchesView.sql"), ORADYN_DEFAULT ) currPkg_id = 0 %> <%If rsQry.RecordCount > 0 Then%> <% While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%If currPkg_id <> rsQry("pkg_id") Then%> <%currPkg_id = rsQry("pkg_id")%> <%End If%> <%rsQry.MoveNext Wend %> <%End If%>
Product Location Version Latest
No Products to Update.
<%=rsQry("prod_name")%>  
" value="<%=rsQry("latest_prod_id")%>" disabled> " align="absmiddle" border="0"><%=rsQry("prod_location")%> <%=rsQry("prod_version")%> <%=rsQry("rm_latest_version")%>
Patch Location Version Comments
<%=rsQry("prod_name")%>  
" value="<%=rsQry("prod_id")%>" disabled> " align="absmiddle" border="0"><%=rsQry("prod_location")%> <%=rsQry("prod_version")%> <%=rsQry("comments")%>
<% OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "BOM_ID" rsQry.Close Set rsQry = Nothing %>
<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>