topic-14528

Posts: 47

Joined: Thu Jul 10, 2008 07:33 AM

TDATABASE delete
Posted: Mon Feb 09, 2009 04:32 PM

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 Collapse

      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

Jorge Ignacio Corral
Enjoy it :)

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TDATABASE delete
Posted: Mon Feb 09, 2009 06:46 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion