TEXTO DO MÉTODO VALIDAR

[carlos_augusto]

Prezados Companheiros

No meu sistema criei um recurso apenas para validar a Nota Fiscal, da seguinte forma:

      try
        AcbrNota.NotasFiscais.Validar;
      except on e : exception do
        begin
          showmesssage(e.Message);

       end;
      end;

Porém, quando o método VALIDAR retorna um erro de validação desta forma não consigo exibi-lo
por completo.

Sabem os companheiros como obter o texto completo resultante do Método Validar?

Grato

CarloS

[Juliomar Marchetti]

Baseado no exemplo que se tem no svn abaixo segue

 ACBrNFe1.Configuracoes.Geral.ExibirErroSchema := False;
  ACBrNFe1.Configuracoes.Geral.FormatoAlerta := 'Campo:%DESCRICAO% - %MSG%';

  if OpenDialog1.Execute then
   begin
     ACBrNFe1.NotasFiscais.Clear;
     ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName, True);
     try
        ACBrNFe1.NotasFiscais.Validar;
        if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
          MemoDados.Lines.Add('Alertas: '+ACBrNFe1.NotasFiscais.Items[0].Alertas);
        ShowMessage('Nota Fiscal Eletrônica Valida');
     except
        on E: Exception do
        begin
          pgRespostas.ActivePage := Dados;
          MemoDados.Lines.Add('Exception: '+E.Message);
          MemoDados.Lines.Add('Erro: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacao);
          MemoDados.Lines.Add('Erro Completo: '+ACBrNFe1.NotasFiscais.Items[0].ErroValidacaoCompleto); //Útil para gravar em arquivos de LOG
        end;
     end;
   end;