Trigger no funciona

[bulc]

Código Delphi [-]
 // Código que he usado. Llamado por el evento OnKeyPress al detectar la tecla VK_INSERT
 FUNCTION GENERADOR( IBQuery1: TDBQuery; Gen_Name: String) : Integer;
 Begin
     IBQuery1.Close;
     IBQuery1.Clear;
     IBQuery1.Add('Select GEN_ID( Gen_Name,0) FROM RDB$DATABASE');
     IBQuery1.Open;
     Result: = IBQuery1.Fields[0].AsInteger;
     // Usaba Result:= IBQuery1.Params[0].AsInteger; pero daba: "Arguement Out of Range" Error. ¿Sabes por qué?
    // ShowMessage(' GEN_ID =  ' + IntToStr (Result ) );
 End;

Gracias por tu ayuda. Bulc

[bulc]

//Llamada a la función Generador (con Posterioridad a la función)
// en el evento OKeyDown o en BeforePost...
GenNUm:= GENERADOR( IBQuery1, 'GEN_NUM_TALLER');

[[fjcg02]]

Empezado por bulc

//Llamada a la función Generador (con Posterioridad a la función)
// en el evento OKeyDown o en BeforePost...
GenNUm:= GENERADOR( IBQuery1, 'GEN_NUM_TALLER');

En principio la llamada sólo es necesaria en el evento BeforePost y cuando el campo que alimenta el generador es nulo. Es decir, cuando aceptas el cambio en un registro, si lo estás editando, ya tiene un valor, el que haya traído de la tabla al leer el registro. Cuando haces un post y el campo que alimenta el generador es nulo, entonces es un registro nuevo, por loq ue debes disparar el generador y darle el valos al campo que hece de primary key.

Un saludo

[Casimiro Noteví]

Código Delphi [-]
     Result: = IBQuery1.Fields[0].AsInteger;      // Usaba Result:= IBQuery1.Params[0].AsInteger; pero daba: "Arguement Out of Range" Error. ¿Sabes por qué?

Porque Params[] es para pasarle parámetros antes de ejecutar y Fields[] es para recoger valores después de ejecutar

[bulc]

Agradecido por tu información. Gracias.