FiveTech Software tech support forums

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.

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."

Fernando,

Lo vamos a revisar y te contestamos cuanto antes, gracias

Fernando,

// lSorted := ( uRet == .t. .or. uRet == "A" .or. uRet == "D" )

lSorted := ValType( uRet ) == 'C' .and. uRet $ 'AB' .and. ! ( uRet == ::cOrder )

Antonio,

Muchas gracias.

Voy a implementarlo

Me imagino que es un error de escritura pero creo que lo correcto es:
uRet $ 'AD'
en lugar de:
uRet $ 'AB'

Fernando,

Si, gracias