Subversion Repositories DevTools

Rev

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

Rev 151 Rev 155
Line 479... Line 479...
479 
   Set rsDocReg = nothing
 479 
   Set rsDocReg = nothing
480 
End Function
 480 
End Function
481 
'-----------------------------------------------------------------------------------------------------------------------------
 481 
'-----------------------------------------------------------------------------------------------------------------------------
482 
Function GetIssueNumber ( nIssDB, nIssId )
 482 
Function GetIssueNumber ( nIssDB, nIssId )
483 
   Dim rsQry
 483 
   Dim rsQry
- 
 
 484 
   GetIssueNumber = ""
484 
 
 485 
 
485 
   Set rsQry = Server.CreateObject("ADODB.Recordset")
 486 
   Set rsQry = Server.CreateObject("ADODB.Recordset")
486 
   rsQry.ActiveConnection = CQ_conn
 487 
   rsQry.ActiveConnection = CQ_conn
487 
 
 488 
 
488 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 489 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
489 
      rsQry.Source = "EXEC devi_prod.dbo.sp_RM_getIssueDetails "& nIssId &";"
 490 
      rsQry.Source = "EXEC devi_prod.dbo.sp_RM_getIssueDetails "& nIssId &";"
490 
 
 491 
 
491 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 492 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
492 
      rsQry.Source = "EXEC tdse_2002.dbo.sp_RM_getIssueDetails "& nIssId &";"
 493 
      rsQry.Source = "EXEC tdse_2002.dbo.sp_RM_getIssueDetails "& nIssId &";"
493 
 
 494 
 
- 
 
 495 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
- 
 
 496 
      rsQry.Source = "EXEC VT5DM.dbo.sp_RM_getIssueDetails "& nIssId &";"
- 
 
 497 
 
- 
 
 498 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
- 
 
 499 
      rsQry.Source = "EXEC VTSUP.dbo.sp_RM_getIssueDetails "& nIssId &";"
494 
   End If
 500 
   End If
495 
 
 501 
 
496 
   rsQry.CursorType = 0
 502 
   rsQry.CursorType = 0
497 
   rsQry.CursorLocation = 2
 503 
   rsQry.CursorLocation = 2
498 
   rsQry.LockType = 3
 504 
   rsQry.LockType = 3
Line 707... Line 713...
707 
 
 713 
 
708 
      objEH.TryORA ( OraSession )
 714 
      objEH.TryORA ( OraSession )
709 
      On Error Resume Next
 715 
      On Error Resume Next
710 
 
 716 
 
711 
      OraDatabase.ExecuteSQL _
 717 
      OraDatabase.ExecuteSQL _
712 
      "UPDATE package_versions pv SET pv.comments = '"& nReason &"' WHERE pv.pv_id = "& nPvId
 718 
      "UPDATE package_versions pv SET pv.comments = '"& SQLstring(nReason) &"' WHERE pv.pv_id = "& nPvId
713 
 
 719 
 
714 
      objEH.CatchORA ( OraSession )
 720 
      objEH.CatchORA ( OraSession )
715 
 
 721 
 
716 
      OraDatabase.Parameters.Remove "PV_ID"
 722 
      OraDatabase.Parameters.Remove "PV_ID"
717 
      OraDatabase.Parameters.Remove "COMMENTS"
 723 
      OraDatabase.Parameters.Remove "COMMENTS"