...
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.
...
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:
Nome | Tipo | Descrição | Obrigató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 |