Clipper/FiveWin - LISTBOX

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

Ola,
neste caso, quando for criar a LISTBOX, deve-se colocar uma função que saiba quantas bodegas irao ter .

Por exemplo:

aBodega:=[1]
aHeader:=[1]
USE BODEGAS ALIAS BOD
IF BOD->Bod_001
aBodega[BOD->Bod_001]
aHeader:=["BODEGA 1"]

ELSEIF BOD->Bod_002
aBodega[BOD->Bod_001,BOD->Bod_002]
aHeader:=["BODEGA 1 "+"BODEGA 2 "]
ELSEIF BOD->Bod_003
aBodega[BOD->Bod_001,BOD->Bod_002,BOD->Bod_003]
aHeader:=["BODEGA 1 "+"BODEGA 2 "+"BODEGA 3"]
..... ate Bod_010
ENDIF

Quando criar a LISTBOX colocar FIELDS Cod_Art,Det_Art, aBodega .....
HEADER 'Codigo", "Detalhe", aHeader ......


Abraços e Boas Festas

Nelson Nunes de Araujo
Brasil, 31/12/2005