Produto: | |
---|---|
Linha de Produto: | |
Segmento: | |
Módulo: | |
Função: | ATFA050 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46748 |
O ponto de entrada ATF050LOG permite realizar validações personalizadas antes da execução do cálculo de depreciação e correção monetária na rotina Cálculo Mensal (ATFA050). É utilizado para executar as validações antes de executar a Procedure no cálculo da depreciação e na correção monetária, na rotina Cálculo Mensal (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("Depreciação não é proporcional") EndIf Return lRet |
|