new bug xBrowse 20.02 [solved]

[MOISES]

Hello,

ISome customers are reporting me this error in xBrowse:

Event description: Problem BASE/1004 There is no method: SORT
Args:
[ 1] = U

Code: Select all  Expand view

//----------------------------------------------------------------------------//

METHOD AdoIncrSeek( uSeek ) CLASS TXBrowse

   local lFound   := .f.
   this line-> local cCol     := CharRem( "[]", StrToken( ::oRs:Sort, 1 ) )
 

Thank you

[MOISES]

Up

[Silvio.Falconi]

perhaps ::oRs:Sort() ?

[nageswaragunupudi]

Code: Select all  Expand view

Event description: Problem BASE/1004 There is no method: SORT
Args:
[ 1] = U
 

This error indicates that the value of oBrw:oRs is NIL.
Please check your application why oBrw:oRs is becoming nil.

[MOISES]

Thank you for your reply. I hope you're in good health.

Some customers reported this error, but they are working with Access in a local pc, with no lan or Internet involved.

Can you please, as a safety precaution, check that oBrw:oRs is not nil before contunuing with this method?

[MOISES]

Probably the user has an active oBrowse:oSeek, and he deletes the record, so oRs becomes to nil.

How can we handle it?

Thank you.

[nageswaragunupudi]

Probably the user has an active oBrowse:oSeek, and he deletes the record, so oRs becomes to nil.

Deleting one record does not close the RecordSet.
Deleting a record using oBrw:Delete() is always safe.

[MOISES]

Thank you very much for your attention.

We have not been able to reproduce the generation of the error, in which case we could have provided you with a more precise solution. It could even be an ADO error itself.

So, as an additional security measure, could you please modify the code of xbrowse, something like that:

Code: Select all  Expand view

METHOD AdoIncrSeek( uSeek ) CLASS TXBrowse

   local lFound   := .f.
   local cCol     := ""
   local cExpr    := ''
   local cType, d, uVal, lSoft, cSaveFilt

   if hb_isnil( ::oRs )
      return .f.
   endif
   
   cCol     := CharRem( "[]", StrToken( ::oRs:Sort, 1 ) )


 

[nageswaragunupudi]

done

[MOISES]

Thank you very much!

[MOISES]

I am afraid you undid the changes in FW 20.04:

Code: Select all  Expand view

METHOD AdoIncrSeek( uSeek ) CLASS TXBrowse

   local lFound   := .f.
   local cCol     := CharRem( "[]", StrToken( ::oRs:Sort, 1 ) )
   local cExpr    := ''
   local cType, d, uVal, lSoft, cSaveFilt

   if ::oRs == nil
      return .f.
   endif

cCol will fail because it should be after if ::oRs == nil:

Code: Select all  Expand view

 

   if ::oRs == nil
      return .f.
   endif
   
   cCol     := CharRem( "[]", StrToken( ::oRs:Sort, 1 ) )

Thank you.

[nageswaragunupudi]

You are right
Sorry
Please make the proper modification in your copy.
We will incorporate it for next release.