From dd2db96268bf2ff951448213a960dec33ef33f5f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 30 Nov 2020 20:48:19 +0000
Subject: [PATCH] TVPlanIt: Fix crash of TBufDSDataStore with FPC 3.2+

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7911 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpbufds.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/components/tvplanit/source/vpbufds.pas b/components/tvplanit/source/vpbufds.pas
index 7f1456652..c132e2870 100644
--- a/components/tvplanit/source/vpbufds.pas
+++ b/components/tvplanit/source/vpbufds.pas
@@ -135,11 +135,12 @@ begin
      CreateFieldDefs(ATableName, table.FieldDefs);
      if FUseAutoInc then
        table.FieldDefs[0].DataType := ftAutoInc;
+     table.IndexDefs.Clear;
+     table.IndexDefs.Update;
+     CreateIndexDefs(ATableName, table.IndexDefs);
      table.CreateDataset;
-  end;
-  table.IndexDefs.Clear;
-  table.IndexDefs.Update;
-  CreateIndexDefs(ATableName, table.IndexDefs);
+  end else
+    table.Open;
 end;
 
 procedure TVpBufDSDatastore.CreateTables;