Nesse vídeo será demonstrado como validar se campos existem dentro do dicionário (na SX3) através da função AvExisteCampo.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe054
Exemplo de função que verifica se campos existem no dicionário
@type Function
@author Atilio
@since 05/12/2022
@obs 
    Função AvExisteCampo 
    Parâmetros
        + Array com o nome dos campos a serem verificados
    Retorno
        + Retorna .T. se encontrou todos os campos ou .F. se algum campo não existe na base

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

User Function zExe054()
    Local aArea            := FWGetArea()
    Local aCampos          := {}
    
    //Adiciona os campos que serão verificados
    aAdd(aCampos, "B1_COD")
    aAdd(aCampos, "B1_DESC")
    aAdd(aCampos, "B1_GRUPO")
    aAdd(aCampos, "B1_X_TST")

    //Faz a validação se os campos existem
    If AvExisteCampo(aCampos)
        FWAlertSuccess("Todos os campos existem na base", "Sucesso")
    Else
        FWAlertError("Existe(m) campo(s) não encontrado(s) na base!", "Falha")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++