cancelamento nfe homologação GO retorna erro 213-CNPJ-Base do emitente difere do CNPJ-Base do Certificado Digital.

[Julio Matos]

Bom dia a todos!

Estou com problema para testar o cancelamento no ambiente de homologação no estado de Goiás. 

O certificado do componente está correto, pego pra verificar o CNPJ em acbrnfe1.SSL.acbrNFe1.SSL.CertCNPJ. 

O CNPJ do emitente eu pego pra verificar em acbrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF.

Os dois acima são identicos.

A nota fiscal passa normalmente, quando vou testar o cancelamento volta a rejeição 213, CNPJ-Base do emitente difere do CNPJ-Base do Certificado digital.

carrego a NFe pelo xml, carrego o certificado pelo caminho do pfx no acbrNFe1.Configuracoes.Certificados.ArquivoPFX e a senha no acbrNFe1.Configuracoes.Certificados.Senha.

SSLCryptlib = cryOpenSSL

SSLHttpLib = HttpOpenSSL

SSLlib = libOpenSSL

SSLXMLSignLib = xsLibXml2

Código:

acbrNFe1.NotasFiscais.Clear;
                        acbrNFe1.NotasFiscais.LoadFromFile(QrySai.FieldByName('arqnfe').AsString);
                        acbrNFe1.Configuracoes.Certificados.ArquivoPFX:=QryEmpresa.FieldByName('pathcertificado').AsString;
                        acbrNFe1.Configuracoes.Certificados.Senha:=QryEmpresa.FieldByName('senhacertificado').AsString;
                        ACBrNFe1.EventoNFe.Evento.Clear;
                        vNumeroLote:=StrToInt(FormatDateTime('yymmddhhmm',now));
                        with ACBrNFe1.EventoNFe.Evento.New do begin
                          if cbAmbiente.ItemIndex=0 then InfEvento.tpAmb := taProducao else InfEvento.tpAmb := taHomologacao;
                          infEvento.chNFe := formCancelamento.edCancChave.Text;
                          infEvento.CNPJ   := QryCli.FieldByName('cgc').AsString;
                          infEvento.dhEvento := now;
                          infEvento.tpEvento := teCancelamento;
                          infEvento.detEvento.xJust := formCancelamento.edCancJustificativa.Text;
                          infEvento.detEvento.nProt := copy(formCancelamento.edCancProtocolo.Text,0,15);
                        end;
                        ShowMessage('Certificado:'+acbrNFe1.SSL.CertCNPJ+'-');
                        ShowMessage('Empresa+'+acbrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF+'-');
                        ACBrNFe1.EnviarEvento(vNumeroLote);
                        if acbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=101 then begin

Se alguem puder me ajudar!

[Fabrício G. Araújo]

No seu código tem isso aqui:

infEvento.CNPJ   := QryCli.FieldByName('cgc').AsString;

Garante que é o mesmo CNPJ vindo do seu banco?

[Julio Matos]

Sim Fabrício! 

Testei todo código e ainda testei o que está no componente.

ShowMessage('Certificado:'+acbrNFe1.SSL.CertCNPJ+'-');
ShowMessage('Empresa:'+acbrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF+'-');

São exatamente iguais sem espaços no inicio e fim.

[BigWings]

Em 11/11/2021 at 10:20, Julio Matos disse:

infEvento.dhEvento := now;
infEvento.tpEvento := teCancelamento;
infEvento.detEvento.xJust := formCancelamento.edCancJustificativa.Text;

Se está cancelando com o XML só precisa informar essas propriedades no envio do cancelamento, as demais o componente carrega do XML.

[Julio Matos]

Obrigado Big Wings!

Funcionou aqui!

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.