Xailer forum

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

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 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 )

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