FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Nuevo bug: IsKindOf
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Nuevo bug: IsKindOf
Posted: Mon Jan 20, 2020 05:30 PM
Hola:

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

Code (fw): Select all Collapse
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.
Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: Nuevo bug: IsKindOf
Posted: Mon Jan 20, 2020 05:47 PM

El problema est谩 en source\xbrowse.prg

static function EditGetkeyDown( Self, nKey )

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

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Nuevo bug: IsKindOf
Posted: Mon Jan 20, 2020 05:54 PM

Mois茅s,

vamos a revisarlo, gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 06:59 AM

Hola Antonio:

驴Me puedes decir algo por favor? Estamos parados.

Muchas gracias.

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 09:21 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
MOISES
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 09:53 AM
Antonio,

El problema est谩 en bKeyDown de xBrowse.

El error se produce en source\xbrowse.prg

static function EditGetkeyDown( Self, nKey )

Code (fw): Select all Collapse
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 ::IsKindOf( "TMULTIGET" )[/code]

Muchas gracias.
Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Nuevo bug: IsKindOf
Posted: Wed Jan 22, 2020 03:54 PM

Mois茅s,

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

gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions