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

tvplanit: Fix demo program storing only one task and one contact in case of inifile datastore.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4854 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-28 14:03:35 +00:00
parent e2c8f958b2
commit 7c6fd7b8e4
2 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/tvplanit/source/vpinids.pas
View File

@ -592,7 +592,7 @@ begin
res := Resources.AddResource(resID);
StrToResource(s, res);
key := Format('ContactsOfResource%d', [resID]);
key := Format('Contacts of resource %d', [resID]);
L.Clear;
ini.ReadSection(key, L);
for j:=0 to L.Count-1 do begin
@ -603,7 +603,7 @@ begin
end;
end;
key := Format('EventsOfResource%d', [resID]);
key := Format('Events of resource %d', [resID]);
L.Clear;
ini.ReadSection(key, L);
for j:=0 to L.Count-1 do begin
@ -613,7 +613,7 @@ begin
StrToEvent(s, event);
end;
key := Format('TasksOfResource%d', [resID]);
key := Format('Tasks of resource %d', [resID]);
L.Clear;
ini.ReadSection(key, L);
for j:=0 to L.Count-1 do begin
@ -655,9 +655,9 @@ begin
for i:=0 to Resources.Count-1 do begin
res := Resources.Items[i];
key := Format('ContactsOfResource%d', [res.ResourceID]);
key := Format('Contacts of resource %d', [res.ResourceID]);
for j:=0 to res.Contacts.Count-1 do begin
contact := res.Contacts.GetContact(i);
contact := res.Contacts.GetContact(j);
if not contact.Deleted then
ini.WriteString(key, IntToStr(contact.RecordID), ContactToStr(contact));
end;
@ -665,9 +665,9 @@ begin
for i:=0 to Resources.Count-1 do begin
res := Resources.Items[i];
key := Format('TasksOfResource%d', [res.ResourceID]);
key := Format('Tasks of resource %d', [res.ResourceID]);
for j:=0 to res.Tasks.Count-1 do begin
task := res.Tasks.GetTask(i);
task := res.Tasks.GetTask(j);
if not task.Deleted then
ini.WriteString(key, IntToStr(task.RecordID), TaskToStr(task));
end;
@ -675,7 +675,7 @@ begin
for i:=0 to Resources.Count-1 do begin
res := Resources.Items[i];
key := Format('EventsOfResource%d', [res.ResourceID]);
key := Format('Events of resource %d', [res.ResourceID]);
for j:=0 to res.Schedule.EventCount-1 do begin
event := res.Schedule.GetEvent(j);
if not event.Deleted then

5
components/tvplanit/source/vptasklist.pas
View File

@ -1480,6 +1480,7 @@ begin
TaskDlg.Free;
end;
end;
if AllowIt then begin
DataStore.PostTasks();
DataStore.NotifyDependents;
@ -1491,6 +1492,10 @@ begin
DataStore.PostTasks;
Invalidate;
end;
Writeln(Datastore.Resource.Tasks.GetTask(0).RecordID);
WriteLn(Datastore.Resource.Tasks.GetTask(1).RecordID);
end;
{=====}