StartTransaction Genera Error En Unigui

[ASAPLTDA]

Buenos Dias Foristas

Requiero efectuar control de compromiso para actualizar unas tablas Firebird usando unigui
uso el siguiente codigo

  INWHSREUBICA2.ParamByName('P_DOCNUMERO').AsString  := P_DOCNUMERO;
  INWHSREUBICA2.ParamByName('P_DOCFECHA').AsDate     := P_DOCFECHA;
  INWHSREUBICA2.ParamByName('P_IDINSALDO').AsInteger := P_IDINSALDO;
  INWHSREUBICA2.ParamByName('P_INCODTRA').AsString   := P_INCODTRA;
  INWHSREUBICA2.ParamByName('P_QTY').AsFloat         := P_QTY;
  INWHSREUBICA2.ParamByName('P_WHSLOC_TO').AsString  := P_WHSLOC_TO;

    
  Database1.StartTransaction;
 try
   INWHSREUBICA2.ExecProc;
   Database1.commit;
  except  
    Database1.Rollback ;
  end;

y al indicar Database1.StartTransaction genera el error que no se puede efectuar esta operacion en una base de datos cerrada

Ahora si no utilizo StartTransaction los cambios que envio se realizan, pero requiero la transaccion ya que son varias las tablas que voy a camiar en el procedimiento

Cual es la forma correcta de iniciar la transaccion con unigui?
Utilizo el data modulo de unigui


Utilizo firebird 2.1 , delphi xe2 professional , componentes sql-direct para conectame a la base de datos


Gracias por su apoyo

[ASAPLTDA]

Hola Foristas
La coneccion a la base de datos la opcion de keepconeccion = false, para efectuar la transaccion se requiere keepconeccion = true, para las otras operaciones es valido que mantenga la coneccion en false

[Casimiro Noteví]

.........