[juanblack]

Un saludo a la comunidad.
Soy nuevo en esto de trabajar con Firebird y ZeosDBO y he empezado por hacer pequeños ejercicios de lo que al final serán los módulos y procedimientos de mis aplicaciones para mis usuarios finales.
Por cierto, uso Delphi 5.0.

Uno de estos ejercicios tiene que ver con la generación de la clave primaria de una tabla 'X'. Sí, sé que hay algunos temas donde se aborda ya este espinoso asunto, y ustedes me han de perdonar, pero al ver como esos hilos han generado sus propias respuestas/dudas mejor ya ni quise moverle mas y decidí empezarle por uno nuevo centrandome en mi caso en particular (espero se justifique).

Uso lo siguiente:

-Objetos de la Base de dátos Firebird 2.1:

Tabla X:

     CREATE TABLE X (
     CLAVE INTEGER NOT NULL,
     DESCRIPCION VARCHAR(30)
     );
     ALTER TABLE X ADD PROMARY KEY (CLAVE);

Generadores GEN_CVE:

     CREATE GENERATOR GEN_CVE;
     SET GENERATOR GEN_CVE TO 0;

Stored Procedure GENERACVE:

     CREATE PROCEDURE GENERACVE
    returns (CLAVE integer)
    as
    begin
       clave = gen_id(GEN_CVE,1);
    end

-Zeos Components 6.6.1 - beta:

ZConnection
ZTable -> apuntando a la tabla X (y su correspondiente DataSource)
ZStoredProc -> apuntando a el procedimiento GENERACVE

Nota: ZConnection.TransactIsolationLevel = tiReadCommitted
ZTable.UpdateMode = umUpdateChanged

-Otros:
Un DataConection y un DBNavigator1 apuntando a la tabla X.

Pasos:
-Genero de manera automatica los campos de mi tabla en la forma principal (CLAVE & DESCRIPCION).
-Deshabilito el campo clave y solo dejo activo el campo Descripción.
-En el evento BeforePost del ZTable agrego el siguiente código:

   if ZTable.State = dsInsert then         //solo si es un nuevo registro
   begin
     ZStoredProc.ExecProc;            //ejecuto el procedimiento almacenado
     ZTableCODIGO.Value := ZSToredProc.Params[0].AsInteger;    //asigno directamente el valor del generador al campo
  end;

Los peros:
Al ejecutar la aplicación e intentar insertar un nuevo registro (solamente el campo descripción para este ejemplo) me brinca un mensaje de error el cual básicamente me dice que el campo CLAVE debe contener un valor...(???).

Las preguntas:
¿que no se supone que le estoy asignando precisamente ese valor a la tabla justo antes del post?
¿en que orden se ejecuta el código entonces?
¿acaso algo estoy haciendo mal al implementar componentes ZStoredProc?
y la peor: ¿acaso debia volver al metodo "antiguo": con el uso de querys calculando el nextRecord, etc, etc.para que funcione esto?

La ¿soluión?
Para no hacerselas mas larga y ya en un estado de desesperación se me ocurrio habilitar el campo Clave e insertarle un valor cualquiera. Cual va siendo mi sorpresa ver que ahora sí las cosas marcharon bien y al campo CLAVE se le paso el siguiente valor del generado.
Siendo asi las cosas le agrege al código en el evento onNewRecord del Ztable:

      ZTableCODIGO.Value := 0;  //ó cualquier otro valor entero.

Sabia que al momento de ejecutar el ZStoredProc, la aplicación se encargaría de cambiar este valor cualquiera por el siguiente valor del generador, asi que en apariencia todo ok. ¿O no?

Conclusiones
Como veran no soy muy bueno ni tampoco muy experto en esto de usar Firebird y componentes Zeos, pero la lucha se le hace y en mucho agradeceré sus comentarios, demas dudas, criticas y regaños (mientras esten justificados claro). A mi por lo pronto me funciona esto que acabo de exponer, pero vayan ustedes a seber en que momento se me podria regresar el chistecito este.

Los burros por delante
Ustedes perdonen la falta de educación, soy juanblack y aunque llevo un rato rondando el foro este es mi primer post, mucho gusto, es para mi un placer y espero nos la pasemos bien.

Buen día y hay nos posteamos.