Parameterization

[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