Histórico da Página

 #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