Announcement

Collapse
No announcement yet.

Tccal is Awesome

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • How would one set up an event for every third Monday? I have tried to set this up but it never comes out on the correct date.

    Thanks
    Don

    Comment


    • Hi Don,
      Right now, the events are created starting from the current date. Do you think it would make more sense to start from the first day of the month?

      Comment


      • Hi Tom:

        If you are trying to do what I'm doing, I'd say yes.

        Really nice work, by the way.


        Originally posted by Tom Caldwell View Post
        Hi Don,
        Right now, the events are created starting from the current date. Do you think it would make more sense to start from the first day of the month?
        Don

        Comment


        • Here's an update

          I updated the zip in the original post here.
          http://board.homeseer.com/showthread...838#post726838

          I'm sorry this took so long. I added a couple of options. You can do recurring events the old way or from the first of the month now. Like every 3rd monday of month, etc. Also last monday,friday,etc of month, that kind of thing. I added an option to enter a script name to run with homeseer events.

          There is a script included in the folder that you can move to homeseer's scripts folder if you just want to use the calendar events alone. in other words no need to use the hs event for voice reminders. The script can be triggered manually or in a morning event to read the current days appointments. Or with voice commands that you can ask for specific days appointments in the current week. Such as "Check my appointments for Monday".

          Comment


          • Events disappeared

            Tom,
            All my events disappeared when the year rolled over. I can see them in calendar, but the speaking events in HS (and the whole group) are gone.
            I had birthdays and other reminders set for 5 -10 years ahead. What can I do now?
            Marty
            A Person is Smart. People are Dumb, Panicky Dangerous Animals.
            1,500 years ago, everybody knew that the Earth was the center of the universe.
            500 years ago, everybody knew that the Earth was flat.
            15 minutes ago, you knew that humans were alone on this planet.
            Imagine what you’ll know tomorrow.
            TLJ in MIB

            Comment


            • I would like to know if this plug is still funtional and how good is it?
              Hector
              ____________________________________
              Win.2003 OS, HS3
              BLDSC,BLstat,BLRadar,BLRamdom,BLOccupied
              BLups,BLrain8,HSTouch,Ultrajones Weatherbug,
              MyTrigger,ACRF2,W800,Zwave
              AP800,Honeywell Stat

              Comment


              • I'm not stalking you, I promise! I just am subscribed to this thread, so i noticed your question. i use this, and can show you how it works on my system if you like.
                Plugins:
                BLLogMonitor, BLGarbage, BLBackup, BLOutGoingCalls, BLUps, BLRfid, JvEss, DooMotion, Applied Digital Ocelot, AC RF Processor, UltraMon, PJC AVR 430, UPB, Rain8net, DSC Panel, JRiver Media center, Windows Media Player, SageMediaCenter, SnevlCID, MCSTemperature.

                Comment


                • It will be nice to include a birthday icon, for those days......
                  Hector
                  ____________________________________
                  Win.2003 OS, HS3
                  BLDSC,BLstat,BLRadar,BLRamdom,BLOccupied
                  BLups,BLrain8,HSTouch,Ultrajones Weatherbug,
                  MyTrigger,ACRF2,W800,Zwave
                  AP800,Honeywell Stat

                  Comment


                  • can you have more then one anoucement reminder before the actual day?
                    Hector
                    ____________________________________
                    Win.2003 OS, HS3
                    BLDSC,BLstat,BLRadar,BLRamdom,BLOccupied
                    BLups,BLrain8,HSTouch,Ultrajones Weatherbug,
                    MyTrigger,ACRF2,W800,Zwave
                    AP800,Honeywell Stat

                    Comment


                    • Same pb than evja78 (posted the September 7th, 2006)

                      Hi Tom,
                      Very big job! This is the better calendar that I have found for HS! I hope you still maintain the code...

                      So, I have the same error message than evja78 when I want to create a TCcal event associated with a HS event. I click on 'Create Homeseer Voice Reminder' and I write a script name. When I click on 'add event' I have this error message below:
                      Code:
                      Script error: Indice en dehors de la plage: '[number: 2]'
                      
                      
                        'checks if changes submitted
                        action = Request.QueryString.Item("action")
                        If action = "dbaddrecord" then
                           DBAddRecord
                        End If
                      
                        if (ucase(Request.ServerVariables("AUTH_USER"))) = (ucase("guest")) then
                          response.redirect "accessdenied.asp"
                        End If
                        
                        js = "<SCRIPT language=JAVASCRIPT>" & vbNewLine  js = js & "function goValidate(){" & vbNewLine  js = js & "if (Date.parse(document.all.adminform.colCal_EventDate.value) == """") {" & vbNewLine  js = js & "alert(""Your must enter an EVENT DATE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "document.all.adminform.colCal_EventDate.focus();" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventTitle.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT TITLE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventBody.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT DESCRIPTION"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == """") {" & vbNewLine  js = js & "StartTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventStartTime.value" & vbNewLine  js = js & "EndTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventEndTime.value" & vbNewLine  js = js & "StartTime = new Date(StartTime)" & vbNewLine  js = js & "EndTime = new Date(EndTime)" & vbNewLine  js = js & "if (Date.parse(StartTime) > Date.parse(EndTime)) {" & vbNewLine  js = js & "alert(""You END TIME cannot be before you START TIME"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "return true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedAllDay(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  'next if statement added to keep starttime enabled if homeseer reminder is checked.  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedcurrent(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedrecurring(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedfirst(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == false) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=true;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == true) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=false;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedremind(){" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == false) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "// -->" & vbNewLine  js = js & "</SCRIPT>" & vbNewLine
                        js = js & "<SCRIPT language="" src="" javascript?? datepicker popcalendar.js?? calendar></SCRIPT>" & vbNewLine
                        js = js & vbNewLine
                        
                        hsHeader = hs.GetPageHeader("Add Event","","",False,False,False,False,False)
                        hsHeader = replace(hsHeader,"","<STYLE>" & vbNewLine & StyleCode & "</STYLE>" & vbNewLine & js & vbNewLine & "")
                      
                        response.write hsheader
                        
                      
                        'checks if changes submitted
                        action = Request.QueryString.Item("action")
                        If action = "dbaddrecord" then
                           DBAddRecord
                        End If
                      
                        if (ucase(Request.ServerVariables("AUTH_USER"))) = (ucase("guest")) then
                          response.redirect "accessdenied.asp"
                        End If
                        
                        js = "<SCRIPT language=JAVASCRIPT>" & vbNewLine  js = js & "function goValidate(){" & vbNewLine  js = js & "if (Date.parse(document.all.adminform.colCal_EventDate.value) == """") {" & vbNewLine  js = js & "alert(""Your must enter an EVENT DATE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "document.all.adminform.colCal_EventDate.focus();" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventTitle.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT TITLE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventBody.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT DESCRIPTION"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == """") {" & vbNewLine  js = js & "StartTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventStartTime.value" & vbNewLine  js = js & "EndTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventEndTime.value" & vbNewLine  js = js & "StartTime = new Date(StartTime)" & vbNewLine  js = js & "EndTime = new Date(EndTime)" & vbNewLine  js = js & "if (Date.parse(StartTime) > Date.parse(EndTime)) {" & vbNewLine  js = js & "alert(""You END TIME cannot be before you START TIME"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "return true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedAllDay(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  'next if statement added to keep starttime enabled if homeseer reminder is checked.  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedcurrent(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedrecurring(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedfirst(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == false) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=true;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == true) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=false;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedremind(){" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == false) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "// -->" & vbNewLine  js = js & "</SCRIPT>" & vbNewLine
                        js = js & "<SCRIPT language="" src="" javascript?? datepicker popcalendar.js?? calendar></SCRIPT>" & vbNewLine
                        js = js & vbNewLine
                        
                        hsHeader = hs.GetPageHeader("Add Event","","",False,False,False,False,False)
                        hsHeader = replace(hsHeader,"","<STYLE>" & vbNewLine & StyleCode & "</STYLE>" & vbNewLine & js & vbNewLine & "")
                      
                        response.write hsheader
                      I have tried to see a bit your code and I don't find pb. I'am running a HS pro version 2.3 on a french windows XP. I have the same pb if I change the date format (US to EUR) or if I change the time format.

                      Have you an idea?
                      Thanks for your reply.
                      Bgrds.
                      SD

                      Comment


                      • OK . I have found what was wrong .
                        The script call the CreateRemindEvent(hsdate) function (localized in calinc.asp) to create a homeseer event. In this function, there is a date split:
                        Code:
                        'split datetime into date and time
                             arrstring = Split(hsDateStart," ")
                          response.write "compteSplit:" &  ubound(arrstring)+1 & "<BR>"
                             hsdate = Trim(arrstring(0))
                             hstime = trim(arrstring(1)) & " " & trim(arrstring(2))
                        My error was in arrstring(2) which doesn' t exit. I have write a msgbox on ubound(arrstring) and the result was 1 (0et1).
                        A problem with the "PM" string which doesn't appear (may be because of french...)
                        After a cote in front of " " & trim(arrstring(2)) all my problems are disappeared.

                        Tom, your dev is excellent . I can choose to launch a script file or write a script directly (ex: &hs.execx10 ....).

                        A big big thanks for your work.
                        SD

                        Comment

                        Working...
                        X