Histórico da Página

Permite efetuar o processo de baixa de um ativo imobilizado mesmo em meses posteriores ao do último cálculo de depreciação.

Este ponto de entrada visa desconsiderar a última data de depreciação no processo de baixa de um ativo imobilizado através do processo de solicitação (ATFA125.PRW) e de aprovação e baixa (ATFA126.PRW)

User Function AF030DEP()
Local dUltDepr := ParamIxb[1] // 3=Aprovação, 4=Rejeição
Local dBaixa030 := ParamIxb[2] // 1=Baixa, 2=Transferencia
Local lRetDepr := .F.

If MsgYesNo( "Deseja desconsiderar a ultima data de depreciação?", "Atenção" )
lRetDepr := .T.
Else
lRetDepr := .F.
EndIf

Return lRetDepr

Português(Brasil)

Versões_Anteriores

Todos

Todas

dUltDepr - Data da última depreciação
dBaixa030 - Data de realização da baixa

lRetDepr - Retorna .T. caso o usuário não queira considerar a última data de depreciação.

If lAF030DEP
lRetDepr := ExecBlock("AF030DEP", .F., .F.,{dUltDepr,dBaixa030})
EndIf

Local lRetDepr := .F.
Local lAF030DEP := ExistBlock("AF030DEP")

ATFA030.PRX