Ir para conteúdo
  • Cadastre-se

dev botao

NFe Pessoa Fisica


GustavoAlves
  • Este tópico foi criado há 2705 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá bom dia a todos, após a ultima atualização onde alguns estados pararam de aceitar contribuintes Isentos venho tendo problemas na emissão para clientes físicos, segue código:

 

        //FISICO
        if rbnFisica.Checked = True then
        begin
          if (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> '') then
          begin
            Dest.IE := TiraPonto(DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString);
            Dest.indIEDest := inContribuinte;
          end
          else
          begin
            Dest.IE := '';
            Dest.indIEDest := inNaoContribuinte;  
          end;
        end
        else
        //JURIDICO
        if rbnJuridica.Checked = True then
        begin
          //1 - Contribuinte ICMS
          if (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> '') and
             (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> 'ISENTO') and
             (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> 'ISENTA') then
          begin
            Dest.IE := TiraPonto(DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString);
            Dest.indIEDest := inContribuinte;
          end
          else
          //2 - Isento
          if (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString = 'ISENTO') or
             (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString = 'ISENTA') then
          begin
            Dest.IE := '';
            Dest.indIEDest := inIsento;
          end
          else
          //9 - não contribuinte
          if DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString = '' then
          begin
            Dest.IE := '';
            Dest.indIEDest := inNaoContribuinte;
          end;
        end;

 

Para clientes PJ está tudo correto funcionando perfeito porém sempre que meus clientes vão emitir uma nfe PF e colocam RG ele me retorna o erro (Rejeição: IE do destinatário inválida) mesmo estando correto, sempre tenho que tirar o RG e emitir como não contribuinte porém venho recebendo reclamações quanto a isso pois eles pedem que saem o RG, o que estou fazendo de errado?

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
48 minutos atrás, GustavoAlves disse:

Olá bom dia a todos, após a ultima atualização onde alguns estados pararam de aceitar contribuintes Isentos venho tendo problemas na emissão para clientes físicos, segue código:

 

        //FISICO
        if rbnFisica.Checked = True then
        begin
          if (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> '') then
          begin
            Dest.IE := TiraPonto(DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString);
            Dest.indIEDest := inContribuinte;
          end
          else
          begin
            Dest.IE := '';
            Dest.indIEDest := inNaoContribuinte;  
          end;
        end
        else
        //JURIDICO
        if rbnJuridica.Checked = True then
        begin
          //1 - Contribuinte ICMS
          if (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> '') and
             (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> 'ISENTO') and
             (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString <> 'ISENTA') then
          begin
            Dest.IE := TiraPonto(DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString);
            Dest.indIEDest := inContribuinte;
          end
          else
          //2 - Isento
          if (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString = 'ISENTO') or
             (DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString = 'ISENTA') then
          begin
            Dest.IE := '';
            Dest.indIEDest := inIsento;
          end
          else
          //9 - não contribuinte
          if DNotaFiscal.TbNotaFiscal.FieldByName('InscrEst').AsString = '' then
          begin
            Dest.IE := '';
            Dest.indIEDest := inNaoContribuinte;
          end;
        end;

 

Para clientes PJ está tudo correto funcionando perfeito porém sempre que meus clientes vão emitir uma nfe PF e colocam RG ele me retorna o erro (Rejeição: IE do destinatário inválida) mesmo estando correto, sempre tenho que tirar o RG e emitir como não contribuinte porém venho recebendo reclamações quanto a isso pois eles pedem que saem o RG, o que estou fazendo de errado?

O campo inscrição estadual não aceita RG. Vide página 181 e 182 do Manual (http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=URCYvjVMIzI=)

 

  • Curtir 1

Rodrigo Cardilo

Card System Info

[email protected]

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2705 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...