Erro ao Imprimir Lote RPS - Provedor Tinus

[joaolenosi]

Bom dia, Caros amigos.

Estou com um problema ao imprimir um Lote de RPS.

Debugando o código notei que o ACbr está com problema na contagem do número de notas.

O trecho de código retirado da Unit ACBrNFSeDANFSeFR é o seguinte:

 if Assigned(ACBrNFSe) then
    begin
      for I := 0 to TACBrNFSe(ACBrNFSe).NotasFiscais.Count - 1 do
      begin
        // dmDanfse.NFSe := TACBrNFSe(ACBrNFSe).NotasFiscais.Items[I].NFSe;
        CarregaDados(TACBrNFSe(ACBrNFSe).NotasFiscais.Items[I].NFSe);

        if (I > 0) then
          Result := frxReport.PrepareReport(False)
        else
          Result := frxReport.PrepareReport;
      end;
    end

O XML que estou utilizando para realizar a impressão só possui dois RPS´s, porém essa linha: TACBrNFSe(ACBrNFSe).NotasFiscais.Count - 1 está retornando 3 registros que subtraído por -1 vai ser igual a 2. Mas como o índice começa de 0, nós temos três interações que são elas 0,1 e 2, desta forma gerando um erro na impressão.

Segue em anexo o XML do RPS gerado e o print do debug.

Ainda estou analisando o código para ver se o encontro uma solução definitiva.

 

 

0000009-lot-rps.xml

Editado 18 Fevereiro, 2016 por joaolenosi