In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Problema con aItemsBound
-
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
Problema con aItemsBound
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.
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
- Site Admin
- Mensajes: 9459
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Problema con aItemsBound
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.
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 Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
Problema con aItemsBound
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.
antes del día 13, ¿estará disponible antes o me lío a cambiar el
programa por si acaso?
Salu2 y gracias.
Problema con aItemsBound
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.
>
>
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
- Site Admin
- Mensajes: 9459
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Problema con aItemsBound
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.
>>
>>
>
>
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.
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
Problema con aItemsBound
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.
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
- Site Admin
- Mensajes: 9459
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Problema con aItemsBound
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.
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.
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
-
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
Problema con aItemsBound
Funciona perfectamente, muchas gracias.