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.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If !ExecBlock("ATF050LOG")
Return
EndIf |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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 |
| Aviso | ||
|---|---|---|
| ||
|