Subversion Repositories DevTools

Rev

Rev 6876 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6876 Rev 7457
Line 4... Line 4...
4 
'|                 REPORTS DEFINITION                |
 4 
'|                 REPORTS DEFINITION                |
5 
'|                                                   |
 5 
'|                                                   |
6 
'=====================================================
 6 
'=====================================================
7 
' Good idea to set when using redirect
 7 
' Good idea to set when using redirect
8 
Response.Expires = 0   ' always load the page, dont store
 8 
Response.Expires = 0   ' always load the page, dont store
- 
 
 9 
Response.Buffer = TRUE
9 
 
 10 
 
10 
'To enable the script timeout to 10 mins
 11 
'To enable the script timeout to 10 mins
11 
Server.ScriptTimeout=600
 12 
Server.ScriptTimeout=600
12 
%>
 13 
%>
13 
 
 14 
 
Line 22... Line 23...
22 
Dim parPv_id, parExt
 23 
Dim parPv_id, parExt
23 
Dim objReleaseContent
 24 
Dim objReleaseContent
24 
Dim aReleaseContent
 25 
Dim aReleaseContent
25 
Dim objPackageDetails
 26 
Dim objPackageDetails
26 
Dim outobjDetails
 27 
Dim outobjDetails
27 
Dim pvIdList
 - 
 
28 
Dim dpv_id
 28 
Dim dpv_id
29 
Dim BldStd
 29 
Dim BldStd
30 
'------------ Constants Declaration -----------
 30 
'------------ Constants Declaration -----------
31 
'------------ Variable Init -------------------
 31 
'------------ Variable Init -------------------
32 
 
 32 
 
Line 81... Line 81...
81 
   " WHERE pbi.PV_ID = "& nPv_id &_
 81 
   " WHERE pbi.PV_ID = "& nPv_id &_
82 
   "   AND pbi.BM_ID = bm.BM_ID "&_
 82 
   "   AND pbi.BM_ID = bm.BM_ID "&_
83 
   " ORDER BY UPPER(bm.BM_NAME) "
 83 
   " ORDER BY UPPER(bm.BM_NAME) "
84 
End Function
 84 
End Function
85 
'----------------------------------------------------------------------------------------------------------------------------------------
 85 
'----------------------------------------------------------------------------------------------------------------------------------------
86 
Function SQL_Modules (nPv_idList)
 86 
Function SQL_Modules (nBomId)
- 
 
 87 
   Dim pvIdList : pvIdList = GetReleaseContentQuery(nBomId)
87 
   SQL_Modules   = _
 88 
   SQL_Modules   = _
88 
   "SELECT DISTINCT"&_
 89 
   "SELECT DISTINCT"&_
89 
    "   qry.DPV_ID "&_
 90 
    "   qry.DPV_ID "&_
90 
    " FROM ("&_
 91 
    " FROM ("&_
91 
    "      SELECT dep.*,"&_
 92 
    "      SELECT dep.*,"&_
92 
    "            LEVEL AS LEVEL_NUM"&_
 93 
    "            LEVEL AS LEVEL_NUM"&_
93 
    "        FROM PACKAGE_DEPENDENCIES dep"&_
 94 
    "        FROM PACKAGE_DEPENDENCIES dep"&_
94 
    "      START WITH dep.PV_ID IN ( "& nPv_idList &" ) "&_
 95 
    "      START WITH dep.PV_ID IN ( "& pvIdList &" ) "&_
95 
    "      CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
 96 
    "      CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
96 
    "   ) qry,"&_
 97 
    "   ) qry,"&_
97 
    "   PACKAGES pkg,"&_
 98 
    "   PACKAGES pkg,"&_
98 
   "   PACKAGE_VERSIONS pv"&_
 99 
   "   PACKAGE_VERSIONS pv"&_
99 
    " WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
 100 
    " WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
Line 112... Line 113...
112 
End Function
 113 
End Function
113 
'----------------------------------------------------------------------------------------------------------------------------------------
 114 
'----------------------------------------------------------------------------------------------------------------------------------------
114 
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
 115 
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
115 
   Dim rsQry, query
 116 
   Dim rsQry, query
116 
 
 117 
 
- 
 
 118 
   query = GetReleaseContentQuery(nBom_id) & " ORDER BY  qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"
- 
 
 119 
   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
- 
 
 120 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 121 
      oReleaseContent( CStr( rsQry("prod_id")) ) = ""
- 
 
 122 
      rsQry.MoveNext()
- 
 
 123 
   WEnd
- 
 
 124 
 
117 
   query = _
 125 
   rsQry.Close()
- 
 
 126 
   Set rsQry = Nothing
- 
 
 127 
End Sub
- 
 
 128 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 129 
Function GetReleaseContentQuery ( nBom_id)
- 
 
 130 
 
- 
 
 131 
   GetReleaseContentQuery = _
118 
   " SELECT qry.prod_id"&_
 132 
   " SELECT qry.prod_id"&_
119 
   "  FROM ("&_
 133 
   "  FROM ("&_
120 
   "         SELECT DISTINCT"&_
 134 
   "         SELECT DISTINCT"&_
121 
   "          osc.PROD_ID,"&_
 135 
   "          osc.PROD_ID,"&_
122 
   "            pkg.pkg_name,"&_
 136 
   "            pkg.pkg_name,"&_
Line 158... Line 172...
158 
   "        AND bec.base_env_id = obe.base_env_id"&_
 172 
   "        AND bec.base_env_id = obe.base_env_id"&_
159 
   "        AND bec.prod_id = pv.pv_id"&_
 173 
   "        AND bec.prod_id = pv.pv_id"&_
160 
   "        AND pkg.pkg_id = pv.pkg_id"&_
 174 
   "        AND pkg.pkg_id = pv.pkg_id"&_
161 
   "        AND be.base_env_id = obe.base_env_id"&_
 175 
   "        AND be.base_env_id = obe.base_env_id"&_
162 
   "       AND bt.bos_id = be.bos_id"&_
 176 
   "       AND bt.bos_id = be.bos_id"&_
163 
   "      ) qry  "&_
 177 
   "      ) qry  "
164 
   " ORDER BY  qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"
 - 
 
165 
 
 - 
 
166 
   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
 - 
 
167 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
168 
      oReleaseContent( CStr( rsQry("prod_id")) ) = ""
 - 
 
169 
      rsQry.MoveNext()
 - 
 
170 
   WEnd
 - 
 
171 
 
 - 
 
172 
   rsQry.Close()
 - 
 
173 
   Set rsQry = Nothing
 - 
 
174 
End Sub
 178 
End Function
175 
'----------------------------------------------------------------------------------------------------------------------------------------
 179 
'----------------------------------------------------------------------------------------------------------------------------------------
176 
Function PatchIcon ( cIsPatch, cIsPatchObsolete )
 180 
Function PatchIcon ( cIsPatch, cIsPatchObsolete )
177 
   If IsNull(cIsPatch) Then
 181 
   If IsNull(cIsPatch) Then
178 
      PatchIcon = "<img src='images/rex_images/ext_blank.gif' width='16' height='16' border='0' align='absmiddle'>"
 182 
      PatchIcon = "<img src='images/rex_images/ext_blank.gif' width='16' height='16' border='0' align='absmiddle'>"
179 
   Else
 183 
   Else
Line 2230... Line 2234...
2230 
      <%
 2234 
      <%
2231 
      Set outobjDetails = Nothing
 2235 
      Set outobjDetails = Nothing
2232 
 
 2236 
 
2233 
      aReleaseContent = objReleaseContent.Keys
 2237 
      aReleaseContent = objReleaseContent.Keys
2234 
      For Each parPv_id In aReleaseContent
 2238 
      For Each parPv_id In aReleaseContent
2235 
         pvIdList = pvIdList +   parPv_id   +   ","
 - 
 
2236 
         Call GetPackageInformation ( parPv_id, objPackageDetails )
 2239 
         Call GetPackageInformation ( parPv_id, objPackageDetails )
2237 
         Response.Flush
 2240 
         Response.Flush
2238 
         %>
 2241 
         %>
2239 
         <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
 2242 
         <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
2240 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
 2243 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
Line 2326... Line 2329...
2326 
         </table>
 2329 
         </table>
2327 
         <br><br>
 2330 
         <br><br>
2328 
         <%
 2331 
         <%
2329 
      'Exit For
 2332 
      'Exit For
2330 
      Next
 2333 
      Next
2331 
 
 - 
 
2332 
      pvIdList = Mid(pvIdList, 1, Len(pvIdList) - 1)
 - 
 
2333 
      Set   rsTemp   =   OraDatabase.DbCreateDynaset( SQL_Modules ( pvIdList ), cint(0))
 2334 
      Set   rsTemp   =   OraDatabase.DbCreateDynaset( SQL_Modules ( bomId ), cint(0))
2334 
 
 - 
 
2335 
      %>
 2335 
      %>
2336 
      <div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>
 2336 
      <div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>
2337 
      <%
 2337 
      <%
2338 
      While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
 2338 
      While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
2339 
         Response.Flush
 2339 
         Response.Flush