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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
| cFiltro | Array of Record | X |
Retorno: cNewFiltro (caractere) - Regras do filtro a ser utilizado (em Advpl)
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 |