Obtém um flag de bloqueio para serialização de operações, com escopo na instância atual do Protheus Server em execução, com liberação explícita através da função GlbUnlock(). Caso não haja uma liberação explícita, haverá uma liberação automática do bloqueio no término do processo (Thread) em execução que obteve o bloqueio.
Sintaxe
GlbLock() |
Retorno
Nome | Tipo | Descrição |
|---|---|---|
lOwned | lógico | Retorna .T. caso o bloqueio tenha sido obtido para o processo atual. Caso a função retorne .F., já existe um outro processo ( Thread ) neste mesmo Protheus Server que possui um bloqueio. |
Observações
- O escopo do bloqueio não é restrito ao ambiente ( Environment ).
Exemplos
User Function teste()
If GlbLock()
MsgInfo("Somente eu tenho um Bloqueio Global neste APPServer")
GlbUnlock()
Else
MsgStop("Já existe outro Bloqueio Global neste APPServer")
Endif
Return
|
Abrangência
Microsiga Protheus 8.11 , Protheus 10, Protheus 11