Dúvida

Como trazer o crédito da apuração anterior no imposto tipo 67-Débito Especial, no módulo Gestão de Tributos?

Solução

Para trazer o crédito da apuração anterior no imposto tipo 67, siga as orientações a seguir:

1. No Sped é necessário gerar mais um registro 1921 referente o valor do crédito do período anterior, nesse caso, cadastre na tela F051DIS - Cadastros / Controladoria / Tributos / Dispositivos fiscais, um dispositivo fiscal referente ao crédito anterior com o código de ajuste correspondente ao utilizado na apuração mensal;

2. Para a sugestão automática do valor, na tela F098REG - Cadastros / Identificadores e parâmetros / Identificador de Regras, cadastre e ative o identificador de regras IMP-661CALIM05, e vincule uma regra para buscar o crédito da apuração anterior e alimentar o campo Outros Créditos (1) da apuração;

Segue exemplo de regra:

Definir Numero vFilCal;

Definir Alfa vCodImp;

Definir Alfa VCRED03;

Definir Data vDatIni;

Definir Data vDatFim;

Definir Data vDatMesAnt;

Definir Cursor Cur_E661RES;

DesmontaData (vDatIni,VDia,VMes,VAno);

vMesAnt = vMes - 1;

MontaData(VDia, VMesAnt, VAno, VDatMesAnt);

vCodEmp = CodEmp;

vCodFil = vFilCal;

Se (vCodImp = "TTD"){ @--código do imposto tipo 67--@

Cur_E661RES.SQL "SELECT TotCre, TotDeb \

FROM E661RES \

WHERE CODEMP =:vCODEMP \

AND CODFIL =:vCODFIL \

AND CodImp = 'TTD' \

AND DatApi =:vDatMesAnt";

Cur_E661RES.AbrirCursor();

Se (Cur_E661RES.Achou){

vSalCreAnt = Cur_E661RES.TotCre - Cur_E661RES.TotDeb;

Se (vSalCreAnt>0){

vCrev03 = vSalCreAnt;

VCRED03 = "Crédito Período Anterior"; @--descrição do dispositivo--@

EDISC03 = XXX; @--código do dispositivo para levar o valor para o registro 1921--@

}

}

Cur_E661RES.FecharCursor();

}

3. Na apuração do imposto 67 através da tela F661PAI - Controladoria / Gestão de Tributos / Operações e Cálculos Fiscais / Cálculos / Apuração, ao apurar o imposto, o valor e o dispositivo serão carregados automaticamente.