fcl-db: sqldb: some databases supports inserting of explicit values into "autoincrementing" columns. So in case when ftAutoInc field has already supplied value, do not do fetch of LastID

git-svn-id: trunk@29237 -

packages/fcl-db/src/sqldb/sqldb.pp

@@ -2611,7 +2611,7 @@ begin
     While (Result=Nil) and (I<Fields.Count) do
       begin
       Result:=Fields[i];
-      if Result.DataType<>ftAutoInc then
+      if (Result.DataType<>ftAutoInc) or not Result.IsNull then
         Result:=Nil;
       Inc(I);
       end;