LockByName

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

Observações:

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