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.

Xailer 7.1.2

Foro público de Xailer en español
Responder
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Xailer 7.1.2

Mensaje por ignacio »

Estimados usuarios de Xailer,

Tenemos el placer de poder presentar una nueva versión de Xailer.

Más información: https://www.xailer.com/wp/lo-nuevo/
Descarga directa: https://download.xailer.com/?es&file=1

Un cordial saludo
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arvisnet
Mensajes: 43
Registrado: Jue Nov 12, 2015 5:44 am

Re: Xailer 7.1.2

Mensaje por Arvisnet »

Una vez descargada, observo que no se ha corregido el error del control dbcomboboxmod y la opción dtbound tan solo al abrir un form desde el ide muestra el siguiente error
dbcomboxmod.png
dbcomboxmod.png (132.27 KiB) Visto 727 veces
Este error se corrige modificando el método setvalue agregando el if señalado, pero si no se corrige desde el ejecutable de Xailer no se puede ver el form

METHOD SetValue( xValue, lFocused, lUpdPict, lWithEvent ) CLASS TDBComboBoxMod

local nVal, nAt

IF Valtype( ::oDataField ) == "O"
DO CASE
CASE ::nDataType == dtDEFAULT
IF Valtype( xValue ) == "N" .AND. xValue > 0 .AND. xValue <= Len( ::aItems )
xValue := ::aItems[ xValue ]
ENDIF
CASE ::nDataType == dtINDEX
nVal := IIF( Valtype( xValue ) != "N", Val( xValue ), xValue )
IF nVal > 0 .AND. nVal <= Len( ::aItems )
xValue := ::aItems[ nVal ]
ENDIF
CASE ::nDataType == dtBOUND
IF Valtype( ::oDataField:Value ) == "N"
nVal := IIF( Valtype( xValue ) != "N", Val( xValue ), xValue )
nAt := AScan( ::aItemsBound, nVal )
ELSEIF ValType( xValue ) == "C"
nAt := AScan( ::aItemsBound, Trim( xValue ) )
ELSE
nAt := 0
ENDIF
IF nAt > 0 .AND. nAt <= Len( ::aItems )
xValue := ::aItems[ nAt ]
ENDIF
ENDCASE
ELSE
xValue:=""
ENDIF

RETURN ::Super:SetValue( xValue, lFocused, lUpdPict, lWithEvent )
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9246
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

Re: Xailer 7.1.2

Mensaje por ignacio »

Hola,

Siento el error. En run-time no debería tener ningún problema. El error en el IDE es recuperable y sólo se muestra la primer vez que se abre el formulario (al menos así parece). En cualquier caso ya está corregido. Publicaremos una revisión cuanto antes. Muchas gracias por la información.

Saludos
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Responder