Instrucao sql

vc podera montar da seguinte forma, igual ao que uso

tenho uma tabela de ultimos codigos com os campos

Empresa integer
Loja integer
Tabela varchar(50)
Codigo integer

pq posso ser um sequencial por loja ou por empresa

na sql monto da seguinte forma

select * from tabela where Empresa = :Empresa and Loja = :Loja and
Tabela = :Tabela(tabela podera ser produto, cliente, fornecedor, ...)

dai eu checo se existe dados ja cadastrados ou nao

If Tabela.RecordCount = 0 then // nao existe dados ainda cadastrados
begin
Tabela.Insert;
TabelaEmpresa.value := Empresa.Text;
TabelaLoja.value := Loja.Text;
TabelaTabela.value := ´PRODUTO´ OU QUALQUER TABELA
TabelaCodigo.value := 1;
end
else
TabelaCodigo.value := TabelaCodigo.value + 1;


depos post, e commit

Se vc usa o IBX, poderia usar a propriedade GeneratorField do IBDataset.
Vc soh cria um generator no banco, e ele faz o resto sozinho, é bem prático.

para criar o generator:
create generator nome_generator