Obtendo o Conteúdo de um ou mais Campos(SX3) com GetAdvFval em ADVPL

#include 'protheus.ch'
#include 'rwmake.ch'
#INCLUDE "TBICONN.CH"
/*{Protheus.doc} User Function fGAdFVal
    (Essa função tem por finalidade mostrar a função GetAdvFVal 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) //Quebra de linha

User Function fGAdFVal()

Local cAlias :="SA2"
Local aCpos := {"A2_NOME","A2_END","A2_EST"}
Local aContCpo := {}
Local cCod  := "000001"
Local cLoja := "0001"
Local cChve  := ""
Local nOrd  := 1
Local aRetDef := {"","",""}
Local nI
Local cMsg := ""


PREPARE ENVIRONMENT EMPRESA '01' FILIAL '01'

cChve := FWxFilial("SA2")+cCod+cLoja

aContCpo := GetAdvFVal(cAlias,aCpos,cChve,nOrd,aRetDef)


For nI:= 1 To Len(aContCpo)
    cMsg += "O conteúdo do campo "+aCpos[nI]+" é:"+aContCpo[nI]+Qlin
Next nI

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



Return