xBrowse database locking problem

[Otto]

If I use for example
::oBrw:Paste( "test" )
::oBrw:Name:VarPut(( "test" ) the record is locked but not unlocked.

How can we unlock this record again.


Thanks in advance
Otto

Code: Select all  Expand view

METHOD Paste( cText ) CLASS TXBrwColumn

   local uNew, cType

   if ::cDataType $  'CM'
      if Eval( ::oBrw:bLock )
         ::Value     := Trim( cText )
      endif
   else
      uNew        := uCharToVal( cText, @cType )
      if uNew != nil
         if ::cDataType == nil .or. ::cDataType == cType
            if EVal( ::oBrw:bLock )
               ::Value  := uNew
            endif
         endif
      endif
   endif

return nil

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

[Otto]

Hello Antonio,

Do you think this fix is save?
Best regards,
Otto

Code: Select all  Expand view

static FUNCTION SetColFromRDD( oCol, nFld, cAlias, aFldInfo )
...

changed to:

 oCol:bOnPostEdit  := { |o,x,n| If( n != VK_ESCAPE .and. Eval( o:oBrw:bLock ), ( o:Value := x, Eval( o:oBrw:bunLock )     ), ) }
 

[Antonio Linares]

Otto,

Yes, it seems fine to me. Is it working fine ?

[nageswaragunupudi]

Fixed in version 13.01