Descrição

Criado ponto de entrada AF036DEP() 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 (ATFA036).

Observações

 

Exemplos

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

Preview

Veja também

 

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

 

Parâmetros

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

Retorno

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

Eventos de chamada do Ponto de Entrada

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

Variáveis

Local lRetDepr := .F.
Local lAF036DEP := ExistBlock("AF036DEP")

Programa Fonte

ATFA036.PRW