Trigger no funciona

[Casimiro Noteví]

Empezado por bulc

Si hacen falta más explicaciones me lo decis.

Hacen falta más explicaciones.

[Caminante]

Hola

Bueno adivinando la situacion creo que lo que pasa es que mediante un trigger asignas la clave primaria a la tabla. El campo del lado de la aplicacion tiene la propiedad required en true. Para evitar ese error cambialo a false. Pero debes hacer un refresh despues de grabar para poder leer la clave que se asigno.

Espero que sea lo que necesitabas.

Saludos

[bulc]

Hola Caminante. He ido al Form y no he encontrado la propiedad Required ni en el DBGrid ni en sus columnas. Tal vez deberías decirme dónde está o si voy descaminado. Por otro lado, basado en tu idea, hallé en el componente TIBQuery una propiedad GenaratorField que usé colocando el nombre del GENERATOR. También contiene una prop. llamada ForceRefresh. La puse a True...
Pero al meter un nuevo dato en el DBGrid sigue saliendo el error: "Field 'num' must have a value".
¿Alguna otra sugerencia?
Gracias por el esfuerzo.
Bulc

[jafera]

Hola Bulc.

Mi sugerencia es tal y como te indica Casimiro es que nos des más datos de dónde se produce el problema y que lo puede proiducir.
En tu explicación no se acaba de entender bien lo que te sucede, tu intentas explicarte al máximo pero tienes la ventaja de que ves en cada momento lo que sucede, nosotros no.
Comentas algo de un dbgrid, recuerda que un dbgrid no es más que la representación ordenada de los datos de una tabla o consultao sea que si realizas cualquier acción en este grid, realmente estas trabajando en los datasets, post, append, cancel, update, etc.

Pon algo de código, (si es que este no es un secreto de estado), bueno bromas aparte intenta colocarnos la sentencia que te da el error y seguro que recibirás la respuesta adecuada.

Saludos

Josep

[bulc]

Empezado por jafera

Hola Bulc.

Mi sugerencia es tal y como te indica Casimiro es que nos des más datos de dónde se produce el problema y que lo puede proiducir.
En tu explicación no se acaba de entender bien lo que te sucede, tu intentas explicarte al máximo pero tienes la ventaja de que ves en cada momento lo que sucede, nosotros no.
Comentas algo de un dbgrid, recuerda que un dbgrid no es más que la representación ordenada de los datos de una tabla o consultao sea que si realizas cualquier acción en este grid, realmente estas trabajando en los datasets, post, append, cancel, update, etc.

Pon algo de código, (si es que este no es un secreto de estado), bueno bromas aparte intenta colocarnos la sentencia que te da el error y seguro que recibirás la respuesta adecuada.

Saludos

Josep

!Es que no hay código apenas! Sólo hemos hecho la conexión. Usamos IBDataBase, IBTransaction, IBQuery, IBProvider, ClientDataSet, TDataSource y DBGrid. La conexión es correcta.
Hemos creado la DBase por código en el prompt de la aplicación en modo de comandos ISQL de Firebird (Antiguo DOS command). La Base tiene una tabla.
En ella hay cuatro campos el primero NUM es numérico; es clave primaria, not null. Luego hemos creado un generator y un trigger para que se autoincremente el camp NUM. Hemos hecho un insert y funciona el Trigger perfectamente. Sólo hay una tabla con un registro y este lleva un 1 en NUM.
El TDBGrid tiene una barra TDBNavigator. Pues bien, escribimos un dato nuevo para el registro nº 2 (el primero se ve en el Grid) del DBGrid. Al guardar el dato con el TDBNavigator, surge el error de "No hay valor para columna NUM". Entonces colocamos un botón con el código necesario para que el ClientDataSet guarde los datos. Usamos Post y ApplyUpdates, lo normal.
Pues bien, si se coloca un 2 en el campo NUM del DBGrid los datos se guardan sin problema, pero si se deja ese campo en blanco (a la espera de que el Trigger) haga su trabajo, entonces salta el error de nuevo. O sea, hay un error si se deja NUM en blanco.
Bueno, lo he intentado. Puedo poner el código pero repito solo tiene un botón de Guardar y un DBNavigator asociado al DBGrid.
El código del generator y del trigger funcionan correctamente.
Dime si hay algo que pueda ponerte más y te lo pongo.
Gracias.
Bulc

[mRoman]

Hola....creo que hace falta definir a "arAutoInc" en la propiedad AutoGenerateValue del DataSet que tengas asociado a tu DbGrid.....esta propiedad las puedes observar si seleccionas el componente DataSet y le das click derecho para q te muestre un menú contextual y puedas seleccionar la opción "Fields Editor". Cuando te muestre la pantalla das nuevamente click derecho y seleccionas "Add all fields" cargara todos los campos del dataset y es ahi donde al seleccionar un campo encontraras la propiedad q te comento.....

Espero te funcione...SALUDOS.

[[fjcg02]]

Hola, que yo sepa, eso que te ocurre es porque no pones ningún valor en la pk. Para solventarlo, haz una función que te devuelva un nuevo valor del generador. En el evento beforpost del dataset le das valor a la pk con esa función y asunto solucionado.

Por eso cuando pones valor a mano, te funciona. Es una pequeña pega, pero es lo que hay.

Nos cuentas el resultado.

Saludos

[bulc]

Empezado por mRoman

Hola....creo que hace falta definir a "arAutoInc" en la propiedad AutoGenerateValue del DataSet que tengas asociado a tu DbGrid.....esta propiedad las puedes observar si seleccionas el componente DataSet y le das click derecho para q te muestre un menú contextual y puedas seleccionar la opción "Fields Editor". Cuando te muestre la pantalla das nuevamente click derecho y seleccionas "Add all fields" cargara todos los campos del dataset y es ahi donde al seleccionar un campo encontraras la propiedad q te comento.....

Espero te funcione...SALUDOS.

Creo que eso he hecho. Usé el Query, como te decía. Buscaré esa propiedad AutoGenerateValue. Supongo que estará en el IBQuery o en el ClienteDataSet...

[Caminante]

Empezado por bulc

no he encontrado la propiedad Required ni en el DBGrid ni en sus columnas.
Bulc

La propiedad required pertenece a los campos persistentes del dataset que uses.

Saludos

[bulc]

He hallado esa prop. en el ClientDataSet (CDS). Cargué los campos y elegí NUM. Asigné a la prop. AutoGenerateValue :=arAutoInc y la prop. Required to False. Pero sigue sin funcionar. Mi pregunta es, ¿el CDS efectúa autoincrementos por su cuenta, si usar ningún Trigger?
es que además el comp. IBQuery (que uso) también activa Generators mediante la prop. GeneratorField, etc.
¿Debo efectuar el Refresh antes del Post, mediante código?
Saludos y gracias.
Bulc

[[fjcg02]]

Hola,
Respecto a la función, básicamente es la ejecución de una query que te devuelva el valor de esta select

SELECT GEN_ID( generador,1) FROM RDB$DATABASE

Pones un parámetro que sea el nombre del generador, y te vale para todos.

Como ya te decía anteriormente, en el caso de los tclientdatasets hay que hacerlo así. En el evento beforepost asignas el valor al campo pk ( num en tu caso ) y solucionado el problema.

Saludos
Pd: no estoy escribiendo desde el portátil, o sea, que no tengo el código para pegarlo. A ver sí me acuerdo y te lo paso.

[[fjcg02]]

Hola,
Esta es la función que te vale para cualquier generador

Código Delphi [-]
function Generador( generador: string): integer;
begin
SQLGenerador.CLose;
SQLGenerador.SQL.Clear;
SQLGenerador.SQL.Add('select  first 1 GEN_ID('+generador+',1)  from RDB$DATABASE');
SQLGEnerador.Open ;
Result:= SQLGenerador.Fields[0].AsInteger;
end;

La llamo de la siguiente manera

Código Delphi [-]
procedure TDM.CDSClienteBeforePost(DataSet: TDataSet);
begin
// si es nulo, es registro nuevo, informo pk con generador, usuario y timestamp del alta
if Dataset.FieldByName('idCliente').IsNull then
  begin
    Dataset.FieldByName('idcliente').AsInteger:= Generador('CLIENTE');
    Dataset.FieldByName('USUARIOALTA').AsString:= WUsuario;
    Dataset.FieldByName('LOGA').AsDateTime:= now;
  end;
ActualizarLog(Dataset); // informo usuario y timestamp de actualizacion
end;

function TDM.ActualizarLog(Dataset: TDataset): boolean;
begin
  Dataset.FieldByName('USUARIOMODIF').AsString:= WUsuario;
  Dataset.FieldByName('LOGM').AsDatetime:= now;
  Result:= True;
end;

Todas las tablas tienen los campos USUARIOALTA, LOGA, USUARIOMODIF y LOGM para saber quién ha dado de alta el registro y quién es el último que lo ha modificado

Espero que te sirva de ayuda.

Un saludo

[bulc]

Empezado por fjcg02

Hola,
Esta es la función que te vale para cualquier generador

Código Delphi [-]
function Generador( generador: string): integer;
begin
SQLGenerador.CLose;
SQLGenerador.SQL.Clear;
SQLGenerador.SQL.Add('select  first 1 GEN_ID('+generador+',1)  from RDB$DATABASE');
SQLGEnerador.Open ;
Result:= SQLGenerador.Fields[0].AsInteger;
end;

La llamo de la siguiente manera

Código Delphi [-]
procedure TDM.CDSClienteBeforePost(DataSet: TDataSet);
begin
// si es nulo, es registro nuevo, informo pk con generador, usuario y timestamp del alta
if Dataset.FieldByName('idCliente').IsNull then
  begin
    Dataset.FieldByName('idcliente').AsInteger:= Generador('CLIENTE');
    Dataset.FieldByName('USUARIOALTA').AsString:= WUsuario;
    Dataset.FieldByName('LOGA').AsDateTime:= now;
  end;
ActualizarLog(Dataset); // informo usuario y timestamp de actualizacion
end;

function TDM.ActualizarLog(Dataset: TDataset): boolean;
begin
  Dataset.FieldByName('USUARIOMODIF').AsString:= WUsuario;
  Dataset.FieldByName('LOGM').AsDatetime:= now;
  Result:= True;
end;

Todas las tablas tienen los campos USUARIOALTA, LOGA, USUARIOMODIF y LOGM para saber quién ha dado de alta el registro y quién es el último que lo ha modificado

Espero que te sirva de ayuda.

Un saludo

Parece muy claro. Lo probaré en cuanto pueda. Muchas gracias.

[bulc]

Estoy en ello. fjcg02, te diré el resultado.

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

Me funciona el GENERATOR y el trigger asociado a él. Pero como el campo NUM Integer lleva la clave primaria, resulta que si se deja vacío da error al salir de la edición del DBGrid.
Ejecuto el generador (sin modificarlo) con:
SELECT GEN_ID(GEN_NAME_TABLE, 0) FROM RDB$DATABASE;
//Recojo el dato
//Luego lo asigno al campo NUM del DBGrid. Para ello uso el DBDataSource con la línea:
DataSourcex.DataSet.FieldByName('NUM').AsIngeger := Value_Generator;

Lo compruebo en el evento BeforePost. Y es ahí cuando salta el error motivado por la asignación a NULL del campo.
DataSourcex.DAtaSet.FieldByName('NUM').AsInteger := NULL,
Lo hago así para no entregar al TIBQuery ese campo en el intento de que así salte el Trigger y rellene el campo con el número siguiente al que guarda el generador.
Entiendo que dicho campo se ha de dejar vació para ello.
Osea que estoy en un lío.
Con anterioridad había usado una tabla de control secundaria para llevar a cabo los autoincrementos y me iba bien. Pero he querido usar los triggers y ya ves.
Reitero:
Osea primero pongo un nº en el DBGrid y luego lo quito para llevarlo al servidor y que salte el Trigger. ¿Es lo correcto?
Saludos, bulc

[bulc]

Primero relleno el campo en el DBGrid para que no salte el error debido a ausencia de dato en clave primaria (NUM).
Para ello saco el valor del generador sin alterarlo. Uso un Query con:
Select gen_id( Gen_Name,0) from rdb$database
Luego lo guardo como valor de salida con:
Result :=Query1.Fields[0].AsInteger // en una función.
Luego aplico el evento BeforePost para controlar los valores que van al ClientDataSet.
En el intento de que el Trigger haga su papel, quiero vaciar el campo NUM que el de clave primaria.
Utilizo en ese evento esto:
IBDataSourcex.DataSet.FieldByName('NUM').AsInteger := NULL;
pero me da un error. Y si lo dejo lleno -el valor está incrementado- y además es correcto.
Pero el generador no salta (+1) por insertar dato en ese campo.
¿Entiendes lo paradógico del caso?
Uno parece que se explica pero luego el lector no se aclara. Muy de risa.
¿Qué se te ocurre? ¿Por dónde me voy?
Gracias por tu tiempo.
Un saludo, bulc

[bulc]

Bueno, por fin he comprendido como se efectúa la llamada al Trigger enviando y recibiendo parámetros.
El basado en el Trigger lo he completado usando cero (0) en el momento de la inserción. Así, el Trigger compara para valores null y para cero. En ese caso asigna el Trigger que toca sin problemas. Luego, en otra DBF, he optado por usar una función que llama al generador para que autoincremente el nº de registro que uso como índice de clave primaria.
En el momento del nuevo registro (ALTA) uso el generador sin cambiarlo y le añado un uno. Cuando el Alta se guarda entonces se efectúa otra llamada al generador con aumento +1. Hay una variable global EsAlta:=False/True según que la llamada sea definitiva o no, en el botón de altas. Se pasa a la funcion como segundo parámetro (SeRevisa).
En número del generador se pasa a un TLabel para estar informado en todo momento del nº de final de registros; el último GEN_ID.
Si se necesita el código completo...a pedir.

nRec:=REVISA_GEN( IBQuery1:TIBQuery; SeRevisa: Boolean; Label1: TLabel): Integer;

Gracias a todos los participantes. Ha sido muy ilustrativo. bulc

[bulc]

Además de usar esa técnica(la del Trigger) he probado otra con una función.
En la del Trigger he usado la inserción provisional de un cero. Así se llena el campo que por ser NOT NULL no puede dejarse vació. Luego el Trigger lo detecta e inserta el nº que toca en la serie.
Como segunda técnica, en otro .FBD he usado una función de usuario que llama al GEN_ID.
SELECT GEN_iD( GEN_JOT, 0) FROM RDB$DATABASE
El botón de ALTAS usa la variable EsAlta (boolean). Así si el ALTA se confirma con el botón GUARDAR, se pasa al generador un +1 y si no se queda como está
La función es
nRec:=REVISA_GEN( IBQuery1: TIBQuery; SeRevisa: Boolean; TLabel1:TLabel): integer;
El nº se ve en el TLabel para controlar los registros de la tabla y el resto es historia.
Si alguien quiere el código...
Saludos y gracias a todos los que han intervenido. Ha sido un mazazo saber de los parámetros de entrada y salida en IBQuery... Muy bueno.
Doy, pues, el hilo por acabado.