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

[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?

[jafera]

Empezado por Casimiro Notevi

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

Si, me refiero al debug con F8

Saludos

[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

[roman]

Otra opción, si tu motor de datos lo soporta es directamente en la consulta:

Código SQL [-]
select coalesce(max(nivel), 0) from aciertos

Así, te evitas la comparación en el código delphi.

// Saludos

[jafera]

Empezado por roman

¡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

Román, hace lo mismo, pasa de largo con F8, no entra en la linea id:=0

Lo que me dices en el otro post del motor, uso FB 1.5

Gracias

Josep

[roman]

No, pues esto ya está muy raro. ¿Seguro que la tabla está vacía? En todo caso, prueba la consulta con coalesce.

// Saludos

[jafera]

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;
        id := Max_IdMAX.Value+1;
        F_ModulDades.RebutFP.Append;
        F_ModulDades.RebutFPID_REBUT.Value := id;
        F_ModulDades.RebutFPDATA.Value := Date;
        F_ModulDades.RebutFPDATA.FocusControl;
end;

Con el código así id coge el valor 0 de entrada y 1 al pasar por la linea de asignación.

Lo que me pasa ahora es que cuando entro en la linea del append me dice not in edit mode

Ahora si que estoy ligeramente perdido.

Saludos

[Casimiro Notevi]

Pero si te olvidas del debug y corres tu programa... ¿funciona o no funciona?