topic-25413

Board index FiveWin for Harbour/xHarbour xBrowse database locking problem

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

xBrowse database locking problem
Posted: Sun Dec 30, 2012 04:05 PM

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

How can we unlock this record again.

Thanks in advance
Otto

Code (fw): Select all Collapse

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

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: xBrowse database locking problem
Posted: Sun Dec 30, 2012 05:09 PM

Hello Antonio,

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

Code (fw): Select all Collapse

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: xBrowse database locking problem
Posted: Wed Jan 09, 2013 02:28 PM

Otto,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: xBrowse database locking problem
Posted: Wed Jan 30, 2013 02:32 AM

Fixed in version 13.01

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion