**************************************** FUNCTION RemoveAccents(tcStringInput) **************************************** LOCAL lcStringFilterIn, lcStringFilterOut, lcStringOutput lcStringFilterIn = "ÁÉÍÓÚáéíóúÀÈÌÒÙàèìòùÂÊÎÔÛâêîôûÄËÏÖÜäëïöüÃÕãõÇçÑñº" lcStringFilterOut = "AEIOUaeiouAEIOUaeiouAEIOUaeiouAEIOUaeiouAOaoCcNno" lcStringOutput = CHRTRAN(tcStringInput, lcStringFilterIn, lcStringFilterOut) RETURN (lcStringOutput) ENDFUNCHope this helps