Nfe De Empresa No Simples Nacional Com Subst. Tributaria

[Solutions]

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

[Kiko Fernandes]

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;

[Solutions]

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

 

 

 

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

[Régys Silveira]

Você informou: <vBC>9400.00</vBC> sendo que não destacou ICMS nos itens.