FUNCION PARA COLOCAR FECHAS EN FORMATO

DMA->DD/MMM/AAAA
AMD->AAAA/MMM/DD
MDA->MMM/DD/AAAA
LONG-> DD de MMMMMMMMMM de AAAA

FUNCTION FFECHA(F,MFMTO,FSOURCE)
********************************
IF VALTYPE(F) = "C"
IF FSOURCE="AMDL"
F = CTOD(SUBSTR(F,9,2)+"/"+SUBSTR(F,6,2)+"/"+SUBSTR(F,1,4))
ELSE
M = VAL(F)
ENDIF
ENDIF

IF VALTYPE(F) = "D"
M = MONTH(F)
ENDIF

IF VALTYPE(F) = "N"
M = F
ENDIF
DECLARE MMES[12]
IF M>0 .AND. M <13
MMES[01]="ENE"
MMES[02]="FEB"
MMES[03]="MAR"
MMES[04]="ABR"
MMES[05]="MAY"
MMES[06]="JUN"
MMES[07]="JUL"
MMES[08]="AGO"
MMES[09]="SEP"
MMES[10]="OCT"
MMES[11]="NOV"
MMES[12]="DIC"
IF VALTYPE(F) = "D"
do case
case MFMTO ="DMA"
MMESR = STRZERO(DAY(F),2)+"/"+MMES[M]+"/"+STR(YEAR(F),4)
CASE MFMTO ="MDA"
MMESR = MMES[M]+"/"+STRZERO(DAY(F),2)+"/"+STR(YEAR(F),4)
CASE MFMTO ="AMD"
MMESR = STR(YEAR(F),4)+"/"+MMES[M]+"/"+STRZERO(DAY(F),2)
CASE MFMTO ="LONG"
MMESR = STRZERO(DAY(F),2)+" de "+TRIM(fXmesletras(M))+" de "+STR(YEAR(F),4)
OTHERWISE
MMESR = STRZERO(DAY(F),2)+"/"+MMES[M]+"/"+STR(YEAR(F),4)
ENDCASE

ELSE
MMESR = MMES[M]
ENDIF
ELSE
MMESR=" "
ENDIF
RETURN(MMESR)

Function fxMesletras(mes)
*********************
Local mesletras
if valtype(mes)="D"
mes = month(mes)
ENDIF

if valtype(mes)="C"
mes=val(MES)
ENDIF

do case
case mes=1
mesletras:="Enero "
case mes=2
mesletras:="Febrero "
case mes=3
mesletras:="Marzo "
case mes=4
mesletras:="Abril "
case mes=5
mesletras:="Mayo "
case mes=6
mesletras:="Junio "
case mes=7
mesletras:="Julio "
case mes=8
mesletras:="Agosto "
case mes=9
mesletras:="Septiembre "
case mes=10
mesletras:="Octubre "
case mes=11
mesletras:="Noviembre "
case mes=12
mesletras:="Diciembre "
endcase
return(mesletras)

_________________
Saludos.
German