Carta de Correção

[bolaobom]

Boa tarde

Estou tentando implementar a rotina de Carta de Correção num aplicativo desenvolvido em Delphi onde estou fazendo umas manutenções.

Estou utilizando a rotina desenvolvida no Exemplo do AcbrDemo, porém sem sucesso. Ao enviar o lote recebo a mensagem da imagem anexa.

Segue um pedaço do fonte:
  ACBrNFe1.NotasFiscais.Clear;

  dtmCadastros.qryParametros.Close;
  dtmCadastros.qryParametros.Open;

  ACBrNFe1.Configuracoes.Certificados.NumeroSerie := dtmCadastros.qryParametrosNFE_CERTIFICADO.AsString;
  ACBrNFe1.Configuracoes.Certificados.Senha       := dtmCadastros.qryParametrosNFE_SENHA.AsString;
  ACBrNFe1.Configuracoes.Arquivos.PathSchemas     := 'C:\Sistemas\eCCorp\schemas\';
  NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'Chave da NF-e', Chave)) then
     exit;
  idLote := '1';
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'Identificador de controle do Lote de envio do Evento', idLote)) then
     exit;
  CNPJ := copy(Chave,7,14);
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then
     exit;
  nSeqEvento := '1';
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'Sequencial do evento para o mesmo tipo de evento', nSeqEvento)) then
     exit;
  Correcao := 'Correção a ser considerada, texto livre. A correção mais recente substitui as anteriores.';
  if not(InputQuery('WebServices Eventos: Carta de Correção', 'Correção a ser considerada', Correcao)) then
     exit;
  ACBrNFe1.NotasFiscais.LoadFromFile('C:\Sistemas\eCCorp\Docs\35170708665312000126550010000001851000001853-nfe.xml',false);
  ACBrNFe1.EventoNFe.Evento.Clear;
  with ACBrNFe1.EventoNFe.Evento.Add do
   begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := now;
     infEvento.tpEvento := teCCe;
     infEvento.nSeqEvento := StrToInt(nSeqEvento);
     infEvento.detEvento.xCorrecao := Correcao;
   end;
  ACBrNFe1.Enviar(NumeroLote);

Abraços

[RicardoVoigt]

Boa noite

Voce esta usando o método errado...

Tente chamar o método EnviarEvento

Att

Ricardo

[bolaobom]

Perfeito Ricardo

Irei efetuar a alteração e dou um retorno. Obrigado

[bolaobom]

Bom dia. Tudo certo.

Muito obrigado pela ajuda

Abraços