Subversion Repositories DevTools

Rev

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

Rev 3900 Rev 3974
Line 347... Line 347...
347
   rsQry.Close()
347
   rsQry.Close()
348
   set rsQry = nothing
348
   set rsQry = nothing
349
End Sub
349
End Sub
350
'-------------------------------------------------------------------------------------
350
'-------------------------------------------------------------------------------------
351
Sub PRIVATE_Get_Package_Issues(NNpv_id, SSsql)
351
Sub PRIVATE_Get_Package_Issues(NNpv_id, SSsql)
352
   Dim sqlstr, rsTemp, DEVIiss, TDSEiss, VT5DMiss, VTSUPiss
352
   Dim sqlstr, rsTemp, DEVIiss
353
 
353
 
354
   sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = 1"
354
   sqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& NNpv_id &"  AND iss_state = 1"
355
 
355
 
356
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
356
   Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
357
 
357
 
358
   DEVIiss = "-1"
358
   DEVIiss = "-1"
359
   TDSEiss  = "-1"
-
 
360
   VT5DMiss = "-1"
-
 
361
   VTSUPiss = "-1"
-
 
362
 
359
 
363
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
360
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
364
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
361
      If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
365
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
362
         DEVIiss = DEVIiss &","& rsTemp("iss_id")
366
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
-
 
367
         TDSEiss = TDSEiss &","& rsTemp("iss_id")
-
 
368
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) Then
-
 
369
         VT5DMiss = VT5DMiss &","& rsTemp("iss_id")
-
 
370
      ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) Then
-
 
371
         VTSUPiss = VTSUPiss &","& rsTemp("iss_id")
-
 
372
      End If
363
      End If
373
 
364
 
374
      rsTemp.MoveNext
365
      rsTemp.MoveNext
375
   WEnd
366
   WEnd
376
 
367
 
377
   ' Construct SQL statement for CQ database
368
   ' Construct SQL statement for CQ database
378
   If Len(DEVIiss) <> 1 OR Len(TDSEiss) <> 1 Then
369
   If Len(DEVIiss) <> 1 OR Len(TDSEiss) <> 1 Then
379
      SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
370
      SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )
380
      SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
371
      SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
381
      SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
-
 
382
      SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)
-
 
383
      SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)
-
 
384
      SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
372
      SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
385
      SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)
-
 
386
      SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)
-
 
387
      SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)
-
 
388
   End If
373
   End If
389
 
374
 
390
   rsTemp.Close
375
   rsTemp.Close
391
   Set rsTemp = nothing
376
   Set rsTemp = nothing
392
 
377