Ponto-de-Entrada: TK380VLD - Validação de respostas do script dinâmico
Abrangências: | Microsiga Protheus 10 |
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Idiomas: | Português (Brasil) |
Descrição:
O ponto de entrada TK380VLD será utilizado para validar respostas do script dinâmico tipo "Pesquisa"
Programa Fonte
TMKA380E.PRW
Sintaxe
TK380VLD - Validação de respostas do script dinâmico ( [ ParamIXB[1] ], [ ParamIXB[2] ], [ ParamIXB[3] ], [ ParamIXB[4] ] ) --> lRet
Parâmetros:
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
ParamIXB[1] | Caracter | Formato do Script 1- Atendimento 2- Pesquisa. | |||||||||||||||
ParamIXB[2] | Array of Record | Número de sequencia de Tela (primeira pergunta = tela 1). | |||||||||||||||
ParamIXB[3] | Array of Record | Array com os controles das perguntas e respostas. | |||||||||||||||
ParamIXB[4] | Array of Record | Array com as perguntas. |
Retorno
-
lRet(logico)
Exemplos
User Function TK380VLD() Local cFormato := ParamIXB[1] // Formato do Script 1- Atendimento 2- PesquisaLocal nPanel := ParamIXB[2] // Número de sequencia de Tela(primeira pergunta = tela 1)Local aControl := ParamIXB[3] // Array com os controles das perguntas e respostasLocal aPerguntas := ParamIXB[4] // Array com as perguntas Local lRet := .T. If cFormato =="2" .And. aControl[nPanel][4] == 0 Alert("Passou pelo ponto de entrada - TK380VLD") lRet:= .F.EndIf Return lRet
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
Array of Record | Global | Não |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas