Index Decreciente

[acuellar]

He logrado solucionar de esta manera

Code: Select all

Local lOrd:=.T.
...
oCol:cSortOrder:="A"
oCol:bLClickHeader:= {|| ( OrdSetFocus(1),RUBRO->( OrdDescend(,,lOrd) ),lOrd:=!lOrd ) }
 

Lo que no puedo hacer es que la flechita del Header cambie, siempre sale apuntado hacia arriba, colocando cualquier caracter "A" ,"D"...

Gracias por la ayuda

Saludos

Adhemar

[mmercado]

Hola Adhemar:

Lo que no puedo hacer es que la flechita del Header cambie, siempre sale apuntado hacia arriba, colocando cualquier caracter "A" ,"D"...

xBrowse lo maneja en automático, en todo caso creo que solo deberías definir el TAG del índice en oCol:cSortOrder para cada columna, la variable que controla el orden ascendente o descendente es oCol:cOrder cuyo valor puede ser "A" o "D" pero insisto en que xBrowse lo maneja de manera automática. No soy experto en xBrowse pero creo que por allí van los tiros

Un abrazo.

[acuellar]

Gracias distinguido por responder y la ayuda.

Lo logré asi:

Code: Select all

Local lOrd:=.T.
...
oCol:bLClickHeader:= {|| ( OrdSetFocus(1), OrdDescend(,,lOrd) ,lOrd:=!lOrd,oBrw:aCols[1]:cOrder:=if(lOrd,"A","D") }
 

Quizas alguien tenga algo mas directo.

Este funciona y espero le sirva al que lo necesite.

Saludos

Adhemar

[jrestojeda]

Hola...
XBrowse tal como lo aclara el maestro Manuel lo maneja automático.

Code: Select all

oLbx:aCols[ 1]:cSortOrder   :="CLIENT1" 
 

"CLIENT1" es uno de los tags del CDX, al darle click al título de la columna ordena por ese tag y al darle nuevamente a la misma columna la ordena de forma decreciente y pone flechita arriba o flechita abajo según corresponda. Todo lo hace automático.

[acuellar]

Gracias Esteban, funciona perfecto

Saludos

Adhemar