[firebase-br] Sobre Generatos

[RedDevil]

ola Adilson,


Post By Adilson B. Cápua Jr.:
>[cut]
> Qualquer ajuda é muito bem vinda...

apos rodar as tais rotinas de importaçao, voce pode executar uma SP no 
teu BD que acerte o valor de todos os teus generators...

voce somente vai ter um pouco de trabalho para criar a SP, informando os 
nomes das tabelas, dos campos e dos generators, mas depois eh sopa no 
mel, basta executar a SP que ela atualiza o valor de todos os teus 
generators (e se o generator nao estiver com o seu valor zoado, 
evidentemente a SP vai retornar e manter o valor correto).

de uma olhada nessa SP ae abaixo, a qual eu fiz com base em um artigo 
que tem na FireBase, sobre como setar o valor de um generator dentro de 
SP's e Triggers, e veja se voce gosta da ideia...

/* --------------------------------------------------- */

create procedure atualiza_gens
as
declare variable wvalgen integer;
begin


/* tabela medicamentos */

/* recupera o valor atual do generator */
select max(codigo) from medicamentos
into wvalgen;

/* atualiza o generator */
wvalgen = GEN_ID( gen_medcod, wvalgen - GEN_ID( gen_medcod, 0 ) );

/* ----------------------------- */


/* tabela grupos */

/* recupera o valor atual do generator */
select max(codgrupo) from grupos
into wvalgen;

/* atualiza o generator */
wvalgen = GEN_ID( gen_grupcod, wvalgen - GEN_ID( gen_grupcod, 0 ) );

/* ----------------------------- */


/* proxima tabela */
/* ... */
/* ... */
/* ... */


exit;

end

/* --------------------------------------------------- */


[]s
força sempre!!!
ate +++

-- 
Luiz "RedDevil" Stefanski - Linux User #399026
http://www.RedDevil.eti.br - Delphi 4 Powered by IBObjects
exemplos e dicas sobre o IBObjects:
http://www.RedDevil.eti.br/ibob.htm
rodando o IBExpert no Linux:
http://www.firebase.com.br/fb/artigo.php?id=1366