Bug en xBrowse 8.05
Posted: Fri Jul 11, 2008 9:05 am
La propiedad "cSortOrder" de la clase "TXBrwColumn" puede ser un codeblock.
Ese codeblock es evaluado en el método SetOrder() y el resultado grabado en la variable uRet.
El contenido de la variable es comparada para saber si se ha realizado la ordenación correctamente.
Si el resultado que devuelve el codeblock es "A" o "D", dato que haría falta devolver para saber si se tiene que mostrar el bmp ascendente o el bmp descendente en la columna, genera un error ya que se esta comprobando si "uRet==.t."
Ese codeblock es evaluado en el método SetOrder() y el resultado grabado en la variable uRet.
- Code: Select all Expand view
METHOD SetOrder() CLASS TXBrwColumn
LOCAL lSorted := .F.
LOCAL n, oCol, cSort, uRet
if ::cSortOrder != nil
if ValType( ::cSortOrder ) == "B"
uRet := Eval( ::cSortOrder, Self )
lSorted := ( uRet == .t. .or. uRet == "A" .or. uRet == "D" )
El contenido de la variable es comparada para saber si se ha realizado la ordenación correctamente.
- Code: Select all Expand view
lSorted := ( uRet == .t. .or. uRet == "A" .or. uRet == "D" )
Si el resultado que devuelve el codeblock es "A" o "D", dato que haría falta devolver para saber si se tiene que mostrar el bmp ascendente o el bmp descendente en la columna, genera un error ya que se esta comprobando si "uRet==.t."