Micro Focus QTP (UFT) Forums
If within select statement - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: If within select statement (/Thread-If-within-select-statement)

If within select statement - swetha.b - 12-10-2009

Hi all here is my requirement:
Mainly two parameters(list boxes) involved 1)Preferred Phone and 2)Preferred communication.
Preferred phone has : Home Phone,Mobile and Work Phone
Preferred comm has : Phone, Email and Fax

Myrequirement: When preferred comm is set as 'Phone' then depending on the 'preferred phone' selection, data is set in the respective fields. Example: When preferred comm is 'phone' and preferred phone is 'Mobile' then set the mobile number in the mobile field.

My code here describes if statement with in select statement.. can I define so? as I see if statements arent working. Please suggest!!!!

Code:
PrefPhone = inputbox("Enter Preferred Phone")
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebList("Preferred Phone").Select PrefPhone
PrefCom = inputbox("Enter PreferredComm")
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebList("preferred contact").Select PrefCom
pref_com = Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebList("preferred contact").GetROProperty("selection")

Select Case pref_com
Case "Email"
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebEdit("ctl00$ContentPlaceHolder1$txtE").Set "swetha.b@osmosys.asia"
Case "Phone"
If PrefCom = "Home Phone" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_4").WebEdit("ctl00$ContentPlaceHolder1$txtH").Set "(998)876-4534"
elseif PrefCom = "Mobile" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_5").WebEdit("ctl00$ContentPlaceHolder1$txtM").Set "(987)876-2345"
else
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebEdit("ctl00$ContentPlaceHolder1$txtWorkPhone").Set ("(987)765-7654)")
    End If
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebEdit("ctl00_ContentPlaceHolder1_txtWorkPhone").Set ("(987)765-7654)")
Case "Fax"
Browser("TalonPro Solutions").Page("TalonPro Solutions_5").WebEdit("ctl00$ContentPlaceHolder1$txtF").Set "(987)564-3452"
End Select


RE: If within select statement - Saket - 12-10-2009

Yes you can use the if statement in that way, also I dont see any problem with your code, are you getting any error?

Please paste properly formatted code. use tags, this helps to go through the code easily.

RE: If within select statement - nil - 12-10-2009

hi Swethaaaaaaa,

See you code below for Case phone

Code:
Case "Phone"
If PrefCom = "Home Phone" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_4").WebEdit("ctl00$ContentPlaceHolder1$txtH").Set "(998)876-4534"
elseif PrefCom = "Mobile" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_5").WebEdit("ctl00$ContentPlaceHolder1$txtM").Set "(987)876-2345"
else
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebEdit("ctl00$ContentPlaceHolder1$txtWorkPhone").Set ("(987)765-7654)")
End If
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebEdit("ctl00_ContentPlaceHolder1_txtWorkPhone").Set ("(987)765-7654)")


After End if you have work phone selected.
Remove that and Try


Thanks

Try this code

Code:
Case "Phone"
If PrefCom = "Home Phone" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_4").WebEdit("ctl00$ContentPlaceHolder1$txtH").Set "(998)876-4534"
elseif PrefCom = "Mobile" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_5").WebEdit("ctl00$ContentPlaceHolder1$txtM").Set "(987)876-2345"
elseif PrefCom = "WorkPhone"
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebEdit("ctl00$ContentPlaceHolder1$txtWorkPhone").Set ("(987)765-7654)")
End If


RE: If within select statement - Saket - 12-10-2009

@Nilesh - even though the statement is there it should not cause any issue. isn't it?

also always paste the formatted code using proper tags and do take care while pressing your 'a' key.

RE: If within select statement - nil - 12-10-2009

New code forgot to add Then in code , you can try this

Code:
Case "Phone"
If PrefCom = "Home Phone" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_4").WebEdit("ctl00$ContentPlaceHolder1$txtH").Set "(998)876-4534"
elseif PrefCom = "Mobile" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_5").WebEdit("ctl00$ContentPlaceHolder1$txtM").Set "(987)876-2345"
elseif PrefCom = "WorkPhone" Then
Browser("TalonPro Solutions").Page("TalonPro Solutions_3").WebEdit("ctl00$ContentPlaceHolder1$txtWorkPhone").Set ("(987)765-7654)")
End If