paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:49:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #26072

Browse Source 
git-svn-id: trunk@28662 -
This commit is contained in:
michael 2014-09-14 16:29:52 +00:00
parent 71a1628303
commit fb5939befe
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/base/dataset.inc
View File

@ -2060,9 +2060,9 @@ end;
procedure TDataSet.Post; procedure TDataSet.Post;
begin begin
UpdateRecord;
if State in [dsEdit,dsInsert] then if State in [dsEdit,dsInsert] then
begin begin
DataEvent(deUpdateRecord,0);
DataEvent(deCheckBrowseMode,0); DataEvent(deCheckBrowseMode,0);
{$ifdef dsdebug} {$ifdef dsdebug}
writeln ('Post: checking required fields'); writeln ('Post: checking required fields');
@ -2083,7 +2083,7 @@ begin
{$endif} {$endif}
DoAfterPost; DoAfterPost;
end end
else else if State<>dsSetKey then
DatabaseErrorFmt(SNotEditing, [Name], Self); DatabaseErrorFmt(SNotEditing, [Name], Self);
end; end;