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"