Fórum Generator naum funciona #392927

Pessoal

Estou com um problema que não consigo resolver, tenho 2 forms um de Grupo de produto e o outro de
Cadastro de Usuario. Criei a tabela Grupo com  generator conforme abaixo, tudo esta ok e func 100%,
sem erros.
Mas o Cadastro de usuario não incrementa o valor da PK, o atributo ID fica nullo, segue as duas tabelas criadas
no IBEXPERt com a unica diferença: a Tabela de Grupo foi criada atraves de um programa conversor IBPump e a
tabela Usuario foi criada Manualmente.

Pergunta:
Porque o atributo chave da tabela USUARIO não está sendo incrementado, ou seja esta nulla???

Já estou cansado de testar, peço ajuda !!!!

vlw.

* uso (dataSource,ClientDataSet,SqlQuery,DataSetProvider) Delphi7/Firebird

 
*****************//////TABELA GRUPO
________________________________________________________

CREATE GENERATOR "GEN_TBGRUPO_CONTROLE";

CREATE TABLE TBGRUPO (
    CONTROLE  INTEGER,
    DESGRUPO  VARCHAR(30)
);
_______________________________________________________
*****//Trigger
CREATE OR ALTER trigger trig_tbgrupo_bi for tbgrupo
active before insert position 0
AS BEGIN
      IF(NEW."CONTROLE" IS NULL) THEN NEW."CONTROLE" = GEN_ID("GEN_TBGRUPO_CONTROLE",1);
    END
_______________________________________________________













****************//////   TABELA USUARIO

CREATE GENERATOR GEN_USUARIO_ID;

CREATE TABLE USUARIO (
    ID        INTEGER NOT NULL,
    STATUS    VARCHAR(1),
    MARCA     VARCHAR(1),
    DATA_INC  DATE,
    DATA_ALT  DATE,
    SENHA     CHAR(7),
    NOME      VARCHAR(30),
    FANTASIA  VARCHAR(15),
    DEPTO     VARCHAR(20),
    NIVEL     CHAR(1)
);
_______________________________________________________
*****//Trigger
CREATE OR ALTER trigger usuario_bi for usuario
active before insert position 0
AS
BEGIN
  IF (NEW."ID" IS NULL) THEN
    NEW."ID" = GEN_ID("GEN_USUARIO_ID",1);
END
_______________________________________________________