Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Technology |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA036 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
The entry point AF036DEP() ignores the last depreciation date in the process of posting a fixed asset using the request process (ATFA125.PRW) and the approval and posting process (ATFA126.PRW). This creation is an improvement to the Postings (ATFA036) routine.
Handling of EP in the system
lRetDepr := ExecBlock("AF036DEP", .F., .F.,{dUltDepr,dDataBx})
EP Example
User Function AF036DEP()
Local dUltDepr := ParamIxb[1]
Local dDataBx := ParamIxb[2]
Local lRetDepr := .F.
If MsgYesNo( "Disregard the last depreciation date?", "Attention" )
lRetDepr := .T.
Else
lRetDepr := .F.
EndIf
Return lRetDepr
Important !!