Problem with Capturing objects(DropDown,Table) in SAP application

[SaranKumarV]

Hi All,

This is first time I am automating SAP application, I Installed SAP Add-in for automating the SAP application.
SAP application details are as follows:
Portal : NetViewer Portal
Developed Languages : ABAP and Java

My problem:

1. Capturing DropDown:
I tried to capture dropdown object with Object repository but it shows as 2 WebEdit(TextBoxes). one for to set the value and one for selecting the drop down. I tried to set the value for the first WebEdit but it shows as Object is disabled.

2. Select values in the table:
I have a table with 3 columns where first column to select the row, secound describes about the row value and third column shows the value applicable for the pirticular user.
Problem is I am not able to select the first column I tried in the following way:
a) Select the child objects of the table and get the RunTime properties.
b) First column values shows as class = WebElement and text = "Selection Area".
c) so I created a Description object by using class = WebElement and text = "Selection Area"
d)Tried to click on the selected webelement.
e)Here from the script it displays as Web Element is clicked but in the application it is not clicking on the web element.

3. Inserting the value to the text box. Probelm is while Inserting the value to the text box it is displaying as Object is disabled(This problem exist only for one text box in the application. I have used the following code for enabling the text box and inserting the value as follows:

Code:

Browser("V").Page("V").SAPFrame("V").WebEdit("t").Object.disabled = False Browser("Vedlikehold tidsdata -").Page("Vedlikehold tidsdata").SAPFrame("Vedlikehold tidsdata").WebEdit("txtLeaveType").Click Browser("V").Page("V").SAPFrame("V").WebEdit("t").Set strLeaveType

But still it is not working.

Please help me on above 3 problems.

[SaranKumarV]

HI ALL ,

Could some one help me on this this Please, I am waiting for the reply...

[Jyobtech]

Hi SaranKumar,
Please find below code for Click_webElement in Portal ,I used same function for my SAP portal project...............

Code:

Public Function fn_Portal_ClickWebElement_Page(strPageTitle,strWebElementHtmlId_InnerText) '*Variable Declarations Dim objBrowser,objPage,objAllBrowser,objPortal,objWebElement '*Browser Object Set objBrowser = Description.Create objBrowser("micclass").Value = "Browser" '*Get all browsers object Set objAllBrowser = Desktop.ChildObjects(objBrowser) '*Page Object Set objPage = Description.Create objPage("micclass").Value = "Page" objPage("title").Value = strPageTitle '*Portal Object Set objPortal = Description.Create objPortal("micclass").Value = "SAPPortal" '*Web Element Object Set objWebElement = Description.Create objWebElement("micclass").Value = "WebElement" objWebElement("html id").Value = strWebElementHtmlId_InnerText '*Look for the web element and click if it exists If Browser("creationtime:=" & objAllBrowser.Count - 1).Page(objPage).Exist(0) Then If Browser("creationtime:=" & objAllBrowser.Count - 1).Page(objPage).WebElement(objWebElement).Exist(0) Then Browser("creationtime:=" & objAllBrowser.Count - 1).Page(objPage).WebElement(objWebElement).click fn_Portal_ClickWebElement_Page=true Else '*Web Element Object Set objWebElement = Description.Create objWebElement("micclass").Value = "WebElement" objWebElement("innertext").Value = strWebElementHtmlId_InnerText If Browser("creationtime:=" & objAllBrowser.Count - 1).Page(objPage).WebElement(objWebElement).Exist(0) Then Browser("creationtime:=" & objAllBrowser.Count - 1).Page(objPage).WebElement(objWebElement).click fn_Portal_ClickWebElement_Page=true Else fn_Portal_ClickWebElement_Page=false End if End if ElseIf Browser("creationtime:=" & objAllBrowser.Count - 1).SAPPortal(objPortal).Exist(0) Then If Browser("creationtime:=" & objAllBrowser.Count - 1).SAPPortal(objPortal).WebElement(objWebElement).Exist(0) Then Browser("creationtime:=" & objAllBrowser.Count - 1).SAPPortal(objPortal).WebElement(objWebElement).click fn_Portal_ClickWebElement_Page=true Else '*Web Element Object Set objWebElement = Description.Create objWebElement("micclass").Value = "WebElement" objWebElement("innertext").Value = strWebElementHtmlId_InnerText If Browser("creationtime:=" & objAllBrowser.Count - 1).SAPPortal(objPortal).WebElement(objWebElement).Exist(0) Then Browser("creationtime:=" & objAllBrowser.Count - 1).SAPPortal(objPortal).WebElement(objWebElement).click fn_Portal_ClickWebElement_Page=true Else fn_Portal_ClickWebElement_Page=false End if End if Else fn_Portal_ClickWebElement_Page=false End if '*Releasing variables Set objBrowser=Nothing Set objPage=Nothing Set objAllBrowser=Nothing Set objPortal=Nothing Set objWebElement=Nothing End Function