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