tvplanit: Avoid executing FixContactsTable in ZeosDatastore when the Contacts table already has the fields of the v1.06 format.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8279 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/addons/zeos/vpzeosds.pas

@@ -405,6 +405,14 @@ var
   autocommit: Boolean;
   fieldnames: TStrings;
 begin
+  if not ContactsTable.Active then
+  begin
+    ContactsTable.Open;
+    // If field "Department" exists then it is a v1.05 table, and there's nothing to do.
+    if ContactsTable.Fields.FindField('Department') <> nil then
+      exit;
+  end;
+  
   autocommit := FConnection.AutoCommit;
   ContactsTable.Close;
   list := TStringList.Create;