Linha Microsiga Protheus

Árvore de páginas

DescriçãoO ponto de entrada AFCLDEPR manipula a 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.
ObservaçõesEste ponto de entrada é EXCLUSIVO para o relatório de Relação dos Bens Adquiridos - ATFR110.
Exemplos

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)

IdiomaPortuguês(Brasil)
VersõesVersões_Anteriores
Sistemas Operacionais SuportadosTodos
Compatível com as Bases de DadosTodas
ParâmetroscClassif
RetornolRet
Eventos de chamada do Ponto de EntradaIf FunName() == "ATFR110"
If ExistBlock("AFCLDEPR")
lAtClssVer := ExecBlock("AFCLDEPR",.F.,.F.,{cClassif})
EndIf
EndIf
Programa FonteATFXFUN.PRX