CEUROANSI() CHAINE DE CARACTÈRES DÉSACCENTUÉE

    * -------------------------------------------------------------
    FUNCTION cEuroANSI  && Chaine de caractères désaccentuée
    LPARAMETERS tcEuropean && Chaine de caractères accentuée
    local lcResult && Chaine de caractères désaccentuée
    m.lcResult = space(0)

    IF Vartype(m.tcEuropean) = 'C' ;
     AND !Empty(m.tcEuropean) ;
     AND !IsNull(m.tcEuropean)

        * Restore translation strings
        IF NOT Vartype(m.European) == 'C' ;
        OR NOT Vartype(m.EuroANSI ) == 'C'
            PUBLIC European, EuroANSI 
            RESTORE FROM (Home()+'european.mem') ADDITIVE
        ENDIF

        * Translate
        m.lcResult = Sys(15, m.EuroANSI, m.tcEuropean)
*       m.lcResult = Chrtran(m.tcEuropean, m.European, m.EuroANSI)
    ENDIF

    RETURN m.lcResult

    * -----------------------------------------------------------------
    PROCEDURE cEuroANSI_Test
    ? Sys(16)
    RELEASE European, EuroANSI 
    ? cEuroANSI (.T.) = space(0)
    ? cEuroANSI (space(0)) = space(0)
    ? cEuroANSI (null) = space(0)
    ? cEuroANSI ('hébété') = 'hebete'
    ? cEuroANSI ('àäâéèêëioòùû') = 'aaaeeeeioouu'
    ? cEuroANSI ('ÀÄÂÉÈÊËIOÒÙÛ') = 'AAAEEEEIOOUU'