[firebase-br] Generator/Sequence

[Reijanio Nunes Ribeiro]

ele funcionaria +- assim
clica no botãop incluir
cadastra
no botão salvar vc chama esta rotina antes do applyupdates(); e caso de
algum erro ao salvar vc usa o dec_gen para voltar o generator


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

> 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
>



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