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

[jafera]

Hola a todos después de tiempo sin postear, (es que el verano me tiene frito y dispongo de poco tiempo).

Tengo una tabla en firebird 1.5 a la que quiero añadir registros buscando el último valor de la misma con una sql, en vez de last, etc. cuando la tabla tiene algún registro introducido, funciona perfectamente, pero si la tabla está vacía y es el primer registro no encuentro la forma de convertir el valor alfanumerico de la consulta (Max_IdMAX.text) a entero y me da error.

Código del botón:

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_IdMAX.Text='' then
        begin
                    // que debería poner aquí en el caso de que Max_IdMAX este vacio para que no me de error de que '' no es   un valor entero?
        end;
        id := StrToInt(Max_IdMAX.Text)+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;

la consulta Max_Id:

Código SQL [-]
 
Select Max (ID_REBUT) from re0006FP

Gracias por leerme.

Calurosos saludos

Josep

[roman]

Código Delphi [-]
if Max_Id.Empty then
  Id := 0;

Por otra parte, no veo para qué lees el campo como texto y luego lo conviertes a entero. Mejor leelo directamente como entero.

// Saludos

[jafera]

Gracias Roman.

Me dice que empty no le gusta (undeclared identifier)

Saludos

Josep

[roman]

Perdón, es IsEmpty.

// Saludos

[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

[Casimiro Notevi]

Empezado por jafera

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

¿Que se la salta?, ¿te refieres al debug?

[roman]

Empezado por jafera

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

¡Oh! Tienes razón. Pensé que la consulta no regresaría ningún registro pero sí regresa un registro, sólo que el valor del campo es NULL. Entonces tienes que checar eso:

Código Delphi [-]
if Max_IdMAX.IsNull then
  Id := 0;

// Saludos