Problem with using two functions in the same action

[mhanaan]

hi Guys im new to qtp, i have attached the coding below

The Problem start when Function RegexSelectQTP is false the next iteration starts from this line of code Browser(Dbrowser6).Page(Dpage6).Link(Dlink4).Click, where as it should have started from the beginning of the script and incremented the row count as well, im guessing its something to do with the two functions that i have used here and the way i have used the term next, would really appreciate any help to sort this out...

Code:

Dim xlApp, xlBook, xlSheet
Dim iRow, CINNUMBER, PrpsedCode, CurrentCode
CONST iUserNameCol = 1
CONST iUserNameCol2 = 2
CONST iUserNameCol3 = 3
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open("C:\Users\99016790\Desktop\RM Markers.XLSX")
Set xlSheet = xlBook.WorkSheets("RM")
For iRow = 2 to xlSheet.UsedRange.Rows.Count
CINNUMBER = xlSheet.Rows(iRow).Columns(iUserNameCol).Value
PrpsedCode = xlSheet.Rows(iRow).Columns(iUserNameCol2).Value
CurrentCode = xlSheet.Rows(iRow).Columns(iUserNameCol3).Value
Set  Dwindow=description.Create
Dwindow("micclass").value="Window"
Dwindow("windowstyle").value="382664704"
Set  Dbrowser=description.Create
Dbrowser("micclass").value="Browser"
Dbrowser("openurl").value="about:blank"
Set  Dbrowser1=description.Create
Dbrowser1("micclass").value="Browser"
Dbrowser1("name").value="Relationship management"
Set  Dpage=description.Create
Dpage("micclass").value="page"
Dpage("name").value="BAPEU"
Set  Dpage1=description.Create
Dpage1("micclass").value="page"
Dpage1("title").value="Relationship management"
Set  Dlink=description.Create
Dlink("micclass").value="Link"
Dlink("html id").value="menuItem_37"
Set  Dlink2=description.Create
Dlink2("micclass").value="Link"
Dlink2("html id").value="menuItem_82"
Set  Dlink3=description.Create
Dlink3("micclass").value="Link"
Dlink3("name").value="Continue"

Set  Dwebedit=description.Create
Dwebedit("micclass").value="WebEdit"
Dwebedit("html id").value="klcKeyLocateSearchPage.klcProductNo"

Window(Dwindow).Activate
Browser(Dbrowser).Page(Dpage).Link(Dlink).Click
Browser(Dbrowser).Page(Dpage).Link(Dlink2).Click
         Browser(Dbrowser1).Page(Dpage1).WebEdit(Dwebedit).Set CINNUMBER
         Browser(Dbrowser1).Page(Dpage1).Link(Dlink3).Click
        
Set  Dbrowser6=description.Create
Dbrowser6("micclass").value="Browser"
Dbrowser6("width").value="644"

Set  Dpage6=description.Create
Dpage6("micclass").value="Page"
Dpage6("width").value="644"

Set  DwebList6=description.Create
DwebList6("micclass").value="WebList"
DwebList6("html id").value="sSelectedPortFolioDetails"

Browser(Dbrowser6).sync
typ1 = CurrentCode & ".*"

RegisterUserFunc "WebList", "RegexSelectQTP", "RegexSelectQTP"
Browser(Dbrowser6).Page(Dpage6).WebList(DwebList6).RegexSelectQTP (typ1)

Set  Dlink4=description.Create
Dlink4("micclass").value="Link"
Dlink4("name").value="Change manager"

Set  Dwebedit1=description.Create
Dwebedit1("micclass").value="WebEdit"
Dwebedit1("name").value="PSL001DisplayKC.PortfolioId"

Browser(Dbrowser6).Page(Dpage6).Link(Dlink4).Click
Browser(Dbrowser6).Sync
Browser(Dbrowser6).Page(Dpage6).WebEdit(Dwebedit1).Set PrpsedCode

wait(01)
Var = Window("foreGround:=True").GetROProperty("hwnd")
Set  Dwindow1=description.Create
Dwindow1("micclass").value=("Window")
Dwindow1("hwnd").value=Var

Window(Dwindow1).Close

Window(Dwindow).Activate
next
Function RegexSelectQTP(Object, sPattern)
                 Dim oRegExp, arrAllItems, ix
                 Set oRegExp = New RegExp
                 oRegExp.IgnoreCase = False
                 oRegExp.Pattern = sPattern
                                  arrAllItems = Split(Object.GetROProperty("all items"), ";")
                 For ix = LBound(arrAllItems) To UBound(arrAllItems)
                                  If oRegExp.Test(arrAllItems(ix)) Then
                                                   Object.Select "#" &amp & ix
                                                   Set oRegExp = Nothing  
                                                   Exit Function
                                  End If
                 Next
                
Var = Window("foreGround:=True").GetROProperty("hwnd")
Set  Dwindow1=description.Create
Dwindow1("micclass").value=("Window")
Dwindow1("hwnd").value=Var
Window(Dwindow1).Activate
wait 0,100
Set Keyboard = DotNetFactory.CreateInstance( "Microsoft.VisualBasic.Devices.Keyboard", "Microsoft.VisualBasic" )
Call Keyboard.SendKeys( "^a", True )
Call Keyboard.SendKeys( "^c", True )
Set  Dwindow2=description.Create
Dwindow2("micclass").value=("Window")
Dwindow2("text").value="Closed Account - Notepad"
Window(Dwindow2).Activate
Call Keyboard.SendKeys( "^v", True )
wait (1)
Call Keyboard.SendKeys( "~", True )
Call Keyboard.SendKeys( "~", True )
Window(Dwindow1).Activate
Window(Dwindow1).Close
Window(Dwindow).Activate
End Function
Set xlSheet = Nothing
Set xlSheet = Nothing
Set xlApp = Nothing

[Ankesh]

Use ExitActionIteration to exit the iteration and start with the second iteration.

[mhanaan]

thanks ankesh i tried what you said and i included the ExitActionIteration statement the way i have mentioned below, but now when the second function is false the script just stop, what i want it do is continue with the next CINNUMBER from the excel list... hope you can help with this

Code:

Var = Window("foreGround:=True").GetROProperty("hwnd")
Set  Dwindow1=description.Create
Dwindow1("micclass").value=("Window")
Dwindow1("hwnd").value=Var
Window(Dwindow1).Activate
wait 0,100
Set Keyboard = DotNetFactory.CreateInstance( "Microsoft.VisualBasic.Devices.Keyboard", "Microsoft.VisualBasic" )
Call Keyboard.SendKeys( "^a", True )
Call Keyboard.SendKeys( "^c", True )
Set  Dwindow2=description.Create
Dwindow2("micclass").value=("Window")
Dwindow2("text").value="Closed Account - Notepad"
Window(Dwindow2).Activate
Call Keyboard.SendKeys( "^v", True )
wait (1)
Call Keyboard.SendKeys( "~", True )
Call Keyboard.SendKeys( "~", True )
Window(Dwindow1).Activate
Window(Dwindow1).Close
Window(Dwindow).Activate
End Function
ExitActionIteration