problema al refrescar tabla en firebird

[anubis]

Hola de nuevo,

Tal y como me habíais contestado en otro post a la hora de insertar, modificar.... un registro en una aplicación y que se pudiera ver reflejado en otro pc con event, si funciona si se dispara un mensaje de que se ha insertado un regisro, pero lo que no funciona es el refresh, ni abriendo ni cerrando la tabla, sigo teniendo que cerrar la aplicacion en el otro pc y volverla a abrir para ver reflejado el nuevo registro.

No se si se me olvida algo para que se actualicen los datos pero creo que ya probe todo, incluso poner la tabla como edit y luego post y applyupdates.

Alguna sugerencia?

saludos y gracias

[ecfisa]

Hola anubis.

Luego de la acción, ¿ Realizas Commit o CommitRetaining sobre la tabla en cuestión ?

Saludos.

[MartinS]

Hola: Parto del supuesto después del commit tal como te pregunta ecfisa y supongo que has creado un trigger para firebird para tal caso, por ejemplo:

Código SQL [-]
CREATE TRIGGER POST_NEW_REG FOR CLIENTES
ACTIVE AFTER INSERT
POSITION 0
AS
BEGIN
 
  POST_EVENT 'new_reg';
END

Obviamente el trigger anterior se dispara al momento de ingresar uno nuevo y logicamente despues del commit.

Luego con la utilizacion de un IbEvents haces:

Cuando se crea el formulario:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  IBEvents1.Events.Clear;
  IBEvents1.Events.Add('new_reg');
  IBEvents1.RegisterEvents;
  //....
end;

y en el event alert:

Código Delphi [-]
procedure TDM.IBEvents1EventAlert(Sender: TObject; EventName: string;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  if EventName = 'new_reg' then
  Begin
  // ShowMessage('Nuevo registro');
  SClientes.DataSet.Refresh;
  End;  
end;

donde preguntamos si viene el evento new_reg hacemos el refresco del datasource que enlaza la grilla

Se enuncia que firebird usa otro puerto adicional al 3050 para el procesamiento de eventos y lo asigna arbitrariamente. Estos es cierto y en su caso se configura editando el Firebird.conf en RemoteAuxPort a 6020 por ejemplo, habilita ese puerto en el firewall y listo.-

Saludos

[anubis]

Gracias por contestar,

Si, eso ya lo hice, si me salta el event cuando inserto un registro, pero el refresh no hace nada.

[ecfisa]

Hola anubis.

No hay dudas que el evento se dispara y es recibido correctamente... ¿ En que componente no ves reflejado los cambios ?

Saludos.

[anubis]

Si, gracias.

En este caso en un dbgrid relacionado con el query.
en el pc1 doy de alta el registro, le aplico post y resfresh, y lo veo en el dbgrid.
en el pc2 cuando he dado de alta en el pc1 el registro, salta el evento le aplico refresh y no se actualiza en el dbgrid del pc2, tengo que cerrar la aplicacion en el pc1 y volverla a abrir para que aparezca el cambio.

[ecfisa]

Empezado por anubis

en el pc1 doy de alta el registro, le aplico post y resfresh, y lo veo en el dbgrid

Sólo me guío por lo que comentas en esta línea ya que no he visto el código, pero el Refresh se tendría que realizar en la captura del evento. Por ejemplo luego de mostrar el mensaje de aviso.

Saludos.