Nuevo bug: IsKindOf

[MOISES]

Hola:

En la versión 14.12, este código funcionaba perfectamente:

Code: Select all  Expand view  RUN

nGet = AScan( oFld:aDialogs[ 1 ]:aControls, {| oControl | oControl:IsKindOf( "TGET" ) } )

Ahora, arroja el siguiente error:

Event description: Problem BASE/1004 No existe el método: ISKINDOF
Args:
[ 1] = U
[ 2] = C TMULTIGET

Gracias.

[MOISES]

El problema está en source\xbrowse.prg

static function EditGetkeyDown( Self, nKey )

local lMultiGet := ::oEditGet:IsKindOf( "TMULTIGET" )

[Antonio Linares]

Moisés,

vamos a revisarlo, gracias!

[MOISES]

Hola Antonio:

¿Me puedes decir algo por favor? Estamos parados.

Muchas gracias.

[Antonio Linares]

Moisés,

Modifica el código asi y pruébalo por favor:

nGet = AScan( oFld:aDialogs[ 1 ]:aControls, {| oControl | If( oControl != nil, oControl:IsKindOf( "TGET" ), .F. ) } )

[MOISES]

Antonio,

El problema está en bKeyDown de xBrowse.

El error se produce en source\xbrowse.prg

static function EditGetkeyDown( Self, nKey )

Code: Select all  Expand view  RUN

local lMultiGet := ::oEditGet:IsKindOf( "TMULTIGET" )

No en el nGet = AScan.

Tengo una función que llamo en oBrowse:bKeyDown :={ | nKey | myfunction() }, y falla al evaluar ::oEditGet:IsKindOf( "TMULTIGET" )[/code]

Muchas gracias.

[Antonio Linares]

Moisés,

Puedes proporcionar un ejemplo pequeño y completo que reproduzca el error ?

gracias