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.

[Vales08]

Hola ecfisa!!!
Estoy contenta porque me ha funcionado perfecto tu codigo.. realemnte ah sido de muy gran ayuda..
te cuento que me ha hecho renegar, ya que yo tenia otro codigo para dar de altay todo lo demas, pero eh podido soluionarlo bien y me funciona muy bien..
El codigo:

   DModule.tbDetCober.CachedUpdates:= True;
   DModule.tbMedicos.CachedUpdates:= True;
   DModule.tbDetCober.Open;
   DModule.tbMedicos.Open;

no me ha hecho falta, yo tengo las tablas abiertas siempre desde el datamodue y aparte funciona bien sin él..

Te paso como me ha quedado el codigo para que lo veas, espero no haberme mandado ninguna macana jaja.

(*Boton que esta entre las grillas, el cual pasa las coberturas de una a otra*)
procedure TProfesional.pasar_cober_prof_aClick(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to Grilla_cob_prof_aa.SelectedRows.Count -1 do
  begin
    Grilla_cob_prof_aa.DataSource.DataSet.GotoBookmark(Pointer(Grilla_cob_prof_aa.SelectedRows.Items[i]));
    with DM do
    begin
      DSET_prof_cober.DataSource:= nil; (* desconectar DataSource *)
      DSET_prof_cober.Append;
      DSET_prof_cober.FieldByName('ID_PROF').AsInteger:=DSET_prof.FieldByName('ID_PROF').AsInteger;
      DSET_prof_cober.FieldByName('COBERTURA_MEDICA').AsString:= DSET_cob_med.FieldByName('NOMBRE').AsString;
      DSET_prof_cober.Post;  (* guardar *)
      Base_datos.ApplyUpdates([DSET_prof_cober]); (* aplicar updates *)
      DSET_prof_cober.DataSource:= DM.DSET_prof.DataSource; (* reconectar DataSource *)
    end;
  end;
end;
 
(*Boton donde confirmo los datos ingresados del paciente antes de asignarle las coberturas*)
procedure TProfesional.ConfirmarClick(Sender: TObject);
begin
   if MessageDlg('¿Desea guardar los datos ingresados?',mtConfirmation,[mbYes,mbNo],0)= mrYes then
   begin
     DM.DSET_prof_cober.DataSource:=nil; (* desconectar DataSource *)
     DM.DSET_profESTADO.Value:=0;
     DM.DSET_profEDAD.Value:=edad_prof_a.Value;
     DM.Base_datos.ApplyUpdates([DM.DSET_prof, DM.DSET_prof_cober]);
     DM.DSET_prof_cober.DataSource:=DM.DSET_prof.DataSource; (* conectar detalle *)
     DM.Transaccion.CommitRetaining;
   end
   else
     DM.Transaccion.RollbackRetaining;
end;

A parte de eso, hice un append cuando cierro el formulario, ya que lo necesito para cuando vuelva a ingresar al form y no me aparezca el registro que cargue por ultima vez.

Mi ultima duda y 'creo' que no molesto mas: como hago para que se me vacie la grilla donde deposito las coberturas elegidas?? porque cada vez que voy a ingresar un profesional y a asignarle las coberturas, me figuran todas las anteriores ja.


Muchas gracias por todo..
saludos.-

[ecfisa]

Hola Vales. (Creo que ya nos conocemos lo suficiente para no usar el apellido)

Si te referís al DBGrid conectado con la tabla que almacena las coberturas por médico, no tendrían que aparecer luego de haber realizado Append.
A menos que no tengas bién establecida la relación maestro/detalle.

Creo (no recuerdo bién) que usabas componentes IBX...
Te pongo un ejemplo para establecer una relación m/d con dos TIBDataSet.

El TDataSet afectado es el detalle teniendo que tener en su propiedad DataSource el nombre del DataSource del TDataSet que será su master (médicos).
Creo que en tu caso el nombre seria parecido a: dsMedicos (->tbMedicos).
Luego en la propiedad SelectSQL la sentencia sería:

Código SQL [-]
SELECT * FROM COBERTXMEDICO 
WHERE REF_MEDICO = :MEDICO_ID

(Los nombres de tabla y campos seguramente diferirán, las sentencias no )

Ahí tenés establecida la relación m/d. En la grilla sólo aparecerán las coberturas cuando consultes o modifiques un médico. Pero no así en un nuevo ingreso, ya que el nuevo registro no tiene ningún detalle asociado todavía.

Un saludo y me alegro que vayas bién con tu proyecto.

[Vales08]

Hola ecfisa..

Lo tenia hecho al reves, que boba.. Ahora me funciona barbaro..
Muchas gracias x tu ayuda y tu tiempo..

Saludos.-