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

[Casimiro Notevi]

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

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

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