Añadir registro en tabla firebird si la tabla está vacia

[jafera]

Gracias de nuevo

Con IsEmpty si compila, pero se salta la linea de asignar valor 0 a id

Código Delphi [-]
 
procedure TF_RebutFP.ToolButton1Click(Sender: TObject);
var id: integer;
begin
        ToolBar1.Visible := False;
        ToolBar2.Visible := True;
        Max_Id.Close;
        Max_Id.Open;
        if Max_Id.IsEmpty then
        id:=0;                        // Por aqui no pasa. Salta directamente a la linea siguiente.
        id := Max_IdMAX.Value+1;
        F_ModulDades.RebutFP.Append;
        F_ModulDades.RebutFPID_REBUT.Value := id;
        F_ModulDades.RebutFPDATA.Value := Date;
        F_ModulDades.RebutFPI1.Value := 'N';
        F_ModulDades.RebutFPI2.Value := 'N';
        F_ModulDades.RebutFPI3.Value := 'N';
        F_ModulDades.RebutFPI4.Value := 'N';
        F_ModulDades.RebutFPI5.Value := 'N';
        F_ModulDades.RebutFPI6.Value := 'N';
        F_ModulDades.RebutFPI7.Value := 'N';
        F_ModulDades.RebutFPI8.Value := 'N';
        F_ModulDades.RebutFPI9.Value := 'N';
        F_ModulDades.RebutFPSUSPENSIO.Value := 'N';
        F_ModulDades.RebutFPDATA.FocusControl;
end;

Saludos

Josep