No vídeo de hoje, vamos demonstrar em como remover os filtros de uma tela padrão como a TES sem usar o SIGACFG.

A dúvida de hoje, nos perguntaram, se teria como ignorar os filtros gravados na SXQ no Configurador.

Pensando nisso, montamos um exemplo, onde vamos mostrar em como filtrar direto via ponto de entrada ChkExec.

Segue abaixo o vídeo exemplificando:

Abaixo o código fonte desenvolvido:

User Function ChkExec()
    Local aArea := GetArea()
    Local lRet := .T.
    Local cFuncao := Upper(ParamIXB)
    Local cFiltro := ""

    //Se for o cadastro de TES, mostra uma pergunta
    If "MATA080" $ cFuncao .And. FWAlertYesNo("Deseja inibir os filtros padrões do cadastro da TES?", "Inibir filtros?")
        DbSelectArea("SXQ")
        cFiltro := "1 == 0"
        SXQ->(DbSetFilter({|| &(cFiltro)}, cFiltro))
    EndIf

    RestArea(aArea)
Return lRet

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP