Trigger no funciona

[[fjcg02]]

Aver, a ver...

compruebo que no soy el único friki trabajando

Saludos

[bulc]

Bueno, no estás sólo.
He aquí lo que he hecho. Activé la llamada a tu función de Usuario GENERADOR, en el evento onKeyDown, Key = VK_INSERT, y la impido para VK_DOWN and CDS1.EOF. A la función GENERADOR le paso el parámetro IBQuery1 y como devolución el GEN_ID (sin modificarlo), tal como proponías. No he entendido la línea NumGet:= Query1.Fields[0].AsInteger. Yo usaba esta: NUmGet := Query1.Params[0].AsInteger; pero me daba "Arguement out of Range". ¿Por qué ocurre ésto?.
En fin que luego coloco ese valor en el campo NUM del DBGrid y luego lo quito con BeforePost para que el Trigger haga su trabajo. Ha sido un placer aprender de ti. Espero que te resulte grato. Saludos. Bulc.
Espero que el moderador no me suelte el perro por no usar formáto de código estándar y que se entienda.

[bulc]

Código Delphi [-]
Function GET_GEN ( IBQuery1 : TIBQuery ) : Integer;  // You can add more parameters like: GEN_NAME : String, and TDBGrid, etc...
// Called by KeyDown event using Key = VK_INSERT  
Begin
    IBQuery1.Close;
   IBQuery1.Clear;
   IBQuery.SQL.Add( 'Select GEN_ID( 'GEN_NUM_TALLER', 0) FROM RDB$DATABASE' ); //Extract without alteration
   IBQuery.Open;
   Result := IBQuery1.Fields[0].AsInteger; // ¿Se podría extraer el dato de algún otro modo?
End;