AutoIncrement Firebird

[bulc]

Empezado por Ubed

Hola, este problem ya lo solucione a nivel de firebird aora me toca en el ib_objects.

Cuando intento confirmar la insercion de datos me dice que el campo id_per es obligatorio, y no me deja confirmar , como puedo solucionarlo??

Debe decir el IB_Query que es un valor autoincrement? Como lo hago?

Muchas gracias de antemano

Puedes usar un Trigger dirigido a un Generador. El generador es mecanismo interno de la base de datos que permite llevar la cuenta de lo que sea. En este caso de un campo clave primaria. Debes crear el contador primero. En Firebird se hace con la sentencia: CREATE GENERATOR Gen_Tablax. En principio contiene un cero. Si quieres, puedes actualizarlo al valor que tú quieras. Y puedes automatizarlo usando un TRIGGER, tal como te han dicho. Yo en vez de usar Trigger utilizo una llamada al generador para recoger el dato -sin alterarlo-. Con ese dato relleno el campo de edición del Inserto o Append. Luego si la edición se lleva a efecto actualizo el dato incrementando el Generador. Y si se cancela el Inserto pues no pasa nada.
Para capturar el dato uso una función que obtiene el dato del servidor. De paso lo asigno a un TLabel para informar al usuario permanentemente de cual es el nº del último registro.

Código Delphi [-]
Function REVISA_GEN( IBQuery1: TIBQuery; PasaUno : Boolean ; Label3: TLabel) : Integer;
Var
  Avance : String;   // Si EsNuevo is True, then Avance is 1.
begin
    if PasaUno then Avance:='1' else Avance:='0';
    IBQuery1.Close;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.ADD('SELECT GEN_ID( GEN_WB,'+Avance+' ) FROM RDB$DATABASE');
    IBQuery1.Open;  // Primero se abre y luego se recoge el resultado;
    Result := IBQuery1.Fields[0].AsInteger;
    Label3.Caption:= IntToStr(Result);
    //Siempre que esta función se llama, se cambia el Label2 para acualizarlo
    //ShowMessage('Result from Funtion:  '+  IntToStr( Result));
END;

Espero te sirva de algo.