FiveTech Support Forums

Me da error cuando toma la fecha y devuelvo en forma texto
, esto me da con Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9381) y con la version de xharbour Rev 6717 funciona bien

Hola, prueba si:

Prueba asi

Date2Txt(SQLField(cRec_Gen,"Rec_Femisi")),"")

/
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
° Funcion: Date2Txt()
Argumentos: 6
Argumento 1: La fecha a convertir variable tipo fecha
Argumento 2: Tipo de nombre del día 1=Corto, 2=Largo Ejem: 1=Sáb, 2=Sábado
Argumento 3: Tipo de nombre del mes 1=Corto, 2=Largo Ejem: 1=Ene, 2=Enero
Argumento 4: Tipo de año 1=2 dígitos, 2=4 dígitos Ejem: 1=99, 2=1999
Argumento 5: Separador entre el día de la semana y la fecha
Argumento 6: separador entre dia y mes
Argumento 7: separador entre mes y año
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
/
FUNCTION Date2Txt(dFecha, nTipdia, nTipMes, nTipAmo, cSepDia, cSepDM, cSepMA)
LOCAL aNomMes:= {"Enero", "Febrero", "Marzo", "Abril", "Mayo", ;
"Junio", "Julio", "Agosto", "Septiembre", "Octubre", ;
"Noviembre", "Diciembre"}
LOCAL aNomDia:= {"Domingo", "Lunes", "Martes", "Míercoles", ;
"Jueves", "Viernes", "Sábado"}

LOCAL La_Fecha := ""

IF EMPTY(dFecha)
    dFecha  := DATE()
ENDIF

IF EMPTY(nTipDia)
    nTipDia := 0
ENDIF

IF EMPTY(nTipMes)
    nTipMes := 1
ENDIF

IF EMPTY(nTipAmo)
    nTipAmo := 2
ENDIF

IF cSepDia == NIL
    cSepDia := SPACE(1)
ENDIF

IF cSepDM == NIL
    cSepDM  := "/"
ENDIF

IF cSepMA == NIL
    cSepMA  := "/"
ENDIF

DO CASE
    CASE nTipdia == 1
        La_Fecha:= LEFT(aNomDia[DOW(dFecha)], 3) + cSepDia
    CASE nTipdia == 2
        La_Fecha:= aNomDia[DOW(dFecha)] + cSepDia
ENDCASE

La_Fecha:= La_Fecha + STR(DAY(dFecha), 2, 0)

DO CASE
    CASE nTipMes == 1
        La_Fecha:= La_Fecha + cSepDM + LEFT(aNomMes[MONTH(dFecha)], 3)
    CASE nTipMes == 2
        La_Fecha:= La_Fecha + cSepDM + aNomMes[MONTH(dFecha)]
ENDCASE

DO CASE
    CASE nTipAmo == 1
        La_Fecha:= La_Fecha + cSepMA + RIGHT(STR(YEAR(dFecha), 4, 0), 2)
    CASE nTipAmo == 2
        La_Fecha:= La_Fecha + cSepMA + STR(YEAR(dFecha), 4, 0)
ENDCASE

RETURN (La_Fecha)

Saludos

Le hize un seguimiento al codigo y la funcion es bien, ya detecte el problema, pero no le encuentro solucion.
Para mi es la version de xharbour o implica volver a compilar del fwh tengo la 11.03 y la trabajo xharbour Rev 6717 y trabaja bien cuando compilo con xharbour rev 9381 es donde presenta problemas.

El error se me esta presentando en esta linea
uVal := oDatxx:Fields( cStrField ):Value

No me esta asignado el valor de la fecha.

José:

Parece que mi funcion Date2Txt() sigue dando hebra,

Saludos

Armando wrote:José:

Parece que mi funcion Date2Txt() sigue dando hebra,

Saludos

Gracias Armardo

Date2Txt(SQLField(cRec_Gen,"Rec_Femisi")),"")

Vi tu codigo pero cual es no veo la funcion SQLField es funa funcion de compilador.

Rubén:

La función SQLField() es propia de José, pero si miras la función Date2Txt() facilmente sabras lo que
debes enviarle

FUNCTION Date2Txt(dFecha, nTipdia, nTipMes, nTipAmo, cSepDia, cSepDM, cSepMA)

Aunque algunos parámetros son opcionales, por ejemplo la puedes usar así

MsgInfo(Date2Txt(DATE())) => 14/Jul/2011

o más simple aún

MsgInfo(Date2Txt()) => 14/Jul/2011

Saludos