Nesse vídeo demonstraremos a utilização da função Tabela, que serve para buscar a descrição de um registro na tabela genérica (SX5).

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe466
Função para trazer a descrição de um registro de uma tabela genérica (SX5)
@type Function
@author Atilio
@since 02/04/2023
@obs 
    Tabela
    Parâmetros
        Nome da Tabela Genérica
        Chave da Tabela Genérica
        .T. se irá exibir mensagem de erro caso não encontre ou .F. se não
    Retorno
        Descrição do registro na SX5

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

User Function zExe466()
    Local aArea      := FWGetArea()
    Local cTpProd    := ""
    Local cDescTp    := ""

    //Efetua a busca na tabela genérica "02" com a chave "PI"
    cTpProd := "PI"
    cDescTp := Tabela("02", cTpProd, .F.)
    FWAlertInfo("O resultado é: " + cDescTp, "Teste 1 - Tabela")

    //Efetua a busca na tabela genérica "02" com a chave "XX" (que não existe)
    cTpProd := "XX"
    cDescTp := Tabela("02", cTpProd, .T.)
    If ! Empty(cDescTp)
        FWAlertInfo("O resultado é: " + cDescTp, "Teste 2 - Tabela")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++