[jafera]

Gracias Ecfisa

Esto es lo que estaba intentando valorar si usar el onclick del dbRadioGroup. He colocado el siguiente codigo en el evento:

Código Delphi [-]
procedure TF_Rebut.DBRadioGroup2Click(Sender: TObject);
begin
        if F_ModulDades.Rebut.State in [dsEdit, dsInsert] then
        begin
                case DBRadioGroup2.ItemIndex of
                        0: if MessageBox(Handle,'Vols entrar despeses extres?','',MB_YESNO)=IDYES then
                        begin
                                F_ExtresFCC:=TF_ExtresFCC.Create(Self);
                                F_ExtresFCC.ShowModal;
                                F_ModulDades.Extres_FCC.Close;
                                F_ModulDades.Extres_FCC.Open;
                                F_ModulDades.Contar_ID.Close;
                                F_ModulDades.Contar_ID.Open;
                                if F_ModulDades.Contar_ID.RecordCount = 0 then
                                begin
                                        F_ModulDades.Extres_FCC.Append;
                                end
                                else
                                begin
                                        F_ModulDades.Extres_FCC.Edit;
                                end;
                        end
                        else
                        begin
                                F_ModulDades.Extres_FCC.Close;
                                F_ModulDades.Extres_FCC.Open;
                                F_ModulDades.Contar_ID.Close;
                                F_ModulDades.Contar_ID.Open;
                                if F_ModulDades.Contar_ID.RecordCount = 0 then
                                begin
                                        F_ModulDades.Extres_FCC.Append;
                                        F_ModulDades.Extres_FCCALLOTJAMENT.Value:=0;
                                        F_ModulDades.Extres_FCCQUILOMETRES.Value:=0;
                                        F_ModulDades.Extres_FCCPEATGE.Value:=0;
                                        F_ModulDades.Extres_FCCMATERIAL.Value:=0;
                                        F_ModulDades.Extres_FCCVARIS.Value:=0;
                                        F_ModulDades.Extres_FCC.Post;
                                end;
                        end;
                        1: if MessageBox(Handle,'Vols borrar despeses extres?','',MB_YESNO)=IDYES then
                        begin
                                F_ModulDades.Borra_Extres.Close;
                                F_ModulDades.Borra_Extres.Open;
                        end;
                end;
        end;
end;

pero creo que no acaba de ir bien del todo ya que debo controlar el valor del campo antes de hacer click en el dbradiogroup y si vale C hacer una cosa y si vale F la otra.

No se, que me recomendais que haga? o mejor dicho como se trata un proceso así?

Nota: como comenté antes por defecto el valor es C con lo que en este caso no pasa nada, solo cuando lo cambio a F y más tarde lo vuelvo a cambiar a C.

Saludos

Josep