topic-29238

Posts: 187

Joined: Mon Oct 20, 2008 06:33 PM

Erro en wBrowse
Posted: Thu Sep 11, 2014 04:16 PM

Estoy con error: Erro dbcmd / 2001 Workarea no esta en uso: DBSKIP - Programa: TWBrowse: UPSTABLE Línea: 1954

if lSkip
( ::cAlias )->( DbSkip( -::nRowPos ) ) // -> Línea 1954
endif

¿Cómo puedo solucionarlo?

Oscar Ribeiro

OASyS Informática

Fwh18.02 + xHarbour 1.2.3 + Bcc72

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Erro en wBrowse
Posted: Thu Sep 11, 2014 06:43 PM

Mostre o ERROR.log onde ocorre o erro e onde você está fazendo a abertura do arquivo.dbf no seu .prg.

Code (fw): Select all Collapse

METHOD UpStable() CLASS TWBrowse

   local nRow   := ::nRowPos
   local nRecNo := ( ::cAlias )->( RecNo() )
   local nRows  := ::nRowCount()
   local n      := 1
   local lSkip  := .t.

   ::nRowPos    = 1
   ::GoTop()
   ::lHitTop    = .f.
   ::lHitBottom = .f.

   while ! ( ::cAlias )->( EoF() )
      if n > nRows
         ( ::cAlias )->( DbGoTo( nRecNo ) )
         ::nRowPos = nRow
         lSkip     = .f.
         exit
      endif
      if nRecNo == ( ::cAlias )->( RecNo() )
         ::nRowPos = n
         exit
      else
         ( ::cAlias )->( DbSkip() )
      endif
      n++
   end

   if lSkip
      ( ::cAlias )->( DbSkip( -::nRowPos ) )
   endif

   if ::bChange != nil
      Eval( ::bChange, Self )
   endif

return nil

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion