Ver Mensaje Individual
  #3  
Antiguo 19-06-2007
Avatar de fedelphi
fedelphi fedelphi is offline
Miembro
 
Registrado: abr 2006
Ubicación: Santa Fe
Posts: 122
Reputación: 19
fedelphi Va por buen camino
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;//tabla a visualizar en el dbgrid
    showmessage('ya realizó acumuladoxlote.close');
    ibtacumuladoxlote.Open;
    showmessage('ya realizó acumuladoxlote.open');
    //ibtacumuladoxlote.Refresh;
  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; //sucursal_nro es una variable global definida en ppal para pasar el numero de sucursal entre forms
              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!!
__________________
De lo que hay no falta nada!!!
Responder Con Cita