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:
| Nome | Tipo | Descrição | Obrigató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:
| Nome | Tipo | Descrição | Obrigató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:
| Nome | Tipo | Descrição | Obrigató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 |
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:
| Nome | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| cGrpPerg | Caracter | Deverá ser passado qual grupo de perguntas será verificado. (X1_GRUPO) | X |
| cItemPerg | Caracter | 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 |