Impressão DANFSE Fortes - Não imprime todos os itens

[Maurício Sareto]

Bom dia pessoal, ao realizar a impressão do DANFSE no fortes, eu tenho um problema, vou anexar o DANFSE em PDF e o XML que o esta gerando...

O problema é que quando eu adiciono dois itens, ele não imprime como deveria, mas somente o primeiro item do XML...

Segue em anexo

4316030877131400010856000000239-nfse.xml

[Maurício Sareto]

UP

[Lauro Dalpra]

Bom dia, eu estou com o mesmo problema, alguém pode me ajudar?

[Juliomar Marchetti]

tente abrir os fontes do fortes e verificar se está sendo adicionado todos os produtos ao dataset que vincula a banda que percorre!

[Mateus Souza]

bom dia, tbm estou com esse problema alguém conseguiu resolver ?

[Juliomar Marchetti]

Acho que não pois ninguém modificou nada!

mas se quiser contribuir fique a vontade!

[Maurício Sareto]

Bom dia Juliomar, eu tentei aplicar as correções mas não tive sucesso...

Gostaria de ajuda para saber oque de fato eu preciso verificar que pode estar causando o problema

[Elisângela Borato]

Bom dia, 

Abri os fontes do Fortes e verifiquei que no dataset correspondente aos itens esta sendo alimentado com a discriminação do serviço:

 cdsItens.Append;
 cdsItens.FieldByName('DISCRIMINACAO').AsString := FNFSe.Servico.Discriminacao;
 cdsItens.Post;

Modifiquei a estrutura do dataset e alimentação dos dados para efetivamente pegar informações dos itens:

 for i:=0 to FNFSe.Servico.ItemServico.Count-1 do
 begin
   cdsItens.Append;
   cdsItens.FieldByName('ITEM').AsString := FNFSe.Servico.ItemServico.Items[i].Descricao;
   if FNFSe.Servico.ItemServico.Items[i].Tributavel = snSim then
     cdsItens.FieldByName('TRIBUTAVEL').AsString := 'Sim'
   else
     cdsItens.FieldByName('TRIBUTAVEL').AsString := 'Não';
   cdsItens.FieldByName('QUANTIDADE').AsString := FormatFloat(',0.00', FNFSe.Servico.ItemServico.Items[i].Quantidade);
   cdsItens.FieldByName('UNITARIO').AsString := FormatFloat(',0.0000', FNFSe.Servico.ItemServico.Items[i].ValorUnitario);
   cdsItens.FieldByName('TOTAL').AsString := FormatFloat(',0.00', FNFSe.Servico.ItemServico.Items[i].ValorTotal);
   cdsItens.Post;
 end;

No entanto a listagem ItemServico esta vindo vazia ( FNFSe.Servico.ItemServico.Count = 0 ).

Aparentemente o componente ACBrNFSe não esta carregando os dados referentes ao itens de serviço (tag "ItensServico"), visto que após a carga do xml de nfse a listagem ItemServico permanece zerada:

ACBrNFSe1.NotasFiscais.LoadFromFile(lcPathFileName);
lnTeste:= ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.ItemServico.Count;

O teste foi realizado com o provedor SimplISS e o xml esta em anexo.

Agradeço caso alguém possa me dizer se me esqueci de algo ou se posso acessar estes dados de outra forma ou ainda por onde melhorar o código caso seja algo a ser ajustado no ACBrNFSe.

Abraço.

00_000_000000044-nfse.xml

[Elisângela Borato]

Update:
Com base no post do colega Roger, ajustei o leitor NFSe para quando o provedor SimpISS, carregar a listagem ItemServico.

Alterações no arquivo pnfsNFSeR.pas, function TNFSeR.LerNFSe_ABRASF_V1: Boolean, inseridas linhas 1086 a 1100:

      //Provedor SimplISS permite varios itens servico
      if FProvedor = proSimplISS then
      begin
        i := 1;
        while (Leitor.rExtrai(4, 'ItensServico', 'ItensServico', i) <> '') do
        begin
          with NFSe.Servico.ItemServico.Add do
          begin
            Descricao := Leitor.rCampo(tcStr, 'Descricao');
            Quantidade := Leitor.rCampo(tcInt, 'Quantidade');
            ValorUnitario := Leitor.rCampo(tcDe2, 'ValorUnitario');
          end;
          i := i + 1;
        end;
      end;

Segue em anexo o arquivo alterado.

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Boa tarde Elisângela,

Muito obrigado pela colaboração, já esta no repositório.

Favor atualizar os seus fontes pois este que você anexou esta desatualizado.