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:


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:


Select Max (ID_REBUT) from re0006FP


Gracias por leerme.

Calurosos saludos

Josep

[roman]

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


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]

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

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

[roman]

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:


if Max_IdMAX.IsNull then
Id := 0;


// Saludos

[roman]

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


select coalesce(max(nivel), 0) from aciertos


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

// Saludos

[jafera]

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

Si, me refiero al debug con F8

Saludos

[jafera]

¡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 [-] (http://www.clubdelphi.com/foros/#)
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]

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?

[jafera]

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

Josep

[Casimiro Notevi]

Bueno, en todo caso, después de
Max_Id.Open;

Escribe

Max_ID.Edit;

[jafera]

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]

Hola josep.

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

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;



procedure TF_RebutFP.Button1Click(Sender: TObject);
var
id: Integer;
begin
id:= ProximoID;
...
end;


Saludos.

[jafera]

Solucionado.

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


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]

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

// Saludos

[jafera]

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í:


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