FiveTech Support Forums

Colegas: Lo prometido es Deuda...

Para todos los que hemos sufrido por el fallo de la función SETDATE() de Fivewin, la que por alguna extraña razón apartir de las 7:00 PM atrasa 1 día a la fecha, he encontrado la solución, no es la gran cosa pero es efectiva dada a las pruebas que realize en 2003, WinXP y 2000, no dudo en que tambien funcione en versiones anteriores de Guindougs, ya que se trata de crear un archivo .BAT, el cual contiene el comando DATE y la fecha a modificar y correrlo, ya que desde comandos del DOS no falla el cambio de Fecha.

Observación:

dFechaCam:= Es la fecha completa a cambiar en formato (dd/mm/aa)

//--------------------------------------------------------------------------//
FUNCTION CambioMes(dFechaCam)

LOCAL cFecha:= "DATE "+STRZERO(DAY(dFechaCam),2)+"-"+STRZERO(MONTH(dFechaCam),2)+"-"+STRZERO(YEAR(dFechaCam),4)
LOCAL cFile:= ".\FECHA.BAT"
LOCAL nHandle:= FCREATE(cFile)

 FWRITE(nHandle, cFecha)
  INKEY(0.2)
 FCLOSE(nHandle)
  INKEY(0.2)
WaitRun(cFile,0)
  INKEY(0.2)  
 FERASE(cFile)

RETURN nil

Espero les sirva mi pequeña contribución, como les dije, no es la gran cosa , pero es una solución rápida y sencilla..

Saludos....

I.S.C. Víctor Daniel Cuatécatl León

www.sisa.unlugar.com