No muestra campo autoincrementado en pantalla

[[rretamar]]

La situación es así: tengo una tabla que utiliza un campo autoincrementado, creado a partir de un trigger que actualiza un generador. El método clásico...obtengo valores consecutivos sin problemas al agregar registros a la tabla. La típica columna "primary key" de toda la vida.

El problema es que en una situación necesito mostrar el valor al usuario cuando agrega un registro (append) y luego lo graba (post). El valor autoincrementado se genera sin problemas, se guarda en la tabla....pero no se muestra en pantalla. Para que se muestre tengo que hacer un REFRESH del dataset luego del POST...que además de desplazar el puntero a otro registro....es una chapuza.

Estoy usando Lazarus con los componentes nativos TZSQLquery, nada fuera de lo común, la base de datos es Firebird 2.1.

Es una simple ventana que carga registros desde un formulario y luego se pueden consultar....muy simple.

¿ Alguien más tuvo este problema ?.

Saludos !

[Caminante]

Hola

Aunque no uso lazarus (aunque quisiera. Ojala algún día pierda el temor a lo nuevo) lo que podrías hacer seria obtener el valor del generador al agregar el nuevo registro en local. Es decir no obtenerlo en el trigger.

Saludos

[[rretamar]]

La mejor forma de perderle el miedo a Lazarus es....usándolo. Familiarizarse haciendo pequeñas aplicaciones, conocer todas las opciones de configuración (que son muchísimas), conocer sus componentes...y luego sí hacer algo concreto. Creeme que mejoró mucho, ya no es más aquel IDE de hace varios años atrás que se cerraba a veces hasta colocando un componente en un formulario. Hoy se puede usar en producción perfectamente...realmente FUNCIONA. Viniendo desde Delphi la "adaptación" es bastante rápida y comienzas a ser productivo en muy poco tiempo.

[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 Notevi]

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 Notevi]

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 Notevi]

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