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

[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 Noteví]

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 Noteví]

Bueno, en todo caso, después de

Código Delphi [-]
Max_Id.Open;

Escribe

Código Delphi [-]
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:

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]

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