Subversion Repositories DevTools

Rev

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

Rev 3947 Rev 4554
Line 460... Line 460...
460 
	Short_Document_Details = Err.Number	' Return Error number
 460 
	Short_Document_Details = Err.Number	' Return Error number
461 
 
 461 
 
462 
	Set rsDocReg = nothing
 462 
	Set rsDocReg = nothing
463 
End Function
 463 
End Function
464 
'-----------------------------------------------------------------------------------------------------------------------------
 464 
'-----------------------------------------------------------------------------------------------------------------------------
465 
Function GetIssueNumber ( nIssDB, nIssId )
 - 
 
466 
	Dim rsQry
 - 
 
467 
 
 - 
 
468 
	Set rsQry = Server.CreateObject("ADODB.Recordset")
 - 
 
469 
	rsQry.ActiveConnection = CQ_conn
 - 
 
470 
 
 - 
 
471 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 - 
 
472 
        rsQry.Source = "EXEC CQ_DEVI.dbo.sp_RM_getIssueDetails "& nIssId &";"
 - 
 
473 
	End If
 - 
 
474 
 
 - 
 
475 
	rsQry.CursorType = 0
 - 
 
476 
	rsQry.CursorLocation = 2
 - 
 
477 
	rsQry.LockType = 3
 - 
 
478 
 
 - 
 
479 
	On Error Resume Next
 - 
 
480 
 
 - 
 
481 
	rsQry.Open()
 - 
 
482 
 
 - 
 
483 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)  Then
 - 
 
484 
		GetIssueNumber = rsQry("iss_num")
 - 
 
485 
	End If
 - 
 
486 
 
 - 
 
487 
	rsQry.Close
 - 
 
488 
	Set rsQry = nothing
 - 
 
489 
End Function
 - 
 
490 
'-----------------------------------------------------------------------------------------------------------------------------
 - 
 
491 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
 465 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
492 
	Dim rsQry, query
 466 
	Dim rsQry, query
493 
 
 467 
 
494 
	query = _
 468 
	query = _
495 
	"   SELECT FIELD_NAME, "&_
 469 
	"   SELECT FIELD_NAME, "&_