Gracias jhonny, lo hice tambien de esa forma y nada, el codigo que incorpore fue
Código Delphi
[-] if eventname='lote_actualizado' then
begin
showmessage('actuliza acumuladoxlote');
ibtacumuladoxlote.Close; showmessage('ya realizó acumuladoxlote.close');
ibtacumuladoxlote.Open;
showmessage('ya realizó acumuladoxlote.open');
end;
a los mensajes los muestra, el dbgrid queda en blanco, luego muestra otra vez los datos, pero sin actualizar, en cambio si lo actualiza en la pc desde donde se ingresan los datos.
Me parece que puede ser el modo en que actualizo los datos, a ver si sirve esto que hice o esta mal, a la tabla la actualizao con un trigger before insert, al ir introduciendo registros voy sumandole 1 al que corresponda en IBTAcumuladoxlote y a la tabla que dispara el trigger le escribo los datos 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:=sucursal_nro; 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.RollbackRetaining;
showmessage('Error al insertar en base de datos. '+e.Message);
end;
end;
puede ser algun problema en como guardo los datos? Gracias!!