Descrição
| 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() |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
Retorno
| Retorno | Tipo | Descrição |
| lRet | Boolean |
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 |
Exemplo
#INCLUDE "TOTVS.CH"
User Function GlbLock()
If GlbLock()
MsgInfo("Bloqueio Global APPServer", 'UniversoADVPL')
GlbUnlock()
Else
MsgStop("Já existe outro Bloqueio Global neste APPServer", 'UniversoADVPL')
Endif
Return( Nil )
Resultado
Informações adicionais
|
O escopo do bloqueio não é restrito ao ambiente ( Environment ) |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎