Encabezados en XBrowse

[Vikthor.Thomas]

Buen día a tod@s

Cuando uso la clase xBrowse para mostrar el contenido de un array. Ocurren dos cosas.
Sí el arreglo está vacío, sólo se muestra una columna con el título "Columna", en caso contrario los títulos se muestran correctamente.

Alguna sugerencia para mostrar los encabezados de forma correcta, aun cuando el arreglo de datos este vacío.

Saludos

[nageswaragunupudi]

Code: Select all  Expand view

local aData := {}

@ 0,0 XBROWSE oBrw OF oWnd DATASOURCE aData ;
         COLUMNS 1, 2, 3, 4, 5 ;
         HEADERS "One", "Two", "Three", "Four", "Five" ;
         CELL LINES NOBORDER
 

[Vikthor.Thomas]

Gracias por responder

Estoy usando la clase xBrowse con esta sintaxis :

Code: Select all  Expand view

REDEFINE XBROWSE oLbx  HEADERS "Columna","Titulo","Expresión","Longitud","Decimales","Total" DATASOURCE aCols ID 702 OF oDlg CELL LINES AUTOCOLS
 

Cuando el arreglo aCols tiene elementos, los encabezados se muestran correctamente. Pero cuando el arreglo está vacío, unicamente se muestra la primer columna.

[Francisco Horta]

Victor,

yo lo uso asi sin problemas

aComandas := {}

REDEFINE xBROWSE oBrw ;
COLUMNS 1 ;
HEADERS "No. Comanda" ;
COLSIZES 100 ;
ARRAY aComandas ;
ID 300 OF oDlg ;
FONT oFont ;
LINES FASTEDIT CELL

[nageswaragunupudi]

Gracias por responder

Estoy usando la clase xBrowse con esta sintaxis :

Code: Select all  Expand view

REDEFINE XBROWSE oLbx  HEADERS "Columna","Titulo","Expresión","Longitud","Decimales","Total" DATASOURCE aCols ID 702 OF oDlg CELL LINES AUTOCOLS
 

Cuando el arreglo aCols tiene elementos, los encabezados se muestran correctamente. Pero cuando el arreglo está vacío, unicamente se muestra la primer columna.

Please do not use AUTOCOLS. Please use COLUMNS clause.

Code: Select all  Expand view

REDEFINE XBROWSE oLbx  COLUMNS 1,2,3,4,5,6 HEADERS "Columna","Titulo","Expresión","Longitud","Decimales","Total" DATASOURCE aCols ID 702 OF oDlg CELL LINES
 

[Vikthor.Thomas]

Gracias por la ayuda
El código funciona perfecto