Ajuda com primeira nota pelo acbr

[Elviro]

Boa tarde, estou passando por algumas dúvidas, estou utilizando pela primeira vez o acbr para emissão de nota eletrônica e quando vou gerar a minha primeira nota aparece esse erro

Falha na validação dos dados da nota : 1

Element '{http://www.portalfiscal.inf.br/nfe}ICMSSN' is unexpected according to content model of parant element

Segue abaixo meu código para análise

 

  Anexe, não cole no post o código

[RicardoVoigt]

oi,

a tag ICMSSN aparece quando o emitente é do Simples Nacional.

Verifique o que está informando na tag Emit.CRT (código do Regime Tributário)

Att

Ricardo

[Gr@c@]

Você informou a tag ICMS. Para Simples Nacional tem que informar ICMSSN.

[Elviro]

O que seria esse ICMSSN ?

 

[Gr@c@]

tag de Icms do Simples Nacional, onde você informa a tag de CSOSN ao invés do CST.

Faça o download do manual de orientação da NFe que você entenderá melhor.

[Isaque Pinheiro]

13 horas atrás, Elviro disse:

O que seria esse ICMSSN ?

 

Algumas empresas do Simples Nacional, principalmente indústrias podem gerar crédito de ICMS para outras empresas que precisem desse crédito, como por exemplo Regime Lucro Real, então foi criado um campo para essa situação que é ICMSSN.

Esse crédito deve ser destacado no campo complementar da NFe.

Pesquise mais do "Crédito do Simples Nacional"

[BigWings]

Esse erro ocorre quando você informa a tag Emit.CRT = 1 (Simples Nacional) e não preenche a tag Imposto.ICMS.CSOSN que é campo obrigatório em regime Simples Nacional, então o ACBr não gera as tags corretas (ICMSSN101, ICMSSN102, ICMSSN500, etc.) gerando a ICMSSN, que não existe no layout da NFe.

[Elviro]

Alterei o campos de CSOSN e esse erro passou, mas agora quando vai finalizar uma nota de homologação informa : Rejeição: NF-e sem informação da IE do destinatário

 

     if dm.IBParametrosNFEAMBIENTE.text = 'taHomologacao' then
     begin
      Dest.CNPJCPF           := '99999999000191';
      Dest.IE                := '';
      Dest.ISUF              := '';
      Dest.xNome             := 'NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO – SEM VALOR FISCAL';
     end
     else
     begin
      Dest.CNPJCPF           := dm.IBClientesCPFCNPJ.text;
      Dest.IE                := dm.IBClientesRGINSC.Text;
      Dest.ISUF              := '';
      Dest.xNome             := dm.IBClientesNOME.Text;
     end;

 

[Isaque Pinheiro]

Na pasta "ACBr\Fontes\ACBrDFe\ACBrNFe\PCNNFe", tem uma unit que te orienta como e quais tags a ser alimentadas, de uma estudada nela que servirá como base.

Sobre essa rejeição estude o código abaixo:

                Dest.indIEDest := inContribuinte;
                //
                if rR01_0.FieldByName('R01_PESSOA').AsString = 'J' then
                begin
                   Dest.IE := rR01_0.FieldByName('R01_IE').AsString;
                   if MatchText(UpperCase(Dest.IE), ['ISENTO', 'ISENTA']) then
                   begin
                      Dest.IE := '';
                      Dest.indIEDest := inIsento
                   end;
                end
                else
                if rR01_0.FieldByName('R01_PESSOA').AsString = 'P' then
                begin
                   Dest.IE := rR01_0.FieldByName('R01_IE').AsString;
                end
                else
                if rR01_0.FieldByName('R01_PESSOA').AsString = 'F' then
                begin
                   Dest.indIEDest := inNaoContribuinte;
                   Ide.indFinal   := cfConsumidorFinal;
                end;

 

[Elviro]

Infelizmente tentei esse código e a resposta é a mesma, "Rejeição: IE do destinatário não informada" mesmo informado que estou em ambiente de homologação

 

     if dm.IBParametrosNFEAMBIENTE.text = 'taHomologacao' then
     begin
      Dest.CNPJCPF           := '99999999000191';
      Dest.IE                := '';
      Dest.indIEDest         := inNaoContribuinte; //inContribuinte, inIsento, inNaoContribuinte
      Ide.indFinal   := cfConsumidorFinal;
      Dest.xNome             := 'NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO – SEM VALOR FISCAL';
     end
     else
     begin

     Dest.indIEDest := inContribuinte;
     if DM.IBClientesTIPO.text = 'JURÍDICA' then
         begin
         Dest.IE := DM.IBClientesCPFCNPJ.Text;
          if (dm.IBClientesRGINSC.text = 'ISENTO') or (dm.IBClientesRGINSC.text = 'ISENTA') then
                   begin
                      Dest.IE := '';
                      Dest.indIEDest := inIsento
                   end;
                end
                else
                if dm.IBClientesTIPO.text = 'FÍSICA' then
                begin
                   Dest.indIEDest := inNaoContribuinte;
                   Ide.indFinal   := cfConsumidorFinal;
                end;

     end;

      Dest.EnderDest.Fone    := dm.IBClientesFONE.text;
      Dest.EnderDest.CEP     := Strtoint(dm.IBClientesCEP.text);
      Dest.EnderDest.xLgr    := dm.IBClientesENDERECO.text;
      Dest.EnderDest.nro     := dm.IBClientesNUMERO.text;
      Dest.EnderDest.xCpl    := dm.IBClientesCOMPLEMENTO.text;
      Dest.EnderDest.xBairro := dm.IBClientesBAIRRO.text;
      Dest.EnderDest.cMun    := Strtoint(dm.IBClientesCODMUNICIPIO.text);
      Dest.EnderDest.xMun    := dm.IBClientesCIDADE.text;
      Dest.EnderDest.UF      := dm.IBClientesUF.text;
      Dest.EnderDest.cPais   := 1058;
      Dest.EnderDest.xPais   := 'BRASIL';
 

[JoaoPauloRicardo]

Elviro pah, se leres as NT e prestares atenção ao exemplo da demo, vais descobrir que a tag Dest.IE não pode ser enviada a branco.

exemplo:

Dest.indIEDest := inNaoContribuinte;
if sq_nfe.FieldByName('TIPO_CONTRIB_DEST').AsInteger = 1 then
begin
  Dest.indIEDest := inContribuinte;
  if (Length(trim(sq_nfe.FieldByName('RG_IE_DEST').AsString)) > 0) and (uppercase(trim(sq_nfe.FieldByName('RG_IE_DEST').AsString)) <> 'ISENTO')  then
    Dest.IE:=onlyNumber(sq_nfe.FieldByName('RG_IE_DEST').AsString)
  else
    Dest.indIEDest := inIsento;
end;

analisa melhor essa questão no teu aplicativo e junto do teu contador/consultor (é para isso que lhes pagas)

Corrigindo...  tag Dest.IE está associada a tag Dest.indIEDest