Micro Focus QTP (UFT) Forums
Create new Memo field in Defects page 2 - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: Create new Memo field in Defects page 2 (/Thread-Create-new-Memo-field-in-Defects-page-2)

Create new Memo field in Defects page 2 - kfschaefer - 04-28-2011

I recently created a new tab on the Defects tab, however, I am unable to create a comment field on this new tab. As you can see by the code below. The problem lies in that I am unable to change the field type to a comment field.

what is the best way to add a new memo (comment) field to a newly created tab. Or can you copy a a memo field - if so HOW?

Code:
Function Defects_GetNewBugPageName(PageName,PageNum)
'  On Error Resume Next
  Select case PageNum
    case 1
      Defects_GetNewBugPageName = "Details1"
    case 2
      Defects_GetNewBugPageName = "Solution"
  end select
'  On Error GoTo 0
End Function

Function Defects_GetDetailsPageName(PageName,PageNum)
'  On Error Resume Next
  Select case PageNum
    case 1
      Defects_GetDetailsPageName = "Details1"
    case 2
      Defects_GetDetailsPageName = "Solution"
  end select
'  On Error GoTo 0
End Function

Sub Defects_Bug_MoveTo
'  On Error Resume Next
  Bug_Fields.Field("BG_SEVERITY").PageNo = 2
  Bug_Fields.Field("BG_DEV_COMMENTS").PageNo = 2
  Bug_Fields.Field("BG_BUG_ID").PageNo = 1
'  On Error GoTo 0
End Sub

thanks,

Karen