Subversion Repositories DevTools

Rev

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

Rev 4214 Rev 4554
Line 736... Line 736...
736
 
736
 
737
	BomLocationDetails = rsTemp("proj_name") + " > " + rsTemp("branch_name") + " > " &_
737
	BomLocationDetails = rsTemp("proj_name") + " > " + rsTemp("branch_name") + " > " &_
738
						+ rsTemp("bom_name") + " " + rsTemp("bom_version") + "." &_
738
						+ rsTemp("bom_name") + " " + rsTemp("bom_version") + "." &_
739
						+ rsTemp("bom_lifecycle")
739
						+ rsTemp("bom_lifecycle")
740
 
740
 
741
	'Response.Write BomLocationDetails 'Data to be inserted into the 'sbom' field
-
 
742
 
-
 
743
	Call Insert_Into_ClearQuest_Schema( nProdId, BomLocationDetails )
-
 
744
 
-
 
745
 
-
 
746
	'OraDatabase.Parameters.Remove "BOM_ID"
741
	'OraDatabase.Parameters.Remove "BOM_ID"
747
 
742
 
748
	rsTemp.Close()
743
	rsTemp.Close()
749
	Set rsTemp = Nothing
744
	Set rsTemp = Nothing
750
 
745
 
751
 
746
 
752
 
747
 
753
 
748
 
754
End Sub
749
End Sub
755
'-----------------------------------------------------------------------------------------------------------------------------
750
'-----------------------------------------------------------------------------------------------------------------------------
756
Sub Insert_Into_ClearQuest_Schema( nProdId, sBomDetails )
-
 
757
 
-
 
758
	Dim sqlstr, DEVIiss, Query_String, rsCQ, rsTemp
-
 
759
 
-
 
760
	Set rsCQ = CreateObject("ADODB.Recordset")
-
 
761
 
-
 
762
	sqlstr = " SELECT iss_db, iss_id"&_
-
 
763
			 "   FROM CQ_ISSUES "&_
-
 
764
			 "  WHERE iss_state = "& enumISSUES_STATE_FIXED &_
-
 
765
			 "    AND pv_id IN ( SELECT dpv_id FROM PACKAGE_DEPENDENCIES WHERE pv_id = "& nProdId &" )"
-
 
766
 
-
 
767
 
-
 
768
	'Response.Write sqlstr
-
 
769
 
-
 
770
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
-
 
771
 
-
 
772
	DEVIiss = "-1"
-
 
773
 
-
 
774
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
-
 
775
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
-
 
776
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
-
 
777
		End If
-
 
778
 
-
 
779
		rsTemp.MoveNext
-
 
780
	WEnd
-
 
781
 
-
 
782
	Query_String = ReadFile( rootPath & "queries\cq_issues_full.sql" )
-
 
783
	Query_String = Replace( Query_String, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
-
 
784
	Query_String = Replace( Query_String, "/*DEVIiss*/", DEVIiss)
-
 
785
 
-
 
786
	'Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
-
 
787
 
-
 
788
	'Response.Write Query_String
-
 
789
	Call Get_CQ_Issues ( Query_String, rsCQ )
-
 
790
 
-
 
791
	While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))
-
 
792
 
-
 
793
		If CInt(rsCQ("iss_db")) = enumCLEARQUEST_DEVI_ID AND IsNull(rsCQ("sbom")) Then
-
 
794
 
-
 
795
			'Response.Write rsCQ("iss_num")
-
 
796
 
-
 
797
			Set rsTemp = CreateObject("ADODB.Connection")
-
 
798
 
-
 
799
			rsTemp.Open CQ_conn
-
 
800
 
-
 
801
      rsTemp.Execute "EXEC cq_devi.dbo.sp_DM_editSBOMDetails "& rsCQ("iss_id") &", '"& sBomDetails &"';"
-
 
802
 
-
 
803
			rsTemp.Close()
-
 
804
			Set rsTemp = Nothing
-
 
805
		End If
-
 
806
 
-
 
807
		rsCQ.MoveNext
-
 
808
	Wend
-
 
809
 
-
 
810
	rsCQ.Close()
-
 
811
	Set rsCQ = Nothing
-
 
812
 
-
 
813
End Sub
-
 
814
'-----------------------------------------------------------------------------------------------------------------------------
-
 
815
Sub  Get_CQ_Issues( SSsql, OOrsCQ )
751
Sub  Get_CQ_Issues( SSsql, OOrsCQ )
816
 
752
 
817
	OOrsCQ.ActiveConnection = CQ_conn
-
 
818
	OOrsCQ.Source = SSsql
-
 
819
	OOrsCQ.CursorType = 0
753
    On Error Resume Next
820
	OOrsCQ.CursorLocation = 2
754
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
821
	OOrsCQ.LockType = 3
-
 
822
	OOrsCQ.Open()
-
 
823
 
755
 
824
End Sub
756
End Sub
825
'-----------------------------------------------------------------------------------------------------------------------------
757
'-----------------------------------------------------------------------------------------------------------------------------
826
%>
758
%>