[jafera]

A ver maestros, he adapatado la idea de Ecfisa con una variable.
Dadme vuestro veredicto

Código Delphi [-]
procedure TF_Rebut.DBRadioGroup2Click(Sender: TObject);
var i:string;
begin
        i:=F_ModulDades.RebutPAGADOR.Value;
        if F_ModulDades.Rebut.State in [dsEdit, dsInsert] then
        begin
                if i='C' then
                begin
                        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;
                end;

                if i='F' then
                begin
                        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;

Muchas gracias por vuestro tiempo

Saludos

Josep