fcl-db: tests: set ID field value before post, because it is Required (not null)

git-svn-id: trunk@27130 -

packages/fcl-db/tests/testdbbasics.pas

@@ -1001,6 +1001,8 @@ begin
     begin
     Open;
     Append;
+    FieldByName('ID').AsInteger := -1; // Required - not null
+
     Fmemo := FieldByName('FMEMO');
     CheckTrue(Fmemo.IsNull, 'IsNull after Append');