Estimado Gustavo, te adjunto una rutina que uso para abrir las tablas, en un ambiente multiusuario:
*---------------------------------------------------------
func Admi()
   Loca cArc := "Admision.dbf"
   If !File( cArc )
      alerta( " No Existe archivo Admision. ", { 'Termina' } )
      Close All
      Return .f.
   End
   While .t.
      Use ( cArc ) Shared New Alias Adm
      If NetErr()
         nResp  := alerta( " ARCHIVO EN USO ; Alguien tiene tomada la tabla Admision ", { "Re-Intenta", "Termina" } )
         If nResp == 1; Loop; End
         If nResp == 0 .or. nResp == 2
            Close All
            Return .f.
         End
      End
      IndeAdmi()
      Set Index to ( 'adm_alu.ntx' ), ( 'adm_cur.ntx' ), ( 'adm_tes.ntx')
      Set Order to 1
      Exit
   End
   Return .t.
*---------------------------------------------------------
El truco esta en la opción Shared en la sentencia Use, ya que permite compartir la tabla. Otra parte del truco es la función NetErr(), la que te permite saber si alguien en la red tiene bloqueada la tabla o la esta usando en modo exclusivo.
El resto es paja.
Espero que te sea útil.
Si te queda alguna duda... sólo pregunta.
Saludos




buloneraringuelet <buloneraringuelet@yahoo.com.ar> escribió:

Hola sala:
tengo desarrolado un sistema comercial en clipper 5.2 como
monousuario y necesito desarrollarlo a multiusuario. Me podrian enviar
rutinas de configuraciòn o donde puedo obtener bibliografìa.

Muchas gracias

Gustavo

José Carrasco S.

---

¡Descubre una nueva forma de obtener respuestas a tus preguntas!
Entra en Yahoo! Respuestas.