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

tvplanit: Fix event editor storing new events with ResourceID 0.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8561 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-14 21:26:21 +00:00
parent 15639aae1a
commit bd7a544635
3 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1801,6 +1801,7 @@ begin
Result.Loading := true;
FEventList.Add(Result);
Result.RecordID := RecordID;
Result.ResourceID := Owner.ResourceID;
Result.StartTime := StartTime;
Result.EndTime := EndTime;
Result.Loading := false;

3
components/tvplanit/source/vpganttview.pas
View File

@ -896,12 +896,13 @@ begin
begin
startTime := DatePart(dt);
endTime := startTime + 1.0 - OneSecond;
ActiveEvent := Datastore.Resource.Schedule.AddEvent(
FActiveEvent := Datastore.Resource.Schedule.AddEvent(
Datastore.GetNextID(EventsTableName),
startTime,
endTime
);
FActiveEvent.AllDayEvent := true;
SetActiveEvent(FActiveEvent);
SpawnEventEditDialog(True);
end;
end;