AF030DEP() - Desconsidera último cálculo de depreciação

Criado ponto de entrada  AF030DEP() desconsidera 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). Essa criação é uma melhoria na rotina Baixas (ATFA030).

User Function AF030DEP()
Local dUltDepr := ParamIxb[1]
Local dBaixa030 := ParamIxb[2]
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