Good Good Study

'Get all defect mandatory fields Function GetBugfields()     Dim fieldList, aField     Set fieldList = tdQC.Fields("BUG")     Dim dBugfieldIdx     Set dBugfieldIdx = CreateObject("Scripting.Dic

'Connect to QC Function ConnectQC(sURL, sDomin, sProject, sUser, sPwd)     ConnectQC = 0     Set tdQC = CreateObject("TDApiOle80.TDConnection.1")     On Error Resume Next     tdQC.InitConnectionE

'Search DefectID  'Parameters: Detectedby, priority, severity, status Function SearchDefectID(sDetectedBy, sPriority, sSeverity, sStatus, sDetectedDate)     Dim BugFact     Dim BugFilter     Dim

'Get user full name by userID Function UserFullName(sUserID) Dim cust Dim cust_users Dim c_user Set cust = tdQC.Customization Set cust_users = cust.Users Set c_user = cust_users.User(sUserID)