Função para saber se o webagente está ativado

Framework - Linha Protheus Performance
1

Bom dia, existe alguma função advpl para indicar se o webagent foi habilitado ?

2

Bom dia.

Tente isso


Local cLib        := ""
Local lWebAgent   := .F.
Local nRemoteType := GetRemoteType(@cLib)
If !Empty(GetRmtInfo()[9]) .AND.;                  //Navegador (Quando executado pelo SmartClient HTML) ou Marca (Quando executado por um dispositivo móvel)
    (    ("WIN"   $ cLib .And. nRemoteType == 1);    //Smart Client das verões 8 e 10 em ambiente Windows (*).
    .Or. ("LINUX" $ cLib .And. nRemoteType == 2);    //Smart Client das verões 8 e 10 em ambiente Linux (*).
    .Or. ("MAC"   $ cLib .And. nRemoteType == 2))    //Smart Client das verões 8 e 10 em ambiente MacOS (*).
    lWebAgent := .T.
EndIf
3

Gratidão Felipe Caido, no meu caso, o nRemoteType retorna 1 quando o webagent esta ativado e 5 quando não esta!!

4

A partir da build 24.3.0.0 do TOTVS Application Server, está disponível a função GetWebAgentInfo(), que retorna informações do WebAgent.
Link da documentação: https://tdn.totvs.com/display/tec/GetWebAgentInfo

Exemplo

User Function exemplo()
   Local aInfoWebAgent:= Nil
   aInfoWebAgent := GetWebAgentInfo()
   if len(aInfoWebAgent) > 0
      cInfoWebAgent:= 'Versão: ' + aInfoWebAgent[1]+chr(13)+chr(10)+;
      'Porta: ' + aInfoWebAgent[2]
 
      MsgInfo(cInfoWebAgent, "GetWebAgentInfo")
   endif
Return
1 curtida