import.css=/download/attachments/6062824/tecnologia.css |
Envia uma chamada para uma thread, que não precisa ser necessariamente do mesmo ambiente, que está em espera.
IPCGo( < cSemaforo > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cSemaforo | caractere | Indica o local ou semáforo em que as threads foram iniciadas. Observação: O semáforo especificado não deve conter letras minúsculas. Todas as letras informadas no semáforo devem ser maiúsculas. | X |
|
Nome | Tipo | Descrição |
|---|---|---|
Ret | nil | Nulo |
#DEFINE SEMAFORO 'IDUNICOTESTE'
#DEFINE SEMAFORO 'IDUNICOTESTE'
User Function ipcgo()
StartJob("U_ipcjobs",GetEnvServer(),.F.)
StartJob("U_ipcjobs",GetEnvServer(),.F.)
Sleep( 7000 )
IPCGo( SEMAFORO, "Data atual " + cvaltochar(date()) )
Return
User Function ipcjobs()
Local cPar
while !killapp()
lRet := IpcWaitEx( SEMAFORO, 5000, @cPar )
if lRet
conout(cPar)
exit
endif
enddo
Return
|
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server