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