Xbrowse desde array vacio

[nageswaragunupudi]

It is much easier to write code in XBrowse than WBrowse. The above code

Code: Select all

REDEFINE LISTBOX oLbxA ; 
FIELDS aDetalle[oLbxA:nAt, 2], ; 
aDetalle[oLbxA:nAt, 3], ; 
STR(aDetalle[oLbxA:nAt, 4],12,3), ; 
STR(aDetalle[oLbxA:nAt, 5],12,3), ; 
STR(aDetalle[oLbxA:nAt, 6],12,3) ; 
HEADERS "Producto", ; 
"Unidad", ; 
"Cantidad", ; 
"Precio", ; 
"Sub Total" 

can be written as

Code: Select all

REDEFINE XBROWSE oLbxA ;
COLUMNS 2, 3, 4, 5, 6 ;
HEADERS 'Producto','Unidad','Candidad','Precio','Sub Total' ;
OF oLbxA ARRAY aDetalle

for XBrowse.

We get better and more reliable results by using the command facilities provided by xBrowse commands.

[quique]

Con listbox es mas fácil, con xbrowse tanto usando FIELDS como usando COLUMNS marca error con arrays vacios

[Antonio Linares]

Quique,

No se trata de un error con xBrowse. Es un problema con la forma de escribir la expresión en la lista de campos.

Si escribimos una expresión aData[ oBrw:nArrayAt ][ 3 ], fallará cuando aData esté vacío, porque aData[ 0 ][ 3 ] da error en tiempo de ejecución.
No podemos culpar a xbrowse por ello. Si queremos escribir la cláusula FIELDS nosotros mismos, debemos ser capaces de manejar un array vacío también. La expresión debe ser algo así como If( oBrw: nArrayAt == 0, Space (13), aData[ oBrw:nArrayAt ][ 3 ] ).

Cuando usamos la cláusula COLUMNS, xBrowse automáticamente se encarga de todas esas situaciones.

[Armando]

Maestro Antonio:

Con Record Set y COLUMNS tambien xBrowse se encarga de todo ?

Saludos

[quique]

Antonio, estoy conciente de ello, pero lo comentaba porque nageswaragunupudi decía que así lo manejaba el en twbrowse, pero el problema es el hecho de tener un array vacío, como decía mas arriba, tampoco tener un array vació es un error, el poroblema es que la función constructora no es capaz de permitirlo

[Antonio Linares]

Armando,

Si, así es. El método SetAdo() llama al método SetColFromADO() (de uso interno por xbrowse) y construye las columnas automaticamente.