I tried to create defect from UFT and everything worked fine except the detected in release field, I am not able to enter value in it, tried both BG_DETECTED_IN_RCYC and BG_DETECTED_IN_REL.
Set QCConnection = QCUtil.QCConnection
Set BugFact = QCConnection.BugFactory
Set NewBug = BugFact.AddItem(Null)
NewBug.Summary = "Automated Defect - "&Environment.value("Stack_Name") &Environment("pDpi_Env_Var") & "-" & Environment.Value("AppType") & " " & strSummary
NewBug.Field("BG_DETECTION_DATE") = Date
NewBug.Status = "New"
NewBug.Field("BG_DESCRIPTION") = strDescription
NewBug.Field("BG_DEV_COMMENTS") = strComments
NewBug.Field("BG_PRIORITY") = "1-Critical"
NewBug.AssignedTo = "user6523"
NewBug.Field("BG_SEVERITY") = "1-Critical"
' NewBug.Field("BG_DETECTED_IN_REL") = "2017-06-18"
' NewBug.Field("BG_DETECTED_IN_RCYC") = "2017-06-18"
' NewBug.Field("BG_DETECTED_IN_RCYC").Value.Name = "2017-06-18"'CurrentRelease
NewBug.Field("BG_USER_01") = "4699135141"
NewBug.Field("BG_USER_02") = Platform' Platform
NewBug.Field("BG_USER_03") = FuncArea ' Functional Area
NewBug.Field("BG_USER_04") = Environment.value("Stack_Name") & "-" & ucase(Environment("pDpi_Env_Var"))'TEST03-AZ
NewBug.Field("BG_USER_05") = "Checkout"'TestPhase
NewBug.Field("BG_USER_09") = "rnaidu"
NewBug.Field("BG_USER_14") = "BAU Testing"
Everything works except the detected in release field??
↧