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-46829 |
Entry Point AF050SPS is activated to perform validations before running the Procedure responsible for calculating depreciation and indexation. This entry point allows adding customized rules, ensuring that required conditions are met before performing financial calculations on fixed assets.
lRet := ExecBlock("AF050SPS",.F.,.F.)
#Include "PROTHEUS.ch"
#INCLUDE "rwmake.ch"
User Function AF050SPS()
Local lRet := .F.
If MsgYesNo ("Confirm execution of Procedure?")
lRet:= .T.
MsgAlert("Execution successful")
Else
MsgAlert("Execution canceled")
EndIf
Return lRet
Important