Nesse vídeo demonstraremos a utilização da classe THashMap, que serve para criar uma lista com chave e valor.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe491
Cria uma lista onde é possível pesquisar por valores
@type Function
@author Atilio
@since 04/04/2023
@see https://tdn.totvs.com/display/tec/Classe+THashMap
@obs 

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

User Function zExe491()
    Local aArea       := FWGetArea()
    Local oHash       := ""
    Local cNome       := ""
    Local aListaElem  := ""

    //Instancia em um novo objeto
    oHash := THashMap():New()

    //Adiciona alguns elementos
    oHash:Set("nome",                  "Daniel")
    oHash:Set("gostaDeLer",            .T.)
    oHash:Set("dataDeHoje",            Date())
    oHash:Set("anoQueLancouOTerminal", 2012)

    //Busca o valor de um elemento e exibe em tela
    oHash:Get("nome", cNome)
    FWAlertInfo(cNome, "Teste 1 THashMap")

    //Busca todos os elementos encontrados e coloca em um array e exibe
    oHash:List(aListaElem)
    FWAlertInfo("Linha 3, Coluna 1: " +aListaElem[3][1], "Teste 2 THashMap")
    
    //Encerra o objeto
    oHash:Clean()

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++