Product: | TOTVS Backoffice |
Product Line: | Protheus Line |
Industry: | Services |
Module: | TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF) |
Function: | ATFA050 |
Country: | Brazil |
Ticket: | Internal |
Requisite/Story/Issue | DSERCTR1-46748 |
You can use the entry point ATF050LOG to perform customized validations before calculating depreciation and indexation in the Monthly Calculation (ATFA050) routine. It is used for performing the validations before running the Procedure in the calculation of depreciation and indexation in the Monthly Calculation (ATFA050) routine.
If !ExecBlock("ATF050LOG")
Return
EndIf
#Include "PROTHEUS.ch"
#INCLUDE "rwmake.ch"
User Function ATF050LOG()
Local cTipDepr := AllTrim(GetMv("MV_TIPDEPR"))
Local lret := .T.
If cTipDepr <> "0"
lret:= .F.
Alert("Depreciation is not proportional")
EndIf
Return lRet
Important