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

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

Observações:

• Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
• Se tiver sugestões de rotinas, pode entrar em contato;