Xml Vazio Após Lerxml...

[marcelo_sp]

A Rotina :

 

                 ACBrNFe.EventoNFe.Evento.Clear ;

                 ACBrNFe.EventoNFe.LerXML( Arquivo ) ;

                 with ACBrNFe.EventoNFe.Evento.Items[0].RetInfEvento do

                      begin

                      Ret_Prot := nProt ;

                      Ret_Data := dhRegEvento ;

                      Ret_Xml  := XML ;  //  XML aqui retorna vazio

                      end ;

 

...Não encontrei outra TAG que traz a conteuro do XML .

 

 

Verificando o Fonte vi que em function TEventoNFe.LerXMLFromString(const AXML: String): Boolean;  não preenche a TAG XML , vejam :

 

 

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;

        infEvento.cOrgao        := RetEventoNFe.InfEvento.cOrgao;

        infEvento.tpAmb         := RetEventoNFe.InfEvento.tpAmb;

        infEvento.CNPJ          := RetEventoNFe.InfEvento.CNPJ;

        infEvento.chNFe         := RetEventoNFe.InfEvento.chNFe;

        infEvento.dhEvento      := RetEventoNFe.InfEvento.dhEvento;

        infEvento.tpEvento      := RetEventoNFe.InfEvento.tpEvento;

        infEvento.nSeqEvento    := RetEventoNFe.InfEvento.nSeqEvento;

        infEvento.VersaoEvento  := RetEventoNFe.InfEvento.VersaoEvento;

 

        infEvento.DetEvento.xCorrecao := RetEventoNFe.InfEvento.DetEvento.xCorrecao;

        infEvento.DetEvento.xCondUso  := RetEventoNFe.InfEvento.DetEvento.xCondUso;

        infEvento.DetEvento.nProt     := RetEventoNFe.InfEvento.DetEvento.nProt;

        infEvento.DetEvento.xJust     := RetEventoNFe.InfEvento.DetEvento.xJust;

 

        infEvento.detEvento.cOrgaoAutor := RetEventoNFe.InfEvento.detEvento.cOrgaoAutor;

        infEvento.detEvento.tpAutor     := RetEventoNFe.InfEvento.detEvento.tpAutor;

        infEvento.detEvento.verAplic    := RetEventoNFe.InfEvento.detEvento.verAplic;

        infEvento.detEvento.dhEmi       := RetEventoNFe.InfEvento.detEvento.dhEmi;

        infEvento.detEvento.tpNF        := RetEventoNFe.InfEvento.detEvento.tpNF;

        infEvento.detEvento.IE          := RetEventoNFe.InfEvento.detEvento.IE;

 

        infEvento.detEvento.dest.UF            := RetEventoNFe.InfEvento.detEvento.dest.UF;

        infEvento.detEvento.dest.CNPJCPF       := RetEventoNFe.InfEvento.detEvento.dest.CNPJCPF;

        infEvento.detEvento.dest.idEstrangeiro := RetEventoNFe.InfEvento.detEvento.dest.idEstrangeiro;

        infEvento.detEvento.dest.IE            := RetEventoNFe.InfEvento.detEvento.dest.IE;

 

        infEvento.detEvento.vNF   := RetEventoNFe.InfEvento.detEvento.vNF;

        infEvento.detEvento.vICMS := RetEventoNFe.InfEvento.detEvento.vICMS;

        infEvento.detEvento.vST   := RetEventoNFe.InfEvento.detEvento.vST;

 

        if RetEventoNFe.retEvento.Count > 0 then

         begin

           FRetInfEvento.Id := RetEventoNFe.retEvento.Items[0].RetInfEvento.Id;

           FRetInfEvento.tpAmb := RetEventoNFe.retEvento.Items[0].RetInfEvento.tpAmb;

           FRetInfEvento.verAplic := RetEventoNFe.retEvento.Items[0].RetInfEvento.verAplic;

           FRetInfEvento.cOrgao := RetEventoNFe.retEvento.Items[0].RetInfEvento.cOrgao;

           FRetInfEvento.cStat := RetEventoNFe.retEvento.Items[0].RetInfEvento.cStat;

           FRetInfEvento.xMotivo := RetEventoNFe.retEvento.Items[0].RetInfEvento.xMotivo;

           FRetInfEvento.chNFe := RetEventoNFe.retEvento.Items[0].RetInfEvento.chNFe;

           FRetInfEvento.tpEvento := RetEventoNFe.retEvento.Items[0].RetInfEvento.tpEvento;

           FRetInfEvento.xEvento := RetEventoNFe.retEvento.Items[0].RetInfEvento.xEvento;

           FRetInfEvento.nSeqEvento := RetEventoNFe.retEvento.Items[0].RetInfEvento.nSeqEvento;

           FRetInfEvento.CNPJDest := RetEventoNFe.retEvento.Items[0].RetInfEvento.CNPJDest;

           FRetInfEvento.emailDest := RetEventoNFe.retEvento.Items[0].RetInfEvento.emailDest;

           FRetInfEvento.dhRegEvento := RetEventoNFe.retEvento.Items[0].RetInfEvento.dhRegEvento;

           FRetInfEvento.nProt := RetEventoNFe.retEvento.Items[0].RetInfEvento.nProt; 

           FRetInfEvento.XML := RetEventoNFe.retEvento.Items[0].RetInfEvento.XML;      // Acrescentar esta linha !!      

         end;

      end;

  finally

     RetEventoNFe.Free;

  end;

end;

 

 

Estou certo ou errado ?

 

 

 

[Italo Giurizzato Junior]

Boa tarde Marcelo,

 

Com essa linha, agora retorna na propriedade XML o conteúdo desejado?

[marcelo_sp]

Isso mesmo Italo , se não colocar esta linha a propriedade retorna vazia .

Para o Ret do Xml de Inutilização tbm precisa implementar essa mesma sistêmica , mas a propriedade XML ainda não existe na colection ! 

[Italo Giurizzato Junior]

Boa tarde Marcelo,

 

Muito obrigado pela colaboração, já esta disponível.