In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Fichero "WebRecords.prg" error en fechas

Foro de Xailer profesional en español
Responder
Avatar de Usuario
josemanuel
Mensajes: 14
Registrado: Mié Oct 28, 2015 8:05 am

Fichero "WebRecords.prg" error en fechas

Mensaje por josemanuel »

Buenos días

He detectado y modificado un error en el fichero "WebRecords.prg", ya que las fechas no las actualiza correctamente.

Los cambios los dejo en negrita:

METHOD GetSqlValue( xValue ) CLASS XWebRecords

LOCAL cValue

SWITCH ValType( xValue )
CASE "D"
IF HB_IsDateTime()
cValue := "'" + ::oDataSource:GetDateSql( xValue ) + "'"
ELSE
cValue := "'" + ::oDataSource:DToSql( xValue ) + "'"
ENDIF
EXIT
CASE "T"
IF HB_IsDateTime( xValue )
cValue := "'" + ::oDataSource:GetDateSql( xValue ) + "'"
ELSE
cValue := "'" + ::oDataSource:DToSql( xValue ) + "'"
ENDIF
EXIT
CASE "L"
cValue := IIF( xValue, "1", "0" )
EXIT
CASE "N"
cValue := Alltrim( Str( xValue ) )
EXIT
CASE "C"
CASE "M"
cValue := "'" + ::oDataSource:StrSql( xValue ) + "'"
EXIT
#ifdef __XHARBOUR__
DEFAULT
#else
OTHERWISE
#endif
cValue := "NULL"
END SWITCH

RETURN cValue
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: Fichero "WebRecords.prg" error en fechas

Mensaje por ignacio »

Hola José Manuel,

Lo miraré con detenimiento. No obstante hay que simplificar ese código, ya que ese lío entre tipos T y D sólo existía cuando se compilaba conjuntamente para Harbour y xHarbour. Gracias por todo.

Un saludo

Nota: supongo que estarás usando Xailer 4 y por tanto Harbour
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder