Marcelo,


If you use a trigger, you're assigning the value AT THE SERVER.

Either set the Required property of your primary key field to False
or fetch the value from the generator yourself:

select gen_id(mygen, 1) as newvalue from rdb$database

And use that value in your INSERT statement.


With regards,

Martijn Tonies
InterBase Workbench - the developer tool for InterBase
http://www.upscene.com

Firebird Workbench - the developer tool for Firebird
http://www.upscene.com

Upscene Productions
http://www.upscene.com

"This is an object-oriented system.
If we change anything, the users object."

>
> I am using Delphi 6 + Interbase 6.5
>
> My application uses:
> ClientDataset + DataSource +
> DataSetProvider +
> IBQuery +
> IBTransaction +
> IBDatabase.
>
> I have created:
> 1)A generator to increment the NumReg primary key of my table PCOrc:
> CREATE GENERATOR PCOrc_GEN;
>
> 2) A Trigger Set_NumReg_PCOrc:
> SET TERM #
> CREATE TRIGGER SET_NumReg_PCOrc FOR PLANCONORC
> Active Before INSERT Position 0 AS
> begin
> IF (new.NumReg IS NULL) THEN
> new.NumReg = gen_id(PCOrc_GEN,1);
> end #
> SET TERM ;#
>
> 3) I insert a new record executing:
> ClientDataset.Insert
>
> After I have filled all the fields on the new insertion I execute
> ClientDataset.Post.
>
> Then on the AfterPost event of ClientDataset I execute:
> if (ClientDataset.ChangeCount > 0) then
> ClientDataset.ApplyUpdates(-1);
>
> After the execution of ClientDatset.Post an EDBClient exception is
> raised informing that the "Field NumReg requires a value"
>
> The value of NumReg field is allways null.
>
> How can I solve this problem?
>