invokeapplication "C:\Program Files\Mercury
Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe"

dialog("Login").WinEdit("Agent Name:").Set "baba"
Dialog("Login").WinEdit("Password:").SetSecure
"489ff6345f83ebb85f1f91f6e86ee1c1f7a8307c"
dialog("Login").WinButton("OK").Click


msgbox now

window("Flight Reservation").WinEdit("Date of Flight:").Set
"09/09/09"

''''''''''''''''''''''''''''                  Fly From     
            '''''''''''''''''''''''''''

expval="London"

i=window("Flight Reservation").WinComboBox("Fly
From:").GetItemsCount
msgbox i

y=window("Flight Reservation").WinComboBox("Fly
From:").GetContent
msgbox y

For j=0 to i-1
    x=window("Flight Reservation").WinComboBox("Fly
From:").GetItem(j)
	datatable.SetCurrentRow(j+1)
	print x
    datatable("Fly_From",1)=window("Flight
Reservation").WinComboBox("Fly From:").GetItem(j)
    If (expval=x) Then
		window("Flight Reservation").WinComboBox("Fly
From:").Select(j)
    End If
Next


'''''''''''''''''''''''''''''''                  Fly To    
                  ''''''''''''''''''''''''''''''
expval1="London"

k=window("Flight Reservation").WinComboBox("Fly
To:").GetItemsCount
msgbox  k 

l=window("Flight Reservation").WinComboBox("Fly To:").GetContent
msgbox l

For m=0 to k-1
	datatable.SetCurrentRow(m+1)
    n=window("Flight Reservation").WinComboBox("Fly
To:").GetItem(m)
	print n
    datatable("Fly_To",1)=Window("Flight
Reservation").WinComboBox("Fly To:").GetItem(m)
    If (exp1=n) Then
		window("Flight Reservation").WinComboBox("Fly To:").Select(m)
		else
		reporter.ReportEvent micPass, "Validation is
correct","London is not matching in Fly To: field"
    End If
Next