Hi,
QTP Script:
strBrowser = """Assumptions for Home insurance"""
MsgBox strBrowser
strPage = """Page_1_Personal_Details_PH1"""
MsgBox strPage
'Title
Call DPWebList ("titleData", vTitle)
Function:
'Web List
Public Sub DPWebList (strWebList, strInValue)
If strInValue <> "" Then
Set obj_WebList = Description.Create
obj_WebList ("Class Name").value = "WebList"
obj_WebList ("name").value= strWebList
Browser(strBrowser).page(strPage).Sync
Browser(strBrowser).Page(strPage).WebList(obj_WebList).Select
strInValue
End If
End Sub
-----
When run this script i get an :
Failed to run the test due to an unknown error.
Function file: C:\Documents and Settings\Get\Desktop\DP.vbs
Line (27): " Browser(strBrowser).page(strPage).Sync".
If if use the function with QTP script it runs ok.
An help will be very much appreciated...
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
-~----------~----~----~----~------~----~------~--~---
