Verificando se um Alias/Tabela Existe no Dicionário de Dado(SX2) com FWAliasInDic em ADVPL

#include 'protheus.ch'
#Include "tbiconn.ch"
/*{Protheus.doc} User Function fFAInDic
    (Essa função tem por finalidade mostrar a função do Dicionário de Dados FWAliasInDic em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 08/10/2025
    @version 1.0
@?Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@?Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@?Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@?Conheça os Cursos e Formações do Protheus:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/

@Participe de nossas comunidades no WhatsApp:
-Comunidade Protheus Backoffice:https://chat.whatsapp.com/KMUIAjwZ6EZ6eAHsLkPTyb
-Comunidade Protheus-RH:https://chat.whatsapp.com/L5dUyAna6xU4ylG5DUgfOW
-Comunidade Protheus-Programação:https://chat.whatsapp.com/LsD6z0apdqKHlOz67bcaEn
-Comunidade Protheus-Framework:https://chat.whatsapp.com/BzUFpjaSnTC3vtsfa77jmG

|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
/*/
#define QLin Chr(13)+Chr(10) 
User Function fFAInDic()
    Local aArea  := GetArea()
	Local cAlias := "SA2"
    Local cAlias2 := "Z09"
    Local cMsg := ""
   
    
    PREPARE ENVIRONMENT EMPRESA '01' FILIAL '01'
	
    If(FWAliasInDic(cAlias))
    	cMsg := "O alias "+cAlias+" existe no dicionário de dados SX2!"+QLin+QLin
    Else
    	cMsg := "O alias "+cAlias+" não existe no dicionário de dados SX2!"+QLin+QLin  
    EndIf

    If(FWAliasInDic(cAlias2))
    	cMsg += "O alias "+cAlias2+" existe no dicionário de dados SX2!"
    Else
    	cMsg += "O alias "+cAlias2+" não existe no dicionário de dados SX2!"   
    EndIf

	
    FWAlertInfo(cMsg,"Função FWAliasInDic")

    //Restaura a área
	RestArea(aArea)

Return