pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix import of .ics files with recurring events to database-related datastores.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6511 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-18 21:54:25 +00:00
parent bdc2d6a2ba
commit aa6e70e006
2 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpdayview.pas
View File

@ -1337,6 +1337,7 @@ begin
continue; continue;
id := DataStore.GetNextID(EventsTableName); id := DataStore.GetNextID(EventsTableName);
FActiveEvent := Datastore.Resource.Schedule.AddEvent(id, starttime, endtime); FActiveEvent := Datastore.Resource.Schedule.AddEvent(id, starttime, endtime);
FActiveEvent.Changed := true;
FActiveEvent.LoadFromICalendar(TVpICalEvent(ical[i])); FActiveEvent.LoadFromICalendar(TVpICalEvent(ical[i]));
Datastore.PostEvents; Datastore.PostEvents;
Datastore.NotifyDependents; Datastore.NotifyDependents;

1
components/tvplanit/source/vpweekview.pas
View File

@ -1276,6 +1276,7 @@ begin
continue; continue;
id := DataStore.GetNextID(EventsTableName); id := DataStore.GetNextID(EventsTableName);
FActiveEvent := Datastore.Resource.Schedule.AddEvent(id, starttime, endtime); FActiveEvent := Datastore.Resource.Schedule.AddEvent(id, starttime, endtime);
FActiveEvent.Changed := true;
FActiveEvent.LoadFromICalendar(TVpICalEvent(ical[i])); FActiveEvent.LoadFromICalendar(TVpICalEvent(ical[i]));
Datastore.PostEvents; Datastore.PostEvents;
Datastore.NotifyDependents; Datastore.NotifyDependents;