20680 - Depreciação gerencial - Contabilizar
Problema: Como realizar a contabilização da depreciação gerencial?
Rotina / Tela: F645CTB - Controladoria / Gestão de Contabilidade / Contabilidade / Integrações Contábeis
Solução: Solução 20680: Para atender essa necessidade é preciso criar uma regra para buscar a taxa e o valor unitário do Bem da tabela de localização, e realizar o cálculo.
Em anexo demonstração.
Rotina / Tela: F645CTB - Controladoria / Gestão de Contabilidade / Contabilidade / Integrações Contábeis
Solução: Solução 20680: Para atender essa necessidade é preciso criar uma regra para buscar a taxa e o valor unitário do Bem da tabela de localização, e realizar o cálculo.
Abaixo exemplo de regra que pode ser utilizada na Forma de Contabilização (F048FCT).
Essa regra deverá ser adaptada pela área de TI da empresa de acordo com a necessidade e o cenário de cada cliente.
@-------------------------------------------------------------@
Definir Numero nCodEsp;
Definir Alfa aCodBem;
Definir Numero nCodEmp;
Definir Numero nTaxIog;
Definir Numero nVlrmgr;
nCodEsp = E670MOV.Codesp;
aCodBem = E670MOV.CodBem;
nCodEmp = E670MOV.CodEmp;
Se (nCodEsp = 4)
Inicio
Definir cursor CurE670LOC;
CurE670LOC.sql select vlrmgr,taxiog /
from /
e670loc /
where /
codemp =:nCodEmp and/
codbem =:aCodBem;
CurE670LOC.AbrirCursor();
Se(CurE670LOC.Achou)
nTaxIog=CurE670LOC.taxiog; @Taxa da depreciação gerencial@
nVlrmgr=CurE670LOC.vlrmgr; @Valor unitário da depreciação gerencial@
CurE670LOC.FecharCursor();
VVlrBas1 = (((nTaxIog * nVlrmgr)/12)/100);
Fim;
Depura++;
@---------------------------------------------------------------------@
Em anexo demonstração.