Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: QDOFILBR - Alteração de Filtro


Versões:Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11


Descrição: Ponto de Entrada criado para mudar o Filtro ou para executar ações.

Ponto de Chamada: Antes da apresentação do mBrowse (tela de apresentação dos dados cadastrados)

Programa Fonte: QDOA050.PRW

Sintaxe:  QDOFILBR - Alteração de Filtro ( < cFiltro> ) --> cFiltro

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
cFiltroArray of Record

X


Retorno: cNewFiltro (caractere) - Regras do filtro a ser utilizado (em Advpl)


Exemplo:

Exemplo
#INCLUDE "TOTVS.CH"

USER FUNCTION QDOFILBR()
Local cNewFiltro := ''
Local cFiltroPad :=  PARAMIXB[1] //Filtro padrão do browse da rotina

//Os dados mostrados no browse do QDOA050 são exibidos conforme o filtro padrão abaixo:
/*QDH->QDH_FILIAL == "'+xFilial("QDH")+'" .And. ((QDH->QDH_CANCEL != "S" .Or. ( QDH->QDH_CANCEL == "S" .And. QDH->QDH_STATUS!="L  " )) .And. ((QDH->QDH_OBSOL !="S" .And. Dtos(QDH->QDH_DTVIG) <= "'+Dtos(dDataBase)+'" .And. QDH->QDH_FUTURA <> "G") .Or. (QDH->QDH_OBSOL == "S" .And. Dtos(QDH->QDH_DTLIM) >= "'+Dtos(dDataBase)+'" ))) */
//Este filtro pode ser editado ou substituído por meio deste Ponto de Entrada.

cNewFiltro := cFiltroPad + ' .And. QDH->QDH_CODTP == "DOCMNT"'

Return cNewFiltro