refresco de los datos

[[egostar]]

Yo tuve ese mismo problema y lo resolví (con ayuda del foro, claro) agregando otra transacción para insertar un registro.

Aún no encuentro el porque pero en mi programa el IBTransaction1 permanece activa y despues de realizar las consultas y procesos para grabar un registro no puedo usar el IBTransaction1, así que lo que hice (no se si es correcto, pero me funcionó) es agregra otro IBTransaction2 y con el realizar mi proceso de insert.

Aquí puedes ver el hilo que hago mención, espero te ayude.

Salud OS.

[fedelphi]

Egostar creo que despues de investigar un poco con la informacion del hilo que diste en el mensaje anterior llegue a una solucion con los aportes de ronpablo, muchas gracias ronpablo. Esto es para que me corrijan por favor si estoy equivocado, ya que estoy aprendiendo, ya que son observaciones de practicar e investigar y la experiencia luego nos dara la razon si es que la tenemos. Bueno primero lo que pasaba es que al realizar el commit IBTransaction1.Commit, se desctiva la transaccion y todas las tablas por lo que sale el error "no se puede realizar la operacion en un dataset cerrado" entonces lo hice asi:

Código Delphi [-]
try
            if not modulodatos.IBTransaction1.Active then
              modulodatos.IBTransaction1.StartTransaction;
            if not Modulodatos.IBTAlmacen.Active then
              Modulodatos.IBTAlmacen.Active:=True;
            modulodatos.IBTAlmacen.Append;
            modulodatos.IBTAlmacen.FieldByName('ID_ALMACEN').AsInteger:=1;
            modulodatos.IBTAlmacen.FieldByName('NRO_TICKET').AsString:=ECodigo.Text;
            modulodatos.IBTAlmacen.FieldByName('ID_SUCURSAL').AsInteger:=Tag; //en el tag del este form paso el id de la sucursal desde el form ppal
            modulodatos.IBTAlmacen.FieldByName('ID_TICKET').AsInteger:=id_ticket;
            modulodatos.IBTAlmacen.FieldByName('FECHA_PRESENTACION').AsDateTime:=Date;
            modulodatos.IBTAlmacen.FieldByName('MONTO').AsFloat:=Monto;
            modulodatos.IBTAlmacen.FieldByName('FECHA_INGRESO').AsDateTime:=Date;
            modulodatos.IBTAlmacen.FieldByName('NRO_CAJA').AsInteger:=RGCajas.ItemIndex+1;
            modulodatos.IBTAlmacen.Post;
            modulodatos.IBTransaction1.CommitRetaining;

           
          except
            on E:Exception do
            begin
              modulodatos.IBTransaction1.Rollback;
              showmessage('Error al insertar en base de datos. '+e.Message);
            end;
          end;

entonces con el commit se cierra todo lo que dije anteriormente, pero con commitretaining no se cierran, siguen en el mismo estado en el que estaban cuando empieza la transaccion. Espero haber sido de ayuda, ah y me olvidaba, gracias a caral tambien por lo de la excepcion con el rollback, le agregue el mensaje para saber en caso de que se produzca algun error saber de que se trata. Saludos a todos y muchas gracias!!!!!
Fede

[[Lepe]]

Los IBX no los he usado. Yo uso MDOLIB que son derivados de los IBX, tiene una propiedad DefaultAction que la tengo puesto a commit y la propiedad commitAfterpost a true. De esta forma me olvido de las transacciones (de momento).

Por otra parte, para que los cambios de una transacción se vean (en el caso de un commit), se debe hacer un commit, y después cerrar el dataset y volverlo a abrir ¿engorroso? sigue leyendo.

Para actualizar los datasets de forma automática, tienes los eventos y el EventAlert de IBX. En un trigger del servidor lanzas un mensaje después de insertar:

Código SQL [-]
  post_event 'Nuevo_Cliente';

En la ventana que quiera recibir ese mensaje, añades un componente IBEventAlert y registras el mensaje 'Nuevo_cliente'. El componente tiene un evento OnEvent y allí ordenas cerrar los datasets y volver a abrirlos.

El commitRetaining mantiene el contexto de la transacción que se inició; no se recomienda abusar de él.

PD: Para entender como funcionan, deberías leer los pdf acerca de las transacciones de Interbase, que son aplicables a Firebird.

Saludos

[fedelphi]

Empezado por Lepe

PD: Para entender como funcionan, deberías leer los pdf acerca de las transacciones de Interbase, que son aplicables a Firebird.

Lepe me podrias decir donde se encuentran estos pdf?

[[Lepe]]

www.ibphoenix.com apartado de Documentacion. Eso si, vienen en inglés.

Saludos

[[Delphius]]

Yo he descarga este artículo

Ha decir verdad, ya no me acuerdo como llegué a él... Si vi el enlace en un post o si fue buscando en google...

Tal vez te pueda interesar esta busqueda realizado en google.

Saludos,
PD: A también me está costando un poquito entender esto de las transacciones.

[[sitrico]]

Estoy tratando de hacer que se ejecute el evento, pero no me funciona.

Uso D7, FB 2.0.1 y MDO.

En la base de datos defino el procedimiento:

Código SQL [-]
CREATE PROCEDURE ACTUALIZARCITAS 
as
begin
  post_event 'ACT_CITAS';
  suspend;
end^
GRANT EXECUTE ON PROCEDURE ACTUALIZARCITAS TO SYSDBA;

// ¿ que hace la ultima línea ?

Que lanzo despues con varios triggers:

Código SQL [-]
CREATE TRIGGER CI_CITAS_EVENT_NUEVA FOR CI_CITAS
ACTIVE AFTER INSERT OR UPDATE OR DELETE POSITION 0
AS
begin
EXECUTE PROCEDURE ACTUALIZARCITAS;
end

en delphi pongo un componente: MDOEvents con la base de datos asignada

Código Delphi [-]
procedure TfCitas.MDOEvents1EventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ACT_CITAS' then
   MostrarCitas;  // = refresh
end;

Pero cuando incorporo una nueva cita (INSERT) desde otro módulo de la aplicación (otro exe) no ocurre el evento.

Lo único "raro" es que en mi datamodule defino 2 transacciones Una "Read commited" (read_committed, rec_version, nowait) para los SELECT y otra Read-Write table stability (write, consistency) para insert, update y delete.

¿me falta algo?

Edito:

inclui esto y tampoco funciona:

Código Delphi [-]
procedure TfCitas.FormActivate(Sender: TObject);
begin
If Not MDOEvents1.Registered Then
   MDOEvents1.Registered := true;
end;

[[Lepe]]

No necesitas el procedimiento almacenado. Con el disparador sobra:

Código SQL [-]
CREATE TRIGGER CI_CITAS_EVENT_NUEVA FOR CI_CITAS
ACTIVE AFTER INSERT OR UPDATE OR DELETE POSITION 0
AS
begin
 post_event 'ACT_CITAS'
end

En el mdoRegisterEvent, necesitas añadir el evento que quieres esperar, dado que, en la base de datos puedes lanzar muchos eventos, pero una ventana de tu programa solo quiere enterarse de uno de ellos:

Código Delphi [-]
// solo hace falta registrarlo 1 vez, por ejemplo, al crear el form

const CitaModificada = 'ACT_CITAS';


procedure TfCitas.FormCreate(Sender: TObject);
begin
with mdoevents1 do
begin
  Add(CitaModificada);

If Not MDOEvents1.Registered Then
   MDOEvents1.Registered := true;
end;

Como sabrás, el evento lanzado por el SGBBDD lo recogerá todas las aplicaciones delphi que esten accediendo a esa Base de datos, pero solo le llegará el mensaje a la ventana que tenga registrado dicho mensaje.

Como has visto, he definido una constante CitaModificada, es muy fácil equivocarse al escribir el string, y con una sola letra que varíe, delphi no recibirá dicho evento, y empezarás a creer que Firebird no funciona bien o le echas la culpa a MDO. Usando constantes, te aseguras de no cometer errores mecanográficos. Por el bien de tu salud mental, te lo recomiendo encarecidamente .

El evento mdoEventAlert1.OnEvent lo tienes bien definido, por ello no comento nada más.

Saludos