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

Framework - Linha Protheus Performance
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