Descrição

O ponto de entrada AF060FIL é utilizado na customização de filtros na rotina Transferência de Ativos retornando apenas expressões em ADVPL.

Exemplos

User Function AF060FIL

Local cFil := "N3_AQUISIC = CTOD('30/09/2013')"

Alert("Exibindo Ativos apenas do" + cFil)

Return cFil

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

cFilter

Eventos de chamada do Ponto de Entrada

(até versão 12.1.5)

IF ExistBlock("AF060FIL")
cFilter :=ExecBlock("AF060FIL",.F.,.F.,cFilter)
cFilter :=IIF(ValType(cFilter) == "C",cFilter,Nil)
cFiltroAux := strtran(upper(cFilter), "AND" , ".AND.")
cFiltroAux := strtran(cFiltroAux, "OR" , ".OR.")
EndIf

Eventos de chamada do Ponto de Entrada

(a partir da versão 12.1.6)

cFiltro := ExecBlock("AF060FIL",.F.,.F.)
If !Empty(cFiltro)
    If !Empty(cExpFiltro)
        cExpFiltro += " .AND. " + cFiltro
    Else
        cExpFiltro := cFiltro
    Endif
EndIf

Programa Fonte

ATFA060.PRW