-
Total de ítens
2 -
Registro em
-
Última visita
Ʋレイ_ Kratos's Achievements
-
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;
-
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 ?