Solución al BUG de SETDATE() de Fivewin

Solución al BUG de SETDATE() de Fivewin

Postby cuatecatl82 » Wed Sep 12, 2007 3:28 pm

Colegas: Lo prometido es Deuda... :lol:
:lol:

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 :oops: , pero es una solución rápida y sencilla.. :lol:

Saludos....

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

www.sisa.unlugar.com
User avatar
cuatecatl82
 
Posts: 625
Joined: Wed Mar 14, 2007 6:49 pm
Location: San Cristobal de las Casas, Chiapas México

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 39 guests