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.
Tem uma forma mais direta:
_lExist := FWSX1Util():ExistPergunte(“A311TES”)
Bom dia Marcelo, tudo joia?
Opa, obrigado pela contribuição.
Um grande abraço.