FiveTech Support Forums

Hola otra duda. En mi programa tengo establecido :

SET CENTURY ON // Ver la fecha con 4 digitos para el año
SET EPOCH TO ( Year(Date())-50 )
SET DATE BRITISH // Formato dd-mm-aaaa

y defino una variable fecha
por ejemplo : vrefilado:= ctod(" / / ")
cuando capturo la fecha :

REDEFINE get ovrefilado Var vrefilado ID 109 oF odpedido

Si no pongo el año: ejemplo : 16/06/ y darle a intro me pone por defecto el año "2000", ejemplo : 15/06/2000. ¿Como podria hacerlo para que pusiera automaticamente 2012 (año en curso)?

Gracias.

Prueba asi vrefilado:= ctod( " / / " + year( date() ) ), saludos...

Esa opción la habia probado, pero poniendola con str, porque year(date()) devuelve numerico, e incluso he probado en
vrefilado : ctod(" / /2012") y vrefilado:=ctod(" / /12") pero nada, no me pone el año.
Gracias por la ayuda.
¿Alguna otra idea?

Si no pongo el año: ejemplo : 16/06/ y darle a intro me pone por defecto el año "2000", ejemplo : 15/06/2000. ¿Como podria hacerlo para que pusiera automaticamente 2012 (año en curso)?

REDEFINE GET oFecha VAR dFecha   ID 101 OF oDlg ; 
VALID ( dFecha:=ctod( StrZero(day(dfecha),2) +"/"+ strZero(month(dFecha),2) +"/"+ str(year(date()),4) ) ,oFecha:Refresh(), .t.)

La opcion de FranciscoA funciona perfectamente, retiro mi opcion, saludos...

Ok. Funciona perfecto.

Muchas Gracias.
PD. Haber si tengo la misma suerte con una consulta anterior que tengo de report.

Garbi:

Y por que no usar la clase DATEPICKER ?

Saludos