Hallo Leute,

ich arbeite an einem Terminkalender und bin vom Planner von TMS auf den Scheduler von DevExpress umgestiegen (wegen des besseren Handling).
Mir ist wichtig, dass ich Termineinträge auch programmgesteuert erzeugen kann, und nicht nur per GUI im Kalender.
Einen normalen Termin in DevExpress zu erzeugen ist auch kein Problem. Der erscheint auch dort, wo er soll. Nur wenn ich einen Serientermin z.B. einen Geburtstagseintrag erzeuge, dann erscheint er immer auf dem 01.01.2012. Ich hab schon alles mögliche geändert, aber ich bekomme den Termin nur am geforderten Tag, wenn ich keinen Serientermin erzeuge. Hier mal mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tfrm_terminplaner.Button1Click(Sender: TObject);
var
  SchEvent: TcxSchedulerEvent;
  datum: TDate;
begin //Termin erscheint immer falscherweise am 01.01.2012
      datum:=Trunc(now);
      frm_terminplaner.cxSchedulerDBStorage1.BeginUpdate;
      SchEvent:=frm_terminplaner.cxSchedulerDBStorage1.createEvent;
      SchEvent.EventType:=etPattern;
      SchEvent.Location:='Bodenwerder';
      SchEvent.Caption:='Wiederkehrender Termin';
      SchEvent.Finish:=datum+1;
      SchEvent.Duration:=1;
      SchEvent.AllDayEvent:=True;
      SchEvent.State:=tlsFree;
      SchEvent.LabelColor:=clGreen;
      SchEvent.ReminderDate:=datum-1;
      SchEvent.ReminderMinutesBeforeStart:=1440;
      SchEvent.RecurrenceInfo.Start:=datum;
      SchEvent.RecurrenceInfo.Recurrence:=cxreYearly;
      //SchEvent.RecurrenceInfo.Count:=-1;
      SchEvent.RecurrenceInfo.YearPeriodicity:=1;
      SchEvent.Post;
      frm_terminplaner.cxSchedulerDBStorage1.EndUpdate;
end;

procedure Tfrm_terminplaner.Button2Click(Sender: TObject);
var
  SchEvent: TcxSchedulerEvent;
  datum: TDate;
begin //Termin da wo er soll
      datum:=Trunc(now);
      frm_terminplaner.cxSchedulerDBStorage1.BeginUpdate;
      SchEvent:=frm_terminplaner.cxSchedulerDBStorage1.createEvent;
      SchEvent.EventType:=etNone;
      SchEvent.Location:='Bodenwerder';
      SchEvent.Caption:='Einmaliger Termin';
      SchEvent.Finish:=datum+0.5;
      SchEvent.Duration:=0.25;
      SchEvent.AllDayEvent:=False;
      SchEvent.State:=tlsBusy;
      SchEvent.LabelColor:=clWhite;
      SchEvent.ReminderMinutesBeforeStart:=1440;
      SchEvent.Post;
      frm_terminplaner.cxSchedulerDBStorage1.EndUpdate;
end;

RAD 2010, DevExpress Scheduler 3.50

Kann mir jemand weiterhelfen?

Problem gelöst.

Falls es jemanden interessiert:

markieren

Delphi-Quellcode:

      SchEvent.RecurrenceInfo.Periodicity:=monthOf(Datum);
      SchEvent.RecurrenceInfo.DayNumber:=DayOfTheMonth(Datum);

war des Rätsels Lösung.