Ajuda com Trigger de inclus�o x Delphi 6

Question

Ol� pessoal, sou iniciante no banco interbase e estou tendo dificuldade na gera��o de incremento via trigger.. Estou querendo que um cliente, ao clicar no bot�o de inserir um novo registro em um cadas...

Marcos Fernando · Answer

Assim amigo:se vc usa [code:1:94533a715c]/* Criando uma Trigger para usar o Generator */SET TERM ^! ;CREATE TRIGGER NR_SEQ_GRU FOR GRUPOSACTIVE BEFORE INSERT POSTION 0 ASBERGINNEW.CODGRU = GEN_ID(GER_COD_GRU,1);END^!SET TERM ; ^! [/code:1:94533a715c]a base vai add 1 certo?ai vc depois manda fazer:[code:1:94533a715c]SELECT GEN_ID(GER_COD_GRU, 1) as CODIGO FROM RDB$DATABASE [/code:1:94533a715c]ele vai colocar mais 1por isso pula de 2x2usa [list=]SELECT GEN_ID(GER_COD_GRU, 0) as CODIGO FROM RDB$DATABASE [/list]thanks...

Cmtbravo · Answer

Cara, deu certo, eu que pensava que o gen_id(ger_cod_gru,0) era �1� no lugar de �0�. Mas tem um problema. Quando um usu�rio clica no iserir, � gerado o sequencial �001�, se este usuario deixar a tabela no modo de inser�ao e for tomar um caf�, se um outro usu�rio, em outra esta��o de trabalho clicar em inserir, ser� gerado o mesmo n�mero �001�, por que? Se fosse pra ser assim, num precisava de Generator ou Trigger. Como resolver isso?

Obrigado!!

Emerson Nascimento · Answer

isso acontece porque a trigger n�o foi criada para ser usada na inclus�o, e sim na grava��o.
por conta disso muitos sistemas s� informam o n�mero no momento da grava��o, com uma mensagem como �Seu pedido foi gravado com o n�mero XXXXX�

Cmtbravo · Answer

Quer dizer que:1 -  a trigger fica como �BEFORE INSERT�;2 -  no bot�o incluir eu s� do um insert;3 -  no bot�o gravar � eu gero o seguencial � ??...

Emerson Nascimento · Answer

no bot�o gravar voc� n�o gera nada, simplesmente grava. quem gera � o banco de dados.
trigger significa gatilho, e nos RDBMS esses gatilhos s�o/deveriam ser disparados automaticamente.

n�o sei como funciona o seu programa, portanto vou usar uma rotina minha como exemplo.
tenho os seguintes campos na tabela notafiscal:

----------------------
NOTAFISCAL
----------------------
IDNOTAFISCAL int (PK) (+)
IDCLIENTE int (FK)
NUMERO numeric(6)
CRIACAO date
EMISSAO datetime
VALOR numeric(10,2)
ICMS numeric(10,2)
etc....

os tipos s�o definidos por domains, mas os coloquei aqui para ilustrar melhor.

o campo [i:ea46fc6ee4]idnotafiscal[/i:ea46fc6ee4] nunca � vis�vel pelo usu�rio. ele � um campo interno utilizado para relacionamento de tabelas e etc, somente o campo [i:ea46fc6ee4]numero[/i:ea46fc6ee4] � exibido

o que ocorre?
no momento da inclus�o do registro (insert ou append):
o campo [i:ea46fc6ee4]numero[/i:ea46fc6ee4] fica vazio e o campo [i:ea46fc6ee4]idnotafiscal[/i:ea46fc6ee4] recebe o valor de GetTickCount(), que � a quantidade de segundos que o micro est� ligado. esse valor � gerado simplesmente para poder fazer o relacionamento com a tabela-filha.

no momento da grava��o (applyupdates):
o campo [i:ea46fc6ee4]numero[/i:ea46fc6ee4] continua vazio e o campo [i:ea46fc6ee4]idnotafiscal[/i:ea46fc6ee4] recebe o valor atribu�do automaticamente pela trigger. de posse desse valor eu altero o valor do campo na tabela-filha e mando grav�-la, j� com o valor correto.

no momento da impress�o:
gero um novo n�mero para a nota fiscal e preencho o campo [i:ea46fc6ee4]numero[/i:ea46fc6ee4].

F�rum Ajuda com Trigger de inclus�o x Delphi 6 #57470