Dúvida
Como inserir o crédito das notas fiscais de devolução na apuração do DIFAL (tipo 63) quando a filial não possui IE no Estado da NF, na Gestão de Tributos?
 
Solução
Para inserir o crédito das notas fiscais, realize os passos a seguir:
 
1. Na tela F098REG - Cadastros / Identificadores e parâmetros / Identificador de Regras, cadastre o identificador de regra IMP-661CALIM10 para realizar a busca dos valores:
 
Modelo de regra:
Definir Numero VSCODFIL; @ Código da Filial @
Definir Numero VSCREVL1; @ Crédito Valor 1 @
Definir Alfa VSCREDS1; @ Descrição Crédito Valor 1 @
Definir Data VSDATINI; @ Data Inicial da Apuração @
Definir Data VSDATFIM; @ Data Final da Apuração @
Definir Alfa VSSIGUFS; @ Sigla do Estado @
Definir Alfa VANUMNFC;
Definir Cursor Cur_E660NFC;
 
Se ((VSCODEMP = X) E ((VSCODIMP = "DIF") OU ((VSCODIMP = "FCA") E (VSSIGUFS <> "SP")))){
 
VSCREVL1 = 0;
VSCREDS1 = "";
VNUMNFC = 0;
VANUMNFC = "";
VACHOU = 0;
 
Cur_E660NFC.SQL"SELECT E660NFC.DATENT, E660NFC.NUMNFI, E660NFC.ICMVOR, E660NFC.CODFOR
FROM E660NFC, E095FOR, E055SUB
WHERE E660NFC.CODEMP =:VSCODEMP AND
            E660NFC.CODFIL =:VSCODFIL  AND
            E660NFC.DATENT >=:VSDATINI  AND
            E660NFC.DATENT <=:VSDATFIM  AND
            E660NFC.ICMVOR > 0  AND
            E660NFC.CODFOR = E095FOR.CODFOR  AND
            E095FOR.SIGUFS =:VSSIGUFS  AND
            E055SUB.CODEMP = E660NFC.CODEMP  AND
            E055SUB.CODFIL = E660NFC.CODFIL  AND
            E055SUB.SIGUFS =:VSSIGUFS AND
            E055SUB.CODIMP =:VSCODIMP  AND
            E055SUB.DIAVCT > 1
ORDER BY E660NFC.DATENT, E660NFC.NUMNFI";
 
Cur_E660NFC.AbrirCursor();
Enquanto(Cur_E660NFC.Achou){
VACHOU++;
VNUMNFC = Cur_E660NFC.NumNfi;
ConverteMascara(1, VNUMNFC, VANUMNFC, "ZZZZZZZZZZZ9");
LimpaEspacos(VANUMNFC);
VSCREVL1 = VSCREVL1 + Cur_E660NFC.IcmVor;
Se(vAchou = 1){
VSCREDS1 = "DEVOLUÇÃO NF: " + VANUMNFC;
}
Se(vAchou > 1){
VSCREDS1 = VSCREDS1 +", " + VANUMNFC;
}
Cur_E660NFC.Proximo();
}
TamanhoAlfa(VSCREDS1,vTam);
Se (vTam > 210)
VSCREDS1 = "DEVOLUÇÃO ENTRADAS";
Cur_E660NFC.FecharCursor();
}
 
2. Na tela F661PAI - Controladoria / Gestão de Tributos / Operações e Cálculos Fiscais / Cálculos / Apuração, apure o imposto DIFAL.
 
 
Observação
Clique aqui para acessar a documentação do identificador de regra IMP-661CALIM10
Clique aqui para acessar a documentação do DIFAL