Linha Microsiga Protheus

Árvore de páginas

Descrição

Criado ponto de entrada AF036DEP() que 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çãoA responsabilidade com a relação ao cálculo de depreciação fica a cargo do cliente, pois o produto padrão não permite a baixa em meses+1 posterior ao último cálculo,

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

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

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,dDataBx})
EndIf

Variáveis

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

Programa Fonte

ATFA036.PRW

  • Sem rótulos