Sugestão - Cadastro automático de emitente

[Ʋレイ_ Kratos]

Bom dia,

Acredito que com a disponibilização do Consulta Cadastro, poderia ser implementado o cadastro do emitente de forma automática no ACBr, a partir do CNPJ e UF registrados no repositório de certificado digital, poderíamos realizar a consulta no CCC.

Porém algumas outras mudanças seriam necessárias, o Consulta Cadastro hoje requer algumas configurações que não são necessárias para requisição, como dependência de um certificado digital, por exemplo.

 

O que acham dessa possibilidade ?

[BigWings]

O ACBrNFe consome os serviços da SEFAZ, que saiba ela não permite o cadastramento automático.

[Juliomar Marchetti]

7 minutos atrás, Ʋレイ_ Kratos disse:

Bom dia,

Acredito que com a disponibilização do Consulta Cadastro, poderia ser implementado o cadastro do emitente de forma automática no ACBr, a partir do CNPJ e UF registrados no repositório de certificado digital, poderíamos realizar a consulta no CCC.

Porém algumas outras mudanças seriam necessárias, o Consulta Cadastro hoje requer algumas configurações que não são necessárias para requisição, como dependência de um certificado digital, por exemplo.

 

O que acham dessa possibilidade ?

LGPD só isso já dá uma tremenda dor de cabeça e mais coisas conforme o BigWings escreveu

[Ʋレイ_ Kratos]

Verdade, kkk dor de cabeça tremenda,

 

Aqui desta forma, consegui obter os possíveis emitentes a partir dos certificados digitais instalados desta forma: 

 

  NFe.SSL.LerCertificadosStore;
  ListadeCertificado.Clear;
  For I := 0 to Pred(NFe.SSL.ListaCertificados.Count) do begin
    If (Length(NFe.SSL.ListaCertificados.Items[I].CNPJ) = 14) and (NFe.SSL.ListaCertificados.Items[I].DataVenc > Date) then begin
      Certificado := TCertificado.Create;
      Certificado.CNPJ := NFe.SSL.ListaCertificados.Items[I].CNPJ;
      Certificado.UF := NFe.SSL.ListaCertificados.Items[I].UF;
      ListadeCertificado.Add(Certificado);
    end;
  end;

  For I := 0 to Pred(ListadeCertificado.Count) do begin
    NFe.WebServices.ConsultaCadastro.UF := ListadeCertificado.Items[I].UF;
    NFe.WebServices.ConsultaCadastro.CNPJ := ListadeCertificado.Items[I].CNPJ;
    NFe.WebServices.ConsultaCadastro.Executar;

// aqui já tenho todos os dados dos emitentes a partir do meu certificado digital intalado

 

    NFe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].CNPJ;
    NFe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xNome;
    NFe.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xLgr;
  end;