Imprimir Carta de Correção

[aline_plr]

Olá estou tentando imprimir a carta de correção , mas ocorre o erro "Campo cOrgão não informado".

O código que estou utilizando é para imprimir é:

            frmFaturamento1.ACBrNFeFaturamento.NotasFiscais.Clear;
            frmFaturamento1.ACBrNFeFaturamento.NotasFiscais.LoadFromString(ExtractFilePath(Application.ExeName) +  frmFaturamento1.qPedido.FieldByName('NOMEARQUIVO').AsString);

            frmFaturamento1.ACBrNFeFaturamento.EventoNFe.Evento.Clear;
            frmFaturamento1.ACBrNFeFaturamento.EventoNFe.LerXMLFromString(frmFaturamento1.ACBrNFeFaturamento.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.NomeArquivo); // AO EXECUTAR ESSA LINHA OCORRE O ERRO

            frmFaturamento1.ACBrNFeFaturamento.ImprimirEvento;

 

Segue em anexos os xmls utilizado.

Alguém sabe o que pode estar acontecendo, estou precisando muito resolver esse problema.

Desde já agradeço

35170924821544000182550010000666911000666910-nfe.xml

1101103517092482154400018255001000066691100066691006-procEventoNFe.xml

[Sérgio Assunção]

@aline_plr
Veja como é feito no demo.

procedure TForm1.btnImprimirCCeClick(Sender: TObject);
begin
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
  end;

  OpenDialog1.Title := 'Selecione o Evento';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFe1.ImprimirEvento;
  end;
end;

 

Testei aqui com seus arquivos e ta tudo ok.

[aline_plr]

Deu certo, muito obrigado