UFT IS NOT ABLE TO FIND THE RUNTIMEOBJECT(myo) IN FOR LOOP FOR THE SECOND ITERATION

[lakshmi29]

Please find the program and attachment
Option explicit 'mandatory to declare a variable before using it

Code:

'declaration of variables Dim vhvalue,virate,vpmi,vprincipal,vtax,vterm,i,j Dim vurl,vapp1,vapp2,xpath,xsheet Dim vpayment1,vpayment2,myo ' fixed variable assignment (paths)used vurl="C:\Program Files (x86)\Internet Explorer\iexplore.exe" vapp1="www.mortgagecalculator.org/" vapp2="http://www.mortgagecalculatorplus.com/" xpath="E:/QTP_PRACTICE/MORTAGAGEXL.xlsx" xsheet="MORTAGAGEINPUT" 'loop to repeat the test with different sets of input values For i = 2 To 7 j=1 virate= myxl_read(xpath,xsheet,i,1) vpmi=myxl_read(xpath,xsheet,i,2) vtax=myxl_read(xpath,xsheet,i,3) vterm=myxl_read(xpath,xsheet,i,4) vprincipal=myxl_read(xpath,xsheet,i,5) vpayment1=app1() vpayment2=app2() print "result for the iteration" & j & "is" & cmp_fun(vpayment1,vpayment2) Next Function app1() 'launches browser and opens the app1 systemutil.Run vurl , vapp1 'Sets the input values into the app1 browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("irate").Set virate browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("pmi").Set vpmi browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("tax").Set vtax browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("term").Set vterm browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("principal").Set vprincipal 'Calculating the result browser("Mortgage Calculator").Page("Mortgage Calculator").WebButton("Calculate").Click 'Capturing the result Set myo=description.Create() myo("htmltag").value="H3" myo("index").value="1" **************************************************** app1=browser("Mortgage Calculator").Page("Mortgage Calculator").WebElement("myo").GetROProperty("innertext" ***************************************************** print "result of app1" &app1 'Close the mortagage calculator app1 browser("Mortgage Calculator").Close End Function wait 3 Function app2() 'launches browser and opens the app2 systemutil.Run vurl , vapp2 'Sets the input values into the app2 browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("irate").Set virate browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("pmi").Set vpmi browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("tax").Set vtax browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("term").Set vterm browser("Mortgage Calculator").Page("Mortgage Calculator").WebEdit("principal").Set vprincipal 'Calculating the result browser("Mortgage Calculator").Page("Mortgage Calculator").WebButton("Calculate").Click 'Capturing the result of app2 myo("htmltag").value="H3" myo("index").value="0" ************************************************** app2=browser("Mortgage Calculator1").Page("Mortgage Calculator").WebElement("myo").GetROProperty("innertext") ************************************************** print "result of app2" &app2 'Closing the browser of app2 browser("Mortgage Calculator1").Close End Function 'Compareing the result of two applications Function cmp_fun(val1,val2) If val1=val2 Then cmp_fun= "pass" else cmp_fun="fail" End If End Function Function myxl_read(xpath,xsheet,xrow,xcol) Dim myxlapp,myxlsheet set myxlapp=createobject("Excel.application") myxlapp.Workbooks.Open(xpath) set myxlsheet= myxlapp.ActiveWorkbook.Worksheets(xsheet) myxl_read=myxlsheet.cells(xrow,xcol) myxlapp.ActiveWorkbook.Close myxlapp.Application.Quit End Function