Nesse vídeo demonstraremos a utilização da classe FWSX1Util, que serve para buscar informações do cadastro de perguntas (SX1) no dicionário de dados.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe249
Classe para buscar informações da SX1 (Grupo de Perguntas)
@type  Function
@author Atilio
@since 20/02/2023
@see https://tdn.totvs.com/display/public/framework/FWSX1Util
@obs 
    
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe249()
    Local aArea      := FWGetArea()
    Local aPergs     := {}
    Local oSX1       := FWSX1Util():New()

    //Busca os grupos de pergunta
    oSX1:AddGroup("A311TES")
    oSX1:SearchGroup()
    aPergs := oSX1:GetGroup("A311TES") 

    //Exibe uma mensagem
    FWAlertInfo("Foi encontrado " + cValToChar(Len(aPergs[2])) + " pergunta(s)", "Teste FWSX1Util")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++