Xailer forum

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

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