Page 1 of 1
Nuevo bug: IsKindOf
Posted: Mon Jan 20, 2020 5:30 pm
by MOISES
Hola:
En la versión 14.12, este código funcionaba perfectamente:
Code: Select all
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.
Re: Nuevo bug: IsKindOf
Posted: Mon Jan 20, 2020 5:47 pm
by MOISES
El problema está en source\xbrowse.prg
static function EditGetkeyDown( Self, nKey )
local lMultiGet := ::oEditGet:IsKindOf( "TMULTIGET" )
Re: Nuevo bug: IsKindOf
Posted: Mon Jan 20, 2020 5:54 pm
by Antonio Linares
Moisés,
vamos a revisarlo, gracias!
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 6:59 am
by MOISES
Hola Antonio:
¿Me puedes decir algo por favor? Estamos parados.
Muchas gracias.
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 9:21 am
by 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. ) } )
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 9:53 am
by 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
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.
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 3:54 pm
by Antonio Linares
Moisés,
Puedes proporcionar un ejemplo pequeño y completo que reproduzca el error ?
gracias