Ponto-de-Entrada: PCOVLDFLT - Valida informações
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todas TotvsDbAccess |
| Idiomas: | Espanhol , Inglês |
Descrição:
O ponto de entrada PCOVLDFLT tem como finalidade validar as informações digitadas na grade de filtro ao pressionar o botao "Executar Filtro" quando usuário está utilizando a interface "Especif.Campos" na alteração da planilha orçamentária.
Eventos
A finalidade deste ponto é validar as informações digitadas na grade de filtro ao pressionar o botao "Executar Filtro" quando o usuário está utilizando a interface "Especif.Campos" na alteração da planilha orçamentária.
Neste ponto recebe como parâmetro o aHeader e o aCols da Getdados de filtro podendo efetuar validações diversas com estas informações.
Programa Fonte
PCOXFUN.PRW
Sintaxe
PCOVLDFLT - Valida informações ( < aHeader> , < aCols> ) --> lValidUsr
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aHeader | Array of Record | Cabecalho da GetDados | X | ||||||||||||||
| aCols | Array of Record | Conteúdo da GetDados | X |
Retorno
lValidUsr
- (logico)
- .T.-Executa; .F.-Nao Executa Filtro
Exemplos
#INCLUDE "PROTHEUS.CH"User Function PCOVLDFLT()Local aHeader_Filt := ParamIXB[1]Local aCosl_Filt := ParamIXB[2]Local lValidUsr := .T. //se retornar falso nao executara o filtro, voltando ao filtro para // alterar as informacoesLocal nX Local nPosClasse := aScan(aHeader_Filt,{|x| AllTrim(x[2])=="XK2_CLASSE"})if aCols_Filt[1, nPosClasse] == "000001" Alert("Classe nao pode ser utilizada.") lValidUsr := .F.EndIfReturn(lValidUsr)