Carta Dew Correção Da Nf-E

[Arnaldo Cruz]

Estou tentando imprimir o XML do retorno da Carta de correção em fastReport (EVENTOS.fr3)

 

O envio acontece normalmente

 

FDataModule.ACBrNFe1.NotasFiscais.LoadFromFile(cdsNFETransmiCAMINHOXML.AsString);
            FDataModule.ACBrNFe1.EventoNFe.Evento.Clear;
            with  FDataModule.ACBrNFe1.EventoNFe.Evento.Add do
            begin
               infEvento.cOrgao              := UFIBGEEmpresa;
               infEvento.chNFe               := cdsNFETransmiCHAVE_ACESSO.AsString;
               infEvento.CNPJ                := CnpjEmpresa;
               infEvento.dhEvento            := now;
               infEvento.tpEvento            := teCCe;
               infEvento.nSeqEvento          := NumSeq;
               infEvento.detEvento.xCorrecao := Trim(frase);

            end;
            FDataModule.ACBrNFe1.EnviarEventoNFe(idLote);
            MemoResp.Lines.Text := UTF8Encode(FDataModule.ACBrNFe1.WebServices.EnvEvento.RetWS);
            frase := 'Duplicidade';
            with FDataModule.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0] do
            begin

                    CaminhoCCe := gsAppPath + 'Carta\' + OnlyNumber(FDataModule.ACBrNFe1.EventoNFe.Evento.Items[0].InfEvento.id) + '-procEventoNFe.xml';

                    if ( RetInfEvento.cStat = 135 ) then

                   begin

                            MemoResp.Lines.SaveToFile(CaminhoCCe);

                            FDataModule.ACBrNFeDANFEFR1.MostrarPreview := True;
                           FDataModule.ACBrNFe1.NotasFiscais.Clear;
                           FDataModule.ACBrNFe1.NotasFiscais.LoadFromString(cdsNFETransmiCAMINHOXML.AsString );
                          FDataModule.ACBrNFe1.EventoNFe.Evento.Clear;
                          FDataModule.ACBrNFe1.EventoNFe.LerXML(CaminhoCCe);
                          FDataModule.ACBrNFe1.ImprimirEvento;

 

                   end;

 

 

O XML é criado no local certo

 

Porem recebo a mensagem de campo cOrgao não informado

 

 

o erro está porque a função abaixo não ler o xml

 

function TEventoNFe.LerXMLFromString(const AXML: string): Boolean;
var
  RetEventoNFe : TRetEventoNFe;
begin
  RetEventoNFe := TRetEventoNFe.Create;
  try
     RetEventoNFe.Leitor.Arquivo := AXML;
     Result := RetEventoNFe.LerXml;
     with FEvento.Add do

     begin
        infEvento.ID            := RetEventoNFe.InfEvento.id;//'131150044754450';
        infEvento.cOrgao        := RetEventoNFe.InfEvento.cOrgao;//31;//
        infEvento.tpAmb         := RetEventoNFe.InfEvento.tpAmb;//taHomologacao;//
        infEvento.CNPJ          := RetEventoNFe.InfEvento.CNPJ;//'10852339000170';//
        infEvento.chNFe         := RetEventoNFe.InfEvento.chNFe;//'31150111914502000144550010000002141000002144';//
        infEvento.dhEvento      := RetEventoNFe.InfEvento.dhEvento;//Now;//
        infEvento.tpEvento      := RetEventoNFe.InfEvento.tpEvento;//teCCe;//
        infEvento.nSeqEvento    := RetEventoNFe.InfEvento.nSeqEvento;//10;//
        infEvento.VersaoEvento  := RetEventoNFe.InfEvento.VersaoEvento; ( este vem preenchido)

 

       daqui para baixo volta valor

     end;

      

 

Se eu preenche manualmente os dados o como no codigo acima ,o DANFE é aberto com todos os campo preenchidos exceto  o texto da correção,  que fica vazio.

 

 

Agradeço qualquer ajuda

 

[Arnaldo Cruz]

achei o problema faltava capturar o xml do retorno para depois carregar