FoxPro/Visual FoxPro - Quitar acento

Hola a todos!
Como puedo quitarle el acento a una palabra que tengo en una variable (en este caso “pam3”)?

Yo utilizo esto:

pam3=UPPER( CHRTRAN(pam3,"á","A"))
pam3=UPPER(CHRTRAN(pam3,"é","E"))
pam3=UPPER(CHRTRAN(pam3,"í","I"))
pam3=UPPER(CHRTRAN(pam3,"ó","O"))
pam3=UPPER(CHRTRAN(pam3,"ú","U"))

pero no funciona, el upper lo utilizo para poner todo en mayúsculas y esto si funciona, pero el acento no me lo quita.

Alguna idea?

el tema pasa porque la primer instruccion,

pam3=UPPER( CHRTRAN(pam3,"á","A"))

ya te convierte a mayuscula y cuando llega a

pam3=UPPER(CHRTRAN(pam3,"ó","O"))

ya esta todo en mayuscula, proba con lo siguiente

do case
case "á"$pam3
pam3=UPPER( CHRTRAN(pam3,"á","A"))
case "é"$pam3
pam3=UPPER( CHRTRAN(pam3,"é","A"))
case "í"$pam3
pam3=UPPER( CHRTRAN(pam3,"í","A"))
case "ó"$pam3
pam3=UPPER( CHRTRAN(pam3,"ó","A"))
case "ú"$pam3
pam3=UPPER( CHRTRAN(pam3,"ú","A"))

endcase

Quitar todo los Acentos:

?CHRTRAN(micadena, "áéíóúÁÉÍÓÚ","aeiouAEIOU")

Suerte

Esta es muy buena definitivamente

Muy bien adrian :-)

esa es la correcta y difinitiva sin tantas vueltas ni tanta lampara

Yo creo con los "letras raras" (letras acentuadas, ñ, º) tanto en mayúsculas como en minísculas y ejecuto el siguiente programa
close data
SELE 2
USE ACENTOS
COUNT TO cuantos
DECLA ArrAcentos(cuantos,2)
SCAN
ArrAcentos(RECNO(),1)=RTRIM(queesta)
ArrAcentos(RECNO(),2)=RTRIM(reemplazo)
ENDSCAN

SELE 1
USE BASERARA ALIAS MOVIM && La base de dato que tiene el campo "Raro" con "letras raras",
SCAN
FOR t=1 TO cuantos && porque en el campo puede haber +de una palabra rara
IF ArrAcentos(t,1)$Movim.Raro
voyacambiar=STRTRAN(Movim.Raro,ArrAcentos(t,1),ArrAcentos(t,2))
REPLA Movim.Raro WITH voyacambiar
ENDIF
ENDFOR
ENDSCAN

pam3 = sintilde(pam3)

Procedure sintilde
parameter texto
resultado = strtran(strtran(strtran(strtran(strtran(texto,"á","a"),"é","e"),"í","i"),"ó","o"),"ú","u")
return resultado