Description

Entry point AF251FILTR() allows handling the default filter for Acquisition by Transfer.

Examples

User Function AF251FILTR()

Local cFilAux := paramixb[1]
Local aFilAux := {cFilAux}
Local cMsg := "Entry point AF251FILTR() executed."
Local cFiltro := ""

If ValType(aFilAux) == "A"
AADD(aFilAux, {'N3_FILIAL == "01" .AND. N3_CBASE >= "100002" .AND. N3_CBASE <= "100002 " .AND. N3_BAIXA < "1".And. ( N3_TIPO $ "01/03" .OR. ( N3_TIPO $ "10/12/13/14/15/13/15" .And. N3_TPSALDO == " ") ) '} )
Alert(cMsg)
cFiltro := aFilAux[2][1]
Endif

Return cFiltro

Language

Portuguese(Brazil)

Versions

Previous_Versions

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

cFiltro

Return

cFiltro

Call events of the Entry Point

If ExistBlock("AF251FILTR")
cFilAux := ExecBlock( "AF251FILTR", .F., .F., {cFiltro} )
If Valtype( cFilAux ) == "C"
cFiltro := cFilAux
EndIf
Endif

Source Program

ATFA251.PRW