| 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) |
|