* fix oncalcfields call without dscalcfieldstate. Patch by Jose Mejuto,

    Mantis #20968

git-svn-id: trunk@19891 -

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

@@ -414,9 +414,17 @@ end;
 
 Procedure TDataset.DoOnCalcFields;
 
+var
+  oldState: TDataSetState;
+
 begin
  If assigned(FOnCalcfields) then
+ begin
+   oldState := FState;
+   FState := dsCalcFields;
    FOnCalcFields(Self);
+   FState := oldState;
+  end;
 end;
 
 Procedure TDataset.DoOnNewRecord;