Acbrnfedanfefr Erro Para Exibir Icms

[joaoelson]

Olá amigos, venho aqui pedir uma ajuda para resolver um probleminha com o Danfe do FastReport.

 

Seguinte:

Tenho um cliente que está no regime tributário simples nacional excesso de sub-limite de receita(CRT=2)

 

Esse cliente está obrigado a declarar icms pq sua cota ultrapassou.

Quando declara o ICMS, tudo ocorre certinho, envio, retorno e etc..

 

O problema está na impressão do Danfe. A Base de calculo do icms, aliquota e valor não aparece nos itens, somente nos totais.

Esse problema só acontece com o Danfe do FastReports. Verifiquei que utilizando o Rave Reports isso não acontece, aparece tudo certo. A Base de calculo do ICMS, aliquota e valo em cada item. 

 

Se fosse mudar, passaria muito tempo porque meu projeto está todo baseado no FastReports.

 

Alguém tem alguma idéia do que pode ser?

 

Desde já agradeço.

 

[joaoelson]

Amigos, seguinte:

 

Lendo o manual, ele deixa claro que o CSOSN deve ser usado somente no regime Simples nacional(CRT=1). O CST no Regime Normal(CRT=3). Não fala nada sobre o regime simples nacional excesso de sub-limite de receita(CRT=2).

Entrei em contato com o contador que me explicou que o CRT=2 é destinado a empresas que ultrapassaram o limite do Simples nacional, ou seja, é quase uma "transição" entre o simples e o normal, com isso Destacam ICMS.

 

O DANFE Rave está correto, só Informa o CSOSN para empresas do simples.

obs.: a declaração está:

         if (dmDanfe.NFe.Emit.CRT = crtSimplesNacional) then
         .......

 

 

Agora o DANFE FastReport está Declarando CSOSN para o Simples Nacional(CRT=1) e para o Simples com Excesso(CRT=2)

 

          case FNFe.Emit.CRT of
            crtSimplesNacional, crtSimplesExcessoReceita:
...

 

Para Resolver o meu problema fiz algumas alterações no ACBrNFe FastReport.

 

 

Segue anexo o arquivo que fiz alteração.
Foi preciso alterar os arquivos ACBrNFeDANFEFRDM.pas e DANFE.fr3, mas não consequi postar o fr3.

 

Segue o código que alterei no DANFE.fr3

 

  onde estava:

  if Trim(<Emitente."CRT">) = '3' then
    DESCR_CST := 'CST'
  else
    DESCR_CST := 'CSOSN';                      

  ficou:

  if Trim(<Emitente."CRT">) = '1' then
    DESCR_CST := 'CSOSN'
  else
    DESCR_CST := 'CST';                      

 

 

 

Lembrando que esse forum é aberto a esclarecimentos e opiniões, façam seus comentários!

Agradeço a atenção.

João Elson.

ACBrNFeDANFEFRDM.pas

Editado 2 Fevereiro, 2013 por joaoelson

[Régys Silveira]

Por favor zip tudo em um arquivo somente e anexe para que possamos fazer a análise e o merge, obrigado pela contribuição.

[joaoelson]

Como solicitado, Segue em anexo arquivos compactados.

 

 

 

Por sua atenção, muito obrigado! 

João Elson.

ACBrNFeDANFEFRDM.rar

ACBrNFeDANFEFRDM.rar