Cria um objeto de evento de Calendário. Esta é uma classe de apoio para as funções de calendário da classe TMobile (addCalendarEvent, findCalendarEvent, getCalendarEvent e viewCalendarEvent).
#include "TOTVS.CH"
User Function TCalEv()
aCalend := TCalendarEvent():New("titulo","descricao","rua teste",Date()+15,"06:00:00",Date()+15,"07:00:00",.T.)
cvartoshow := 'Title - ' + aCalend:ctitle + CRLF
cvartoshow += 'Description - ' + aCalend:cdescription + CRLF
cvartoshow += 'Location - ' + aCalend:clocation + CRLF
cvartoshow += 'DStart - ' + cvaltochar(aCalend:dStartDate) + CRLF
cvartoshow += 'DEnd - ' + cvaltochar(aCalend:dEndDate) + CRLF
cvartoshow += 'HStart - ' + aCalend:cStartTime + CRLF
cvartoshow += 'HEnd - ' + aCalend:cEndTime + CRLF
cvartoshow += 'allDay - ' + cvaltochar(aCalend:bAllDay) + CRLF
msginfo(cvartoshow)
Return
