Clipper/FiveWin - problema con Listbox

Hola compañeros:

Nuevamente me surge una duda. Tengo que mostrar mediante un listbox una DBF con 2 campos (CODIGO, CANTIDAD) pero necesito que este listbox muestre 3 columnas: CODIGO, DESCRIPCION y CANTIDAD. Obviamente el campo DESCRIPCION lo debe coger del DBF ARTICULO.
Como lo hago ?? Probé con la clausula "on change" pero no lo muestra correctamente.
Seguramente será definiendo el objeto oListbox, pero como se hace?

Mi codigo:

Use ARTICULOS INDEX cArti Shared
Use VENTAS INDEX CVENTAS Shared
Redefine Listbox oListbox fields VENTAS->codigo, ARTICULO->Descripcion, VENTAS-CANTIDAD id 107 of w_cli headers 'Codigo','Descripción','Cantidad' update
oListbox:....... ???

Mil gracias por vuestra colaboración y ayuda.
LORENZO.

Tienes dos opciones, volcar el contenido del listbox a un arreglo y trabajar con el en lugar de las bases, y el segundo seria utilizar el set relation to

A fin de cuentas depende de ke tanta informacion contenga tu base

Salu2

amigo lo puede llamar una funciono que te traiga el dato acorde con lo que necesitas yo lo hago de la siguiente manera:

.......
SELE HFTEM
REDEFINE LISTBOX lisbas1 VAR lista1;
FIELDS (TRANSFORM(HFTEM->HTsubtot,"999,999,999.99")),;
(TRANSFORM(HFTEM->HTvrivas,"99,999.99")),;
TRANSFORM((HFTEM->HTsubtot*HFTEM->HTvrivas),;"999,999,999.99"),;
HFTEM->HTarticu,;
HFTEM->HTdetall,;
HFTEM->HTvended,;
HFTEM->HTobserv,;
NOMCOCO(ART:=HFSOT->HCcodmat),;
NOMCOC2(ART:=HFSOT->HCcodmat);
FIELDSIZES 75,50,75,100,100,100,100;
ID 130 OF concons;
HEADERS "Vr. Unitario","Cons.","Vr.Total","Código","Nombre","Color","Cod.Color";
ON LEFT DBLCLICK MODICOST()
.........

y con este procedimiento llamo lo que necesito...

************************************
*TRAE EL COLOR Y EL CODIGO DEL COLOR
************************************
PROC NOMCOCO(ART)
IF ALLTRIM(ART)#"MANO DE OBRA"
SELE HFMAT
Ordsetfocus(1)
IF DBSEEK(ART)
NOM:=HFMAT->HICOLORE
ELSE
NOM:=" "
ENDIF
ELSE
NOM:=" "
ENDIF

************************************
*TRAE EL COLOR Y EL CODIGO DEL COLOR
************************************
PROC NOMCOC2(ART)
IF ALLTRIM(ART)#"MANO DE OBRA"
SELE HFMAT
Ordsetfocus(1)
IF DBSEEK(ART)
NOM:=HFMAT->HICODCOL
ELSE
NOM:=" "
ENDIF
ELSE
NOM:=" "
ENDIF

Tocaria que colocaras en la base de datos lo que quieres moestar y listo...

Espero te sirva

Un abrazo

LEANDRO ALFONSO
Bogotá (Colombia)