Loading recurrents events with cutom dataprovider

Hello,

I use calendar ActiveX with the Windev environment. I store events and patterns in two separated tables and i use a custom provider.
I can create events with recurrence in the database (HyperFile Database). But when i load events from the database into the calendar, recurrents events are loading as multidays events, occurrences seem to be not generated. I try to follow the example code provided with the activex. I have implemented DoRetrieveDayEvents and DoReadRPattern as explained but it does not work as well. I run out of ideas.

Here is a snippet of my code below :

// Initialization of the ActiveX 
// Calendar activeX's name is AX_Active1

AX_ActiveX1>>SetDataProvider("Provider=Custom")

AX_ActiveX1>>DataProvider>>Open()
IF NOT AX_ActiveX1>>DataProvider>>Open() THEN
    AX_ActiveX1>>DataProvider>>Create()
END
ActiveXEvent(CAL_DoRetrieveDayEvents,AX_ActiveX1,"DoRetrieveDayEvents")
ActiveXEvent(CAL_DoReadRPattern,AX_ActiveX1,"DoReadRPattern")
...


// DoRetrieveDayEvents
PROCEDURE CAL_DoRetrieveDayEvents(laDate,pEvents)

sReqSQL is string
dhVdate is DateTime
nVannee, nVmois, nVjour are strings
MaRequete is Data Source

dhVdate         = laDate

nVannee         = Left(dhVdate,4)
nVmois            = Middle(dhVdate,5,2)
nVjour             = Middle(dhVdate,7,2)

sReqSQL         = "SELECT * FROM TBLEvenement WHERE"
sReqSQL         += " (ReccurenceState = 0 OR ReccurenceState = 1) AND "
sReqSQL         += "( LEFT(StartDateTime,4) < " + "'"+  nVannee + "'" 
sReqSQL         += " OR ( Left(StartDateTime,4) = " +  "'" + nVannee + "'"  + " AND "
sReqSQL         += "(MID(StartDateTime,5,2) < " +  "'" + nVmois  + "'" + " OR "
sReqSQL         += "MID(StartDateTime,5,2) = " + "'" + nVmois + "'" + " AND "
sReqSQL         += "MID(StartDateTime,7,2) <= " +  "'" +nVjour + "'" 
sReqSQL         += " ))) AND "
sReqSQL         += "(LEFT(EndDateTime,4) > " +  "'" + nVannee + "'"  
sReqSQL         += " OR ( Left(EndDateTime,4) = " + "'" + nVannee +"'" + " AND "
sReqSQL         += "(MID(EndDateTime,5,2) > " +  "'" + nVmois + "'"  + " OR "
sReqSQL         += "MID(EndDateTime,5,2) = " + "'"+nVmois+ "'"+ " AND "
sReqSQL         += "MID(EndDateTime,7,2) >= " + "'" +nVjour + "'" 
sReqSQL         += " )))"

IF NOT HExecuteSQLQuery(MaRequete,hQueryDefault,sReqSQL) THEN
    Error("Erreur d'initialisation de la requête" + CR+HErrorInfo())
END

pautEvt is object Automation dynamic
HReadFirst(MaRequete)
WHILE NOT HOut(MaRequete)
   
    pautEvt = TRT_CreateEventFromDB(MaRequete,False)
    IF pautEvt <> Null THEN
        pEvents>>Add(pautEvt)
    END
 
    HReadNext(MaRequete)
END
HCancelDeclaration(MaRequete)

//  TRT_CreateEventFromDB
PROCEDURE TRT_CreateEventFromDB(sdSource is Data Source, bRException is boolean)

pautEvt is object Automation dynamic
nEventID is int
dhDateDebut, dhDateFin are DateHeures

nEventID = sdSource.EventID

pautEvt   =  FEN_Principale.AX_ActiveX1>>DataProvider>>createEventEx(nEventID)
pautEvt>>Subject       = sdSource.Subject
pautEvt>>Body           = sdSource.Body
dhDateDebut..Date     = sdSource.StartDateTime
dhDateDebut..Time      = sdSource.StartTime
dhDateFin..Date           = sdSource.EndDateTime
dhDateFin..Time            = sdSource.EndTime

pautEvt>>StartTime      = dhDateDebut
pautEvt>>EndTime       = dhDateFin

IF sdSource.IsAllDayEvent = 1 THEN
    pautEvt>>AllDayEvent = True
ELSE
    pautEvt>>AllDayEvent = False   
END

pautEvt>>CustomProperties>>LoadFromString(sdSource.CustomPropertiesXMLData)

IF bRException THEN
    // TO DO
END

IF NOT bRException THEN
    pautEvt>>CustomProperties("process_RecurrenceState")         = sdSource.ReccurenceState
    pautEvt>>CustomProperties("process_RecurrencePatternID")    = sdSource.RecurrencePatternID
 END

RESULT pautEvt

// DoReadRPattern
PROCEDURE CAL_DoReadRPattern(patternID,pPattern)

sdRequeteReadRPattern is Data Source
sStrSQL is string

sStrSQL = "SELECT * FROM CalendarRecurrencePatterns WHERE RP_ID = " + patternID
IF NOT HExecuteSQLQuery(sdRequeteReadRPattern,hQueryDefault,sStrSQL) THEN
    Error("Erreur d'initialisation de la requête" + CR+HErrorInfo())
END

HReadFirst(sdRequeteReadRPattern)
pPattern = TRT_CreateRPatternFromDB(sdRequeteReadRPattern)
HCancelDeclaration(sdRequeteReadRPattern)

//TRT_CreateRPatternFromDB
PROCEDURE TRT_CreateRPatternFromDB(sdSource is Data Source)

pautMonPattern is object Automation dynamic
patternID is int
dhDateDebut, dhHeureDebut, dhDateFin  are DateHeures


patternID                         = sdSource.RP_ID
pautMonPattern               = FEN_Principale.AX_ActiveX1>>DataProvider>>CreateRecurrencePattern(patternID)

pautMonPattern>>MasterEventId     = sdSource.RP_MasterEventID

dhDateDebut = sdSource.RP_StartDate
dhHeureDebut = sdSource.RP_StartTime

pautMonPattern>>StartDate         = dhDateDebut
pautMonPattern>>StartTime         = dhHeureDebut

pautMonPattern>>DurationMinutes    = sdSource.RP_Duration

pautMonPattern>>CustomProperties>>LoadFromString(sdSource.CustomPropertiesXMLData)
pautMonPattern>>EndMethod         = sdSource.RP_EndMethod
SWITCH pautMonPattern>>EndMethod
    CASE 0 // EndDate
        dhDateFin = sdSource.RP_EndDate
        pautMonPattern>>EndDate     = dhDateFin
    CASE 1 // EndAfterOccurences
        pautMonPattern>>EndAfterOccurrences = sdSource.RP_EndAfterOccurrences
    OTHER CASE
END

pautMonPattern>>Options>>RecurrenceType = sdSource.RPO_RecurrenceType

IF pautMonPattern>>Options>>RecurrenceType = 2 THEN  // RecurrenceWeekly pour les tests
    Trace("Récurrence weekly")
    pautMonPattern>>Options>>WeeklyDayOfWeekMask = sdSource.RPO_WeeklyDayOfWeekMask
    pautMonPattern>>options>>WeeklyIntervalWeeks = sdSource.RPO_WeeklyIntervalWeeks
ELSE
    IF pautMonPattern>>Options>>RecurrenceType = 1 THEN
        pautMonPattern>>Options>>DailyEveryWeekDayOnly = sdSource.RPO_DailyEveryWeekDayOnly
        pautMonPattern>>Options>>DailyIntervalDays = sdSource.RPO_DailyIntervalDays
    END
END

RESULT pautMonPattern

// End of snipped code

What's wrong with my code ? I really don't understand why occurences are not well-generated by the dataProvider from the masterEvent .

Please i need help.

Thanks

Hi Yannick,

CalSet is object Automation dynamic

CalSet>>License("Calendar Control Copyright (c) 2003-2009 Codejock Software"+CR+"PRODUCT-ID: Codejock.Calendar.ActiveX.v13.0"+CR+"VALIDATE-CODE: xxx-xxx-xxx-xxx")

Hello François,

Yes the solution I use is the following lines :


You have to write on the Declaration code of the window :

CALGlobalSettings est un objet Automation "Codejock.CalendarGlobalSettings.13.0.0"
CALGlobalSettings>>License="Calendar Control Copyright (c) 2003-2009 Codejock Software" +Caract(13)+Caract(10)+"PRODUCT-ID: Codejock.Calendar.ActiveX.v13.0" +Caract(13)+Caract(10)+ "VALIDATE-CODE: XXX-XXX-XXX-XXX"


(where XXX-XXX-XXX-XXX is your licence code)

it works well for me !

If you have other questions don't hesitate to mail me your email adress,( French & English speaker)

Enjoy your dev with Windev !

Bye , A+


Yan