Micro Focus QTP (UFT) Forums
[Siebel QTP Automation] Unable to automate SiebCalendar object - 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 Others (https://www.learnqtp.com/forums/Forum-UFT-QTP-Others)
+--- Thread: [Siebel QTP Automation] Unable to automate SiebCalendar object (/Thread-Siebel-QTP-Automation-Unable-to-automate-SiebCalendar-object)

[Siebel QTP Automation] Unable to automate SiebCalendar object - vishnu_cec - 08-08-2013

Hi,

I am facing an issue while automating a SiebCalendar object :
[attachment=1236]

This is the code I use :

Code:
my_year = Year(Now)
my_month = Month(Now)
my_day = Day(Now)
my_min = Minute(Now) + 1
my_hr = Hour(Now)
my_time = my_hr & my_min & Second(Now)

SiebViewRep.SiebCalendar("repositoryname:=Planned Start").OpenPopup
SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetYear my_year
SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetMonth my_month
SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetDay my_day
SiebViewRep.SiebCalendar("repositoryname:=Planned Start").SetTime my_time                                                                              
SiebViewRep.SiebCalendar("repositoryname:=Planned Start").ClosePopup


But I am unable to set the time part on the calendar.
Any help on this is much appreciated.

Thanks,
Vishnu