Xailer & OZ Software

Saludos
Como hago para crear un combo que muestre la descripcion pero
internamente use el codigo?
Ejemplo:
codigo banco
+-------+-------------------
| UNI | BANCO UNION
+-------+------------------
| CON | BANCO CONSOLIDADO
+-------+------------------
| CAR | BANCO CARIBE
+-------+------------------
Lo hice de la siguiente manera:
METHOD DBComboBox1Create( oSender ) CLASS TForm1
LOCAL mC, mROW
mC := ::oMySQLDataSource1:Query( "select codigo, banco from tban")
do while !mC:EoF()
mROW := mC:GetRecord()
oSender:addItems(mROW:codigo)
AADD(oSender:aItemsBound , mROW:banco)
mC:Skip()
enddo
RETURN Nil
PERO NO FUNCIONA SOLO ME TRAE los codigos no los bancos???

Hola Andrés creo que esto es lo que quieres:
METHOD DBComboBox1Create( oSender ) CLASS TMantenFondos
oSender:aItemsBound := ::oDbfBancos:SaveToArray( {"Codigo"} )
oSender:aItems := ::oDbfBancos:SaveToArray( {"Banco"} )
oSender:ndataType :=dtBOUND
RETURN Nil
Esto muestra los nombres pero retorna los códigos.
Salu2.
Andres Hocevar escribió:
> Saludos
>
> Como hago para crear un combo que muestre la descripcion pero
> internamente use el codigo?
>
> Ejemplo:
>
> codigo banco
> +-------+-------------------
> | UNI | BANCO UNION
> +-------+------------------
> | CON | BANCO CONSOLIDADO
> +-------+------------------
> | CAR | BANCO CARIBE
> +-------+------------------
>
> Lo hice de la siguiente manera:
>
> METHOD DBComboBox1Create( oSender ) CLASS TForm1
> LOCAL mC, mROW
> mC := ::oMySQLDataSource1:Query( "select codigo, banco from tban")
> do while !mC:EoF()
> mROW := mC:GetRecord()
> oSender:addItems(mROW:codigo)
> AADD(oSender:aItemsBound , mROW:banco)
> mC:Skip()
> enddo
> RETURN Nil
>
> PERO NO FUNCIONA SOLO ME TRAE los codigos no los bancos???

Gracias pero uso oMySQLDataSource1
sera que cambio oDbfBancos por oMySQLBancos?
Bingen Ugaldebere escribió:
> Hola Andrés creo que esto es lo que quieres:
>
> METHOD DBComboBox1Create( oSender ) CLASS TMantenFondos
> oSender:aItemsBound := ::oDbfBancos:SaveToArray( {"Codigo"} )
> oSender:aItems := ::oDbfBancos:SaveToArray( {"Banco"} )
> oSender:ndataType :=dtBOUND
> RETURN Nil
>
> Esto muestra los nombres pero retorna los códigos.
>
> Salu2.
>
>
> Andres Hocevar escribió:
>> Saludos
>>
>> Como hago para crear un combo que muestre la descripcion pero
>> internamente use el codigo?
>>
>> Ejemplo:
>>
>> codigo banco
>> +-------+-------------------
>> | UNI | BANCO UNION
>> +-------+------------------
>> | CON | BANCO CONSOLIDADO
>> +-------+------------------
>> | CAR | BANCO CARIBE
>> +-------+------------------
>>
>> Lo hice de la siguiente manera:
>>
>> METHOD DBComboBox1Create( oSender ) CLASS TForm1
>> LOCAL mC, mROW
>> mC := ::oMySQLDataSource1:Query( "select codigo, banco from tban")
>> do while !mC:EoF()
>> mROW := mC:GetRecord()
>> oSender:addItems(mROW:codigo)
>> AADD(oSender:aItemsBound , mROW:banco)
>> mC:Skip()
>> enddo
>> RETURN Nil
>>
>> PERO NO FUNCIONA SOLO ME TRAE los codigos no los bancos???

Gracias Bingen Ugaldebere
me faltaba esta linea
oSender:ndataType :=dtBOUND
asi funciona pero observo lo siguiente, cuando edito el registro si
aparecen los nombres de los bancos pero al guardar solo despliegua el
codigo, no deberia tambien mostrar el nombre y ocultar el codigo?
> Hola Andrés creo que esto es lo que quieres:
>
> METHOD DBComboBox1Create( oSender ) CLASS TMantenFondos
> oSender:aItemsBound := ::oDbfBancos:SaveToArray( {"Codigo"} )
> oSender:aItems := ::oDbfBancos:SaveToArray( {"Banco"} )
> oSender:ndataType :=dtBOUND
> RETURN Nil
>
> Esto muestra los nombres pero retorna los códigos.
>
> Salu2.
>
>
> Andres Hocevar escribió:
>> Saludos
>>
>> Como hago para crear un combo que muestre la descripcion pero
>> internamente use el codigo?
>>
>> Ejemplo:
>>
>> codigo banco
>> +-------+-------------------
>> | UNI | BANCO UNION
>> +-------+------------------
>> | CON | BANCO CONSOLIDADO
>> +-------+------------------
>> | CAR | BANCO CARIBE
>> +-------+------------------
>>
>> Lo hice de la siguiente manera:
>>
>> METHOD DBComboBox1Create( oSender ) CLASS TForm1
>> LOCAL mC, mROW
>> mC := ::oMySQLDataSource1:Query( "select codigo, banco from tban")
>> do while !mC:EoF()
>> mROW := mC:GetRecord()
>> oSender:addItems(mROW:codigo)
>> AADD(oSender:aItemsBound , mROW:banco)
>> mC:Skip()
>> enddo
>> RETURN Nil
>>
>> PERO NO FUNCIONA SOLO ME TRAE los codigos no los bancos???