Nesse vídeo demonstraremos em como buscar o nome da máquina (computador) através da função ComputerName.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe086
Exemplo de como buscar o nome do computador que esta executando o Protheus
@type Function
@author Atilio
@since 09/12/2022
@see https://tdn.totvs.com/display/tec/ComputerName
@obs 
    Função ComputerName
    Retorno
        + cRet     , Caractere    , Nome da máquina

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

User Function zExe086()
    Local aArea     := FWGetArea()
    Local cNomePC   := ""

    //Busca o nome do computador e mostra em uma mensagem
    cNomePC := ComputerName()
    FWAlertSuccess("O nome do computador é " + cNomePC, "Teste ComputerName")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++