* Restore old behaviour for caNone for Action

git-svn-id: trunk@25252 -

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 :