Pesquisar na Comunidade

Bom dia Estou tentando homologar o provedor Betha (município Orlândia/SP), deu tudo certo, porém me deparei com campo “discriminação do serviço” que vem fora do padrão, ou seja, a discriminação é a concatenação de vários campos como Quantidade, Item de Serviço, valores e etc (imagem-xml.png ). Pesquisei aqui no fórum e vi que já existiam outros posts referente a isso, porém não ocorreu solução (pelo menos não encontrei). Eu desenvolvi uma rotina simples que converte essa discriminação da Betha em uma classe com campos acessíveis, no entanto estou com dificuldade de implantar isso no componente de forma correta. A função eu já testei, estou usando-a manipulando a discriminação antes de imprimir, porém o ideal seria compartilhar aqui e se possível incluir de forma correta na fonte. Se alguém puder me auxiliar em como seria a melhor forma de incluir isso no componente eu seria grato! O intuito é compartilhar! Anexo que a unit e abaixo o código de como apliquei no Demo do ACBR. if OpenDialog1.Execute then begin ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); // tratando discriminação Betha if ACBrNFSe1.Configuracoes.Geral.Provedor=proBetha then begin lDescricaoBetha:= TBethaConvertDescricao.Create(ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Discriminacao); try ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.Discriminacao:=lDescricaoBetha.Descricao; finally lDescricaoBetha.Free; end; end; ACBrNFSe1.NotasFiscais.Imprimir; ACBrNFSe1.NotasFiscais.ImprimirPDF; MemoDados.Lines.Add('Arquivo Carregado de: ' + ACBrNFSe1.NotasFiscais.Items[0].NomeArq); MemoDados.Lines.Add('Nota Numero: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero); MemoDados.Lines.Add('Código de Verificação: ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao); MemoDados.Lines.Add('Data de Emissão: ' + DateToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.DataEmissao)); MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq); LoadXML(MemoResp.Text, WBResposta); pgRespostas.ActivePageIndex := 1; end; Abraço uBethaConvertDescricao.pas