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
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.
Xailer 7.1.2
Re: Xailer 7.1.2
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
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 )
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 formMETHOD 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 )
- ignacio
- Site Admin
- Mensajes: 9253
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Re: Xailer 7.1.2
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
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