L I S T B O X (Espero que me Entiendan Ahora)

[felipe]

Bueno amigos a lo mejor no me explique bien, resulta que tengo 2 base de datos una con bodegas otra con articulos, la base articulos la tengo definida asi con sus campos
cod_Art,Det_Art,Pre_Art,Bod_001,Bod_002,Bod_003, hasta la Bod_010 y la base bodega
Cod_Bod,Det_Bod
en el programa lo tengo definido hasta 10 bodegas,
Bueno si existe una bodega tiene que ser asi:

Base ARTICULO
REDEFINE LISTBOX oLbx FIELDS Cod_Art,Det_Art,Bod_001;
si tengo dos
REDEFINE LISTBOX oLbx FIELDS Cod_Art,Det_Art,Bod_001,Bod_002;
si tengo tres
REDEFINE LISTBOX oLbx FIELDS Cod_Art,Det_Art,Bod_001,Bod_002,Bod_003;
y asi si existiera hasta 10
Pero esto quiero que el sistema detecte las bodegas y ponga las segun existan

Espero que me Entiendan
Saludos

[Antonio Linares]

Felipe,

La solución es llamar a una función que construya el codeblock con el contenido a mostrar:

Code: Select all  Expand view

REDEFINE LISTBOX oLbx FIELDS ""

oLbx:bLine = GenColumns()

...

function GenColumns()

   local bLine

   do case
       case ...
               bLine = { || { Cod_Art,Det_Art,Bod_001 } }

       case ...
               bLine = { || { Cod_Art,Det_Art,Bod_001,Bod_002 } }

       case ...
               bLine = { || { Cod_Art,Det_Art,Bod_001,Bod_002,Bod_003 } }
       ...
   endcase

return bLine


Observa que bLine es un codeblock que devuelve un array.

[felipe]

Antonio gracias por responder pero el Listbox ahora me lo muestra en blanco pero igual me puedo mover en el Listbox si estubieran ahi los articulos incluso hago click y al salir me mustra el Detalle del producto
Saludos

[Antonio Linares]

Felipe,

También tienes que asignar aColSizes y aHeaders. Estos son arrays con el ancho de cada columna en pixeles y aHeaders con el texto de encabezado de cada columna.