TDATABASE delete

[jicorral]

Estoy viendo que el metodo delete salta un registro si SET DELETE esta en ON pero solo si el DBF esta abierto como compartido:

Code: Select all  Expand view

      if ::lShared
         if ::IsRecLocked( ::RecNo() ) .or. ( lLocked := ::RecLock( ::RecNo() ) )
            ( ::nArea )->( DbDelete() )
            if lLocked
               ::Commit()
               ::RecUnLock( ::RecNo() )
            endif
            if Set( _SET_DELETED )
               ::Skip( 1 )
               if ::Eof()
                  ::GoBottom()
               endif
            endif
         else
            MsgAlert( "DataBase in use", "Please try again" )
         endif
      else
         ( ::nArea )->( DbDelete() )
      endif


¿Por que solo si esta compartido?

Tambien veo que se que se llama a MsgAlert y no se tiene en cuenta bNetError

[Antonio Linares]

Jorge Ignacio,

Tienes razon, lo estamos revisando.

El SKIP deberia hacerse en ambos casos y se deberia usar bNetError en vez de mostrar un error no configurable.