Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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.

...

Bloco de código
#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:

Bloco de código
#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