Pasar registros desde un dbgrid a otro dbgrid con botones..

[ecfisa]

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.