Perguntas Fechamento Mensal Folha e Ponto

Raphael bom dia, senão me engano existem uns comandos que são executados no monitor que você poderá executar via advpl, vou pesquisar pra ti e passo ok.

Seja bem vindo ao site.

Raphael bom dia, neste esquema abaixo você vai conseguir obter a lista de usuários logados no sistema, infelizmente não sei te dizer como proceder para derrubar a conexão, mas a vantagem que você poderá abrir uma tela para o pessoal da folha mostrando quem está usando o sistema sem a necessidade da pessoa ter acesso ao monitor ok.

Abraços.


User Function usrarray()

local oSrv := nil
local cEnv := "DIMEP" //Ambiente
local aUsers := {}
local nIdx := 0
local aServers := {}
local aTmp := {}

// neste caso, quero apenas o balance, que me retorna todos os slaves conectados.
aadd(aServers, {"192.100.100.5", 1234})
// voce pode também adicionar outros servers fora do balance, como servers de web ou workflows.
//aadd(aServers, {"127.0.0.1", 7001})
//aadd(aServers, {"127.0.0.1", 7002})
// etc [...]

For nIdx := 1 to len(aServers)
// conecta no slave via rpc
oSrv := rpcconnect(aServers[nIdx,1], aServers[nIdx,2], cEnv, "01", "01")
if valtype(oSrv) == "O"
oSrv:callproc("RPCSetType", 3)
// chama a funcao remotamente no server, retornando a lista de usuarios conectados
aTmp := oSrv:callproc("GetUserInfoArray")
aadd(aUsers, aclone(aTmp))
aTmp := nil
// limpa o ambiente
oSrv:callproc("RpcClearEnv")
// fecha a conexao
rpcdisconnect(oSrv)
else
return "Falha ao obter a lista de usuarios."
endif
Next nIdx

Return varinfo("usr",aUsers)