Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Nfe De Empresa No Simples Nacional Com Subst. Tributaria


Go to solution Solved by Solutions,
  • Este tópico foi criado há 2585 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa noite pessoal venho humildemente pedir a ajuda de vocês, estou desenvolvendo minha própria NFe, o problema  que me deparei foi o seguinte, quando a empresa é COMÉRCIO e optante pelo simples nacional o meu sistema faz tudo certinho GERA, TRANSMITI, VALIDA, ASSINA E IMPRIMI, porém quando a empresa é industria e optante do simples mais como sabemos eles tem que destacar o Valor e Base de calculo de Substituição Tributária, e não estou conseguindo fazer isso com a empresa sendo do simples. 

 

Segue abaixo o arquivo xml e meu código para a devida verificação pelos colegas.

 

apenas lembrando que estou aberto a qualquer modificação que for necessária para que isso funcione corretamente.

 

           vTotTrib := DM.ItemNotaFiscalTOTAL_TRIBUTO.Value;
           with ICMS do
           begin
             if DM.ItemNotaFiscalCST.Value = '000' then
             begin
               CST      := cst00;
               CSOSN    := csosn202;
               orig     := oeNacional;
               modBC    := dbiValorOperacao;
               vBC      := DM.ItemNotaFiscalBASE_ICMS.Value;
               pICMS    := DM.ItemNotaFiscalICMS.Value;
               vICMS    := DM.ItemNotaFiscalVALOR_ICMS.Value;
            end
             else if DM.ItemNotaFiscalCST.Value = '060' then  // 3 - Sub. Tributaria
             begin
               CST      := cst60;
               CSOSN    := csosn500;
               orig     := oeNacional;
               modBC    := dbiValorOperacao;
               vBC      := 0;
               pICMS    := 0;
               vICMS    := 0;
               modBCST  := dbisMargemValorAgregado;
               pMVAST   := 0;
               pRedBCST := 0;
               vBCST    := DM.ItemNotaFiscalBASE_ICMS_SUBS.Value;
               pICMSST  := DM.ItemNotaFiscalICMS_SUBS.Value;
               vICMSST  := DM.ItemNotaFiscalVALOR_ICMS_SUBS.Value;
               pRedBC   := 0;
             end
             else
             if (DM.ItemNotaFiscalCST.Value = '040') or   // 1 - Isento
                (DM.ItemNotaFiscalCST.Value = '020') then // 2 - Não tributado
             begin
             with II do
             begin
               vBc      := 0;
               vDespAdu := 0;
               vII      := 0; //DM.ItemNotaFiscalVALOR_TOTAL.AsFloat;
               vIOF     := 0;
             end;
             end;
           end;
         end;
       end;

32150404242926000144550010000000171000000175-nfe.xml

Link to comment
Share on other sites

  • Moderadores

Bom dia!

 

...

<IE>082127476</IE>
<IM>35794</IM>
<CNAE>4751201</CNAE>
<CRT>3</CRT>
</emit>
...

 

 

 

 

Vc está usando CRT=3 (Regime normal) Vc comentou que é "indústria e optante do simples", logo deve ser CRT=1.

 

 

-<ICMS>

-<ICMS60>

<orig>0</orig>

<CST>60</CST>

</ICMS60>

</ICMS>

 

 

Devido ao CRT ser igual a 3 vc preencheu a tag do imposto com CST 60 no caso de destaque de icms subst. trib. e regime simples (CRT=1) deve fazer uso do CSOSN, com destaque utilize 201 ou 202 (verifique com o esc. de contabilidade)

 

  • 201 - Tributada pelo Simples Nacional com permissão de crédito e com cobrança do ICMS por substituição tributária;
  • 202 - Tributada pelo Simples Nacional sem permissão de crédito e com cobrança do ICMS por substituição tributária;
  • Like 1


logoacbr.pngConheça o Portal do Projeto ACBr

Ajude o Projeto ACBr crescer - Assine o SAC ACBr
Assine um dos planos de longa duração do SAC ACBr, obtenha Descontos Especiais, Parcele no Cartão e ainda ganhe Brindes Exclusivos. Saiba mais aqui

Conheça o ACBrLib, o ACBr de forma nativa para qualquer linguagem de programação. Saiba mais aqui

 

 

 

 

Link to comment
Share on other sites

  • Solution

Boa noite peço desculpas o xml esta erro, porem o erro agora é outro segue a imagem e o xml correto para verificação.

 

post-2099-0-20510100-1429737894.png

 

 

trecho do meu codigo:

 

         with Imposto do
         begin
           // lei da transparencia nos impostos
           vTotTrib := DM.ItemNotaFiscalTOTAL_TRIBUTO.Value;
           with ICMS do
           begin
             if DM.ItemNotaFiscalCST.Value = '000' then
             begin
//               CST      := cst00;
               CSOSN    := csosn202;
               orig     := oeNacional;
               modBC    := dbiValorOperacao;
               vBC      := DM.ItemNotaFiscalBASE_ICMS.Value;
               pICMS    := DM.ItemNotaFiscalICMS.Value;
               vICMS    := DM.ItemNotaFiscalVALOR_ICMS.Value;
            end
             else if DM.ItemNotaFiscalCST.Value = '060' then  // 3 - Sub. Tributaria
             begin
//               CST      := cst60;
               CSOSN    := csosn500;
               orig     := oeNacional;
//               modBC    := dbiValorOperacao;
//               vBC      := 0;
//               pICMS    := 0;
//               vICMS    := 0;
               modBCST  := dbisMargemValorAgregado;
               pMVAST   := 0;
               pRedBCST := 0;
               vBCST    := DM.ItemNotaFiscalBASE_ICMS_SUBS.Value;
               pICMSST  := DM.ItemNotaFiscalICMS_SUBS.Value;
               vICMSST  := DM.ItemNotaFiscalVALOR_ICMS_SUBS.Value;
               pRedBC   := 0;
             end
             else
             if (DM.ItemNotaFiscalCST.Value = '040') or   // 1 - Isento
                (DM.ItemNotaFiscalCST.Value = '020') then // 2 - Não tributado
             begin
             with II do
             begin
               vBc      := 0;
               vDespAdu := 0;
               vII      := 0; //DM.ItemNotaFiscalVALOR_TOTAL.AsFloat;
               vIOF     := 0;
             end;
             end;
           end;
         end;
       end;
     DM.ItemNotaFiscal.Next;
     until DM.ItemNotaFiscal.Eof;

32150404242926000144550010000000171000000175-nfe.xml

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.