Foros Club Delphi - Añadir registro en tabla firebird si la tabla está vacia

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Añadir registro en tabla firebird si la tabla está vacia (https://www.clubdelphi.com/foros/showthread.php?t=79920)

jafera

21-08-2012 16:50:17

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

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

21-08-2012 16:56:49

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

21-08-2012 17:13:21

Gracias Roman.

Me dice que empty no le gusta (undeclared identifier)

Saludos

Josep

roman

21-08-2012 17:14:50

Perdón, es IsEmpty.

// Saludos

jafera

21-08-2012 17:27:48

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

21-08-2012 17:34:57

Cita:

Empezado por jafera (Mensaje 440189)

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

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

roman

21-08-2012 17:35:00

Cita:

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

21-08-2012 17:37:15

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

21-08-2012 17:45:58

Cita:

Empezado por Casimiro Notevi (Mensaje 440192)

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

Si, me refiero al debug con F8

Saludos

jafera

21-08-2012 17:47:22

Cita:

Empezado por roman (Mensaje 440193)

¡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

21-08-2012 17:51:29

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

// Saludos

jafera

21-08-2012 18:04:39

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

21-08-2012 18:04:46

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

jafera

21-08-2012 18:07:31

No corre al dar click en alta, me sale el mensaje de not in edit mode

Josep

Casimiro Notevi

21-08-2012 18:35:29

Bueno, en todo caso, después de

Código Delphi [-]Max_Id.Open;

Escribe

Código Delphi [-]Max_ID.Edit;

jafera

21-08-2012 19:15:15

Gracias Antonio.

Con este llego a los 300 jejeje una proeza para mi.

Volviendo al tema, no es la solución ya que Max_Id es una sql sin posibilidad de editar, el error me lo da en el append de la tabla.

Saludos

Josep

ecfisa

21-08-2012 19:31:19

Hola josep.

Si no entendí mál y lo que estas buscando es obtener el próximo ID, creo que podrías hacer:

Código Delphi [-]function TF_RebutFP.ProximoID: Integer;
begin
  with TIBQuery.Create(nil) do
  try
    Database:= Tu_IBDatabase; // o si corresponde, DataModule.IBDatabase ... 
    SQL.Text:= 'SELECT COUNT(*) AS TOTREG FROM TU_TABLA';
    Open;
    Result:= FieldByName('TOTREG').AsInteger + 1;
    Close
  finally
    Free
  end
end;

Código Delphi [-]procedure TF_RebutFP.Button1Click(Sender: TObject);
var
  id: Integer;
begin
  id:= ProximoID;
  ...
end;

Saludos.

jafera

21-08-2012 20:27:43

Solucionado.

El problema del NOT IN EDIT MODE, no estaba en las lineas puestas, estaba en las lineas siguientes:

Código Delphi [-] 
procedure TF_ModulDades.RebutFPNewRecord(DataSet: TDataSet);
begin
        RebutFPI1.Value := 'N';
        RebutFPI2.Value := 'N';
        RebutFPI3.Value := 'N';
        RebutFPI4.Value := 'N';
        RebutFPI5.Value := 'N';
        RebutFPI6.Value := 'N';
        RebutFPI7.Value := 'N';
        RebutFPI8.Value := 'N';
        RebutFPI9.Value := 'N';
        RebutFPI10.Value := 'N';
        RebutFPTI1.Value := 0;
        RebutFPTI2.Value := 0;
        RebutFPTI3.Value := 0;
        RebutFPTI4.Value := 0;
        RebutFPTI5.Value := 0;
        RebutFPTI6.Value := 0;
        RebutFPTI7.Value := 0;
        RebutFPTI8.Value := 0;
        RebutFPTI9.Value := 0;
        RebutFPARBITRES.Value := 0;
        RebutFPMATERIAL.Value := 0;
        RebutFPTOTAL_REBUT.Value := 0;
        RebutFPSUSPENSIO.Value := 'N';
        RebutFPFEINER.Value := IncrementsFEINER.Value;
        RebutFPDOS_SECTORS.Value := IncrementsDOS_SECTORS.Value;
        RebutFPCAMPIONAT.Value := IncrementsCAMPIONAT.Value;
        RebutFPINF.Value := IncrementsINF.Value;
        RebutFPANTIDOPING.Value := IncrementsANTIDOPING.Value;
        RebutFPSUSP.Value := IncrementsI10.Value;
        RebutFPFORA_PROV.Value := IncrementsFORA_PROV.Value;
        RebutFPPREU_KM.Value := IncrementsPREU_KM.Value;
        F_ModulDades.RebutFPID_USUARI.Value := F_Inici.Usuari;   // aqui yo tenia puesto F_ModulDades.RebutID_USUARI.Value := F_Inici.Usuari;
end;
 
Cosas del cortar y pegar.
 
Gracias a todos
 
Saludos

roman

21-08-2012 20:56:48

¿Y? ¿Ya se resolvió tu problema original?

// Saludos

jafera

22-08-2012 11:59:35

Buenos dias.

Si Román, se soluciono el problema inicial ya que al abrir la tabla en vacio, el id valía 0, evidentemente tenías razón con lo de la conversión de entero a texto y viceversa.

Al final el código quedó así:

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;

Y gracias a este error di con el otro que no me permitía añadir el registro por el tema del nombre de campo incorrecto.

Gracias a todos.

Saludos desde la Costa Brava (Girona)

Josep

La franja horaria es GMT +2. Ahora son las 11:39:41.