Micro Focus QTP (UFT) Forums
Condition for Checkpoints - 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: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: Condition for Checkpoints (/Thread-Condition-for-Checkpoints)

Condition for Checkpoints - Sudhamshu - 10-06-2009

Hi,
I have written a script to check all the reports in all the applications of my Product.
Code:
Browser("Conrep-Ex-Employees").Page("Conrep-Ex-Employees").Frame("fr1").WebElement("SCODE:").Click
Browser("Conrep-Ex-Employees").Page("Conrep-Ex-Employees").Frame("fr1").WebEdit("txtPageCode").Set DataTable("RpName", dtGlobalSheet)
Browser("Conrep-Ex-Employees").Page("Conrep-Ex-Employees").Frame("fr1").Image("1440_hotOk_16_h_g").Click
Browser("Conrep-Ex-Employees").Page("Conrep-Ex-Employees").Frame("frPage").Link("Quick Links  »").Check (CheckPoint("Quick Links  »_7"))

If on the screen "Quick Links" is there then it has to show the msg as "Pass" otherwise it has to show as "Fail"

How can I execute this?

Thanks in advance

RE: Condition for Checkpoints - Saket - 10-06-2009

You can use 'Exist' to check whether your link is there or not on the screen

try this
Code:
if Browser("Conrep-Ex-Employees").Page("Conrep-Ex-Employees").Frame("frPage").Link("Quick Links »").Exist then
msgbox "Pass"
else
msgbox "Fail"
end if


RE: Condition for Checkpoints - basanth27 - 10-06-2009

Code:
a = Browser("Conrep-Ex-Employees").Page("Conrep-Ex-Employees").Frame("frPage").Link("Quick Links  »").Check (CheckPoint("Quick Links  »_7"))
msgbox a
If a <> 1 Then
  Reporter.ReportEvent micpass, "Quick Links", "QuickLinks are displayed"
Else
  Reporter.reportevent micfail, "Quick Links", "QuickLinks are not Displayed"
End If
Sorry, Please edit If a<>1 to If a<>0

RE: Condition for Checkpoints - Saket - 10-06-2009

Ah!! Sorry Sudhamshu,

I just ignored the checkpoint you used,Please go with Basanth's reply.
May be there could be some specific reson for using checkpoint, but in my opinion we should always opt for the simple solutions Smile

RE: Condition for Checkpoints - Sudhamshu - 10-07-2009

Hi Guys thanks for your reply. I have modified my code and mostly it is working now. As my code is like this

Code:
Browser("Conrep-C2C Consultants").Page("Conrep-C2C Consultants").Frame("fr1").WebEdit("txtPageCode").Set DataTable("Scode", dtGlobalSheet)
Browser("Conrep-C2C Consultants").Page("Conrep-C2C Consultants").Frame("fr1").Image("1440_hotOk_16_h_g").Click
If Browser("Conrep-C2C Consultants").Page("Conrep-C2C Consultants").Frame("frPage").Link("Quick Links  »").Exist then
    msgbox("Report is Configured")
else if Browser("Conrep-by Division_2").Page("Conrep-by Division").Frame("frPage").WebElement("Technical Problem (Critical)!").Exist then
msgbox("Technical Error")
else if Browser("Conrep-C2C Consultants").Page("Conrep-C2C Consultants").Frame("frPage_2").Link("My User Profile").Exist then
msgbox("Target Report is not available.")
else msgbox("Please enter a valid file scode...")
End if
End if
End if
Browser("Conrep-C2C Consultants").Page("Conrep-C2C Consultants").Frame("fr1").Image("Home").FireEvent "onmouseover"
Browser("Conrep-C2C Consultants").Page("Conrep-C2C Consultants").Frame("fr1").Image("Home").Click
wait 5

Actually it has the four conditions.
1. Report should show if Quick Links are there in the screen.
2. Should show the Technical error if it is there in the screen.
3. Should show Target Report is not available if this frame is there in the screen.
4. Should show Please enter a valid file scode... if this frame is there in the screen.

And one more small help please.
Actually it should show only the reports which are fine (First Case) and it should through error msgs for all other scenarios in the final results.

To be specific, to the addition of my logic, how can I get the final result where I can check that which reports are not fine?

Thanks in advance guys.

RE: Condition for Checkpoints - Saket - 10-07-2009

if i am getting your question right, you dont want the messages to pop up, you want the corresponding result to the final qtp result.
to do this you should use 'Reporter.ReportEvent'
e.g
Code:
If Browser("Conrep-C2C Consultants").Page("Conrep-C2C Consultants").Frame("frPage").Link("Quick Links »").Exist then
Reporter.ReportEvent micPass, "Check Quick Links", "Link Exists"
is this what you are looking for?

Note :- always put your codes in proper tags to make it more readable and follow one query per thread.

RE: Condition for Checkpoints - Sudhamshu - 10-08-2009

Thks guys it worked out.