From a089da3b7453ae49d0ac7ce88b9357ac6f2ef4ca Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 18 Jun 2016 19:45:43 +0000
Subject: [PATCH] tvplant: Fix duplicate storage of events in sqlite3 datastore

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4770 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpevnteditdlg.pas | 2 +-
 components/tvplanit/source/vptaskeditdlg.pas | 4 ++--
 components/tvplanit/source/vptasklist.pas    | 1 +
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/components/tvplanit/source/vpevnteditdlg.pas b/components/tvplanit/source/vpevnteditdlg.pas
index 2d00822e9..c338e17ce 100644
--- a/components/tvplanit/source/vpevnteditdlg.pas
+++ b/components/tvplanit/source/vpevnteditdlg.pas
@@ -733,7 +733,7 @@ begin
     result := (DlgEventEdit.ReturnCode = rtCommit);
     if Result then begin
       DlgEventEdit.DePopulateDialog;
-      DataStore.PostEvents;
+//      DataStore.PostEvents;
     end;
   finally
     DlgEventEdit.Release;
diff --git a/components/tvplanit/source/vptaskeditdlg.pas b/components/tvplanit/source/vptaskeditdlg.pas
index 61ae5010f..451be1e7d 100644
--- a/components/tvplanit/source/vptaskeditdlg.pas
+++ b/components/tvplanit/source/vptaskeditdlg.pas
@@ -212,8 +212,8 @@ begin
       Task.Changed := Result;
       if Result then begin
         TaskEditForm.DePopulateSelf;
-        DataStore.PostTasks;
-        DataStore.NotifyDependents;
+//        DataStore.PostTasks;
+//        DataStore.NotifyDependents;
       end;
     finally
       TaskEditForm.Release;
diff --git a/components/tvplanit/source/vptasklist.pas b/components/tvplanit/source/vptasklist.pas
index 8441f5790..6c3abc04e 100644
--- a/components/tvplanit/source/vptasklist.pas
+++ b/components/tvplanit/source/vptasklist.pas
@@ -1464,6 +1464,7 @@ begin
   end;
   if AllowIt then begin
     DataStore.PostTasks();
+    DataStore.NotifyDependents;
     Invalidate;
   end else begin
     if NewTask then begin