Subversion Repositories DevTools

	'Response.Write BomLocationDetails 'Data to be inserted into the 'sbom' field

	Call Insert_Into_ClearQuest_Schema( nProdId, BomLocationDetails )

Sub Insert_Into_ClearQuest_Schema( nProdId, sBomDetails )

	Dim sqlstr, DEVIiss, Query_String, rsCQ, rsTemp

	Set rsCQ = CreateObject("ADODB.Recordset")

	sqlstr = " SELECT iss_db, iss_id"&_

			 "   FROM CQ_ISSUES "&_

			 "  WHERE iss_state = "& enumISSUES_STATE_FIXED &_

			 "    AND pv_id IN ( SELECT dpv_id FROM PACKAGE_DEPENDENCIES WHERE pv_id = "& nProdId &" )"

	'Response.Write sqlstr

	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))

	DEVIiss = "-1"

	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))

		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then

			DEVIiss = DEVIiss &","& rsTemp("iss_id")

		End If

		rsTemp.MoveNext

	WEnd

	Query_String = ReadFile( rootPath & "queries\cq_issues_full.sql" )

	Query_String = Replace( Query_String, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)

	Query_String = Replace( Query_String, "/*DEVIiss*/", DEVIiss)

	'Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

	'Response.Write Query_String

	Call Get_CQ_Issues ( Query_String, rsCQ )

	While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))

		If CInt(rsCQ("iss_db")) = enumCLEARQUEST_DEVI_ID AND IsNull(rsCQ("sbom")) Then

			'Response.Write rsCQ("iss_num")

			Set rsTemp = CreateObject("ADODB.Connection")

			rsTemp.Open CQ_conn

      rsTemp.Execute "EXEC cq_devi.dbo.sp_DM_editSBOMDetails "& rsCQ("iss_id") &", '"& sBomDetails &"';"

			rsTemp.Close()

			Set rsTemp = Nothing

		End If

		rsCQ.MoveNext

	Wend

	rsCQ.Close()

	Set rsCQ = Nothing

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

	OOrsCQ.ActiveConnection = CQ_conn

	OOrsCQ.Source = SSsql

	OOrsCQ.LockType = 3

	OOrsCQ.Open()