FiveTech Support Forums

#include "FiveWin.ch"
function Main()  
   local oWnd, oAct

   DEFINE WINDOW oWnd
     oAct := TActiveX():New( oWnd, "Codejock.CalendarControl.13.0.0", 10, 0, 1000, 550 )   
   ACTIVATE WINDOW oWnd

return nil

//start the calendar object
oAct := TActiveX():New( oWnd, "Codejock.CalendarControl.13.0.0", 100, 0, 1000, 550 )   


//Use XML as the data provider
oAct:SetDataProvider:="Provider=XML;Data Source=\YourPath\Events.xml"

//Create a blank data provider using info from above
//(no need to OPEN it after a create)
oAct:DataProvider:Create()

//If data provider is already created you can just open it
oAct:DataProvider:Open()

//Set the time scale in day view
oAct:DayView:Timescale := 30

//show a specific date when starting
oAct:ActiveView:ShowDay:= Date()

//Set the view (in this case the "day" view
oAct:ViewType:=xtpCalendarDayView

//Set the normal working hours (show up in different color)
oAct:Options:WorkDayStartTime("8:00:00 AM")
oAct:Options:WorkDayEndTime("8:00:00 PM")

//Scroll the time to "WorkDayStartTime"
oAct:DayView:ScrollToWorkDayBegin()

//Set the week view to "work week" (5 days) instead of a 7 day week
oAct:ViewType:= xtpCalendarWorkWeekView

//Set the theme
oAct:VisualTheme:=xtpCalendarThemeOffice2007

//Show/Hide the time line button
oAct:ShowTimelineButton:=  .f.

//Set/Hide Caption Bar
oAct:ShowCaptionBar:= .t.

//Show/Hide the date scroll buttons
oAct:ShowCaptionBarScrollDateButtons:= .t.

//create the object
::oCalex := tActiveX():New( ::oPanelCalex, "Codejock.CalendarControl.13.4.2" )

//set some properties
with object ::oCalex
    
    :VisualTheme( xtpCalendarThemeOffice2007 )
    :bOnEvent = { | event, aParms | ::xTrmCalTriggeredEvents( Event, aParms ) }
        
    :SetDataProvider( "provider=custom" )
    if !:DataProvider:open()    ;:DataProvider:Create() ;endif
        
    :ShowCaptionBar( .t. )
    :ViewType( xtpCalendarDayView )

    :DayView:ShowLinks( .t. )
    :DayView:TimeScaleMinTime( [8:00:00 AM] )
    :DayView:TimeScaleMaxTime( [6:00:00 PM] )
    :DayView:TimeScale( 10 )
    :DayView:ScrollToWorkDayBegin()     //scroll the view to the work day starting time

    :Options:DayViewTimeScaleShowMinutes( .t. )

end

//-----------------------------------------------------------------------------------------------------//
METHOD xTrmCalTriggeredEvents( Event, aParms ) CLASS MpCal

    if valType( Event ) == "C"

        Do Case

        Case Event == "DoRetrieveDayEvents"         
            ::RetrieveDayEvents( aParms )

        case Event == "EventAddedEx"
            ::InsertEvent( aParms[ 1 ] )

        case Event == "EventChangedEx"
            ::UpdateEvent( aParms[ 1 ] )

        case Event == "EventDeletedEx"
            ::DeleteAppnt( aParms[ 1 ] )
            
        End 

    endif
    
Return nil

//-----------------------------------------------------------------------------------------------------//
METHOD InsertEvent( oEvent ) CLASS MpCal
    ::odbf:VarSubject   := oEvent:Subject()
    ::odbf:VarStartTime := oEvent:StartTime()
    ::odbf:VarEndTime   := oEvent:EndTime()
    ::odbf:VarMore_Info := oEvent:Body()
    
    ::odbf:Append()
    ::odbf:Save() 

    //fill in a custom property on this entry to link to unique key on dbf.  Field Guid is auto-field using 
    //an On-Insert trigger on the dbf and it defaults to a global unique string used as primary key.
    oEvent:CustomProperties:Property( "guid", ::odbf:Guid )

    //every time a new appointment is added on the calendar control
    //expand appntmnt details with a custom form for tel, med rec, email...
    ::EventDetails( oEvent )
        
Return oEvent

//-----------------------------------------------------------------------------------------------------//
//using SQL is less writing, but the same can be done with ISAM.
METHOD UpdateEvent( oEvent ) CLASS MpCal
local cSql := "Update appntmnts set Subject = '" + oEvent:Subject() + "', " +;
                "StartTime = Convert( '" + TtoC( oEvent:StartTime() ) + "', SQL_TIMESTAMP ), " +;
                "EndTime = Convert( '" + TtoC( oEvent:EndTime() ) + "', SQL_TIMESTAMP ), " +;
                "More_Info = '" + oEvent:Body() + "' " + ;
                "Where guid = '" + oEvent:CustomProperties:Property( "Guid" ) + "'"
                    
                
    ExecuteSqlScript( cSql, .f. )
    ::EventDetails( oEvent )

return oEvent

//-----------------------------------------------------------------------------------------------------//
METHOD DeleteAppnt( oEvent ) CLASS MpCal
local cSql := "Delete from appntmnts " + ;
        "Where guid = '" + oEvent:CustomProperties:Property( "Guid" ) + "'"
                    
                
    ExecuteSqlScript( cSql, .f. )

return oEvent

//-----------------------------------------------------------------------------------------------------//
//CodeJock ExtremeCalender control calls this function sending a DT parameter and 
//the container property that contains all the day entries.  The function should fill in 
//the container property with all day events (appointments)

METHOD RetrieveDayEvents( aParms ) CLASS MpCal
Local cSql := "Select mrec, Subject, Last_Name, First_Name, StartTime, EndTime, eMail, Tel, GuId, More_Info " + ;
                "from appntmnts where convert( StartTime, SQL_DATE )= '" + Date2SqlString( aParms[ 1 ] ) + "'"
local arec
local aRet := ExecuteSQLScript( cSql, .f. )
local oEvents := aParms[ 2 ] 
local oEvent
    
    for each arec in aret

        oEvent := ::oCalex:DataProvider:CreateEvent()

        With Object oEvent
            :Subject( aRec[ 2 ] ) //TokenUpper( trim( aRec[ 3 ] ) + " " + trim( arec[ 4 ] ) ) )
            :StartTime( aRec[ 5 ] )
            :EndTime( aRec[ 6 ] )
            :body( arec[ 10 ] )
            
            :CustomProperties:Property( "MRec", alltrim( aRec[ 1 ] ) )
            :CustomProperties:Property( "Guid", aRec[ 9 ] )
            :CustomProperties:Property( "Tel", aRec[ 8 ] )
            :CustomProperties:Property( "eMail", aRec[ 7 ] )
            
        End
        
        oEvents:add( oEvent )

    next 
    
Retur Nil