import.css=/download/attachments/327912/newLayout.css

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
cFiltro
    (caracter)
  • Regras do filtro a ser utilizado (em Advpl)


#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 substituido por meio deste Ponto de Entrada.

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

Return cNewFiltro