Parameterization

[vijayendra.shukla]

Hi,

I have written the below code to do some hands-on for parameterization:

Code:

DataTable.ImportSheet "C:\Documents and Settings\a8vs9\Desktop\Vijayendra\Data_Transfer_QTP.xls", "Sheet1", "Global" If DataTable.GlobalSheet.GetCurrentRow = 1 Then SystemUtil.Run "IEXPLORE.exe", "http://www.google.com" End If iValue = DataTable.Value("LN_NBR", dtGlobalSheet) With Browser("title:=Google", "index:=0").Page("title:=Google", "index:=0") .WebEdit("name:=q").Set DataTable("LN_NBR") .WebEdit("name:=q").Submit End with If Browser("title:=" & iValue & " - Google Search", "index:=0").Exist(10) Then Reporter.ReportEvent micPass, "Iteration " & DataTable.GlobalSheet.GetCurrentRow, "This iteration " & DataTable.GlobalSheet.GetCurrentRow & " is ok." ' Browser("title:=" & iValue & " - Google Search").Back Browser("title:=" & iValue & " - Google Search").Navigate "http://www.google.com" End If

From the Settings, I have changed the option in the Run tab to "Run on all rows", but still this block of code gets executed only once.

There are 20 values getting imported from the external file. I thought QTP automatically takes up the next row value and runs all the iterations. Please help me.

Thanks,
Vijayendra.

[chanda Hemke]

Make sure that in the keyword view of ur Test , right click Action 1 or whtever is ur action name--> select action call propertis -->run on all rows is selected...

[vijayendra.shukla]

That solved my problem. Thank you for your help.

[vijayendra.shukla]

I did some tweaking with the code. Now what i have done is added two new parameters to the "Action1" (Local Sheet). Now based upon the If-Else logic, I am writing the output to the local sheet parameters.

Now, when i do this, script is not running on all rows. Once again it exits after the first iteration.

What should I do now?

Here is the code:

Code:

DataTable.ImportSheet "C:\Documents and Settings\a8vs9\Desktop\Vijayendra\Data_Transfer_QTP.xls", "Sheet1", "Global" DataTable.LocalSheet.AddParameter "Status", "1" DataTable.LocalSheet.AddParameter "Non_Status", "1" 'For i = 1 To iRows If DataTable.GlobalSheet.GetCurrentRow = 1 Then SystemUtil.Run "IEXPLORE.exe", "http://www.google.com" Wait(5) End If iValue = DataTable.Value("LN_NBR", dtGlobalSheet) With Browser("title:=Google", "index:=0").Page("title:=Google", "index:=0") .WebEdit("name:=q").Set DataTable("LN_NBR") .WebEdit("name:=q").Submit End with Wait(1) If Browser("title:=" & iValue & " - Google Search", "index:=0").Exist(3) Then Reporter.ReportEvent micPass, "Iteration " & DataTable.GlobalSheet.GetCurrentRow, "This iteration " & DataTable.GlobalSheet.GetCurrentRow & " is ok." If (DataTable.GlobalSheet.GetCurrentRow) Mod 2 <> 0 Then DataTable.Value("Status", dtLocalSheet) = iValue - 1 Else DataTable.Value("Non_Status", dtLocalSheet) = iValue - 10 End If DataTable.GetSheet(dtGlobalSheet).Activate ' Browser("title:=" & iValue & " - Google Search").Back Browser("title:=" & iValue & " - Google Search").Navigate "http://www.google.com" Wait(1) End If DataTable.GetSheet(dtGlobalSheet).SetNextRow 'Next Browser("title:=Google", "index:=0").Close DataTable.ExportSheet "C:\Documents and Settings\a8vs9\Desktop\Vijayendra\Data_Transfer_QTP.xls", 2

[vijayendra.shukla]

Anybody??? Any idea on this???