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.
lRetDepr := ExecBlock("AF036DEP", .F., .F.,{dUltDepr,dDataBx})
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