Nesse vídeo demonstraremos a utilização da função GetRemoteType, que serve para buscar a informação de qual é o tipo de sistema operacional que esta em uso.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe282
Retorna o tipo de estação que esta executando o Protheus
@type  Function
@author Atilio
@since 21/02/2023
@see https://tdn.totvs.com/display/tec/GetRemoteType
@obs 
    
    Função GetRemoteType
    Parâmetros
        + cLibVersion , Caractere   , Busca a versão da LIB usada por referência
    Retorno
        + nRet        , Numérico    , Retorna em qual sistema esta executando a rotina

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe282()
    Local aArea      := FWGetArea()
    Local cMensagem  := ""
    Local cLibUsada  := ""
    Local nTipo      := 0
    
    //Busca as informações sobre o remote
    nTipo := GetRemoteType(@cLibUsada)

    //Monta a mensagem a ser exibida
    If nTipo == -1
        cMensagem += "Job, Web ou Sem Remote"
    ElseIf nTipo == 1
        cMensagem += "Windows"
    ElseIf nTipo == 2
        cMensagem += "Linux / Unix-Like"
    EndIf
    cMensagem += " - " + cLibUsada

    //Exibe uma mensagem com os programas
    FWAlertInfo(cMensagem, "Teste GetRemoteType")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++