xBrowse - Columna Descendente (Solucionado)

[MarioG]

Estimados;
Tengo una DBF, administrada con ADS, y un campo numerico del cual genero un índice que indico sea Descendente
Cuando ejecuto la App, la vista es con el orden deseado, aunque el ícono de la cabecera de columna, lo muestra como Descendente
Mi codigo es el siguiente:

Code: Select all  Expand view

  REDEFINE XBROWSE ::oBrwCab ID 300 OF oDlg FONT ::hFont["Tahoma15"] ;
            COLUMNS "FFeVta01", "FHsVta01", "FDocInt1", "FCabFa04" ;
            ALIAS   h0["CabFacVta"]:cAlias AUTOSORT
...
   WITH OBJECT ::oBrwCab:FDocInt1
      :cHeader:= "Código"
      :nHeadStrAlign:= :nDataStrAlign:= AL_LEFT
      :nWidth := 85
      :cOrder:= "D"         // No obstante muestra como "A"

      :bStrData:= {|| Str( (h0["CabFacVta"]:cAlias)->FDocInt1, 10, 0, TRUE ) }
   END
 

Antes de esto. Tenía mi indice con orden Natural, y con la declaración arriba mostrada; como no cambiaba el orden, lo hice en el índice.
Hay algo que me falta tener en cuenta?

Uso FWH 1204

[Armando]

Mario:

Creo que te falta indicar el BMP a mostrar

Code: Select all  Expand view

  REDEFINE XBROWSE ::oBrwCab ID 300 OF oDlg FONT ::hFont["Tahoma15"] ;
            COLUMNS "FFeVta01", "FHsVta01", "FDocInt1", "FCabFa04" ;
            ALIAS   h0["CabFacVta"]:cAlias AUTOSORT
...
   WITH OBJECT ::oBrwCab:FDocInt1
      :cHeader:= "Código"
      :nHeadStrAlign:= :nDataStrAlign:= AL_LEFT
      :nWidth := 85
      :cOrder:= "D"         // No obstante muestra como "A"
      :nHeadBmpNo   := 2          // ESTA LINEA PARA MOSTRAR EL BMP DESCENDENTE

      :bStrData:= {|| Str( (h0["CabFacVta"]:cAlias)->FDocInt1, 10, 0, TRUE ) }
   END
 

Saludos

[MarioG]

Armando; gracias por responder
En realidad no lo comente, pero el bmp se muestra, solo que indicado Ascedente (muestro imagen)

[Armando]

Mario:

En tu código no veo definido el BMP y asumo que por default te coloca el ascendente (1), intenta
definirlo con la línea que te incluí, para indicarle que muestre el bmp descendente.

Saludos

[MarioG]

Armando;
disculpa, no lo mencione, compile incluyéndolo, la respuesta es al misma

gracias, nuevamente

[Armando]

Mario:

Con esta línea en el ON INIT de tu ventana o dialogo solucionas el problema

Code: Select all  Expand view

ACTIVATE WINDOW oWnd ON INIT (oBrw:aCols[01]:cOrder := "D",oBrw:aCols[01]:nHeadBmpNo    := 2)
 

Saludos

[MarioG]

Efectivamente!
solucionado, gracias!