No muestra campo autoincrementado en pantalla

[Neftali [Germán.Estévez]]

Que yo sepa no hay otra forma.
Puedes hacer un SP que haga la inserción y te retorne el valor generado (por el generador), de esta forma desde el "cliente" se hace en un sólo paso, auunque el trabajo de desarrollo es mayor. No se si vale la pena...

[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