Producto: | TOTVS Backoffice |
|---|---|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF) |
Función: | ATFA050 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46748 |
El punto de entrada ATF050LOG permite realizar validaciones personalizadas antes de la ejecución del cálculo de depreciación y corrección monetaria en la rutina Cálculo mensual (ATFA050). Se utiliza para ejecutar las validaciones antes de ejecutar la Procedure en el cálculo de la depreciación y en la corrección monetaria, en la rutina Cálculo mensual (ATFA050).
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("Depreciación no es proporcional")
EndIf
Return lRet
Importante