WebSVN – DevTools – Diff – /ManagerSuite/Production_Manager/trunk/diff_report.asp

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
 '|                                                   |
 '|				         DIFF					     |
 '|                                                   |
 '=====================================================
 %>
 <%
 Option explicit
 ' Good idea to set when using redirect
 Response.Expires = 0	' always load the page, dont store
 %>
 <%
 'To enable the script timeout to 5 mins
 Server.ScriptTimeout=600
 %>
 <!--#include file="common/config.asp"-->
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/formating.asp"-->
 <!--#include file="common/common_subs.asp"-->
 <!--#include file="common/common_dbedit.asp"-->
 <!--#include file="common/_form_window_common.asp"-->
 <!--#include file="common/_rtree_common.asp"-->
 <%
 '------------ ACCESS CONTROL ------------------
 %>
 <!--#include file="_access_control_general.asp"-->
 <%
 '------------ Variable Definition -------------
 Dim rsQry
 Dim objRelCollectorA
 Dim objRelCollectorB
 Dim parRtagA
 Dim parRtagB
 Dim parSBOMA
 Dim parSBOMB
 Dim dDiffFilter
 Dim colorA, colorB, ChangeTypeIcon
 Dim btnMerge, btnRemove
 Dim rowId
 Dim FSO
 Dim NewTextFile
 Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, sqlstrC, counterB
 Dim SSsql, retVal, rsCQ, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
 Dim a, b, c, d, pkgversion, errormsg, source_change
 Dim VersionList
 Dim fileName, pathName
 '------------ Variable Init -------------------
 parRtagA = Request("rtagA")
 parRtagB = Request("rtagB")
 parSBOMA = Request("sbomA")
 parSBOMB = Request("sbomB")
 Set objRelCollectorA = CreateObject("Scripting.Dictionary")
 Set objRelCollectorB = CreateObject("Scripting.Dictionary")
 Set dDiffFilter = CreateObject("Scripting.Dictionary")
 '--------------------------------------------------------------------------------------------------------------------------
 Sub Javascript()
 	NewTextFile.WriteLine("<script language=""JavaScript"" type=""text/javascript"">")
 	NewTextFile.WriteLine("function MM_findObj(n, d) { //v4.0")
 	NewTextFile.WriteLine("  var p,i,x;")
 	NewTextFile.WriteLine("  if(!d) d=document; ")
 	NewTextFile.WriteLine("  if((p=n.indexOf(""?""))>0&&parent.frames.length) {")
 	NewTextFile.WriteLine("  	d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);")
 	NewTextFile.WriteLine("  }")
 	NewTextFile.WriteLine("  if(!(x=d[n])&&d.all) x=d.all[n]; ")
 	NewTextFile.WriteLine("  for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];")
 	NewTextFile.WriteLine("  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);")
 	NewTextFile.WriteLine("  if(!x && document.getElementById) x=document.getElementById(n); ")
 	NewTextFile.WriteLine("  return x;")
 	NewTextFile.WriteLine("}")
 	NewTextFile.WriteLine("function DisplaySPAN(show, x) {")
 	NewTextFile.WriteLine("	if (show) {")
 	NewTextFile.WriteLine("		MM_findObj(""spanHideDetails"" + x).style.display = ""block"";")
 	NewTextFile.WriteLine("		MM_findObj(""spanPkgInfo"" + x).style.display = ""block"";")
 	NewTextFile.WriteLine("		MM_findObj(""spanShowDetails"" + x).style.display = ""none"";")
 	NewTextFile.WriteLine("	} else {")
 	NewTextFile.WriteLine("		MM_findObj(""spanHideDetails"" + x).style.display = ""none"";")
 	NewTextFile.WriteLine("		MM_findObj(""spanPkgInfo"" + x).style.display = ""none"";")
 	NewTextFile.WriteLine("		MM_findObj(""spanShowDetails"" + x).style.display = ""block"";")
 	NewTextFile.WriteLine("	}")
 	NewTextFile.WriteLine("}")
 	NewTextFile.WriteLine("</script>")
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetFixedIssues(pv_id)
 	Set sqlstrC = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_db="& CInt(enumCLEARQUEST_VTSUP_ID) &" AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
 	If sqlstrC.RecordCount <> 0 Then
 		NewTextFile.WriteLine()
 		NewTextFile.WriteLine("<blockquote><blockquote>Fixed Issues:</blockquote></blockquote>")
 		NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table class='fixed_issues' >")
 		NewTextFile.WriteLine("<tr>")
 		NewTextFile.WriteLine("<td width='10%' class='form_field'>Issue Id</td>")
 		NewTextFile.WriteLine("<td width='55%' class='form_field'>Summary</td>")
 		NewTextFile.WriteLine("<td width='10%' class='form_field'>Issue Type</td>")
 		NewTextFile.WriteLine("<td width='15%' class='form_field'>Priority</td>")
 		NewTextFile.WriteLine("<td width='10%' class='form_field'>Status</td>")
 		NewTextFile.WriteLine("</tr>")
 		While ((NOT sqlstrC.BOF) AND (NOT sqlstrC.EOF))
 			DEVIiss = "-1"
 			TDSEiss = "-1"
 			VT5DMiss = "-1"
 			VTSUPiss = "-1"
 			If CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 				DEVIiss = DEVIiss &","& sqlstrC("iss_id")
 			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 				TDSEiss = TDSEiss &","& sqlstrC("iss_id")
 			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
 				VT5DMiss = VT5DMiss &","& sqlstrC("iss_id")
 			ElseIf CInt(sqlstrC("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
 				VTSUPiss = VTSUPiss &","& sqlstrC("iss_id")
 			End If
 			SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
 			SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 			SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
 			SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
 			SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
 			SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
 			SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
 			SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
 			retVal = Get_CQ_Issues ( SSsql, rsCQ )
 			NewTextFile.WriteLine("<tr>")
 			NewTextFile.WriteLine("<td nowrap class='form_item'>"&rsCQ("iss_num")&"</td>")
 			NewTextFile.WriteLine("<td class='form_item'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</td>")
 			NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("issue_type")&"</td>")
 			NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("priority")&"</td>")
 			NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("Status")&"</td>")
 			NewTextFile.WriteLine("</tr>")
 			'&nbsp;
 			sqlstrC.MoveNext
 		Wend
 		NewTextFile.WriteLine( "                        </table></blockquote></blockquote></blockquote> 		")
 	End If
 	sqlstrC.Close()
 	Set sqlstrC = Nothing
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Function LastPvId(pvId)
 	Dim qryA
 	Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
 	LastPvId = pvId
 	If pvId <> qryA("last_pv_id") Then
 		LastPvId = qryA("last_pv_id")
 	Else
 		errormsg = true
 	End If
 	qryA.Close()
 	Set qryA = Nothing
 End Function
 '--------------------------------------------------------------------------------------------------------------------------
 Sub PreviousVersions(a, b, versionA, versionB)
 	NewTextFile.WriteLine()
 	NewTextFile.WriteLine("<b>Versions Between: "&versionA&" and "&versionB&"</b>")
 	If CLng(a) < CLng(b) Then
 		While CLng(a) < CLng(b)
 			b = LastPvId(b)
 			If CLng(a) < CLng(b) Then
 				VersionList = VersionList + ","& b &""
 				Call Comments(b)
 				Call GetFixedIssues(b)
 			End If
 		Wend
 	End If
 	If CLng(b) < CLng(a) Then
 		While CLng(b) < CLng(a)
 			a = LastPvId(a)
 			If CLng(b) < CLng(a) Then
 				VersionList = VersionList + ","& a &""
 				Call Comments(a)
 				Call GetFixedIssues(a)
 			End If
 		Wend
 	End If
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetDependencies(pv_id_a, pv_id_b, versionA, versionB)
 	On Error Resume Next
 	Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" ) order by dpv_id desc", cint(0))
 	If sqlstrA.RecordCount <> 0 Then
 		NewTextFile.WriteLine()
 		NewTextFile.WriteLine("<b>Dependencies Changed Between "&versionA&" and "&versionB&":</b>")
 		While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
 			Call dependencyComments(sqlstrA("dpv_id"))
 			Call GetFixedIssues(sqlstrA("dpv_id"))
 			sqlstrA.MoveNext
 		Wend
 	End If
 	sqlstrA.Close()
 	Set sqlstrA = Nothing
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub dependencyComments(pv_id)
 	Set sqlstrB = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id, cint(0))
 	NewTextFile.WriteLine("<blockquote><blockquote><span class="&chr(34)&"highlight_text"&chr(34)&">"& sqlstrB("pkg_name") &" "& sqlstrB("pkg_version") &"</font></span></blockquote></blockquote>")
 	NewTextFile.WriteLine("<blockquote><blockquote>Comments:</blockquote></blockquote>")
 	NewTextFile.Write("<blockquote><blockquote><blockquote>"& TextToHTML(sqlstrB("comments")) &"</blockquote></blockquote></blockquote>")
 	sqlstrB.Close()
 	Set sqlstrB = nothing
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub pkg_Version(pv)
 	Dim qry
 	Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv , cint(0))
 	pkgversion = qry("pkg_version")
 	qry.Close()
 	Set qry = Nothing
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub Comments(Pv_Id)
 	Dim comments
 	Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id , cint(0))
 	If comments("comments") <> "Rippled Build." Then
 		NewTextFile.WriteLine("<blockquote><blockquote><span class="&chr(34)&"highlight_text"&chr(34)&">Version: "& comments("pkg_version")&"</span></blockquote></blockquote>")
 		If comments("comments") <> "" Then
 			NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")
 			NewTextFile.WriteLine("<blockquote><blockquote><blockquote>"& TextToHTML(comments("comments")) &"</blockquote></blockquote></blockquote>")
 			source_change = true
 		End If
 	End If
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub Release(pvId)
 	Dim release
 	Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId , cint(0))
 	If release("insert_stamp") <> "" Then
 		NewTextFile.Write(release("insert_stamp"))
 	Else
 		NewTextFile.Write("Version Not Used.")
 	End If
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub Header( branchNameA, branchNameB, versionA, versionB )
 	NewTextFile.WriteLine("<html>")
 	NewTextFile.WriteLine("<head>")
 	NewTextFile.WriteLine("<meta http-equiv="&chr(34)&"Pragma"&chr(34)&" content="&chr(34)&"no-cache"&chr(34)&">")
 	NewTextFile.WriteLine("<meta http-equiv="&chr(34)&"Cache-Control"&chr(34)&" content="&chr(34)&"no-cache"&chr(34)&">")
 	NewTextFile.WriteLine("<meta http-equiv="&chr(34)&"Expires"&chr(34)&" content="&chr(34)&"0"&chr(34)&">")
 	NewTextFile.WriteLine("<title>Difference Report Between "& branchNameA &" "& versionA &" and "& branchNameB &" "& versionB &"</title>")
-	Call Javascript()
+	NewTextFile.WriteLine("<link rel="shortcut icon" href="<%=FavIcon%>"/>
-	Call Styles()
+	Call Javascript()
-	NewTextFile.WriteLine("</head>")
+	Call Styles()
-End Sub
+	NewTextFile.WriteLine("</head>")
-'--------------------------------------------------------------------------------------------------------------------------
+End Sub
-Sub Styles()
+'--------------------------------------------------------------------------------------------------------------------------
-  NewTextFile.WriteLine("<style type="&chr(34)&"text/css"&chr(34)&">")
+Sub Styles()
-  NewTextFile.WriteLine("body { font-family:Verdana,Arial,Helvetica,sans-serif; }")
+  NewTextFile.WriteLine("<style type="&chr(34)&"text/css"&chr(34)&">")
-  NewTextFile.WriteLine("table { border-collapse:collapse; }")
+  NewTextFile.WriteLine("body { font-family:Verdana,Arial,Helvetica,sans-serif; }")
-  NewTextFile.WriteLine("td { border-width:1; border-style:solid; border-color:black; padding:3 5 3 5; }")
+  NewTextFile.WriteLine("table { border-collapse:collapse; }")
-  NewTextFile.WriteLine(".fixed_issues { border-width:1; border-style:solid; border-color:black; }")
+  NewTextFile.WriteLine("td { border-width:1; border-style:solid; border-color:black; padding:3 5 3 5; }")
-  NewTextFile.WriteLine(".page_title { color:red; font-size:110%; text-align:center; }")
+  NewTextFile.WriteLine(".fixed_issues { border-width:1; border-style:solid; border-color:black; }")
-  NewTextFile.WriteLine(".highlight_text { color:blue; }")
+  NewTextFile.WriteLine(".page_title { color:red; font-size:110%; text-align:center; }")
-  NewTextFile.WriteLine(".form_field { background-color:#EAE5D7; font:bold 70% Tahoma,sans-serif; }")
+  NewTextFile.WriteLine(".highlight_text { color:blue; }")
-  NewTextFile.WriteLine(".form_item { background-color:#EAE5D7; color:red; font:bold 70% Tahoma,sans-serif; vertical-align:top; }")
+  NewTextFile.WriteLine(".form_field { background-color:#EAE5D7; font:bold 70% Tahoma,sans-serif; }")
-  NewTextFile.WriteLine("</style>")
+  NewTextFile.WriteLine(".form_item { background-color:#EAE5D7; color:red; font:bold 70% Tahoma,sans-serif; vertical-align:top; }")
-End Sub
+  NewTextFile.WriteLine("</style>")
-'--------------------------------------------------------------------------------------------------------------------------
+End Sub
-Sub DeleteOldReports()
+'--------------------------------------------------------------------------------------------------------------------------
-	Dim fileList, currentFile
+Sub DeleteOldReports()
+	Dim fileList, currentFile
-	Set fileList = FSO.GetFolder(Server.MapPath(pathName)).Files
+	Set fileList = FSO.GetFolder(Server.MapPath(pathName)).Files
-	For Each currentFile In fileList
-		'--Force deletion of read-only files--
+	For Each currentFile In fileList
-		If InStr(currentFile.Name, objAccessControl.UserName) = 1 Then
+		'--Force deletion of read-only files--
-			FSO.DeleteFile Server.MapPath(pathName & currentFile.Name), true
+		If InStr(currentFile.Name, objAccessControl.UserName) = 1 Then
-		End If
+			FSO.DeleteFile Server.MapPath(pathName & currentFile.Name), true
+		End If
-		'--Don't delete read-only files--
-		'If (NOT currentFile.Attributes AND 1) AND (InStr(currentFile.Name, objAccessControl.UserName) = 1) Then
+		'--Don't delete read-only files--
-		'	FSO.DeleteFile Server.MapPath(pathName & currentFile.Name)
+		'If (NOT currentFile.Attributes AND 1) AND (InStr(currentFile.Name, objAccessControl.UserName) = 1) Then
-		'End If
+		'	FSO.DeleteFile Server.MapPath(pathName & currentFile.Name)
-	Next
+		'End If
-End Sub
+	Next
-'---------------------------------------------------------------------------------------------------------------------------
+End Sub
-Function  Get_CQ_Issues ( SSsql, OOrsCQ )
+'---------------------------------------------------------------------------------------------------------------------------
+Function  Get_CQ_Issues ( SSsql, OOrsCQ )
-	On Error Resume Next
-    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
+	On Error Resume Next
-	Get_CQ_Issues = Err.Number
+    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
+	Get_CQ_Issues = Err.Number
-End Function
-'--------------------------------------------------------------------------------------------------------------------------
+End Function
-Public Function TextToHTML ( sString )
+'--------------------------------------------------------------------------------------------------------------------------
-	Dim mString
+Public Function TextToHTML ( sString )
+	Dim mString
-	If (sString = "") OR IsNull(sString) Then Exit Function
+	If (sString = "") OR IsNull(sString) Then Exit Function
-	mString = Server.HTMLEncode( sString )
-	mString = Replace(mString, VBNewLine, "<br>")
+	mString = Server.HTMLEncode( sString )
+	mString = Replace(mString, VBNewLine, "<br>")
-	TextToHTML = mString
-End Function
+	TextToHTML = mString
-'--------------------------------------------------------------------------------------------------------------------------
+End Function
-Public Function RandomString ()
+'--------------------------------------------------------------------------------------------------------------------------
-	Dim char_count, intRnd, listRnd, min, max
+Public Function RandomString ()
+	Dim char_count, intRnd, listRnd, min, max
-	char_count = 0
-	max = Asc("0")
+	char_count = 0
-	min = Asc("z")
+	max = Asc("0")
+	min = Asc("z")
-	'generate a random string to create unique file name
-	randomize
+	'generate a random string to create unique file name
+	randomize
-	While char_count < 10
-		intRnd = Cint((max - min + 1) * Rnd() + min)
+	While char_count < 10
+		intRnd = Cint((max - min + 1) * Rnd() + min)
-		'limit string to 0-9, a-z, A-Z
-		If (intRnd < Asc(":") OR intRnd > Asc("@")) AND (intRnd < Asc("[") OR intRnd > Asc("`")) Then
+		'limit string to 0-9, a-z, A-Z
-			listRnd = listRnd & Chr(intRnd)
+		If (intRnd < Asc(":") OR intRnd > Asc("@")) AND (intRnd < Asc("[") OR intRnd > Asc("`")) Then
-			char_count = char_count + 1
+			listRnd = listRnd & Chr(intRnd)
-		End If
+			char_count = char_count + 1
-	Wend
+		End If
+	Wend
-	RandomString = listRnd
-End Function
+	RandomString = listRnd
-'--------------------------------------------------------------------------------------------------------------------------
+End Function
-%>
+'--------------------------------------------------------------------------------------------------------------------------
-<%
+%>
-'------------ RUN BEFORE PAGE RENDER ----------
+<%
+'------------ RUN BEFORE PAGE RENDER ----------
-pathName = "docs/"
-fileName = objAccessControl.UserName &"_bom_report_"& RandomString() &".html"
+pathName = "docs/"
+fileName = objAccessControl.UserName &"_bom_report_"& RandomString() &".html"
-'----------------------------------------------
-%>
+'----------------------------------------------
-<html>
+%>
-	<head>
+<html>
-		<meta http-equiv="Pragma" content="no-cache">
+	<head>
-		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+		<meta http-equiv="Pragma" content="no-cache">
-		<style type="text/css">
+		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-			p { font: bold 90% Verdana,Arial,Helvetica,sans-serif; }
+		<style type="text/css">
-			td { text-align: center; vertical-align: center; }
+			p { font: bold 90% Verdana,Arial,Helvetica,sans-serif; }
-			table { width: 100%; height: 100%; }
+			td { text-align: center; vertical-align: center; }
-		</style>
+			table { width: 100%; height: 100%; }
-	</head>
+		</style>
-	<body <%If objAccessControl.UserName <> "" Then Response.Write("onload="&chr(34)&"window.location='"& pathName & fileName &"'"&chr(34)) End If%>>
+	</head>
-		<table>
+	<body <%If objAccessControl.UserName <> "" Then Response.Write("onload="&chr(34)&"window.location='"& pathName & fileName &"'"&chr(34)) End If%>>
-			<tr>
+		<table>
-				<td>
+			<tr>
-					<img src="images/throbber_large.gif" width="66px" height="66px"><br>
+				<td>
-					<p>Generating Report</p>
+					<img src="images/throbber_large.gif" width="66px" height="66px"><br>
-				</td>
+					<p>Generating Report</p>
-			</tr>
+				</td>
-		</table>
+			</tr>
-		<%
+		</table>
-			OraDatabase.Parameters.Add "SBOM_A", 	parSBOMA,	ORAPARM_INPUT, ORATYPE_NUMBER
+		<%
-			OraDatabase.Parameters.Add "SBOM_B", 	parSBOMB,	ORAPARM_INPUT, ORATYPE_NUMBER
+			OraDatabase.Parameters.Add "SBOM_A", 	parSBOMA,	ORAPARM_INPUT, ORATYPE_NUMBER
-			OraDatabase.Parameters.Add "NO_CHANGE", "",		ORAPARM_INPUT, ORATYPE_VARCHAR2
+			OraDatabase.Parameters.Add "SBOM_B", 	parSBOMB,	ORAPARM_INPUT, ORATYPE_NUMBER
-			OraDatabase.Parameters.Add "ADDED", 	"",		ORAPARM_INPUT, ORATYPE_VARCHAR2
+			OraDatabase.Parameters.Add "NO_CHANGE", "",		ORAPARM_INPUT, ORATYPE_VARCHAR2
-			OraDatabase.Parameters.Add "UPDATED", 	"",		ORAPARM_INPUT, ORATYPE_VARCHAR2
+			OraDatabase.Parameters.Add "ADDED", 	"",		ORAPARM_INPUT, ORATYPE_VARCHAR2
-			OraDatabase.Parameters.Add "REMOVED", 	"",		ORAPARM_INPUT, ORATYPE_VARCHAR2
+			OraDatabase.Parameters.Add "UPDATED", 	"",		ORAPARM_INPUT, ORATYPE_VARCHAR2
+			OraDatabase.Parameters.Add "REMOVED", 	"",		ORAPARM_INPUT, ORATYPE_VARCHAR2
-			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BOMDiff.sql"), cint(0))
+			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("BOMDiff.sql"), cint(0))
-			OraDatabase.Parameters.Remove "SBOM_A"
-			OraDatabase.Parameters.Remove "SBOM_B"
+			OraDatabase.Parameters.Remove "SBOM_A"
-			OraDatabase.Parameters.Remove "NO_CHANGE"
+			OraDatabase.Parameters.Remove "SBOM_B"
-			OraDatabase.Parameters.Remove "ADDED"
+			OraDatabase.Parameters.Remove "NO_CHANGE"
-			OraDatabase.Parameters.Remove "UPDATED"
+			OraDatabase.Parameters.Remove "ADDED"
-			OraDatabase.Parameters.Remove "REMOVED"
+			OraDatabase.Parameters.Remove "UPDATED"
+			OraDatabase.Parameters.Remove "REMOVED"
-			Set rsQryA = OraDatabase.DbCreateDynaset( "SELECT pr.PROJ_NAME, br.BRANCH_NAME, b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE  AS LOCATION, "&_
-				"        pr.PROJ_ID, b.BOM_ID, br.BRANCH_ID"&_
+			Set rsQryA = OraDatabase.DbCreateDynaset( "SELECT pr.PROJ_NAME, br.BRANCH_NAME, b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE  AS LOCATION, "&_
-				"  FROM BRANCHES br,"&_
+				"        pr.PROJ_ID, b.BOM_ID, br.BRANCH_ID"&_
-				"  		BOMS b,"&_
+				"  FROM BRANCHES br,"&_
-				"  	    DM_PROJECTS pr"&_
+				"  		BOMS b,"&_
-				" WHERE br.PROJ_ID = pr.PROJ_ID"&_
+				"  	    DM_PROJECTS pr"&_
-				" 	AND b.BRANCH_ID = br.BRANCH_ID"&_
+				" WHERE br.PROJ_ID = pr.PROJ_ID"&_
-				"   AND b.BOM_ID ="&parSBOMA, cint(0))
+				" 	AND b.BRANCH_ID = br.BRANCH_ID"&_
+				"   AND b.BOM_ID ="&parSBOMA, cint(0))
-			Set rsQryB = OraDatabase.DbCreateDynaset( "SELECT pr.PROJ_NAME, br.BRANCH_NAME, b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE  AS LOCATION, "&_
-					"        pr.PROJ_ID, b.BOM_ID, br.BRANCH_ID"&_
+			Set rsQryB = OraDatabase.DbCreateDynaset( "SELECT pr.PROJ_NAME, br.BRANCH_NAME, b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE  AS LOCATION, "&_
-					"  FROM BRANCHES br,"&_
+					"        pr.PROJ_ID, b.BOM_ID, br.BRANCH_ID"&_
-					"  		BOMS b,"&_
+					"  FROM BRANCHES br,"&_
-					"  	    DM_PROJECTS pr"&_
+					"  		BOMS b,"&_
-					" WHERE br.PROJ_ID = pr.PROJ_ID"&_
+					"  	    DM_PROJECTS pr"&_
-					" 	AND b.BRANCH_ID = br.BRANCH_ID"&_
+					" WHERE br.PROJ_ID = pr.PROJ_ID"&_
-					"   AND b.BOM_ID ="&parSBOMB, cint(0))
+					" 	AND b.BRANCH_ID = br.BRANCH_ID"&_
+					"   AND b.BOM_ID ="&parSBOMB, cint(0))
-			Set FSO=Server.CreateObject("Scripting.FileSystemObject")
+			Set FSO=Server.CreateObject("Scripting.FileSystemObject")
-			Call DeleteOldReports()
+			Call DeleteOldReports()
-			Set NewTextFile=FSO.CreateTextFile(Server.MapPath(pathName & fileName), true)
+			Set NewTextFile=FSO.CreateTextFile(Server.MapPath(pathName & fileName), true)
-			Call Header(rsQryA("branch_name"), rsQryB("branch_name"), rsQryA("location"), rsQryB("location"))
+			Call Header(rsQryA("branch_name"), rsQryB("branch_name"), rsQryA("location"), rsQryB("location"))
-			NewTextFile.WriteLine("<body>")
-			NewTextFile.WriteLine("<div class="&chr(34)&"page_title"&chr(34)&">Difference Report Between "&rsQryA("branch_name")&" "&rsQryA("location")&" and "&rsQryB("branch_name")&" "&rsQryB("location")&"</div><br><br>")
+			NewTextFile.WriteLine("<body>")
+			NewTextFile.WriteLine("<div class="&chr(34)&"page_title"&chr(34)&">Difference Report Between "&rsQryA("branch_name")&" "&rsQryA("location")&" and "&rsQryB("branch_name")&" "&rsQryB("location")&"</div><br><br>")
-			While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
-				VersionList = "0"
+			While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
-				errormsg = false
+				VersionList = "0"
-					rowId = rsQry("pv_id_a") &"_"& rsQry("pv_id_b")
+				errormsg = false
+					rowId = rsQry("pv_id_a") &"_"& rsQry("pv_id_b")
-				If rsQry("pv_id_a") Then
-					Set rsQryCommentsA = OraDatabase.DbCreateDynaset( "SELECT COMMENTS FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_a"), cint(0))
+				If rsQry("pv_id_a") Then
-				End If
+					Set rsQryCommentsA = OraDatabase.DbCreateDynaset( "SELECT COMMENTS FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_a"), cint(0))
+				End If
-				If rsQry("pv_id_b") Then
-					Set rsQryCommentsB = OraDatabase.DbCreateDynaset( "SELECT COMMENTS FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_b"), cint(0))
+				If rsQry("pv_id_b") Then
-				End If
+					Set rsQryCommentsB = OraDatabase.DbCreateDynaset( "SELECT COMMENTS FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_b"), cint(0))
+				End If
-				pkgA = rsQry("pkg_name_a")
-				pkgB = rsQry("pkg_name_b")
+				pkgA = rsQry("pkg_name_a")
+				pkgB = rsQry("pkg_name_b")
-				If pkgA <> "" then
-					pkgname = pkgA
+				If pkgA <> "" then
-				Else
+					pkgname = pkgA
-					pkgname = pkgB
+				Else
-				End If
+					pkgname = pkgB
+				End If
-				If rsQry("change_type") = "U" OR rsQry("change_type") = "UW" Then
-						NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& pkgname &"</a></SPAN>")
+				If rsQry("change_type") = "U" OR rsQry("change_type") = "UW" Then
-						NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& pkgname &"</a></SPAN>")
+						NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& pkgname &"</a></SPAN>")
-						NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
+						NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& pkgname &"</a></SPAN>")
-						NewTextFile.Write(rsQryA("location")&" uses: "&rsQry("pkg_version_a")&" ")
+						NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
+						NewTextFile.Write(rsQryA("location")&" uses: "&rsQry("pkg_version_a")&" ")
-						NewTextFile.WriteLine("<br>")
-						NewTextFile.Write(rsQryB("location")&" uses: "&rsQry("pkg_version_b")&" ")
+						NewTextFile.WriteLine("<br>")
+						NewTextFile.Write(rsQryB("location")&" uses: "&rsQry("pkg_version_b")&" ")
-						a = rsQry("pv_id_a")
-						b = rsQry("pv_id_b")
+						a = rsQry("pv_id_a")
-						c = rsQry("pv_id_a")
+						b = rsQry("pv_id_b")
-						d = rsQry("pv_id_b")
+						c = rsQry("pv_id_a")
+						d = rsQry("pv_id_b")
-						NewTextFile.WriteLine("<br><br>")
-						NewTextFile.WriteLine()
+						NewTextFile.WriteLine("<br><br>")
-						NewTextFile.WriteLine("<b>"&rsQryB("location")&"</b>")
+						NewTextFile.WriteLine()
-						Call Comments(rsQry("pv_id_b"))
+						NewTextFile.WriteLine("<b>"&rsQryB("location")&"</b>")
-						Call GetFixedIssues(rsQry("pv_id_b"))
+						Call Comments(rsQry("pv_id_b"))
+						Call GetFixedIssues(rsQry("pv_id_b"))
-						Dim rsQryLast
-						Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_b"), cint(0))
+						Dim rsQryLast
+						Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& rsQry("pv_id_b"), cint(0))
-						If rsQryLast("last_pv_id") <> a Then
-							Call PreviousVersions(a, b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
+						If rsQryLast("last_pv_id") <> a Then
-						End If
+							Call PreviousVersions(a, b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
+						End If
-						a = rsQry("pv_id_a")
-						b = rsQry("pv_id_b")
+						a = rsQry("pv_id_a")
-						Call GetDependencies(a, VersionList + ","+ b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
+						b = rsQry("pv_id_b")
-						NewTextFile.WriteLine("</SPAN>")
+						Call GetDependencies(a, VersionList + ","+ b, rsQry("pkg_version_a"), rsQry("pkg_version_b"))
+						NewTextFile.WriteLine("</SPAN>")
-						rsQryLast.Close()
-						Set rsQryLast = Nothing
+						rsQryLast.Close()
+						Set rsQryLast = Nothing
-				End If
+				End If
-				If rsQry("change_type") = "A" AND rsQry("patch_b") = "Y" Then
-					Dim rsQryPatch
+				If rsQry("change_type") = "A" AND rsQry("patch_b") = "Y" Then
-					OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id_b"),	ORAPARM_INPUT, ORATYPE_NUMBER
+					Dim rsQryPatch
-					Set rsQryPatch = OraDatabase.DbCreateDynaset( GetQuery("pd_patch.sql"), cint(0))
+					OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id_b"),	ORAPARM_INPUT, ORATYPE_NUMBER
-					OraDatabase.Parameters.Remove "PV_ID"
+					Set rsQryPatch = OraDatabase.DbCreateDynaset( GetQuery("pd_patch.sql"), cint(0))
-					If NOT IsNull(rsQryPatch("pv_id")) Then
+					OraDatabase.Parameters.Remove "PV_ID"
-						NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
+					If NOT IsNull(rsQryPatch("pv_id")) Then
-						NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
+						NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
-						NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
+						NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQryPatch("pkg_name") &" "& rsQryPatch("pkg_version") &"</a></SPAN>")
-						Call Comments(rsQryPatch("pv_id"))
+						NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
-						Call GetFixedIssues(rsQryPatch("pv_id"))
+						Call Comments(rsQryPatch("pv_id"))
-					Else
+						Call GetFixedIssues(rsQryPatch("pv_id"))
-						NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQry("pkg_name_b") &" "& rsQry("pkg_version_b") &"</a></SPAN>")
+					Else
-						NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQry("pkg_name_b") &" "& rsQry("pkg_version_b") &"</a></SPAN>")
+						NewTextFile.Write("<p><SPAN id=""spanShowDetails"& rowId &""" name=""spanShowDetails""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(true,'"& rowId &"');"">"& rsQry("pkg_name_b") &" "& rsQry("pkg_version_b") &"</a></SPAN>")
-						NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
+						NewTextFile.Write("<SPAN id=""spanHideDetails"& rowId &""" name=""spanHideDetails"" style=""display:none;""><a href=""javascript:;"" class=""body_scol"" onClick=""DisplaySPAN(false,'"& rowId &"');"">"& rsQry("pkg_name_b") &" "& rsQry("pkg_version_b") &"</a></SPAN>")
-						Call Comments(rsQry("pv_id_b"))
+						NewTextFile.WriteLine("<SPAN id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
-						Call GetFixedIssues(rsQry("pv_id_b"))
+						Call Comments(rsQry("pv_id_b"))
-					End If
+						Call GetFixedIssues(rsQry("pv_id_b"))
+					End If
-					NewTextFile.WriteLine("</SPAN>")
-					rsQryPatch.Close
+					NewTextFile.WriteLine("</SPAN>")
-					Set rsQryPatch = nothing
+					rsQryPatch.Close
+					Set rsQryPatch = nothing
-				End If
+				End If
-			rsQry.MoveNext
-			WEnd
+			rsQry.MoveNext
+			WEnd
-			rsQry.Close
-			Set rsQry = Nothing
+			rsQry.Close
+			Set rsQry = Nothing
-			NewTextFile.WriteLine("</body>")
-			NewTextFile.WriteLine("</html>")
+			NewTextFile.WriteLine("</body>")
+			NewTextFile.WriteLine("</html>")
-			NewTextFile.Close
-			Set NewTextFile=Nothing
+			NewTextFile.Close
-		%>
+			Set NewTextFile=Nothing
-	</body>
+		%>
-</html>
+	</body>
-<%
+</html>
-Call Destroy_All_Objects
+<%
-%>
+Call Destroy_All_Objects
+%>
 <!--#include file="common/globals_destructor.asp"-->

Subversion Repositories DevTools

(root)/ManagerSuite/Production_Manager/trunk/diff_report.asp @ 5356 – Rev 4556 → 5356