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.
Handling of EP in the system
If ExistBlock("AFCLDEPR")
lAtClssVer := ExecBlock("AFCLDEPR",.F.,.F.,{cClassif})
EndIf
EP Example
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
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) |
| Aviso | ||
|---|---|---|
| ||
|