Provedor SmarAPD - Correção leitura do xml

[Paulo Henrique Panico]

Italo, boa tarde!

Foi necessário realizar mais uma correção na leitura do XML para que o ISS retido seja carregado corretamente do XML.

Também fiz uma modificação para carregar as descrições dos serviços. Antes só listava o primeiro serviço.

Peço a gentileza em analisar as alteração em anexo.

      if aValor = 'true' then
      begin
        NFSe.Servico.Valores.IssRetido := stRetencao;
        NFSe.Servico.Valores.ValorIssRetido := ObterConteudo(ANode.Childrens.FindAnyNs('ISSQNCliente'), tcDe2);
      end

    with NFSe.Servico.ItemServico[i] do
    begin
      Quantidade := ObterConteudo(ANodes[i].Childrens.FindAnyNs('Quantidade'), tcDe2);
      ItemListaServico := ObterConteudo(ANodes[i].Childrens.FindAnyNs('CodigoAtividade'), tcStr);
      Descricao := ObterConteudo(ANodes[i].Childrens.FindAnyNs('Servico'), tcStr);

      if NFSe.Servico.Discriminacao > '' then
        NFSe.Servico.Discriminacao := NFSe.Servico.Discriminacao + ';';
      NFSe.Servico.Discriminacao := NFSe.Servico.Discriminacao + descricao;

 

Att.

Paulo

smarapd.xml

SmarAPD.LerXml.pas

Editado 27 Abril, 2022 por Paulo Henrique Panico

[Italo Giurizzato Junior]

Boa tarde Paulo,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2612

[Italo Giurizzato Junior]

Bom dia Paulo,

Já esta no SVN.