Diseño de sistema en RED LAN

[MartinS]

Hagamos una cosa: Pone el codigo del trigger y vemos porque no setee nada raro en el componente solo le asigne la Database, Tambien lo cree en el datamodule no se si tendra algo que ver.

A tener en cuenta:

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

new_reg es el nombre del evento envia la base de datos y que captaremos, y en el evento OnEventAlert del IbEvents hacemos la pregunta

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 (Ojo parece que diferencia mayusculas de minusculas - Me pasó)

[pelikno]

Empezado por MartinS

Hagamos una cosa: Pone el codigo del trigger y vemos porque no setee nada raro en el componente solo le asigne la Database, Tambien lo cree en el datamodule no se si tendra algo que ver.

A tener en cuenta:

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


new_reg es el nombre del evento envia la base de datos y que captaremos, y en el evento OnEventAlert del IbEvents hacemos la pregunta

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 (Ojo parece que diferencia mayusculas de minusculas - Me pasó)

Código Delphi [-]
procedure TCustomerData.IBEvents1EventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName = 'new_reg' then
begin
Umain.Form1.inmuebles.Refresh;
Umain.Form1.localidades.Refresh;
end;

[MartinS]

y el del trigger?

[pelikno]

Código SQL [-]
CREATE OR ALTER TRIGGER LOCALIDADES_POS FOR LOCALIDADES
ACTIVE AFTER INSERT POSITION 0
AS
begin
  post_event 'new_reg';
end

este es el triger que cree con ibexpert en la tabla localidades

[MartinS]

Debería funcionar. .
Volvemos a las transacciones (El evento solo se ejecuta si hay un commit o CommitRetainging);

En ese evento de AfterPost del IbTable no pongas

Código Delphi [-]
localidades.Transaction.CommitRetaining;

Pone de acuerdo a tu componente IbTransaction, es decir:

Código Delphi [-]
CostumerData.IbTransaction.CommitRetainig

[pelikno]

Empezado por MartinS

Debería funcionar. .
Volvemos a las transacciones (El evento solo se ejecuta si hay un commit o CommitRetainging);

En ese evento de AfterPost del IbTable no pongas

Código Delphi [-]localidades.Transaction.CommitRetaining;


Pone de acuerdo a tu componente IbTransaction, es decir:

Código Delphi [-]CostumerData.IbTransaction.CommitRetainig

los comente a los dos

Código Delphi [-]
 procedure TForm1.localidadesAfterPost(DataSet: TDataSet);
begin
//localidades.Transaction.CommitRetaining;
// CustomerData.IBTransaction1.CommitRetaining;
end;

Pero hace el post de todas formas, porque cierro mi aplicacion y al volver abrirla estan los cambios guardados, supongo que sera en el momento de cerrar que commitea

[pelikno]

Funcionoooooooooooooooooooooooooooo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Gracias gente por su tiempo y martins idolo por el codigo, lo que buscaba era eso el trigger de firebird que dispare el evento para actualizar los clientes anda de puta madre , muchisimas gracias !!!!

[[Delphius]]

Empezado por pelikno

Funcionoooooooooooooooooooooooooooo !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Gracias gente por su tiempo y martins idolo por el codigo, lo que buscaba era eso el trigger de firebird que dispare el evento para actualizar los clientes anda de puta madre , muchisimas gracias !!!!

Claro, claro... eso no te lo habían dicho ¿verdad? Que yo sepa desde el comienzo te habían comentado de que empezaras a leer sobre los eventos, te remitieron enlaces al material. Pero tu si que estas hacerte el ciego cuando te conviene. Porque como ha dicho Casi, lees pero no te enteras.
Das la impresión de que lo que estabas buscando con todo esto es que viniera alguien con el código

[MartinS]

Empezado por pelikno

Gracias gente por su tiempo y martins idolo por el codigo, lo que buscaba era eso el trigger de firebird que dispare el evento para actualizar los clientes anda de puta madre , muchisimas gracias !!!!

Bueno, al fin me alegro. Llevo 80 POST, SI!!! OCHENTA pero llego el resultado

Merezco un ascenso Jeje,

Saludos.-