Check existence of web objects on page

[eltee]

I have 10 Webedit and 2 Weblist fields in the web application page. I need QTP to

(a) Validate their existence on the page and if yes, check if they are greyed out (disabled)
(b) Compare the values against a global datasheet

Could you please help me write a generic function which can be used to do (a) and (b) for different web objects like WebEdit, WebList, Radiobutton etc?

Thanks a ton!
Liju

[basanth27]

Would you paste the code you have tried so far? Would be easier to correct it.
Furthermore, you dont have to consider how many webedits and weblists are on the webpage. You can make it very generic, such as, you pass the object and it should check for the conditions you have.

[eltee]

I'm sure there's lots wrong in here This code doesnt seem to work at all for me. QTP shows Runtime error - what am I doing wrong here? Please help.

Object doesnt support this property or method: ExistsAndDisabled Browser("IPSDK WEB GUI (Search)").Page("Customer Info").Frame("Quote Header").Table("Quote_Header_Table").WebEdit("Quote_RefId")

My code for one webedit field :
------------------------------

Code:

Dim QuoteName
Set QuoteName = Browser("IPSDK WEB GUI (Search)").Page("Customer Info").Frame("Quote Header").Table("Quote_Header_Table").WebEdit("Quote_Name")
    If ExistsAndDisabled(QuoteName) Then
        Reporter.ReportEvent micPass, "Checking Object Status", QuoteName.GetTOProperty("html id") & " was found and disabled."
   Else
        Reporter.ReportEvent micFail, "Checking Object Status", QuoteName.GetTOProperty("html id") & " was either not found or disabled."
Quote_Name=QuoteName.GetROproperty("value")
Quote_Name_value = DataTable.Value("Quote_Name", GLOBAL)
CheckValue Quote_Name, Quote_Name_value
End If

Public Function ExistsAndDisabled(test_object)
ExistsAndEnabled=True
If  test_object.Exist() Then
  If test_object.GetROProperty("enabled")=1 Then
    ExistsAndEnabled=False
  End If
  Else
    ExistsAndEnabled=True
End If    
End Function

Public Function CheckValue(str1, str2)
     If strcomp (str1, str2) =0 Then
        Reporter.ReportEvent micPass, "Checking object value", str1 & "was found"
     End If
End Function

[basanth27]

See if this works,

Code:

Dim QuoteName
Set QuoteName = Browser("IPSDK WEB GUI (Search)").Page("Customer Info").Frame("Quote Header").Table("Quote_Header_Table").WebEdit("Quote_Name")

If ExistsAndDisabled(QuoteName) Then

Reporter.ReportEvent micPass, "Checking Object Status", QuoteName.GetTOProperty("html id") & " was found and disabled."
Else

Reporter.ReportEvent micFail, "Checking Object Status", QuoteName.GetTOProperty("html id") & " was either not found or disabled."
Quote_Name=QuoteName.GetROproperty("value")
Quote_Name_value = DataTable.Value("Quote_Name", GLOBAL)
CheckValue Quote_Name, Quote_Name_value
End If

Public Function ExistsAndDisabled(test_object)
ExistsAndDisabled=True
If test_object.Exist Then
If test_object.GetROProperty("enabled")= "True" Then
ExistsAndDisabled=False
End If
Else
ExistsAndDisabled=True
End If
End Function

Public Function CheckValue(str1, str2)
If strcomp (str1, str2) =0 Then
Reporter.ReportEvent micPass, "Checking object value", str1 & "was found"
End If
End Function

Honestly, i dont have the time to refine your function, however the above should work for your tweaked purpose. I will try and work on it during my free time, however no promises

[eltee]

I was able to resolve this as soon as I made changes to the syntax:

Code:

Set QuoteRefId = Browser("IPSDK WEB GUI (Search)").Page("Customer Info").Frame("Quote Header").WebEdit("Quote_RefId")

Earlier, the Webedit was shown under a Webtable, hence QTP was not supporting it.

Without manually calling the function ExistsandDisabled for each web object like Webedit, Weblist etc, is it possible to write a function which would do ExistsandDisabled() functions for all webobjects on the shown page? Right now, I have to write separate code for 10-12 webobjects on the page

[basanth27]

Its called registeruserfunc. You can register userdfined function against objects. Search and learn about it.