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 )