Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA251 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
Entry point AF251FILTR allows handling the default filter used in the Acquisition by Transfer routine. With this entry point, the user can adjust the filtering criteria applied for viewing acquisition records, depending on their specific needs or those of the organization.
Handling of EP in the system
If ExistBlock("AF251FILTR")
cFilAux := ExecBlock( "AF251FILTR", .F., .F., {cFiltro} )
If Valtype( cFilAux ) == "C"
cFiltro := cFilAux
EndIf
Endif
EP Example
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
Important !!