Dear all,
Please help me out on the code, why QTP is failing ?
'Browser("iELS Login Page").Page("iELS Login
Page").WebEdit("ctl00$PlaceHolderMain$txtUserI").Set "s1000679a"
'Browser("iELS Login Page").Page("iELS Login Page").WebButton("Login").Click
Browser("iELS Login Page").Page("Mailbox - Inbox").Link("File a Document").Click
Browser("iELS Login Page").Page("Step
1").WebEdit("ctl00$PlaceHolderMain$txtCaseN").Set "aas 113/2011"
Browser("iELS Login Page").Page("Step 1").WebButton("Retrieve Data").Click
Browser("iELS Login Page").Page("Step
1").WebList("ctl00$PlaceHolderMain$Subseque").Select "Practising Certificate"
Browser("iELS Login Page").Page("Step
1").WebList("ctl00$PlaceHolderMain$Subseque").Click
Dim all_InputElements
Set all_InputElements=Browser("iELS Login
Page").object.Document.getelementsbytagname("INPUT")
Dim single_Element
For each single_Element in all_InputElements
If ((single_element.type="hidden") and (single_element.name
="ctl00$PlaceHolderMain$SubsequentSupDocumentsNew$hdnSelectedDocumentTitle"))
Then
single_element.value="PCA"
msgbox single_element.value
End If
Next
Browser("title:=.*").Page("title:=.*"). WebList("html
id:=ctl00_PlaceHolderMain_SubsequentSupDocumentsNew_lstDocumentTitle").Select
"Practising Certificate for Application (General)"
cheers
Serene Tan
--
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
