* Restore old behaviour for caNone for Action

git-svn-id: trunk@25252 -
2025-04-24 04:19:26 +02:00 · 2013-08-12 12:56:16 +00:00 · 2013-08-12 12:56:16 +00:00 · ae4810edd6
commit ae4810edd6
parent b1c111b423
1 changed files with 1 additions and 2 deletions
--- a/packages/fcl-db/src/sqldb/sqldb.pp
+++ b/packages/fcl-db/src/sqldb/sqldb.pp
@ -1248,12 +1248,11 @@ procedure TSQLTransaction.EndTransaction;

 begin
  Case Action of
-    caNone :
-      CloseTrans;
    caCommit :
      Commit;
    caCommitRetaining :
      CommitRetaining;
+    caNone,
    caRollback :
      RollBack;
    caRollbackRetaining :