Línea de producto: | Microsiga Protheus | ||||
Segmento: | Servicios | ||||
Módulo: | SIGACTB | ||||
Rutina: |
| ||||
Punto de entrada: | AF050LOG | ||||
País(es): | Brasil | ||||
Base(s) de datos: | Todas | ||||
Sistema(s) operativo(s): | Todos |
El Punto de entrada ATF050LOG realiza validaciones antes de la ejecución del cálculo de depreciación y de la corrección monetaria, en la rutina Cálculo mensual (ATFA050).
Descripción: | 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). |
Programa fuente: | ATFA050 |
Devolución: | Valor lógico(.T. o .F.) |
Ejemplo:
#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")
Return lret
EndIf