That's the approach I took.But in some of the Oracle EBS forms,one would expect in cells the links bearing the document # on which I am basing the search, fetched using Cell(i,j).Link(0) and initiate the Click(). That's not happening,because in such cells,typically there would be 3-4 child objects before link object.
So my approach was to use the find() method for the table object to get the link,but as I said I have to loop thro' the cells of each row and get the radio button selected.Clearly in above described scenario,it is not possible. So the generalized function may not be possible
issue1.jpg reveals the output of the code which searches thro cells including below code. That's the core.looping thro' cells,Iam not able to match the #
-----Kindly go thro' comments -Find() looks weird--------
Dim iexplore
Dim page
Dim table
Dim passwordBox
Dim cell
Dim panel
Call TestedApps.iexplore.Run(1, True)
Set iexplore = Sys.Process("iexplore")
Call iexplore.ToURL("http:/XXXXXX/")
Set page = iexplore.Page("http://XXXXX/")
page.Wait
Set table = page.Form("DefaultFormName").Panel(0).Panel(2).Table("LoginRN").Cell(1, 1).Table("region144").Cell(1, 1).Table("region14")
table.Cell(0, 2).Table("usernameField_xc_").Cell(0, 2).Textbox("usernameField").Text = "user1"
Set passwordBox = table.Cell(1, 2).Table("passwordField_xc_").Cell(0, 2).PasswordBox("passwordField")
passwordBox.Text = "oracle"
Call passwordBox.Keys("[Enter]")
Call aqUtils.Delay(2000,"Login")
page.Form("DefaultFormName").Panel(0).Panel(2).Panel(0).Panel(1).Table("topTableLayoutContainer").Cell(0, 0).Table("leftLayoutRN").Cell(1, 0).Table("region1").Cell(3, 0).Table(0).Cell(0, 0).Panel(0).Panel(1).Table(0).Cell(0, 0).Table(0).Cell(1, 3).Link("AppsNavLink").Click
page.Form("DefaultFormName").Panel(0).Panel(2).Panel(0).Panel(1).Table("topTableLayoutContainer").Cell(0, 0).Table("leftLayoutRN").Cell(1, 0).Table("region1").Cell(3, 0).Table(0).Cell(0, 0).Panel(0).Panel(1).Table(0).Cell(0, 1).Table(0).Cell(2, 2).Link("N61").Click
Call aqUtils.Delay(5000,"Login")
Set cell = page.Form("DefaultFormName").Panel(0).Panel(2).Panel(0).Panel(1).Table(1).Cell(1, 0).Panel(0).Table(0).Cell(3, 0).Table(0).Cell(0, 0).Panel(0).Panel(1).Table("customizationsPoplist_xc_").Cell(0, 2)
Call cell.Select("customizationsPoplist").ClickItem("My Open Orders")
cell.Button(0).Click
Set panel = page.Form("DefaultFormName").Panel(0)
PropArray = Array("ObjectType", "Title")
ValuesArray = Array("Link", "100064")
'--- Find method works for table level.But doesn't for cell for this table.Even FindChild doesn't..If this works ,I can loop thro' cells and select radiobtn ---
'set w=Sys.Process("iexplore").Page("*").Form("DefaultFormName").Panel(0).Panel(2).Panel(0).Panel(1).Table(1).Cell(1, 0).Panel(0).Table(0).Cell(3, 0).Table(0).Cell(0, 0).Panel(0).Panel(3).Table(0).Cell(1, 0).Table(0).Cell(6, 2).Find(PropArray,ValuesArray, 20000)
'set w=Sys.Process("iexplore").Page("*").Form("DefaultFormName").Panel(0).Panel(2).Panel(0).Panel(1).Table(1).Cell(1, 0).Panel(0).Table(0).Cell(3, 0).Table(0).Cell(0, 0).Panel(0).Panel(3).Table(0).Cell(1, 0).Table(0).Find(PropArray,ValuesArray, 20000)
set w=Sys.Process("iexplore").Page("*").Form("DefaultFormName").Panel(0).Panel(2).Panel(0).Panel(1).Table(1).Cell(1, 0).Panel(0).Table(0).Cell(3, 0).Table(0).Cell(0, 0).Panel(0).Panel(3).Table(0).Cell(1, 0).Table(0).Cell(6, 2).FindChild(PropArray,ValuesArray, 20000)
'----- End ----------------
if w.Exists Then
Log.Message("Full Name:: " +w.Fullname)
Log.Message("Title :: "+w.Title) ' tried Title/InnerText
'Sys.Process("iexplore").Page("*").Form("DefaultFormName").Panel(0).Panel(2).Panel(0).Panel(1).Table(1).Cell(1, 0).Panel(0).Table(0).Cell(3, 0).Table(0).Cell(0, 0).Panel(0).Panel(3).Table(0).Cell(1, 0).Table(0).Cell(6, 2).Find(PropArray,ValuesArray,20000)
Else
Log.Message("Object does not exists")
end if