[firebase-br] Generator/Sequence

[Reijanio Nunes Ribeiro]

Function Inc_Gen(Generator: String):
integer;
begin
qryUso.Close;
qryUso.DataSet.CommandText := 'select gen_id('+Generator+',1) from
rdb$DATABASE';
qryUso.Open;
result := qryUso.Fields.Fields[0].AsInteger;
qryUso.Close;
end;

procedure Dec_Gen(Generator: String);
begin
qryUso.Close;
qryUso.DataSet.CommandText := 'select gen_id('+Generator+',-1) from
rdb$DATABASE';
qryUso.Open;
qryUso.Close;
end;


Em 19 de março de 2013 15:48, Reijanio Nunes Ribeiro
<rnribeiro em gmail.com>escreveu:

> e caso não salve não vai acontecer nada
>
>
> Em 19 de março de 2013 15:48, Reijanio Nunes Ribeiro <rnribeiro em gmail.com>escreveu:
>
> mais pode funcionar usando este pequeno script chamado inc_gen basta
>> colocar ele no botão de salvar assim ele so vbai charmar o sequencial no
>> final da operação
>>
>>
>> Em 19 de março de 2013 15:41, Jean Alysson <jeanpapa em gmail.com> escreveu:
>>
>> Você pode armazenar o numero do generator, antes de atualizar e se nao
>>> der certo voltar a numeracao com o comando:
>>>
>>> set generator GEN_ID_TABELA to <numero>
>>>
>>>
>>> Jean Alysson
>>>
>>> Em 19 de março de 2013 15:21, Hélio Oliveira <hpensador em gmail.com>
>>> escreveu:
>>> > Boa tarde Colegas!
>>> >
>>> > É possível atraves do controle de transação não perdermos a sequencia?
>>> >
>>> > 1 - Iniciar uma transação;
>>> >
>>> > 2 - Requerer uma nova ID (Generator ou Sequence);
>>> >
>>> > 3 - Ocorre erro;
>>> >
>>> > 4 - Roldback(transação);
>>> >
>>> > Após a execução do item 4 o Generator/Sequence retorna a situação
>>> anterior
>>> > ao item 2?
>>> >
>>> >
>>> >
>>> > [ ]'s,
>>> >
>>> > Hélio Oliveira
>>> >
>>> >
>>> > ______________________________________________
>>> > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>>> > Para saber como gerenciar/excluir seu cadastro na lista, use:
>>> > http://www.firebase.com.br/fb/artigo.php?id=1107
>>> > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>>
>>>
>>>
>>> --
>>> Atenciosamente
>>> Jean Alysson Ambrosio
>>>
>>> ______________________________________________
>>> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>>> Para saber como gerenciar/excluir seu cadastro na lista, use:
>>> http://www.firebase.com.br/fb/artigo.php?id=1107
>>> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>>>
>>
>>
>>
>> --
>> Reijanio Nunes Ribeiro
>> Desenvolvedor Delphi/Php
>> Suporte em TI
>>
>
>
>
> --
> Reijanio Nunes Ribeiro
> Desenvolvedor Delphi/Php
> Suporte em TI
>



-- 
Reijanio Nunes Ribeiro
Desenvolvedor Delphi/Php
Suporte em TI