[firebase-br] procedure ou trigger que retira acentos

[Marciano Bandeira]

Num é uma trigger ou uma stored procedure, mais acho que resolverá seu
problema.

{*******************************************
  Remover acentos de uma string
*******************************************}
function RemoveAcento(Str:String): String;
Const
ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
Var
x : Integer;
begin
  For x := 1 to Length(Str) do
    if Pos(Str[x],ComAcento)<>0 Then
      Str[x] := SemAcento[Pos(Str[x],ComAcento)];
  Result := UpperCase(Str);
end;

Espero ter ajudado
Marciano Bandeira
MSN: cbnsuporte em hotmail.com