Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFXVLD |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46829 |
You can use entry point AFCLDEPR to handle the standard classification of assets to undergo depreciation. It allows defining which assets are subject to depreciation or not, determining whether the values totalized in the Acquired Assets List (ATFR110) report are positive or negative.
This entry point offers flexibility for specific customizations of asset classification behavior in the context of depreciation.
If ExistBlock("AFCLDEPR")
lAtClssVer := ExecBlock("AFCLDEPR",.F.,.F.,{cClassif})
EndIf
User Function AFCLDEPR() Local cClassif := Paramixb[1] Local cTpDepr := "N|D|A|O|T|E" //add classification of depreciable assets Local cTpNDepr := "V|S|I|C|P|R" //add classification of nondepreciable assets Local lRet := .F. /* * Asset Classification - SN1->N1_PATRIM * "N" -> Fixed Assets * "S" -> Net Equity * "A" -> Amortization * "C" -> Capital Stock * "P" -> Equity (Loss) * "I" -> Intangible Asset * "D" -> Deferred Asset * "O" -> Budget * "V" -> Provision * "T" -> Transaction Costs */ // Classifications of Assets that undergo the depreciation process If cClassif $ cTpDepr lRet := .T. // Yes, it depreciates // Classifications of Assets that DO NOT undergo the depreciation process ElseIf cClassif $ cTpNDepr lRet := .F. // No, it DOES NOT depreciate EndIf Return (lRet)
Important