>>Select Codigo From Clientes Where Codigo = m.Codigo Into Array Repetido

>>A idéia é mais ou menos essa aí... Sempre teste antes de gravar e se estiver repetido, chame novamente a rotina para gerar o código.

Olá Rodolfo

Isso funciona bem até certo ponto, pois se você tem uma chave de índice Codigo, o SQL-SELECT usará o Rushmore para tornar a busca instantânea. Se seu índice tiver sido danificado por uma queda de força, isso tudo fica comprometido e se você desabilitar o Rushmore a busca ficará muito lenta.
Solução que encontrei: Crio uma tabela chamada ChavesTabelas que conterá o próximo código para outras tabelas e esta tabela é que é incrementada, como por exemplo

Tabela Codigo
Clientes 001051
Itens 008730
Vendedores 000025

Para a tabela ChavesTabelas eu não crio índice nenhum pois são poucos registros. Em testes que fiz fica perfeito.