fcl-db: dbase: call inherited InternalPost to check required fields. Revealed by test TestRequired

git-svn-id: trunk@33085 -

packages/fcl-db/src/base/dataset.inc

@@ -1028,7 +1028,7 @@ end;
 
 procedure TDataSet.InternalPost;
 
-  Procedure Checkrequired;
+  Procedure CheckRequiredFields;
 
   Var I : longint;
 
@@ -1042,7 +1042,7 @@ procedure TDataSet.InternalPost;
   end;
 
 begin
-  Checkrequired;
+  CheckRequiredFields;
 end;
 
 procedure TDataSet.InternalSetToRecord(Buffer: TRecordBuffer);

packages/fcl-db/src/dbase/dbf.pas

@@ -1428,6 +1428,8 @@ var
   pRecord: pDbfRecord;
   I, newRecord: Integer;
 begin
+  // check required fields
+  inherited;
   // if internalpost is called, we know we are active
   pRecord := pDbfRecord(ActiveBuffer);
   // commit blobs