Subversion Repositories DevTools

Rev

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

Rev 1283 Rev 3938
Line 743... Line 743...
743 
 
 743 
 
744 
End Sub
 744 
End Sub
745 
'-----------------------------------------------------------------------------------------------------------------------------
 745 
'-----------------------------------------------------------------------------------------------------------------------------
746 
Sub Insert_Into_ClearQuest_Schema( nProdId, sBomDetails )
 746 
Sub Insert_Into_ClearQuest_Schema( nProdId, sBomDetails )
747 
 
 747 
 
748 
	Dim sqlstr, DEVIiss, TDSEiss, Query_String, rsCQ, rsTemp
 748 
	Dim sqlstr, DEVIiss, Query_String, rsCQ, rsTemp
749 
 
 749 
 
750 
	Set rsCQ = CreateObject("ADODB.Recordset")
 750 
	Set rsCQ = CreateObject("ADODB.Recordset")
751 
 
 751 
 
752 
	sqlstr = " SELECT iss_db, iss_id"&_
 752 
	sqlstr = " SELECT iss_db, iss_id"&_
753 
			 "   FROM CQ_ISSUES "&_
 753 
			 "   FROM CQ_ISSUES "&_
Line 758... Line 758...
758 
	'Response.Write sqlstr
 758 
	'Response.Write sqlstr
759 
 
 759 
 
760 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
 760 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
761 
 
 761 
 
762 
	DEVIiss = "-1"
 762 
	DEVIiss = "-1"
763 
	TDSEiss  = "-1"
 - 
 
764 
 
 763 
 
765 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 764 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
766 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 765 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
767 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
 766 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
768 
 
 - 
 
769 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 - 
 
770 
			TDSEiss = TDSEiss &","& rsTemp("iss_id")
 - 
 
771 
 
 - 
 
772 
		End If
 767 
		End If
773 
 
 768 
 
774 
		rsTemp.MoveNext
 769 
		rsTemp.MoveNext
775 
	WEnd
 770 
	WEnd
776 
 
 771 
 
777 
	Query_String = ReadFile( rootPath & "queries\cq_issues_full.sql" )
 772 
	Query_String = ReadFile( rootPath & "queries\cq_issues_full.sql" )
778 
	Query_String = Replace( Query_String, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 773 
	Query_String = Replace( Query_String, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
779 
	Query_String = Replace( Query_String, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 - 
 
780 
	Query_String = Replace( Query_String, "/*DEVIiss*/", DEVIiss)
 774 
	Query_String = Replace( Query_String, "/*DEVIiss*/", DEVIiss)
781 
	Query_String = Replace( Query_String, "/*TDSEiss*/", TDSEiss)
 - 
 
782 
 
 775 
 
783 
	'Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 776 
	'Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
784 
 
 777 
 
785 
	'Response.Write Query_String
 778 
	'Response.Write Query_String
786 
	Call Get_CQ_Issues ( Query_String, rsCQ )
 779 
	Call Get_CQ_Issues ( Query_String, rsCQ )