O ponto de entrada AFCLDEPR permite a manipulação da classificação padrão dos ativos que sofrerão depreciação e dos que NÃO sofrerão depreciação, dos quais determinam se o valor totalizado no relatório de Relação dos bens adquiridos (ATFR110) serão positivos ou negativos.

O ponto de entrada AFCLDEPR é EXCLUSIVO para o relatório de Relação dos bens adquiridos (ATFR110).

User Function AFCLDEPR()

Local cClassif := Paramixb[1]
Local cTpDepr := "N|D|A|O|T|E" //adiciona classificação de ativos depreciáveis
Local cTpNDepr := "V|S|I|C|P|R" //adiciona classificação de ativos não depreciáveis
Local lRet := .F.
/*
* Classificação dos ativos - SN1->N1_PATRIM
* "N" -> Ativo Imobilizado
* "S" -> Patrimônio Líquido
* "A" -> Amortização
* "C" -> Capital Social
* "P" -> Patrimônio (Prejuízo)
* "I" -> Ativo Intangível
* "D" -> Ativo Diferido
* "O" -> Orçamento
* "V" -> Provisão
* "T" -> Custos de Transação
*/

// Classificações de Bens que sofrem o processo de depreciação
If cClassif $ cTpDepr
lRet := .T. // Sim, deprecia
// Classificação de Bens que NÃO sofrem o processo de depreciação
ElseIf cClassif $ cTpNDepr
lRet := .F. // Não, NÃO deprecia
EndIf

Return (lRet)

Português(Brasil)

Versões_Anteriores

Todos

Todas

cClassif

lRet

If FunName() == "ATFR110"
If ExistBlock("AFCLDEPR")
lAtClssVer := ExecBlock("AFCLDEPR",.F.,.F.,{cClassif})
EndIf
EndIf

ATFXFUN.PRX