Subversion Repositories DevTools

Rev

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

Rev 64 Rev 4556
Line 96... Line 96...
96 
	Else
 96 
	Else
97 
		query = GetQuery ("IssuesList_cqDEVI.sql")
 97 
		query = GetQuery ("IssuesList_cqDEVI.sql")
98 
		query = Replace( query, "/*DEVIiss*/", nIssID )
 98 
		query = Replace( query, "/*DEVIiss*/", nIssID )
99 
	End If
 99 
	End If
100
100
101 
	Set rsCQ = Server.CreateObject("ADODB.Recordset")
 - 
 
102
- 
 
103 
	nErrNumber = GetCQIssue ( query, rsCQ )
 101 
	nErrNumber = GetCQIssue ( query, rsCQ )
104
102
105 
	If nErrNumber = 0 Then
 103 
	If nErrNumber = 0 Then
106 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
 104 
		If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
107 
			oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") )
 105 
			oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") )
Line 116... Line 114...
116
114
117 
End Sub
 115 
End Sub
118 
'----------------------------------------------------------------------------------------------------------------------------------------
 116 
'----------------------------------------------------------------------------------------------------------------------------------------
119 
Function  GetCQIssue ( sSQL, oRsCQ )
 117 
Function  GetCQIssue ( sSQL, oRsCQ )
120 
	On Error Resume Next
 118 
	On Error Resume Next
121 
	oRsCQ.ActiveConnection = CQ_CONN
 119 
    Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0))
122 
	oRsCQ.Source = sSQL
 - 
 
123 
	oRsCQ.CursorType = 0
 - 
 
124 
	oRsCQ.CursorLocation = 2
 - 
 
125 
	oRsCQ.LockType = 3
 - 
 
126 
	oRsCQ.Open()
 - 
 
127
- 
 
128 
	GetCQIssue = Err.Number
 120 
	GetCQIssue = Err.Number
129
121
130 
End Function
 122 
End Function
131 
'----------------------------------------------------------------------------------------------------------------------------------------
 123 
'----------------------------------------------------------------------------------------------------------------------------------------
132 
Function SetRowColor( cRowColor )
 124 
Function SetRowColor( cRowColor )