Faz o travamento de uma função, como se fosse um semáforo
Exemplo da Rotina:
LockByName("NOME_SEMAFORO",.T.,.F.)
Exemplo 1- Usando o LockByName em uma rotina comum:
User Function zSemaforo() //Habilitando o semáforo If ! LockByName("ZSEMAFORO", .T., .F.) MsgStop("Semáforo já existente, função não pode ser executada!", "Atenção") Return EndIf //Comandos //Desabilitando o semáforo UnlockByName("ZSEMAFORO", .T., .F., .F.) Return