From e491b44af917d97fa2df053258faf709901eff79 Mon Sep 17 00:00:00 2001
From: silvioprog <silvioprog@gmail.com>
Date: Tue, 1 Nov 2016 15:26:39 -0300
Subject: [PATCH] fcl-db/sqlite3conn: declares required fields. (patch by
 Silvio Clecio)

---
 packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
index dca6207..4c5b3dc 100644
--- a/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
+++ b/packages/fcl-db/src/sqldb/sqlite/sqlite3conn.pp
@@ -399,7 +399,9 @@ Const
 
 procedure TSQLite3Connection.AddFieldDefs(cursor: TSQLCursor; FieldDefs: TFieldDefs);
 var
- i, fi : integer;
+ req: boolean;
+ i, fi, nn : integer;
+ CN: PAnsiChar;
  FN, FD, PrimaryKeyFields : string;
  ft1   : TFieldType;
  size1, size2 : integer;
@@ -451,8 +453,13 @@ begin
   st:=TSQLite3Cursor(cursor).fstatement;
   for i:= 0 to sqlite3_column_count(st) - 1 do 
     begin
-    FN:=sqlite3_column_name(st,i);
+    CN:=sqlite3_column_name(st,i);
+    FN:=CN;
     FD:=uppercase(sqlite3_column_decltype(st,i));
+    req := sqlite3_table_column_metadata(fhandle, sqlite3_column_database_name(st,i),
+      sqlite3_column_table_name(st,i), CN, nil, nil, @nn, nil, nil) = SQLITE_OK;
+    if req then
+      req := nn = 1;
     ft1:= ftUnknown;
     for fi := 1 to FieldMapCount do if pos(FieldMap[fi].N,FD)=1 then
       begin
@@ -500,7 +507,7 @@ begin
                end;
       ftUnknown : DatabaseErrorFmt('Unknown or unsupported data type %s of column %s', [FD, FN]);
     end; // Case
-    FieldDefs.Add(FN, ft1, size1, size2, false, false, i+1, CP_UTF8);
+    FieldDefs.Add(FN, ft1, size1, size2, req, false, i+1, CP_UTF8);
     end;
 end;
 
-- 
2.7.4