Nesse vídeo demonstraremos a utilização da função TableFields, que serve para buscar os nomes dos campos de uma tabela.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe467
Busca o nome dos campos de uma tabela
@type Function
@author Atilio
@since 02/04/2023
@obs 
    Tabela
    Parâmetros
        Alias da Tabela
        0 se é pro retorno ser um array ou 1 se é pra ser caractere
        Texto de separação caso seja 1 (caractere)
        Bloco de código a ser avaliado para considerar o campo
    Retorno
        Retorna os campos em um array ou string conforme os parâmetros informados

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

User Function zExe467()
    Local aArea       := FWGetArea()
    Local aCampos     := {}
    Local cCampos     := ""
    Local cCamposPipe := ""
    Local aCamposFilt := {}

    //Efetua as buscas dos campos
    aCampos     := TableFields("SB1", 0)
    cCampos     := TableFields("SB1", 1)
    cCamposPipe := TableFields("SB1", 1, "|")
    aCamposFilt := TableFields("SB1", 0, , {|cField| "_X_" $ cField})
    FWAlertInfo("Busca dos campos com pipe: " + cCamposPipe, "Teste TableFields")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++