Faz o travamento de uma função, como se fosse um semáforo
Exemplo da Rotina:
1 | LockByName("NOME_SEMAFORO",.T.,.F.) |
Exemplo 1- Usando o LockByName em uma rotina comum:
1 2 3 4 5 6 7 8 9 10 11 12 | 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 |
Exemplo em Vídeo:
Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.