Problema con aItemsBound

[Bingen Ugaldebere]

He leí­do hace unos dí­as que habí­a problemas con los elementos de un
aItemsBound si son numéricos y ahora al recompilar un programa que los
tení­a así­ me encuentro con que efectivamente no funcionan.
Hay que convertirlos obligatoriamente a tipo carácter o hay alguna solución.
Salu2 y gracias.

[ignacio]

Bingen,
Corregido. Estará disponible en la próxima revisión de Xailer.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:47303844$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> He leído hace unos días que había problemas con los elementos de un
> aItemsBound si son numéricos y ahora al recompilar un programa que los
> tenía así me encuentro con que efectivamente no funcionan.
>
> Hay que convertirlos obligatoriamente a tipo carácter o hay alguna
> solución.
>
> Salu2 y gracias.

[Bingen Ugaldebere]

Perdón por mi insistencia pero he de entregar una revisión al cliente
antes del dí­a 13, ¿estará disponible antes o me lí­o a cambiar el
programa por si acaso?
Salu2 y gracias.

[Angel]

Hola Ignacio:
Podrias acelerar la disponibilidad de la revision, tenemos un proyecto
paralizado por ese motivo y tengo que ponerlo en marcha con urgencia.
Gracias
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:47304abd$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Bingen,
>
> Corregido. Estará disponible en la próxima revisión de Xailer.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
> news:47303844$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> He leído hace unos días que había problemas con los elementos de un
>> aItemsBound si son numéricos y ahora al recompilar un programa que los
>> tenía así me encuentro con que efectivamente no funcionan.
>>
>> Hay que convertirlos obligatoriamente a tipo carácter o hay alguna
>> solución.
>>
>> Salu2 y gracias.
>
>

[ignacio]

Angel y Bingen,
Os dejo aquí el código a modificar para que podáis incorporarlo cuanto antes
utilizando una clase T:
//---------------------------------------------------------- ----------------
METHOD SetValue( xValue ) CLASS XDBComboBox
IF ::nStyle == csDROPDOWNLIST
DO CASE
CASE Empty( xValue )
::nIndex := 1
CASE ::nDataType == dtDEFAULT
IF Valtype( xValue ) == "N"
::nIndex := xValue
ELSE
::SelectString( Trim( xValue ) )
ENDIF
CASE ::nDataType == dtINDEX
IF Valtype( xValue ) != "N"
::nIndex := Val( xValue )
ELSE
::nIndex := xValue
ENDIF
CASE ::nDataType == dtSTRING
::SelectString( Trim( ToString( xValue, "" ) ) )
CASE ::nDataType == dtBOUND
IF ::oDataField:cType == "N" .AND. len( ::aItemsBound ) > 0
..AND. Valtype( ::aItemsBound[ 1 ] ) == "C"
::nIndex := AScan( ::aItemsBound, {| x | xValue == Val(
x ) } )
ELSE
::nIndex := AScan( ::aItemsBound, xValue )
ENDIF
ENDCASE
ELSE
::SetText( xValue )
ENDIF
RETURN Nil
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Angel" <angelvicente@probamesa.com> escribió en el mensaje
news:[email=47318194@ozsrv2.ozlan.local...]47318194@ozsrv2.ozlan.local...[/email]
> Hola Ignacio:
>
> Podrias acelerar la disponibilidad de la revision, tenemos un proyecto
> paralizado por ese motivo y tengo que ponerlo en marcha con urgencia.
>
> Gracias
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:47304abd$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Bingen,
>>
>> Corregido. Estará disponible en la próxima revisión de Xailer.
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>>
>>
>> "Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
>> news:47303844$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>>> He leído hace unos días que había problemas con los elementos de un
>>> aItemsBound si son numéricos y ahora al recompilar un programa que los
>>> tenía así me encuentro con que efectivamente no funcionan.
>>>
>>> Hay que convertirlos obligatoriamente a tipo carácter o hay alguna
>>> solución.
>>>
>>> Salu2 y gracias.
>>
>>
>
>

[Bingen Ugaldebere]

Muchas gracias Ignacio por los cambios del método Setvalue pero me
parece que también habréis cambiado algo en el método GetValue ya que
sigue fallando.
Por favor si lo puedes postear aquí­ te quedarí­a muy agradecido.
Salu2.

[ignacio]

Bingen,
Haz el mismo cambio que en SetValue: (línea 105)
IF ::oDataField:cType == "N" .AND. len( ::aItemsBound ) > 0 .AND. Valtype(
::aItemsBound[ 1 ] ) == "C"
Saludos,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:4731885c$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Muchas gracias Ignacio por los cambios del método Setvalue pero me parece
> que también habréis cambiado algo en el método GetValue ya que sigue
> fallando.
>
> Por favor si lo puedes postear aquí te quedaría muy agradecido.
>
> Salu2.

[Bingen Ugaldebere]

Funciona perfectamente, muchas gracias.