Subversion Repositories DevTools

Rev

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

Rev 3975 Rev 4553
Line 452... Line 452...
452 
   Short_Document_Details = Err.Number   ' Return Error number
 452 
   Short_Document_Details = Err.Number   ' Return Error number
453 
 
 453 
 
454 
   Set rsDocReg = nothing
 454 
   Set rsDocReg = nothing
455 
End Function
 455 
End Function
456 
'-----------------------------------------------------------------------------------------------------------------------------
 456 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 457 
'   ClearQuest Interface
- 
 
 458 
'   Convert is CQ Issue number into a DEVI Number
- 
 
 459 
'
457 
Function GetIssueNumber ( nIssDB, nIssId )
 460 
Function GetIssueNumber ( nIssDB, nIssId )
458 
   Dim rsQry
 461 
   Dim rsQry, rsSQL
459 
   GetIssueNumber = ""
 462 
   GetIssueNumber = ""
460 
 
 463 
 
461 
   Set rsQry = Server.CreateObject("ADODB.Recordset")
 - 
 
462 
   rsQry.ActiveConnection = CQ_conn
 - 
 
463 
 
 - 
 
464 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 464 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
465 
      rsQry.Source = "EXEC cq_devi.dbo.sp_RM_getIssueDetails "& nIssId &";"
 465 
    rsSQL = "SELECT dbid AS iss_id, new_num AS iss_num " &_
- 
 
 466 
	        "  FROM release_manager.cq_software_issue si" &_
466 
   End If
 467 
	        "  WHERE si.dbid = " & nIssId
467 
 
 468 
 
468 
   rsQry.CursorType = 0
 469 
    On Error Resume Next
469 
   rsQry.CursorLocation = 2
 470 
    Set rsQry = OraDatabase.DbCreateDynaset( rsSQL, cint(0))
470 
   rsQry.LockType = 3
 - 
 
471 
 
 471 
 
- 
 
 472 
    If (NOT rsQry.BOF) AND (NOT rsQry.EOF)  Then
472 
   On Error Resume Next
 473 
      GetIssueNumber = rsQry("iss_num")
- 
 
 474 
    End If
473 
 
 475 
 
474 
   rsQry.Open()
 476 
    rsQry.Close
- 
 
 477 
    Set rsQry = nothing
475 
 
 478 
 
476 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF)  Then
 - 
 
477 
      GetIssueNumber = rsQry("iss_num")
 - 
 
478 
   End If
 479 
   End If
479 
 
 - 
 
480 
   rsQry.Close
 - 
 
481 
   Set rsQry = nothing
 - 
 
482 
End Function
 480 
End Function
483 
'-----------------------------------------------------------------------------------------------------------------------------
 481 
'-----------------------------------------------------------------------------------------------------------------------------
484 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
 482 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
485 
   Dim rsQry, query
 483 
   Dim rsQry, query
486 
 
 484