Problema: Descrição do Problema: Precisamos que as depreciações relativas a vida útil dos bens sejam registradas em contas específicas de resultado.
Realizar o cálculo FISCAL e de VIDA ÚTIL, de todos os bens e registrar em contas distintas de DEPRECIAÇÃO FISCAL e DEPRECIAÇÃO VIDA ÚTIL.
Para a conta de depreciação fiscal o sistema precisa registrar o valor integral da depreciação e para vida útil somente a diferença entre o valor fiscal e vida útil.

Ex.:
Se o bem tiver valor de depreciação fiscal de R$ 50,00 e para vida útil R$ 20,00. O registro deve ser:
D Depreciação Fiscal R$ 50,00 (Resultado)
C Depreciação Acumulada R$ 50,00 (Ativo)

D Depreciação Acumulada R$ 30,00 (Ativo)
C Depreciação Vida Útil R$ 30,00 (Resultado)

Esta necessidade é relacionada ao E-LALUR.

Quando ocorre / onde se aplica: F645CTB - Controladoria / Gestão de Contabilidade / Contabilidade / Integrações Contábeis

Solução: Solução: O ERP trata sim essa forma de contabilizar , porém será necessário utilizar uma regra parcial na forma de contabilização.
Exemplo do tratamento anexo.

Exemplo de regra:
____________________________________________________________
Definir Numero nVlrMvt; @Valor da depreciação vida util@
Definir Numero dCodEsp; @Codigo da especie@
Definir Alfa nCodTns; @Codigo transação@
Definir data mDatCal; @Data calculo@
Definir Numero nVlrNor; @Valor da depreciação normal / fiscal@

nVlrMvt = E670MOV.VlrMvt; @Valor do Movimento da 90828@
dCodEsp = E670MOV.CodEsp;
nCodTns = E670MOV.CodTns;
mDatCal = E670MOV.DatCal;

Definir Cursor CurE670MOV;

CurE670MOV.SQL SELECT VLRMVT        
          FROM E670MOV          
              WHERE CODTNS = '90815'
              AND DATCAL =:mDatCal;

CurE670MOV.AbrirCursor();

Se (CurE670MOV.Achou)
Inicio
nVlrNor= CurE670MOV.VLRMVT;
Fim;

CurE670MOV.FecharCursor();


Se ((dCodEsp = 1) e (nCodTns = 90828))
Inicio
VVlrBas1 = nVlrMvt - nVlrNor;
Fim;

Se (VVlrBas1 < 0)
Inicio
 VVlrBas1 = (VVlrBas1 *(-1));
Fim;
__________________________________________