FoxPro/Visual FoxPro - urgente fechas

Hola programadores hasta ayer funcionaba bien este codigo
alltrim(STR(DAY(consultas.fecha)))+" de "+ CMONTH(consultas.fecha)+ " del "+ alltrim(STR(YEAR(consultas.fecha)))

hoy muestra el mes en ingles y ahora como se puede corregir eso lo necesito en español

crea un archivo de procedimiento para devolverlo siempre en Español, Como?

*!! cargar archivo de procedimiento
set procedure to Prgs\X.prg Additive

*!! Correr la funcion
? MesEsp(Month(date()))

*!! Archivo de procedimiento X.prg

function MesEsp(nMes)
nMes = iif(pcount() = 0, month(date()), nMes)
Declare MEsp(12)
MEsp(1) = "Enero"
MEsp(2) = "Febrero"
MEsp(3) = "Marzo"
MEsp(4) = "Abril"
MEsp(5) = "Mayo"
MEsp(6) = "Junio"
MEsp(7) = "Julio"
MEsp(8) = "Agosto"
MEsp(9) = "Septiembre"
MEsp(10) = "Octubre"
MEsp(11) = "Noviembre"
MEsp(12) = "Diciembre"

Return MEsp(nMes)
endfunc

algo asi tambien funcionaria
FUNCTION RRMES(R_MES) && CONVIERTE MES A CARACTERES
LOCAL RC_MES:={"ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO",;
"AGOSTO","SEPTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE"}
RETURN IF(R_MES>0.AND.R_MES<13,RC_MES[R_MES],"

Ya que sucedio algo puedes hacer esto: Crear un arreglo bidimensional; mes y descripcion, alli puedes obtener el mes en español.....

algo asi tambien funcionaria
FUNCTION RRMES(R_MES) && CONVIERTE MES A CARACTERES
LOCAL RC_MES:={"ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO",;
"AGOSTO","SEPTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE"}
RETURN IF(R_MES>0.AND.R_MES<13,RC_MES[R_MES],"

Sencillo solo coloca este codigo asignandole a cada variebale el dia, mes. año

dFecha = Ctod(cFecha)
cNomDia = Cdow(dFecha)
cDia = Str(Day(dFecha), 2)
cMes = Cmonth(dFecha)
cAnno = Str(Year(dFecha), 4)
cFecha = cNomDia + " " + cDia + " de " + cMes + " de " + cAnno

espero te sea de gran utilidad.