TESTEVERYTHING

Wednesday 27 July 2011

VB Get All Web page text ( Including All Webelement )

Hi All,
Some Time we have to check that particular text is present on page or not during automation. If we get the page outer HTML in QTP we can not  get the whole text of all element like frame , webtable . div.etc…
So i created a function which will  check that the given text is present on page or not If Text present on page it will return True else False
REM  ——-   Set page object     ———-
set objpage = Browser(“BrowserName”).Page(“Pagename”)
msgbox   VerifyTextPresentOnPage(objpage ,”rajiv” )
Function VerifyTextPresentOnPage(byval objpage , byval Textvalue )
On error resume next

Saturday 23 July 2011

Get Column Names of WebTable using QTP

REM  Get Column names from webtable


Select Date ConfirmationNumber    User Name Organization Name


17-SEP-2008

      13761


        SMITH'S LP SUPPLY CO. 

Here first row of table is considered as column so using getcelldata method for first row of web table
 For clmNo =1 to mGetColumnCount
    msgbox   Browser("XYZ").Page("OBC").WebTable("Request Summary").GetCellData(1,clmNo)
 Next

Select the row in WEBTABLE/WEBGRID using QTP/DOM

Hi All,

I found that most of time while working with WEBTABLE we need to the select the row based on some criteria by clicking checkbox or radiobutton.For that first we have to find the row which we have to select based on value of that row like text/link inside the row.
Here I am giving an example how to select a row in Webtable by finding the text. Logic I am using here is first i will find the row number from webtable where my searching text is present using GetRowWithCellText method then I will provide the column name/index of webtable where checkbox is present.



In below mentioned example I will select the row where Confirmation Number is "15204"
Let's see




Select Date ConfirmationNumber User Name Organization Name


17-SEP-2008

13761


 SMITH'S LP SUPPLY CO. 


24-OCT-2008

13808


 Micro Motion test1 


30-OCT-2008

13874


 EMERSON PROCESS MANAGEMENT ASIA PACIFIC PTE LTD 


13-JUN-2009

15058


 Spartan Controls Ltd. 


08-AUG-2009

15204


 Emerson Process Management 

REM find the row number  where "15204" text is present using GetRowWithCellText method

GtRowN = Browser("XYZ").Page("OBC").WebTable("Request Summary").GetRowWithCellText("15204")

REM check text find in webtable or not
     If  GtRowN >0 Then
   
          REM  coulmn index  where  checkbox  is present
          Rem here select coulmn name index value is 1
          CoulmnIndex = 1 
         
    REM create the checkbox object  after getting the rownumber and select the row by clicking the checkbox


            set objCheckbox = Browser("XYZ").Page("OBC").WebTable("Request Summary").ChildItem(GtRowN,CoulmnIndex,"WebCheckBox",0)
       
           objCheckbox.set "ON"
       
    else
         msgbox "Did not find the value test fail"
     End If

Which one is right ?

Translate







Tweet