random problem in xBrowse Problem BASE/1004 There is no meth

[MOISES]

Hello,

Some customers report me this error:

Problem BASE/1004 There is no method: ISKINDOF
Args:
[ 1] = U
[ 2] = C TMULTIGET

Stack Calls
===========
Called from: => ISKINDOF( 0 )
Called from: .\source\classes\XBROWSE.PRG => EDITGETKEYDOWN( 15132 )

Offending line:

Code: Select all  Expand view

static function EditGetkeyDown( Self, nKey )

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

I am not able to reproduce it. Maybe you can give me some light.

Thank you.

[nageswaragunupudi]

The above error means that oCol:oEditGet is NIL when the function is called.

But this is how this function is used

Code: Select all  Expand view

  ::oEditGet:bKeyDown   := { | nKey | EditGetkeyDown( Self, nKey ) }
 

Logically the function should not execute when oCol:oEditGet itself is NIL.

Let us look into this.

[nageswaragunupudi]

For now, please try making this change in xbrowse.prg

for the lines

Code: Select all  Expand view

static function EditGetkeyDown( Self, nKey )

   local lMultiGet   := ::oEditGet:IsKindOf( "TMULTIGET" )
   local lExit       := .f.
 

Substitute these lines

Code: Select all  Expand view

static function EditGetkeyDown( Self, nKey )

   local lMultiGet
   local lExit       := .f.

   if ::oEditGet == nil
      return nil
   endif

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

[MOISES]

Thank you very much!