[firebase-br] RES: RES: Auto Imcremento no FireBird e DB Express

["=?iso-8859-1?Q?.::Vin=EDcius_Mesquita:" em smtp.bol.com.br]

Amigos alguém teria o código do super seqüenciador?

Grato!


-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Jorge Umberto
Enviada em: terça-feira, 11 de setembro de 2007 08:50
Para: 'FireBase'
Assunto: [firebase-br] RES: Auto Imcremento no FireBird e DB Express


Nos sistemas, usamos várias empresas e vários bancos. Então, fiz essa
função q resolve o nosso problema. Se ajudar no seu caso, aí está.
Detalhe, toda chave de nossas tabelas tem o nome "CODIGO". 


function TModuloPrincipal.ObterGeradorEmp(tabela: string; empresa:
integer):integer;
var    SqlGerador : TSQlquery;
begin
  SqlGerador:= TSQlquery.Create(self);
  SqlGerador.SQLConnection := banco;
  with SqlGerador do
  begin
    Close;
    Sql.Clear;
    SQl.Add('SELECT MAX(CODIGO) FROM ' + tabela + ' WHERE CODEMP = ' +
IntToStr(empresa));
    Open;
    Result := Fields[0].AsInteger + 1;
  end;
  FreeAndNil(SqlGerador);

end;


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa