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.
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.
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."
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
