Histórico da Página

USER FUNCTION EjemploCorrecto()
    LOCAL nRegistro := 1
    
    // Bloqueando el registro utilizando RecLock
    RecLock("ARCHIVO", nRegistro)
    
    // Realizando la primera operación en el registro bloqueado
    dbEdit("ARCHIVO", nRegistro)
    dbReplace("ARCHIVO", nRegistro, "Primera modificación")
    
    // Realizando la segunda operación en el mismo registro
    dbEdit("ARCHIVO", nRegistro)
    dbReplace("ARCHIVO", nRegistro, "Segunda modificación")
    
    // Liberando el bloqueo solamente después de todas las operaciones
    MsUnlock("ARCHIVO", nRegistro)
RETURN