Xailer & OZ Software

Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante lo
que tengo hecho.
Dejame ver si me explico.
El caso es que con el Combox normal, hago esto, si las imagenes, ahora
quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
esto y nunca se me llena,, que hago mal, que me falta,, de todas las maneras
aqui va un adjunto.
METHOD CBCreate( oSender ) CLASS TForm1
LOCAL cDescrip
local aImag :={"User1","Grupo1"}
WITH OBJECT ::oCB
::oDS6:Select()
::oDS6:GoTop()
Do While !::oDS6:Eof()
cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
*logdebug(cDescrip)
::oCB:AddItem(cDescrip,"User",2,2)
::oDS6:Skip()
EndDo
END
RETURN Nil


Attached files ComboEx.rar (7.2 KB)Â

Carlos,
Manda la DBF por favor.
Gracias,
"Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante lo
> que tengo hecho.
>
> Dejame ver si me explico.
>
> El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> maneras
> aqui va un adjunto.
>
>
> METHOD CBCreate( oSender ) CLASS TForm1
> LOCAL cDescrip
> local aImag :={"User1","Grupo1"}
> WITH OBJECT ::oCB
> ::oDS6:Select()
> ::oDS6:GoTop()
> Do While !::oDS6:Eof()
> cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> *logdebug(cDescrip)
> ::oCB:AddItem(cDescrip,"User",2,2)
> ::oDS6:Skip()
> EndDo
> END
> RETURN Nil
>
>
>

Aui va
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> Manda la DBF por favor.
>
> Gracias,
>
> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
lo
> > que tengo hecho.
> >
> > Dejame ver si me explico.
> >
> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> > maneras
> > aqui va un adjunto.
> >
> >
> > METHOD CBCreate( oSender ) CLASS TForm1
> > LOCAL cDescrip
> > local aImag :={"User1","Grupo1"}
> > WITH OBJECT ::oCB
> > ::oDS6:Select()
> > ::oDS6:GoTop()
> > Do While !::oDS6:Eof()
> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> > *logdebug(cDescrip)
> > ::oCB:AddItem(cDescrip,"User",2,2)
> > ::oDS6:Skip()
> > EndDo
> > END
> > RETURN Nil
> >
> >
> >
>
>


Attached files x.DBF (482 B)Â

La Dbf esta en en el compactado,, se llama x.dbf
GRaccias
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Carlos,
>
> Manda la DBF por favor.
>
> Gracias,
>
> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
lo
> > que tengo hecho.
> >
> > Dejame ver si me explico.
> >
> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,, hago
> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
> > maneras
> > aqui va un adjunto.
> >
> >
> > METHOD CBCreate( oSender ) CLASS TForm1
> > LOCAL cDescrip
> > local aImag :={"User1","Grupo1"}
> > WITH OBJECT ::oCB
> > ::oDS6:Select()
> > ::oDS6:GoTop()
> > Do While !::oDS6:Eof()
> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
> > *logdebug(cDescrip)
> > ::oCB:AddItem(cDescrip,"User",2,2)
> > ::oDS6:Skip()
> > EndDo
> > END
> > RETURN Nil
> >
> >
> >
>
>

Carlos,
No haces nada mal. Es un error nuestro, lo siento. Intentaremos arreglarlo
lo antes posible.
Un saludo,
"Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
news:[email=424da5d6@ozsrv2.ozlan.local...]424da5d6@ozsrv2.ozlan.local...[/email]
> La Dbf esta en en el compactado,, se llama x.dbf
>
> GRaccias
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:424d0364$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Carlos,
>>
>> Manda la DBF por favor.
>>
>> Gracias,
>>
>> "Carlos Cedeño Vera" <carlosijc@gmail.com> escribió en el mensaje
>> news:[email=424c9cdb@ozsrv2.ozlan.local...]424c9cdb@ozsrv2.ozlan.local...[/email]
>> > Bueno,, si se dan cuenta lo que estoy haciendo es poniendo mas elegante
> lo
>> > que tengo hecho.
>> >
>> > Dejame ver si me explico.
>> >
>> > El caso es que con el Combox normal, hago esto, si las imagenes, ahora
>> > quisiera usar las imagenes y por supuesto debo usar el ComboBoxEx,,
>> > hago
>> > esto y nunca se me llena,, que hago mal, que me falta,, de todas las
>> > maneras
>> > aqui va un adjunto.
>> >
>> >
>> > METHOD CBCreate( oSender ) CLASS TForm1
>> > LOCAL cDescrip
>> > local aImag :={"User1","Grupo1"}
>> > WITH OBJECT ::oCB
>> > ::oDS6:Select()
>> > ::oDS6:GoTop()
>> > Do While !::oDS6:Eof()
>> > cDescrip := ::oDS6:idusrgrp+" "+alltrim(::oDS6:Nombre)
>> > *logdebug(cDescrip)
>> > ::oCB:AddItem(cDescrip,"User",2,2)
>> > ::oDS6:Skip()
>> > EndDo
>> > END
>> > RETURN Nil
>> >
>> >
>> >
>>
>>
>
>