Desenvolvi uma Store Procedure para gerar o código fonético de um texto, a rotina foi baseada em uma edição da DBFree com um artigo sobre Busca fonética no Firebird, onde ensina a construir uma UDF que utiliza as mesmas características do algoritmo Soundex do MS SQL Server 2000. Como já tenho inclusive uma UDF de busca fonética compilada e desenvolvida no Kylix (sorry), resolvi implementar alguma coisa que não ficasse dependendo de compilação de terceiro como no caso das UDF´s. Atenção! Necessita do Firebird 2.1 ou superior.
O processo é dividido entre três store procedures:
Soundex (principal que gera o código fonético)
Soundex_Palavra (que calcula o código de cada palavra)
Soundex_Grupo (que verifica qual grupo o caractere do texto pertence)
Fábio P. Santos (fpsgyn em gmail.com)