CREATE OR ALTER function FN_REMOVE_ACENTOS (
    STRING blob sub_type 1 segment size 80 character set UTF8)
returns blob sub_type 1 segment size 80
AS
begin
--    STRING = upper(STRING);

    STRING = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
    :STRING,'Ã','A'),'Ã‡','C'),'Ãƒ','A'),'Ã”','O'),'Ãš','U'),'Ã‰','E'),'Ã“','O'),'Ã•','O'),'Ã’','O'),'ÃŠ','E'),'Ãˆ','E'),'Ã€','A'),'Ã','I'),'Ã‚','A');

    string = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
    :string,'Ã¡','a'),'Ã§','c'),'Ã£','a'),'Ã´','o'),'Ãº','u'),'Ã©','e'),'Ã³','o'),'Ãµ','o'),'Ã²','o'),'Ãª','e'),'Ã¨','e'),'Ã ','a'),'Ã­','i'),'Ã¢','a');

    return STRING;
end;