Hi,
While I am running script by replacing your code with "Wait" command, it skip execution of entire "Scheduler" module and start executing next "Patient search"..
Below is the script...
-----------------
------------
Pleaes help me...
While I am running script by replacing your code with "Wait" command, it skip execution of entire "Scheduler" module and start executing next "Patient search"..
Below is the script...
-----------------
Code:
URL = Datatable.Value("URL",Global)
User_name = Datatable.Value("User_name",Global)
Password = Datatable.Value("Password",Global)
Users = Datatable.Value("Users",Global)
systemutil.Run "iexplore",URL
Wait (5)
Browser("InSync :: Login").Page("InSync :: Login").WebEdit("txtUsername").Set User_name
Browser("InSync :: Login").Page("InSync :: Login").WebEdit("txtPassword").Set Password
Browser("InSync :: Login").Page("InSync :: Login").WebButton("Login").Click
Wait (5)
Browser("InSync :: Login").Page("InSync :: Login_2").WebList("ddlUsers").Select Users
Wait (8)
'Select Facility
If Browser("InSync :: Login").Page("InSync :: Login_2").WebButton("Ok").Exist Then
Browser("InSync :: Login").Page("InSync :: Login_2").WebButton("Ok").Click
Wait (4)
End If
Wait (20)
'Access Scheduler
Browser("InSync :: Login").Page("InSync :: Dash Board").Image("ctl00$Header1$Image2").Click
'code to replace wait
[color=#FF0000]blnImg=Browser("InSync :: Login").Page("InSync :: Dash Board").Image("ctl00$Header1$Image2").Exist
count=1
While Not blnImg
Wait (1)
blnImg=Browser("InSync :: Login").Page("InSync :: Dash Board").Image("ctl00$Header1$Image2").Exist
count=count+1
If count=50 then
blnImg=True
End if
Wend [/color]
'End of code to replace wait
'Browser("InSync :: Login").Page("InSync :: Visit Scheduler").Sync
'Wait (50)
'Access Patient Search
Browser("InSync :: Login").Page("InSync :: Dash Board").Image("ctl00$Header1$Image3").Click
Browser("InSync :: Login").Page("InSync :: Patient Search").Sync
Wait(25)
Browser("InSync :: Login").ClosePleaes help me...

