Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
USER FUNCTION EjemploRecLockMsUnlock() LOCAL nRegistro := 1 // Número de registro a bloquear // Bloqueando el registro utilizando RecLock RecLock("ARCHIVO", nRegistro) // Realizando operaciones de lectura y/o escritura en el registro bloqueado // En este ejemplo, simulamos una operación ficticia de lectura dbSeek("ARCHIVO", nRegistro) dbSkip(1, "ARCHIVO") // Liberando el bloqueo utilizando MsUnlock después de las operaciones MsUnlock("ARCHIVO", nRegistro) // Ejemplo de mensaje de éxito MsgInfo("Operaciones completadas exitosamente!") RETURN |
...
En este ejemplo:
RecLock("ARCHIVO", nRegistro): Este comando bloquea el registro número 1 en el archivo "ARCHIVO". A partir de este punto, cualquier intento de otro proceso para modificar este registro será bloqueado hasta que el bloqueo sea liberado.
Operaciones de lectura y/o escritura: Aquí se simulan operaciones de lectura en el registro bloqueado, utilizando funciones como
dbSeek
ydbSkip
. En la práctica, podrías realizar cualquier operación permitida dentro del contexto de lectura o escritura de datos.MsUnlock("ARCHIVO", nRegistro): Después de completar las operaciones necesarias, el comando MsUnlock se utiliza para liberar el bloqueo del registro número 1 en el archivo "ARCHIVO", permitiendo que otros procesos puedan acceder y modificarlo según sea necesario.