Page 2 of 2

Re: Index Decreciente

Posted: Thu Feb 11, 2010 7:59 pm
by acuellar
He logrado solucionar de esta manera

Code: Select all | Expand


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

Re: Index Decreciente

Posted: Thu Feb 11, 2010 9:10 pm
by mmercado
Hola Adhemar:
acuellar wrote: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 :D

Un abrazo.

Re: Index Decreciente

Posted: Fri Feb 12, 2010 12:40 pm
by acuellar
Gracias distinguido por responder y la ayuda.

Lo logré asi:

Code: Select all | Expand


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

Re: Index Decreciente

Posted: Fri Feb 12, 2010 1:31 pm
by jrestojeda
Hola...
XBrowse tal como lo aclara el maestro Manuel lo maneja automático.

Code: Select all | Expand

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.

Re: Index Decreciente

Posted: Fri Feb 12, 2010 2:44 pm
by acuellar
Gracias Esteban, funciona perfecto

Saludos

Adhemar