| Pregunta: | 8785 - CREAR UN PROGRAMA DE REGIMEN MULTIUSUARIO |
| Autor: | jairo lenin arevalo gomez |
| ¿Cuales son los pasos a seguir una vez terminada mi aplicacion,como debo instalar mi aplicacion en una red,por ejemplo tengo tres pc´s una de ellas es la principal y las otras son las terminales,¿como llamar y compartir los datos de mi aplicacion en esas terminales?
Gracias. | |
| Respuesta: | Luis Falconi |
| estos son los comandos que utilizo yo puedes utilizar otros
Set date To dmy Set Talk Off Set Status Off Set Status Bar Off Set Exclu Off * especifica que todas las tabla trabaja en forma multiusuaria Select b use tab_coi Do bloquear With 'R','','' &lo utiliza solo para remplazar registros cNdoc = Alltrim(Str(nump_con)) Replace nump_con With nump_con + 1 Unlock Select b use tab_coi Do bloquear With 'P','','' &lo utiliza solo para agregar registros append blank Replace nump_con With 1 Unlock ******************************************** PROCEDURE BLOQUEAR && Abre la base en modo exclusivo. parameters TIPOBL,ARCHIVO,AREA && Bloquea toda la base. Do Case && Bloquea el registro deseado. Case tipobl='E' sele &AREA Use &archivo exclusive Case tipobl='F' Do While !flock() Wait Windows 'El Archivo '+dbf()+' no puede ser actualizado...!' noWait Enddo Case tipobl='R' Do While !rlock() Wait Windows 'El registro no puede ser actualizado...!' noWait Enddo EndCase return | |