FoxPro/Visual FoxPro - Fecha

Hola !!, tengo el siguiente codigo en un boton de formulario :

SET DATE BRITISH
USE facturas
SELECT facturas
COUNT TO cantidad_factur
IF cantidad_factur = 1
SELECT facturacion
APPEND blank
replace facturacion.inicio WITH DATE()
endif

Pero no me guarda la fecha me aparece asi en la tabla : / /
Porque ? ha que se debe ?

Cheka tu campo inicio de tu tabla facturacion si es caracter puedes guardar la fecha con
replace facturacion.inicio WITH CTOD(DATE() ,1)

o convertir el campo a tipo fecha

Suerte

El campo es de tipo fecha, por eso me extraña que no tome la fecha.
Alguna otra idea ?

Crees que la condicion del If se está dando???. Agrega un messagebox para ver si se da

SET DATE BRITISH
USE facturas
SELECT facturas
COUNT TO cantidad_factur
IF cantidad_factur = 1
=messagebox('se da condicion')
SELECT facturacion
APPEND blank
replace facturacion.inicio WITH DATE()
endif

Ya hice lo que dijiste y si, si se da la condicion.

No estas utilizando el SET SYSFORMAT ???

No, Porque ?

Si tienes un archivo que setea utilizalo ahi para ver si realmente funciona.


y te cambia el formato de la fecha.

Suerte

Hola Negra vi tu foro en la Web y creo que esto te puede ayudar, no soy un programador de la Web, pero te puedo ayudar.

Debes convertir de String a Character ó de Character a String.

De Fecha a String
Function vfp_sql(ldFecha)
if type("ldFecha")<>"D"
= messagebox("Datos no es tipo Fecha",16+0,"ERROR")
return ""
endif

return dtos(ldFecha)
endfuc

De String a Fecha
Function vfp_sql(ldFecha)
if type("ldFecha")<>"C"
= messagebox("Datos no es tipo character",16+0,"ERROR")
return {}
endif
return ctod(left(lcFecha, 2+"-"+substring(lcFecha,4)+"-"+rigth(lcFecha,2,2)))
Suerte

Ing. Juan Pablo Gonzalez Rodriguez