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 cFiltro: cNewFiltro (caractercaractere) - Regras do filtro a ser utilizado (em Advpl)
Exemplo:
| Bloco de código |
|---|
| language | cpp |
|---|
| title | Exemplo |
|---|
| linenumbers | true |
|---|
|
#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 |
