replace the red line with this...
*all_InputElements=Browser("**iELS Login Page").object.Document.**
getelementsbytagname("INPUT")*
Regards
Shalabh Dixit
On Fri, Sep 30, 2011 at 6:49 PM, Serene Tan <[email protected]> wrote:
> 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
--
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
