Traduzir Erro Da Validação Do Xml

[luciano_f]

 Pessoal estou precisando traduzir erro da Validade do XML algo que já foi bem discutido nesse topico

 A solução do  "Roberto Godinho"  parece ser muito inteligente porém eu já tentei implementar e não consegui.

 Gostaria de saber se alguém poderia compartilhar sua ideia postando o Código  

o seguinte codigo

for i:= 0 to ListaDeErros.Count-1 do

begin

if pos('[TN]<emit>[/TN]) > 0 then // significa que retornou um erro nos dados do emitente

begin

erros_emit.add(RetornarConteudoEntre(ListaDeErros, '[DSC]','[/DSC]') +': '+RetornarConteudoEntre(ListaDeErros, '[MSG]','[/MSG]') ;

end;

...

end;

Eu não achei onde está essa "ListaDeErros"

Eu tentei o o seguinte codigo para ver o resultado.

 Try

   ACBrNFe1.NotasFiscais.GerarNFe;

   ACBrNFe1.NotasFiscais.Assinar;

   ACBrNFe1.NotasFiscais.Valida;

  Finally

   Showmessage('a   ' + ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.Gerador.ListaDeAlertas.Text);

 End;

Porem retorna vazio.

Se "Roberto Godinho"  puder postar o seu codigo fico muito agradecido.

 Grato a todos..

Editado 24 Junho, 2015 por luciano_f

[luciano_f]

Pessoal já tentei de tudo e não consigo acessar 

 ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.Gerador.ListaDeAlertas.Text

que me traga informações.

Alguem já conseguiu ???

[Régys Silveira]

O correto é:

ACBrNFe1.NotasFiscais.Items[0].Alertas

ACBrNFe1.NotasFiscais.Items[0].ErroValidacao

[luciano_f]

 Muito Grato Régys 

 Pessoal eu montei um rotina de faz tradução dos erros da validação do XML  para quem quiser usar está a disposição  se melhorar o código poste aqui no fórum.

 Fiz correndo então se tiver algum retorno que que ainda não traduz vamos discutir a respeito.

 

TraduzValidacao.pas

Editado 24 Junho, 2015 por luciano_f
Muito grande a mensagem

[Juliomar Marchetti]

Por favor edite seu post e anexe como arquivo o trecho de código para melhor visualização do post