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.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
lRet := ExecBlock("AF050SPS",.F.,.F.) |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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 |
...
| Aviso |
|---|
...
|
...
|