Provedor Betha - Campo discriminação do serviço fora do padrão

Weber de Paula · 14 Março, 2020

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