No muestra campo autoincrementado en pantalla

[Casimiro Noteví]

Puedes retornar el valor insertado, mira aquí:
http://www.firebirdfaq.org/faq29/

[[rretamar]]

Gracias por las respuestas. Normalmente el valor de una clave primaria no debería interesarle al usuario final, no son para mirar. Pero en este caso es la excepción, sí necesito mostrar el valor cada vez que se guarda un nuevo registro.

[[rretamar]]

Me respondo a mí mismo.

Al final lo que hice fue una chapuza (que funciona ):

Luego del POST, guardo la posición del registro actual en un marcador (TBookmark), hago un REFRESH del dataset y luego recupero la posición del registro usando el marcador.

Utilizo disablecontrols y enablecontrols en Lazarus para que el usuario no note nada. Todo eso se hace en una fracción de segundo...y así el usuario puede ver el valor que toma el campo autoincrementado para el registro que acaba de guardar.

[Casimiro Noteví]

http://www.firebirdfaq.org/faq243/

[[rretamar]]

Gracias Casimiro por la respuesta.

Al final modifiqué el código y al guardar el registro ejecuto esto en AfterPost:

Código Delphi [-]
Var ID: Integer;
....
ID := ZQEstudios.FieldByName('ID').AsInteger; 
Consulta.DisableControls;                               
Consulta.Refresh;
Consulta.Locate('ID' , ID , []);
Consulta.EnableControls;

Es otra "chapuza", pero funciona. Utilizo una variable temporal llamada ID para guardar la posición, luego uso locate con esa variable como parámetro de búsqueda.

ID es la primary key de la tabla, y teniendo en cuenta que existe un índice para esa columna, el posicionamiento usando LOCATE es prácticamente instantáneo a la vista del usuario final.

[Casimiro Noteví]

Tirón de orejas por no poner las etiquetas al código

[johan]

No se si te serviria esto:

1. Desde Delphi obtienes el valor del generator + 1, con ello ya actualizas el generador.
2. Con este valor realizas el update.

3. En el trigger controla que si el campo llega como '0' debe de obtenerlo dedes el generator.

Un saludo,
Joan