<%
'=====================================================
'| |
'| REPORTS DEFINITION |
'| |
'=====================================================
%>
<%
Sub Reports_List ( SSgroup )
Dim repNum
%>
<%Select Case SSgroup%>
<%Case "Advanced_Search"%>
<%repNum = 1%>
Find ClearQuest Bugs / Issues Location
Use this advance search to locate bugs / issues imported to Release Manager from ClearQuest. more...
<%repNum = 2%>
Find Packages Using "Ignore Warnings" feature
Lists packages which use "Ignore Warning" feature on their dependencies. more...
<%repNum = 4%>
Find A Package
Use this advanced search to find a package in Release Manager more...
<%repNum = 5%>
Find Package Version History
Find all package versions and their current locations. more...
<%Case "Release_Status"%>
<%repNum = 3%>
Current Status of Release
Shows all packages in a selected release with their current state, owner and last modifier. more...
<%repNum = 8%>
Deployable Software Modules
This report shows new and current deployable software modules. Use this report to find which modules will be deployed to the customer.
Also, use this report to find if there are new modules flaged as 'deployable'. more...
<%repNum = 7%>
Unit Tests per Package
Use this report to check the unit tests performed on packages in a project. more...
All Packages With out-of-sync Dependencies
List of all packages with dependencies out-of-sync with the release environment.
In escence, these are the packages which has versions in "latest" column of their dependencies.
Not available yet.
<%Case "Bom_History"%>
<%repNum = 9%>
BOM History Tracker
Use this report to find what changes occured in a BOM within specified date range. more...
<%Case "Admin_Reports"%>
All Packages by Project by Version Tree by Release
CSV output of all packages used in Release Manager per Project. more...
All Runtime Dependencies by Project by Version Tree by Release
CSV output of all runtime dependencies used in Release Manager per Project. more...
<%repNum = 6%>
Unused Packages
All packages (Not Products) with no entries in "Used By" tab.
Use this report to help you clean up a release and remove all potentially unused packages. more...
<%Case "Escrow"%>
<%repNum = 9%>
Bill of Materials (BOM)
List of all ERG Products per network node for a particular
project. Use this report to integrate a particular project. more...
Build Dependencies per Package
Use this report to build package from source code. The report
include package repository location, label and build dependencies.
Not available yet.
Build Order
Use this reports to find the order in which packages should be built.
Not available yet.
<%Case "Bom_Difference"%>
BOM Version Difference Tool
Use this tool to find what changes occured in a BOM compared to another BOM.
A detailed report of changes between two BOMs can also be emailed upon user request. more...
<%Case "Bom_Merge_Manager"%>
BOM Merge Manager Tool
Use this tool to merge in a change from one BOM to another. more...
<%Case Else%>
« Select reporting category.
<%End Select%>
<%End Sub%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Projects ( NNproj_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT * FROM DM_PROJECTS ORDER BY proj_name ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Version_Trees ( NNproj_id, NNvtree_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT vtree_id, vtree_name FROM vtrees WHERE hide = 'N' AND proj_id = "& NNproj_id &" ORDER BY vtree_id ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Release_Labels ( NNproj_id, NNrtag_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT * FROM BRANCHES WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_SBOM_Version ( NNproj_id, NNrtag_id, BBallow_all, NNversion )
Dim rsTemp, Query_String
Query_String = _
"SELECT B.BOM_ID, B.BRANCH_ID, B.BOM_VERSION ||'.'||B.BOM_LIFECYCLE AS VERSION, BN.BOM_NAME FROM BOMS B, BOM_NAMES BN WHERE B.BRANCH_ID ="&NNrtag_id&" AND BN.BOM_NAME_ID = B.BOM_NAME_ID ORDER BY VERSION"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
Set rsTemp = OraDatabaseDM.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Base_Views ( nRtag_id, nBase_view_id, BBallow_all )
Dim rsTemp, Query_String
Query_String = _
"SELECT DISTINCT vi.view_id, vi.view_name"&_
" FROM VIEWS vi,"&_
" RELEASE_CONTENT rc"&_
" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
" AND rc.rtag_id = "& nRtag_id &_
"ORDER BY UPPER( vi.view_name )"
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
Response.write ""
rsTemp.Close
Set rsTemp = nothing
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Packages Using Ignore Feature
' Description : Lists packages which use "Ignore Warning"
' feature on their dependencies.
' INPUT : Project, Vesion Tree, Release Label
'==================================================================================
Sub Packages_Using_Ignore_Feature ( SSsection, NNproj_id, NNrtag_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If SSsection = "TITLE" Then
Response.write "Packages Using 'Ignore Warnings' Feature"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_packages_using_ignore_feature.sql" )
OraDatabase.Parameters.Add "PROJ_ID", NNproj_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name
Version
<%
Dim currRtag_id
currRtag_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
OraDatabase.Parameters.Remove "PROJ_ID"
OraDatabase.Parameters.Remove "RTAG_ID"
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY RTAG_ID -----------------
If CDbl(currRtag_id) <> CDbl(rsRep("rtag_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Current State of Release
' Description : Show all packages in a release with their state, owner and modifier
' Form Input : Project, Vesion Tree, Release Label
' SQL INPUT : rtag_id
'==================================================================================
Sub Current_State_of_Release ( SSsection, NNproj_id, NNrtag_id, NNpkg_states )
Dim Query_String, rsRep
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If NNpkg_states = "" Then NNpkg_states = -1
If SSsection = "TITLE" Then
Response.write "Current State of Release"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_details_current_status_of_release.sql" )
Query_String = Replace ( Query_String, "/*PKG_STATES*/", NNpkg_states )
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name and Version
Owner
Last Modifier
Added to Release
<%
Dim currView_id
currView_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
OraDatabase.Parameters.Remove "RTAG_ID"
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY RTAG_ID -----------------
If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currView_id = CDbl(rsRep("view_id"))
End If
' -------- END GROUP ------------------------
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Find ClearQuest Bugs / Issues Location
' Description : Locates bugs / issues imported from ClearQuest
' Form Input : CQ issue Database, CQ issue number list space separated
'==================================================================================
Sub Where_Are_Bugs_Located ( SSsection, NNiss_db, SSiss_num_list )
Dim Query_String, rsRep
If SSsection = "TITLE" Then
Response.write "Find ClearQuest Bugs / Issues Location"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
Set issNumDict = CreateObject("Scripting.Dictionary")
'---- Find Issue numbers in ClearQuest ----
If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
iss_num_col = "new_num"
SSsql = _
" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
" FROM MASSI.admin.software_issue si"&_
" WHERE "
ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DPGIM_ID Then
iss_num_col = "new_num"
SSsql = _
" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
" FROM DPGIM.admin.software_issue si"&_
" WHERE "
ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
iss_num_col = "new_num"
SSsql = _
" SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
" FROM CQ_DEVI.admin.software_issue si"&_
" WHERE "
ElseIf CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then
iss_num_col = "job_number"
SSsql = _
" SELECT dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
" FROM CQ_TDSE.admin.request si"&_
" WHERE "
End If
'---- Split multiple search ----
SSiss_num_list = Trim(SSiss_num_list)
If InStr( SSiss_num_list, " " ) > 0 Then
' space separator found
issARR = Split ( SSiss_num_list, " ")
For Each num_item In issARR
If num_item <> "" Then
SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(num_item), "*", "%" ) &"') OR"
End If
Next
SSsql = Left ( SSsql, Len(SSsql) - 2 ) ' Removes last OR
Else
SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"
End If
Set rsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
' Get find results from CQ
recCount = 1
maxRecCount = 1000
issNumDict.ADD "-1", "-1" ' take care of no results
While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))
issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))
recCount = recCount + 1
rsCQ.MoveNext
WEnd
rsCQ.Close
Set rsCQ = nothing
Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )
Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )
Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )
%>
Issue Number
Fixed At
Package Name and Version
Notes
<%
Dim currIss_id
currIss_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY ISS_ID -----------------
If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Find a Package
' Description : Locate a package in Release Manager
' Form Input : Package Name, version extension
'==================================================================================
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
Dim Query_String, rsRep, oRegExp
If SSsection = "TITLE" Then
Response.write "Find a Package"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
If SSpkg_name = "" Then SSpkg_name = "%"
If SSv_ext = "" Then SSv_ext = "%"
If Request("withwcard") <> "" Then SSpkg_name = "%"& Replace( SQLstring(SSpkg_name), "*", "") &"%" 'Place wild card automatically
' -- Check if this is PV_ID
Set oRegExp = New RegExp
oRegExp.Global = False 'Find only first match
oRegExp.Pattern = "\D" 'Match number only
If NOT oRegExp.Test(Request("FRpkg_name")) Then
Query_String = ReadFile( rootPath & "queries\rep_find_package_by_pv_id.sql" )
Query_String = Replace ( Query_String, "/*PV_ID*/", SQLstring(Request("FRpkg_name") ) )
Else
Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
End If
Response.Write(Query_String)
%>
Package Name and Version
Location
<%
Dim currPv_id
currPv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY Package Version -----------------
If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
%>
<%If Request("withwcard") <> "" Then%>
<%' Highlight results for package search from index page%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'==================================================================================
' Report Name : Find Package Version History
' Description : Locate all package versions and their current location
' Form Input : Package Name, version extension
'==================================================================================
Sub Find_Package_Version_History ( SSsection, SSpkg_name, SSv_ext )
Dim Query_String, rsRep
If SSsection = "TITLE" Then
Response.write "Find Package Version History"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
Const img_Official = ""
If NOT CBool(Request("action")) Then Exit Sub
If SSpkg_name = "" Then SSpkg_name = "%"
If SSv_ext = "" Then SSv_ext = "%"
Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
%>
Official<%=img_Official%>
Package Name and Version
Location
<%
Dim currPv_id
currPv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY Package Version -----------------
If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Obsolete Packages
' Description : List packages that are not used (exclude products)
' INPUT : Project, Vesion Tree, Release Label
'==================================================================================
Sub Obsolete_Packages ( SSsection, NNproj_id, NNrtag_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If SSsection = "TITLE" Then
Response.write "Unused Packages"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name and Version
Released
Added to Release
<%
Dim currView_id
currView_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
OraDatabase.Parameters.Remove "RTAG_ID"
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY BASE VIEW -----------------
If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currView_id = CDbl(rsRep("view_id"))
End If
' -------- END GROUP ------------------------
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Deployable Software Modules
' Description : Shows packages that are deployed to the customers and shows new packages marked as deployable.
' INPUT : Project, Vesion Tree, Release Label, Base View (hard-coded to PRODUCTS)
'==================================================================================
Sub Deployable_Software_Modules ( sSection, nProj_id, nRtag_id, nBase_view_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
Const Disallow_All = FALSE
If nProj_id = "" Then nProj_id = -1
If nRtag_id = "" Then nRtag_id = -1
If sSection = "TITLE" Then
Response.write "Deployable Software Modules"
Exit Sub
End If
If sSection = "FORM" Then
%>
<% Exit Sub
End If
If sSection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
'--- New Deployable Modules ---
Query_String = ReadFile( rootPath & "queries\rep_new_deployable_packages.sql" )
OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "BASE_VIEW_ID", nBase_view_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
<%
Dim currPv_id
currPv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY PRODUCT NAME -----------------
If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Bill Of Materials
' Description : List products for a BOM
' INPUT :
'==================================================================================
Sub Bill_of_Materials ( SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion )
Dim Query_String, rsRep, rsQry
Const Allow_All = TRUE
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If NNversion = "" Then NNversion = -1
If SSsection = "TITLE" Then
Response.write "BOM - History Track"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
OraDatabase.Parameters.Remove "BRANCH_ID"
OraDatabase.Parameters.Remove "BOM_VERSION"
Dim bomId
bomId = rsQry("bom_id")
rsQry.close
Set rsQry = nothing
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
'Query_String = ReadFile( rootPath & "queries\AllProducts.sql" )
'OraDatabase.Parameters.Add "BOM_ID", bomId, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Trail
Date
Action
User
<%
Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_TRAIL BT, USERS U WHERE BT.BOM_ID ="& bomId &" AND U.USER_ID = BT.USER_ID AND BT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND BT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY BT.DATE_TIME_STAMP DESC", 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 bom trail records
"
.write "
"
End With
Else
%>
Bom
<%
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
%>
<%=rsRep("date_time_stamp")%>
<%=rsRep("trail_action")%>
<%=rsRep("full_name")%>
<% rsRep.MoveNext
WEnd
End If
%>
<%
Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, NODE_TRAIL NT, USERS U WHERE BC.BOM_ID ="& bomId &" AND NT.NODE_ID = BC.NODE_ID AND U.USER_ID = NT.USER_ID AND NT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND NT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY NT.DATE_TIME_STAMP DESC", 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 node trail records
"
.write "
"
End With
Else
%>
Node
<%
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
%>
<%=rsRep("date_time_stamp")%>
<%=rsRep("trail_action")%>
<%=rsRep("full_name")%>
<% rsRep.MoveNext
WEnd
End If
%>
<%
Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, OPERATING_SYSTEMS OS, OS_TRAIL OT, USERS U WHERE BC.NODE_ID = OS.NODE_ID AND OS.OS_ID = OT.OS_ID AND BC.BOM_ID ="& bomId &" AND U.USER_ID = OT.USER_ID AND OT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND OT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY OT.DATE_TIME_STAMP DESC", 0 )
If rsRep.RecordCount = 0 Then
With Response
.write "
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Build History
' Description : List packages which were build between certain dates.
' INPUT :
'==================================================================================
Sub Build_History ( SSsection, NNproj_id, NNrtag_id)
Dim Query_String, rsRep, rsQry
Const Allow_All = TRUE
Const Disallow_All = FALSE
If NNproj_id = "" Then NNproj_id = -1
If NNrtag_id = "" Then NNrtag_id = -1
If SSsection = "TITLE" Then
Response.write "Build History"
Exit Sub
End If
If SSsection = "FORM" Then
%>
<% Exit Sub
End If
If SSsection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
%>
Package
Version
<%
Dim currView_id
currView_id = -1
OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "INITDATE", Request.Form("FRinitdate"), ORAPARM_INPUT, ORATYPE_STRING
OraDatabase.Parameters.Add "DUEDATE", Request.Form("FRduedate"), ORAPARM_INPUT, ORATYPE_STRING
Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("rep_build_history.sql"), cint(0) )
OraDatabase.Parameters.Remove "RTAG_ID"
OraDatabase.Parameters.Remove "INITDATE"
OraDatabase.Parameters.Remove "DUEDATE"
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
' -------- GROUP BY BASE VIEW -----------------
If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currView_id = CDbl(rsRep("view_id"))
End If
' -------- END GROUP ------------------------
%>
<%End If%>
<%
rsRep.Close
Set rsRep = nothing
End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name : Unit Tests per Package
' Description : List unit tests per package showing the unit test completeness
' INPUT : Project, Vesion Tree, Release Label, Base View, Level of Completeness, Show/Hide Dependencies, PV_ID
'==================================================================================
Sub Unit_Tests_Per_Package ( sSection, nProj_id, nRtag_id, nBase_view_id, nLevel_of_complete, nShow_dependencies, nPv_id )
Dim Query_String, rsRep
Const Allow_All = TRUE
Const Disallow_All = FALSE
If nProj_id = "" Then nProj_id = -1
If nRtag_id = "" Then nRtag_id = -1
If nShow_dependencies = "" Then nShow_dependencies = 0
If nPv_id = "" Then nPv_id = -1
If sSection = "TITLE" Then
Response.write "Unit Tests per Package"
Exit Sub
End If
If sSection = "FORM" Then
%>
<% Exit Sub
End If
If sSection = "BODY" Then
If NOT CBool(Request("action")) Then Exit Sub
Query_String = ReadFile( rootPath & "queries\rep_unit_tests_per_package.sql" )
OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "BASE_VIEW", nBase_view_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "COMPLETENESS", nLevel_of_complete, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "SHOW_DEPS", nShow_dependencies, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "PV_ID", nPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
Package Name
Version
Test Name
Test Summary
Stamp
Test Completed
<%
Dim currBase_view_id, currPv_id, currDpv_id, showTests
currBase_view_id = -1
currPv_id = -1
currDpv_id = -1
Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
OraDatabase.Parameters.Remove "RTAG_ID"
OraDatabase.Parameters.Remove "BASE_VIEW"
OraDatabase.Parameters.Remove "COMPLETENESS"
OraDatabase.Parameters.Remove "SHOW_DEPS"
OraDatabase.Parameters.Remove "PV_ID"
If rsRep.RecordCount = 0 Then
With Response
.write "
"
.write "
Found 0 records
"
.write "
"
End With
End If
While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
If nShow_dependencies <> 0 Then
' show dependency is ON
If rsRep("dpkg_name") = "------" Then
showTests = FALSE
Else
showTests = TRUE
End If
Else
showTests = TRUE
End If
' -------- GROUP BY BASE VIEW -----------------
If CDbl(currBase_view_id) <> CDbl(rsRep("base_view_id")) Then
%>
<%=rsRep("view_name")%>
<%
currBase_view_id = CDbl(rsRep("base_view_id"))
End If
' -------- END GROUP BASE VIEW ------------------------
%>
<%
' -------- GROUP BY PACKAGE -----------------
If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
%>
<%
currPv_id = CDbl(rsRep("pv_id"))
End If
' -------- END GROUP PACKAGE ------------------------
%>
<%
' -------- GROUP BY DEPENDENCY -----------------
If Not IsNull(rsRep("dpv_id")) Then
If CDbl(currDpv_id) <> CDbl(rsRep("dpv_id")) Then
%>
<%
currDpv_id = CDbl(rsRep("dpv_id"))
End If
End If
' -------- END GROUP DEPENDENCY ------------------------
%>
<%If Not IsNull( rsRep("completed_by") ) AND showTests Then%>
Print this report
<%=issNumDict.Item ( Cstr ( rsRep("iss_id") ) )%>
<%=rsRep("pkg_name")%>
<%Else%>
<%End If%><%End If%>
<%=rsRep("test_name")%>