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