Hello! i am having two comboboxes.Each having 10 items in
it.when i select first item in first combobox,it is not
similar in the second combobox.for ex in first combo if it
is Hyderabad,in second it should be some chenai or some
other item .Write a VBSCRIPT for that?
Answers were Sorted based on User's Feedback
suppose in our flight reservation window "Fly from"
and "Fly To" comboboxes values should not be same.ok.
In taht situation below code will give all fail status
because Our flight reservation window has both values same
Just understand the code and implement it on ur application
SystemUtil.Run "C:\Program Files\Mercury
Interactive\QuickTest
Professional\samples\flight\app\flight4a.exe","","C:\Program
Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "rayudu"
Dialog("Login").WinEdit
("Password:").SetSecure "49192ea21d0ec541ad12119e494c01ba2bb
d510b"
Dialog("Login").WinButton("OK").Click
a=window("Flight Reservation").WinComboBox("Fly
From:").GetROProperty("items count")
b=window("Flight Reservation").WinComboBox("Fly
From:").GetROProperty("all items")
a1=window("Flight Reservation").WinComboBox("Fly
To:").GetROProperty("items count")
b1=window("Flight Reservation").WinComboBox("Fly
To:").GetROProperty("all items")
spl=split(b,vblf)
spl1=split(b1,vblf)
For i=0 to a-1
val=spl(i)
msgbox val
val1=spl1(i)
msgbox val1
If val=val1 Then
reporter.ReportEvent micFail,"Step1","Test case is
fail"
Else
reporter.ReportEvent micPass,"Step1","Test case is
pass"
End If
Next
| Is This Answer Correct ? | 7 Yes | 1 No |
Answer / ravikumar
Lets take Combo1 & Combo2
If u r selecting < Item1 > from Combo1 the same item1
should not be present in the Combo2 right..
if it is the case
step1) select Item1 from Combo1
Step2) write a function to validate the given item i.e
passed as perameter(Item1)by getting the innertext of the
Combo2 and use Instr function to find Item1 is there in the
inner text..if no Pass...If yes Fail.........
if the case is
the item selected in the combo2 should not be <item1>
then
get the selected item from the Combo2
strcomp("selected item","item1")
if yes fail
if no pass.
| Is This Answer Correct ? | 3 Yes | 2 No |
Answer / bfakruddin
We can do this in two ways...
1. Get all items from two combo boxes and store in two
separate arrays or in DataTable... "Your convenient process"
2. Validate one after the other dynamically in Loop...
I will keep one way here which I feel Logically better
2.
dim exp,act,cmb_1,cmb_2
cmb_1_cnt=browser("...").page("....").weblist
("...").getitemcount
for i=1 to cmb_1_cnt
exp=browser("...").page("...").weblist("...").getitem(i)
call cmb_2_Func()
reporter.reportevent micPass,"Test is Passed","Two
comboBoxes contain Different Items"
Next
Function cmb_2_Func()
cmb_2_cnt=browser("...").page("...").weblist
("...").getitemcount
for i=1 to cmb_2_cnt
act=browser("...").page("...").weblist("...").getitem
if (act=exp) then
reporter.reportevent micFail,"Test is Failed","Two
ComboBoxes contain Same Item"
End For
End if
Next
End Function
| Is This Answer Correct ? | 0 Yes | 2 No |
How to make "TEST Batches" in manual testing . How it is possible plz explin in detail?
Few basic questions on commonly used Excel VBA functions.
What is the file extension of the code file in qtp?
Plz explain about Virtual object? What is the situation u r using , explain with example?
What is the extention of Virtualobject
Can we do Load Teting with QTP?
Which version of QTP is using by companies nowadays?
When I used random numbers(1 to 9) with regular expression and run the test, it runs only 5 iterations with passed result instead of running all 1 to 9. Please tell me what can be the reason
What is qtp window?
What is the difference between driver-script and AOM-script?
datatable.Import("E:\Programming Samples\QTP Samples\OrderNumbers.xls") Asume we have 4 records in datatable Code reads the 4 rows in the sheet ok, but does it 5 times? It doesn't sound like closing the datasheet is the problem Can we close the datasheet runtime ?
To which environments does quicktest professional supports?