TXBrowse no activa flechita 2a columna cSortOrder

[ACC69]

Hola buenos dias de antemano les envio cordial saludos.

Hola amigos les solicito su amable ayuda de como activar segunda columna la flechita con cSortOrder.

Tengo una tabla con indice cdx y dos tags

Pongo Ejemplo:

Use catalogo
index on id_cuenta TAG cuenta
index on nombcta TAG ctadescrip

En la primera columna si aparece activado la flechita, pero porque en la sgunda columna no me activa la flechita, pero si tiene indice, donde hago la busqueda por descripcion del catalago. Uso recursos con PellesC

Pongo la imagen y codigo para ver si alguien del foro me puedan ayudar

Code: Select all  Expand view  RUN

//------------------------------------------------------------------------------
FUNCTION SelCta(Ctaf,S08)
 LOCAL cCta2, cBuscPal,cDescrip // nKey := VK_RETURN
 LOCAL oSDlg, oSBrw,oFont,n
 Local oTextBusc, cTextBusc

 FIELD ID_CUENTA, NOMBCTA

 cBuscPal:= SPACE(40)

 cCta2 := FORMATO1("Ctaf", Ctaf, .F.) // NO PERMITE SEPARAR GUIONES

 (S08)->( DbSelectArea(S08) )

 (S08)->(SetSeek(cCta2))

 DEFINE FONT oFont NAME "ARIAL" SIZE 0,-11 BOLD

 DEFINE DIALOG oSDlg RESOURCE "S_CATALAG" TITLE "Catálogo de cuentas"
  REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
           HEADERS "Cuenta","Descripcion","Saldo Ant" ;
           COLUMNS  { || Ext_xNiv((S08)->ID_CUENTA) }, "NOMBCTA", { || Sdoini(S08) }  ;
           SIZES 114, 240, 80 ;
           PICTURES "@!", "@S50" ;
           ALIAS (S08)->( ALIAS() ) // FOOTERS CELL AUTOCOLS

    AEval( oSBrw:aCols, { |o| o:nEditType     := 0 ,;  //No editables
                              o:nHeadStrAlign := 2 } ) //texto encab/col centrado

    For n := 1 to len( oSBrw:aCols ) //Font segun lineas condicionadas // Como puedo leer el valor ...
         oSBrw:aCols[n]:oDataFont := {|| IF((S08)->TIPONAT = "A", oFont, oSDlg:oFont) }
    Next

    WITH OBJECT oSBrw
     //ESTILOS DE LINEAS
     :nMarqueeStyle      := MARQSTYLE_HIGHLROW //barra selectora
     :lColDividerComplete:= .T. //completa pintado hasta el footer cuando lineas no llenan todo el browse
     :nColDividerStyle   := LINESTYLE_BLACK

     :lHScroll := .F. // Horizontal
     :lVScroll := .T. // Vertical

     :bClrSel      := { || { nRGB(  0,  0,255), aGradBarSel } }  // para barra de linea selecc cuando el control no tiene el foco
     :bClrSelFocus := { || { CLR_BLACK, aGradBarSelFocus } }     // para barra de linea selecc cuando el control tiene el foco
     :lKinetic     := .F.
     :lContrastClr := .F.  //para que no cambie color de texto automaticamente segun intensidad del fondo

     :bLDblClick   := { || oSDlg:END() }
     :bKeyDown     := { |nKey| IF(nKey=VK_RETURN,(oSDlg:END(), .T.),) }

    // Aqui tengo los cSortOrder \\ la segunda :aCols[02]:bLClickHeader:= {|| SelTag(S08,"ctadescrip") } no me activa flechita
     :aCols[1]:cSortOrder := "cuenta"
     :aCols[2]:cSortOrder := "ctadescrip"

     :aCols[01]:bLClickHeader:= {|| SelTag(S08,"cuenta") }
     :aCols[02]:bLClickHeader:= {|| SelTag(S08,"ctadescrip") }
    END

  REDEFINE SAY oTextBusc PROMPT cTextBusc ID 151 OF oSDlg UPDATE COLOR CLR_BLACK,CLR_YELLOW FONT oFont

   oTextBusc:cTooltip:= {"Click sobre cabecera de columna para busqueda respectiva","BUSQUEDA INCREMENTAL          "}

   oSBrw:bSeek := {|c| (S08)->( DbSeek(UPPER(c),.T.) ) }
   oSBrw:oSeek := oTextBusc
 ACTIVATE DIALOG oSDlg ON INIT ( oSBrw:SetFocus() )

 (S08)->( DbSetOrder(1) )

 oFont:End()
RETURN (.T.)

STATIC FUNCTION SelTag(S08,STag)
 DO CASE
    CASE STAG = "cuenta"
          (S08)->( DbSetOrder(1) )
    CASE STAG = "ctadescrip"
          (S08)->( DbSetOrder(2) )
 ENDCASE
RETURN NIL

Espero que alguien del foro me pueda ayudar, por fas, ya que me vi en la necesidad de usar otro indice en la segunda columna ,pero no me activa la flechita

Saludos cordiales .
Atte: Adrian C. C.

[FranciscoA]

En la primera columna si aparece activado la flechita, pero porque en la sgunda columna no me activa la flechita, pero si tiene indice, donde hago la busqueda por descripcion del catalago. Uso recursos con PellesC

Hola Adrian.
A ver si entendi. Querés decir que al clickar la segunda columna no aparece la flechita?

La flechita indica el orden o indice activo para esa columna, y a la vez descendente o ascendente. Al clickar sobre la segunda columna la flechita deberia pasar a esa, y activar el corresp indice. ¿No lo hace??

[ACC69]

En la primera columna si aparece activado la flechita, pero porque en la sgunda columna no me activa la flechita, pero si tiene indice, donde hago la busqueda por descripcion del catalago. Uso recursos con PellesC

Hola Adrian.
A ver si entendi. Querés decir que al clickar la segunda columna no aparece la flechita?

La flechita indica el orden o indice activo para esa columna, y a la vez descendente o ascendente. Al clickar sobre la segunda columna la flechita deberia pasar a esa, y activar el corresp indice. ¿No lo hace??

Hola Ing. Francisco, si asi es efectivamente,no aparece la flechita a la hora de clickear y me debe indicar orden indice activo, y deberia mostrar para que el usuario al clickear abra el tag de la segunda columna, para busqueda de descripcion de las cuentas ,si lo hace, pero no aparece la flechita y para el usuario es confuso,y he visto algunas imagenes, su hasta tres columnas se ven visibles el indice activo, y no necesariamente necesito clickear ascendente o descendente, sino que me muestre activo.

Como se hace, o que me estara faltando dentro del xbrowse.

Y gracias por contestar Francisco.

Atte: Adrian C. C.

[FranciscoA]

Adrian.
En uno de mis programas tengo un xBrowse igual al tuyo, sobre el cual hice algunas pruebas pero he sido incapaz de reproducir el error o inconveniente que te sucede. Puedo sugerirte que hagas lo siguiente:

En vez de

Code: Select all  Expand view  RUN

:aCols[1]:cSortOrder := "cuenta"
 :aCols[2]:cSortOrder := "ctadescrip"
 

prueba asi:

Code: Select all  Expand view  RUN

:cuenta:cSortOrder := "cuenta"
 :descripcion:cSortOrder := "ctadescrip"
 

y omite lo siguiente, ya que xbrowse trae implicito el bLclickHeader cuando se utiliza cSortOrder
:aCols[01]:bLClickHeader:= {|| SelTag(S08,"cuenta") }
:aCols[02]:bLClickHeader:= {|| SelTag(S08,"ctadescrip") }

Prueba y nos comentas.

[ACC69]

Adrian.
En uno de mis programas tengo un xBrowse igual al tuyo, sobre el cual hice algunas pruebas pero he sido incapaz de reproducir el error o inconveniente que te sucede. Puedo sugerirte que hagas lo siguiente:

En vez de

Code: Select all  Expand view  RUN

:aCols[1]:cSortOrder := "cuenta"
 :aCols[2]:cSortOrder := "ctadescrip"
 

prueba asi:

Code: Select all  Expand view  RUN

:cuenta:cSortOrder := "cuenta"
 :descripcion:cSortOrder := "ctadescrip"
 

y omite lo siguiente, ya que xbrowse trae implicito el bLclickHeader cuando se utiliza cSortOrder
:aCols[01]:bLClickHeader:= {|| SelTag(S08,"cuenta") }
:aCols[02]:bLClickHeader:= {|| SelTag(S08,"ctadescrip") }

Prueba y nos comentas.

Hola gracias Ing. Francisco, asi lo tenia anteriormente como indicas y es el mismo resultado,y por eso le cambie usando acols...algo debe faltar desde Redefine Xbrowse o en recurso de pelles c,pero no hallo el resultado,cual deba ser...ya que invesgigue en el foro y asi lo tienen,pero no se porqe en mi caso no me activa la flechita.

A ver si mañana investigo con mas calma.

Saludos Francisco.

[ACC69]

Adrian.
En uno de mis programas tengo un xBrowse igual al tuyo, sobre el cual hice algunas pruebas pero he sido incapaz de reproducir el error o inconveniente que te sucede. Puedo sugerirte que hagas lo siguiente:

En vez de

Code: Select all  Expand view  RUN

:aCols[1]:cSortOrder := "cuenta"
 :aCols[2]:cSortOrder := "ctadescrip"
 

prueba asi:

Code: Select all  Expand view  RUN

:cuenta:cSortOrder := "cuenta"
 :descripcion:cSortOrder := "ctadescrip"
 

y omite lo siguiente, ya que xbrowse trae implicito el bLclickHeader cuando se utiliza cSortOrder
:aCols[01]:bLClickHeader:= {|| SelTag(S08,"cuenta") }
:aCols[02]:bLClickHeader:= {|| SelTag(S08,"ctadescrip") }

Prueba y nos comentas.

Hola gracias Ing. Francisco, asi lo tenia anteriormente como indicas y es el mismo resultado,y por eso le cambie usando acols...algo debe faltar desde Redefine Xbrowse o en recurso de pelles c,pero no hallo el resultado,cual deba ser...ya que invesgigue en el foro y asi lo tienen,pero no se porqe en mi caso no me activa la flechita.

A ver si mañana investigo con mas calma.

Saludos Francisco.

Hola buenos dias de nuevo, al final tuve que añadir el metodo AUTOSORT en Redefine XBrowse,aunque no es como yo lo quiero ,ya que me ordena ascendente y descendente,pero por lo menos me activa la flechita al clickear,ni modo.

Code: Select all  Expand view  RUN

DEFINE DIALOG oSDlg RESOURCE "S_CATALAG" TITLE "Catálogo de cuentas"
  REDEFINE XBROWSE oSBrw ID 101 OF oSDlg ;
           HEADERS "Cuenta","Descripcion","Saldo Ant" ;
           COLUMNS  { || Ext_xNiv((S08)->ID_CUENTA) }, "NOMBCTA", { || Sdoini(S08) }  ;
           SIZES 114, 240, 80 ;
           PICTURES "@!", "@S50" ;
           ALIAS (S08)->( ALIAS() ) [b]AUTOSORT[/b]

Bueno por el momento lo dejo asi por mientras,no se porque no me activa las flechitas de la segunda columna, no se si tenga algo que ver con dbsetorder(1) primer indice,pero en fin.

Saludos cordiales y buen inicio de semana a todos los fivewineros.

Atte: Adrian C. C.
acc69@hotmail.com

[ACC69]

Adrian.
En uno de mis programas tengo un xBrowse igual al tuyo, sobre el cual hice algunas pruebas pero he sido incapaz de reproducir el error o inconveniente que te sucede. Puedo sugerirte que hagas lo siguiente:

En vez de

Code: Select all  Expand view  RUN

:aCols[1]:cSortOrder := "cuenta"
 :aCols[2]:cSortOrder := "ctadescrip"
 

prueba asi:

Code: Select all  Expand view  RUN

:cuenta:cSortOrder := "cuenta"
 :descripcion:cSortOrder := "ctadescrip"
 

y omite lo siguiente, ya que xbrowse trae implicito el bLclickHeader cuando se utiliza cSortOrder
:aCols[01]:bLClickHeader:= {|| SelTag(S08,"cuenta") }
:aCols[02]:bLClickHeader:= {|| SelTag(S08,"ctadescrip") }

Prueba y nos comentas.

Hola Francisco buenas tardes, pregunta, usas xHarbour o Harbour, es por lo referente de la activacion de flechita de las dos columnas, o si es correcto usar autosort

Saludos .

Atte: Adrian C. C.

[FranciscoA]

Hola Adrian.
Uso xHarbour y FWH 1204. Vos, que version de FWH estás usando?

[FranciscoA]

Mira si esto ayuda.
viewtopic.php?f=3&t=28421&hilit=xbrowse+autosort#p159059

[ACC69]

Hola Adrian.
Uso xHarbour y FWH 1204. Vos, que version de FWH estás usando?

Hola Francisco he ahi la diferencia,uso Harbour me cambie por la sugerencia del maestro Antonio Linares,deje de usar xHarbour y uso fivewin 10.06,

Gracias por la info.

Saludos.

[FranciscoA]

Adrian, el siguiente ejemplo funciona en ambos (X)Harbour. Eso sí en FWH1204 aun no lo pruebo con ver 1006.

Code: Select all  Expand view  RUN

Function AutoOrd()
   local oDlg, oBrw, oFont

   DBSELECTAREA("MCONTAB")  

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14

   DEFINE DIALOG oDlg FROM 1,1 TO 400,600 TITLE "PRUEBA BUSQ INCR" FONT oFont PIXEL
   @30,1 XBROWSE oBrw OF oDlg ;
      ALIAS "MCONTAB" ;
      COLUMNS "CUENTA","NOMBRE" ;
      CELL LINES NOBORDER ; //AUTOSORT ;
      SIZE 340,140 PIXEL SORT "MCONTAB","MCONTNOM"

      oBrw:CreateFromCode()

   @ 10,5 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg COLOR CLR_HRED,CLR_YELLOW
    oBrw:bSeek := {|c| MContab->( DbSeek(UPPER(c),.t.) ) }

   ACTIVATE DIALOG oDlg CENTERED
      RELEASE FONT oFont
return nil
 

Saludos.

[ACC69]

Adrian, el siguiente ejemplo funciona en ambos (X)Harbour. Eso sí en FWH1204 aun no lo pruebo con ver 1006.

Code: Select all  Expand view  RUN

Function AutoOrd()
   local oDlg, oBrw, oFont

   DBSELECTAREA("MCONTAB")  

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14

   DEFINE DIALOG oDlg FROM 1,1 TO 400,600 TITLE "PRUEBA BUSQ INCR" FONT oFont PIXEL
   @30,1 XBROWSE oBrw OF oDlg ;
      ALIAS "MCONTAB" ;
      COLUMNS "CUENTA","NOMBRE" ;
      CELL LINES NOBORDER ; //AUTOSORT ;
      SIZE 340,140 PIXEL SORT "MCONTAB","MCONTNOM"

      oBrw:CreateFromCode()

   @ 10,5 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg COLOR CLR_HRED,CLR_YELLOW
    oBrw:bSeek := {|c| MContab->( DbSeek(UPPER(c),.t.) ) }

   ACTIVATE DIALOG oDlg CENTERED
      RELEASE FONT oFont
return nil
 

Saludos.

Gracias Francisco, hago la prueba y te comento.

Saludos y gusto saludarte.

Atte: Adrian C. C.