Páginas filhas
  • FWSX1Util

Descrição:
Classe que retorna os campos do SX1 (Perguntas) cadastrados para o ID passado



Métodos:

New()
Sintaxe:
FWSX1Util():New() →

Descrição:
Método construtor da classe


AddGroup()
Sintaxe:
FWSX1Util():AddGroup( cPesqGroup ) →

Descrição:
Adiciona qual grupo deverá ser pesquisado.

Parâmetros:

NomeTipoDescriçãoObrigatório
cPesqGroup Caracter 

Deverá ser passado qual grupo será incluído para pesquisa

X


SearchGroup()
Sintaxe:
FWSX1Util():SearchGroup( ) →

Descrição:
Pesquisa as informações do(s) grupo(s) que foram adicionados ao array


GetGroup()
Sintaxe:
FWSX1Util():GetGroup(cPesqGroup) →

Descrição:
Retorna um grupo e os dados dele.

Parâmetros:

NomeTipoDescriçãoObrigatório
cPesqGroup Caracter 

Deverá ser passado qual grupo deseja obter os detalhes

X

Retorno:
Esse método retorna um array, onde a posição [1] contem o nome do Grupo de Perguntas e a posição [2] é um Array de Objetos contendo as perguntas daquele Grupo.

Caso a posição 2 esteja vazia, o grupo de perguntas não foi localizado no dicionário SX1.

Obs.: o nome do objeto "oObj" é apenas um exemplo, ele pode ser escolhido





Os campos da tabela SX1 que são retornados pela classe são:

Nome na SX1
X1_GSC
X1_TIPO
X1_ORDEM
X1_VAR01
X1_VAR02
X1_VAR03
X1_VAR04
X1_VAR05
X1_PERGUNT
X1_DEF01
X1_DEF02
X1_DEF03
X1_DEF04
X1_DEF05
X1_PRESEL




Exemplo de uso:

#include "Protheus.ch"

User Function testeFun()

Local oObj := FWSX1Util():New()
Local aPergunte
oObj:AddGroup("ACA480")
oObj:AddGroup("ACA600")
oObj:AddGroup("ACA715")
oObj:SearchGroup()
aPergunte := oObj:GetGroup("ACA480")
Return




ExistPergunte()
Sintaxe:
FWSX1Util():ExistPergunte( cPesqGroup ) → logical

Descrição:
Retorna um valor lógico. 
Retorna .T. caso a pergunta exista e caso contrário .F.

Parâmetros:

NomeTipoDescriçãoObrigatório
cPesqGroup Caracter 

Deverá ser passado qual grupo de perguntas será verificado.

X


Exemplo de uso:

#include "Protheus.ch" 

User Function testeFun() 

local lExistPergunte as logical
 
lExistPergunte := FWSX1Util():ExistPergunte("GPER140")

if lExistPergunte
	MSGALERT( "Grupo de perguntas encontrado com sucesso!", "ExistPergunte" )
else
 	MSGALERT( "Grupo de perguntas não encontrado!", "ExistPergunte" ) 
endif 

Return

Função disponível a partir da LIB Label 20230918

Função disponível a partir da LIB Label 20230918




ExistItem()
Sintaxe:
FWSX1Util():ExistItem( cGrpPerg, cItemPerg ) → logical

Descrição:
Retorna um valor lógico. 
Retorna .T. caso o item do grupo exista e caso contrário .F.

Parâmetros:

NomeTipoDescriçãoObrigatório
cGrpPergCaracter 

Deverá ser passado qual grupo de perguntas será verificado. (X1_GRUPO)

X
cItemPergCaracter

Deverá ser passado qual o item do grupo de perguntas será verificado. (X1_PERGUNT)

X


Exemplo de uso:

#include "Protheus.ch" 

User Function testeFun() 

local lExistItem as logical
 
lExistItem := FWSX1Util():ExistItem("GPER140","Formulario Tipo ?")

if lExistItem
	MSGALERT( "Pergunta encontrada com sucesso!", "ExistItem" )
else
 	MSGALERT( "Pergunta não encontrada!", "ExistItem" ) 
endif 

Return

Função disponível a partir da LIB Label 20240115

Função disponível a partir da LIB Label 20240115