Subversion Repositories DevTools

Rev

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

Rev 3866 Rev 3974
Line 547... Line 547...
547 
 
 547 
 
548 
	OOrsCQ.Close
 548 
	OOrsCQ.Close
549 
End Sub
 549 
End Sub
550 
'-----------------------------------------------------------------------------------------------------------------
 550 
'-----------------------------------------------------------------------------------------------------------------
551 
Sub Get_ORA_Package_Issues ( SSstate, outCQSQL )
 551 
Sub Get_ORA_Package_Issues ( SSstate, outCQSQL )
552 
	Dim rsTemp, sqlstr, DEVIiss, TDSEiss
 552 
	Dim rsTemp, sqlstr, DEVIiss
553 
 
 553 
 
554 
	Select Case SSstate
 554 
	Select Case SSstate
555 
	Case "Fixed_Issues"
 555 
	Case "Fixed_Issues"
556 
		sqlstr = " SELECT iss_db, iss_id, iss_state"&_
 556 
		sqlstr = " SELECT iss_db, iss_id, iss_state"&_
557 
		         "   FROM CQ_ISSUES "&_
 557 
		         "   FROM CQ_ISSUES "&_
Line 570... Line 570...
570 
	End Select
 570 
	End Select
571 
 
 571 
 
572 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
 572 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
573 
 
 573 
 
574 
	DEVIiss = "-1"
 574 
	DEVIiss = "-1"
575 
	TDSEiss  = "-1"
 - 
 
576 
 
 575 
 
577 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 576 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
578 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
 577 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
579 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
 578 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
580 
 
 - 
 
581 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
 - 
 
582 
			TDSEiss = TDSEiss &","& rsTemp("iss_id")
 - 
 
583 
 
 - 
 
584 
		End If
 579 
		End If
585 
 
 580 
 
586 
		rsTemp.MoveNext
 581 
		rsTemp.MoveNext
587 
	WEnd
 582 
	WEnd
588 
 
 583 
 
589 
	' Construct SQL statement for CQ database
 584 
	' Construct SQL statement for CQ database
590 
	outCQSQL = ReadFile( AppPath & QUERIES_FOLDER & "\cq_issues_full.sql" )
 585 
	outCQSQL = ReadFile( AppPath & QUERIES_FOLDER & "\cq_issues_full.sql" )
591 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
 586 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
592 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
 - 
 
593 
	outCQSQL = Replace( outCQSQL, "/*DEVIiss*/", DEVIiss)
 587 
	outCQSQL = Replace( outCQSQL, "/*DEVIiss*/", DEVIiss)
594 
	outCQSQL = Replace( outCQSQL, "/*TDSEiss*/", TDSEiss)
 - 
 
595 
 
 588 
 
596 
	rsTemp.Close
 589 
	rsTemp.Close
597 
	Set rsTemp = nothing
 590 
	Set rsTemp = nothing
598 
End Sub
 591 
End Sub
599 
'-----------------------------------------------------------------------------------------------------------------
 592 
'-----------------------------------------------------------------------------------------------------------------