TACBrNFe - Troca de Empresa e Certificado

[colmanetti]

Faço o procedimento de carregar o certificado no componente mas na segunda empresa já mostra erro " CNPJ-Base consultado difere do CNPJ-Base do Certificado Digital"

tentei usar o  a função DescarregarCertificado, mas mesmo assim não consigo carregar outro certificado executar a consulta de NFE sem destruir o form e criar novamente.

Como devo proceder para trocar o certificado e CNPJ da empresa e consultar a NFE?

 

Exemplo de inicialização do componente:

 ACBrNFe.Configuracoes.Geral.VersaoDF := pcnConversaoNFe.ve400;

 ACBrNFe.SSL.DescarregarCertificado;  

 AcbrNfe.Configuracoes.Geral.SSLLib        := libOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLCryptLib   := cryOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLHttpLib    := httpOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
  ACBrNFe.Configuracoes.Certificados.ArquivoPFX := zQueryEMPRESACERTIFICADO.AsString;
  ACBrNFe.Configuracoes.Certificados.Senha := zQueryEMPRESASENHA.AsString;
  ACBrNFe.Configuracoes.Certificados.NumeroSerie := '';

 

 

[Diego Foliene]

Bom dia!

1 hour ago, colmanetti said:

Exemplo de inicialização do componente:

 ACBrNFe.Configuracoes.Geral.VersaoDF := pcnConversaoNFe.ve400;

 ACBrNFe.SSL.DescarregarCertificado;  

 AcbrNfe.Configuracoes.Geral.SSLLib        := libOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLCryptLib   := cryOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLHttpLib    := httpOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
  ACBrNFe.Configuracoes.Certificados.ArquivoPFX := zQueryEMPRESACERTIFICADO.AsString;
  ACBrNFe.Configuracoes.Certificados.Senha := zQueryEMPRESASENHA.AsString;
  ACBrNFe.Configuracoes.Certificados.NumeroSerie := '';

Essa configuração está correta. Ela é a indicada quando você está usando certificado do tipo A1.

Por favor, pode fornecer mais detalhes sobre o processo?

1 hour ago, colmanetti said:

CNPJ-Base consultado difere do CNPJ-Base do Certificado Digital

Esta mensagem me parece ser uma rejeição devolvida pela Sefaz, como explicado aqui:

O que da a entender que você está gerando transmitindo a nota com uma certificado, configurando outro certificado e tentando consultar está nota previamente gerada com o certificado anterior.

[colmanetti]

 

        estou consultando as NFE do CNPJ na primeira consulta funciona, depois da troca do certificado / empresa não funciona.

        ultNSU := IntToStr(ObterUltimoNSU(sAmbiente,1));
        ACBrNFe.DistribuicaoDFe(zQueryEMPRESAUF.AsInteger,
                                zQueryEMPRESACNPJ.AsString, 
                                UltNSu,
                                '');
 

[Juliomar Marchetti]

Como tu configura antes de usar?

decarrega o certificado para carregar o novo no componente?

[colmanetti]

quando muda a empresa:

está em loop fazendo o mesmo desde o inicio

 

ACBrNFe.Configuracoes.Geral.VersaoDF := pcnConversaoNFe.ve400;

 ACBrNFe.SSL.DescarregarCertificado;     ------->>>> Tentei colocar este comando, mas não deu certo

 AcbrNfe.Configuracoes.Geral.SSLLib        := libOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLCryptLib   := cryOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLHttpLib    := httpOpenSSL;
  AcbrNfe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
  ACBrNFe.Configuracoes.Certificados.ArquivoPFX := zQueryEMPRESACERTIFICADO.AsString;
  ACBrNFe.Configuracoes.Certificados.Senha := zQueryEMPRESASENHA.AsString;
  ACBrNFe.Configuracoes.Certificados.NumeroSerie := '';

 

[Juliomar Marchetti]

Numero de serie tu não precisa zerar, pois o componente faz isso quando tu informa o arquivo pfx.

não vi ali se ele tem o comanda carregar ao final o certificado

[colmanetti]

coloquei também ACBrNFe.SSL.CarregarCertificado, mas não funcionou.

Para resolver criei uma nova instancia do componente e configurei novamente, assim a cada empresa no loop, recria o componente.

 ACBrNFe.Free; 
 ACBrNFe:=TACBrNFe.Create(self);

ACBrNFe.Configuracoes.Geral.VersaoDF := pcnConversaoNFe.ve400;

ACBrNFe.SSL.DescarregarCertificado;     ------->>>> Tentei colocar este comando, mas não deu certo

AcbrNfe.Configuracoes.Geral.SSLLib        := libOpenSSL;
AcbrNfe.Configuracoes.Geral.SSLCryptLib   := cryOpenSSL;
AcbrNfe.Configuracoes.Geral.SSLHttpLib    := httpOpenSSL;
AcbrNfe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
ACBrNFe.Configuracoes.Certificados.ArquivoPFX := zQueryEMPRESACERTIFICADO.AsString;
ACBrNFe.Configuracoes.Certificados.Senha := zQueryEMPRESASENHA.AsString;
ACBrNFe.SSL.CarregarCertificado;          ------->>>> Tentei colocar este comando, mas não deu certo

 

[Italo Giurizzato Junior]

Bom dia @colmanetti,

Porque você esta liberando e criando novamente o ACBrNFe?

Isso esta dentro do loop?

 

[colmanetti]

Bom dia

Sim, está em um loop onde preciso trocar o certificado de  cnpj 's diferentes.

refazendo a troca do certificado somente conforme acima, mostra o erro  " CNPJ-Base consultado difere do CNPJ-Base do Certificado Digital"

se no loop a cada troca de certificado se liberar e criar o componente novamente, funciona.

tentei usar ACBrNFe.SSL.DescarregarCertificado antes e ACBrNFe.SSL.CarregarCertificado depois das atribuições do certificado, mas não funcionou.

 

[Italo Giurizzato Junior]

@colmanetti,

Se faz necessário debugar para saber o porque o componente não esta levando em conta o CNPJ do Certificado trocado.

Antes de fazer esse debug, você esta com todos os fontes atualizados e o ACBr reinstalado?