Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | PCOXINC |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada PCOVLDFLT tem como objetivo validar as informações inseridas na grade de filtro ao pressionar o botão "Executar Filtro". Esse comportamento ocorre quando o usuário utiliza a interface "Especif.Campos" durante a alteração da planilha orçamentária.
Este ponto de entrada possibilita implementar validações personalizadas para assegurar que os dados do filtro atendam às regras específicas antes de prosseguir com a execução do filtro.
If ExistBlock( "PCOVLDFLT" ) lValidUsr := ExecBlock( "PCOVLDFLT", .F., .F., { oGD[2]:aHeader, oGD[2]:aCols } ) If !lValidUsr oGD[2]:oBrowse:SetFocus() EndIf EndIf |
#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 informacoes Local 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. EndIf Return(lValidUsr) |
|