Erro en wBrowse

[ORibeiro]

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?

[karinha]

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

Code: Select all  Expand view

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