Nesse vídeo demonstraremos a utilização da função FieldPos, que serve para validar se um campo existe no dicionário de dados do sistema.

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

//Bibliotecas
#Include "TOTVS.ch"
 
/*/{Protheus.doc} User Function zExe177
Valida se um campo existe na tabela
@type Function
@author Atilio
@since 20/12/2022
@see https://tdn.totvs.com/display/tec/FieldPos
@obs 
    Função FieldPos
    Parâmetros
        + cField         , Caractere   , Nome do campo
    Retorno
        + nRet           , Numérico    , Retorna a posição do campo no dicionário caso exista
 
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
 
User Function zExe177()
    Local aArea      := FWGetArea()
 
    DbSelectArea("SB1")
 
    //Verifica se o campo existe
    If FieldPos("B1_X_CAMPO") > 0
        /* Aqui da para fazer a customização caso o campo exista */
 
    Else
        FWAlertError('Contate o Administrador do Sistema', 'O campo [B1_X_CAMPO] não foi encontrado!')
    EndIf
 
    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++