Erro ao Realizar Distribuição na Sequência

[cueiogordo]

Boa tarde

Estou realizando a rotina ACBrNFe.DistribuicaoDFe em sequencia para vários CNPJs diferente. A rotina verifica o primeiro CNPJ sem erros, mas na segunda verificação, ele informa que a base do CNPJ difere da base do CNPJ da consulta.

Após a primeira consulta, estou executando os comandos, passando para o componente o novo CNPJ e o novo certificado com a senha, conforme abaixo:

     ACBrNFe.NotasFiscais.Clear;
     ACBrNFe.WebServices.DistribuicaoDFe.Clear;
    ACBrNFe.Configuracoes.Certificados.ArquivoPFX := qAux.FieldByName('CERTIFICADOSSL').asString;
    ACBrNFe.Configuracoes.Certificados.Senha := qAux.FieldByName('SENHACERTIFICADOSSL').asString;
 

Mesmo passando os dados corretos, na segunda consulta o erro acontece.

Tenho que limpar mais alguma coisa?

Complementando, faço a mesma coisa no CT-e e o problema não acontece.

Grato.

Editado 13 Março, 2017 por cueiogordo

[cueiogordo]

Boa noite

Alguem sabe o que pode ser?

[Italo Giurizzato Junior]

Boa noite,

Alem da configuração, esta passando o CNPJ correto no método DistribuicaoDFe?

[cueiogordo]

Italo, bom dia

Em primeiro lugar, obrigado pelo retorno.

Abaixo o código que faz a consulta, juntamente com o print do ShowMessage dos dados passando para a consulta:

      ShowMessage( 'CNPJ do Certificado: ' + ACBrNFeDist.SSL.CertCNPJ + ' - CNPJ passado na Consulta: ' + s_cgccfo );
      ACBrNFeDist.DistribuicaoDFe(i_codUf, RetiraCaracter(s_cgccfo), qAux.FieldByName('ULTIMOSNU').asString, '');

[cueiogordo]

Bom dia

Consegui realizar o que precisava criando o componente em tempo de execução e dando um Free nele no final da rotina.

NFE      := TACBrNFe.Create( nil );

........

NFE.Free;

Grato pela Atenção.