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.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If ExistBlock("AF251FILTR")
cFilAux := ExecBlock( "AF251FILTR", .F., .F., {cFiltro} )
If Valtype( cFilAux ) == "C"
cFiltro := cFilAux
EndIf
Endif |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
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 |
| Aviso | ||
|---|---|---|
| ||
|