Ver Mensaje Individual
  #11  
Antiguo 21-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Vales08.

Se me pasó por alto comentarte una idea, podés confirmar los cambios al salir del form o mediante un Botón.

Usando Firebird sería algo como:
Código Delphi [-]
procedure TForm1.btnConfirmaClick(Sender: TObject);
begin
   if MessageDlg('¿Confirma los cambios ?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
   begin
     DModule.tbDetCober.DataSource:= nil; (* desconectar DataSource *)
     DModule.IBDatabase.ApplyUpdates([Module.tbMedicos, DModule.tbDedCober]);
     DModule.tbDetCober.DataSource:=:= DMDatos.dsMedicos; (* conectar detalle *)
     DMConect.IBTransaction.CommitRetaining;
   end
   else
     DMConect.IBTransaction.RollbackRetaining;
end;
Por último, si querés verificar al salir si en el buffer de cached existen registros sin confirmar, podes consultar la propiedad UpdatesPending de tipo Boolean.

Creo que no me quedó nada en el tintero, pero bueno vos dirás luego...


Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 25-05-2011 a las 01:15:11.
Responder Con Cita