Como fazer um auto inclemento no delphi.

Question

Boa tarde a todos...Tenho um programa que utiliza o interbase 6.5.E quero que quando o usuario der um clique no bot�o de inserir, o delphi verifica qual o �ltimo cod_cliente cadastrado no banco e incl...

Edilcimar · Answer

existe um comando no interbase/firebird para �renumerar�, ou at� mesmo resgatar um n�mero no do generator que �:
SQL.Add(�Set generator Tabela_Campo_GEN to � + NumeroDesejado)
isto vc pode utilizar pegando o n�mero que foi gerado no cancelamento e decrescer 1 unidade

Ulisses.lima · Answer

[quote:d5e71dc651=�uelinton_reis�]Boa tarde a todos...Tenho um programa que utiliza o interbase 6.5.E quero que quando o usuario der um clique no bot�o de inserir, o delphi verifica qual o �ltimo cod_cliente cadastrado no banco e inclemente mais 1.Teste: J� utilizei o generator do Interbase e depois o geratorField do IBDataSet, mas se caso vc cancelar o cadastro, ele n�o desfaz este inclemento.Tem como esta contornando isto? Tem alguma outra maneira facil que fazer este auto inclemento?Obrigado.Uelinton[/quote:d5e71dc651]Bom dia, Cebolinha!O que voc� est� querendo � um INCREMENTO.Pode fazer isso, criando um gatilho (trigger) na sua tabela. Crie um novo Trigger na tabela e adapte o c�digo abaixo:if (NEW.Seu_Campo is Null) then  begin  Select Coalesce(Max(Seu_Campo ),0)+1 from Sua_Tabela  into NEW.Seu_Campo ;  endBoa sorte.Ulisses...

Gandalf.nho · Answer

O generator funciona assim mesmo, ele nunca ir� voltar ao n�mero anterior, mesmo desfazendo a transa��o. Isso garante que o n�mero gerado nunca se repita. Mas n�o se preocupe se houverem buracos na numera��o, salvo raros casos (como auditoria), isso n�o causar� nenhum problema.

Edilcimar · Answer

Mas pode causar problema em numera��o de NF eletr�nica, a qual n�o pode haver falha na seq��ncia!...

Fonsecd · Answer

Amigo eu fa�o assim, n�o sei se � a forma mais correta: Coloco uma IbQuery e nela coloco o comando ( Select Max(Cli_Codigo) from Clientes), Coloco uma Ibtable e no evento OnNewRecord coloco o seguinte c�digo:
If DataMod.DsCliente.State = DsInsert Then
Begin
DataMod.QueryContCli.Active := False;
DataMod.QueryContCli.Active := True;
With DataMod.QuerContCli.Fields[0] do
If IsNull Then
TabClientesCli_Codigo.Value:= 1
Else
TabClientesCli_Codigo.Value := AsInteger + 1;
End;

Ent�o toda vez que vou inserir um registro nessa tabela, o c�digo que recebo no campo c�digo do cliente � sempre o maior mais um!

Abra�o!

Paullsoftware · Answer

[quote:b858be7e9c=�Edilcimar�]Mas pode causar problema em numera��o de NF eletr�nica, a qual n�o pode haver falha na seq��ncia![/quote:b858be7e9c] Eu creio que a forma mais senssata de gerar o numero sem correr o risco de pular na sequ�ncia ou at� mesmo gerar sem a nescessidade, � disparar o gerador apenas no evento BeforeUpdateREcord do DSP na condi��o de UkInsert...

F�rum Como fazer um auto inclemento no delphi. #353393