Sugestão de correção de Bug em ACBrNFSeWebServices.pas

[Jwest]

Bom dia, não sou expert em ACBr, mas encontrei um problema na unit ACBrNFSeWebServices.pas

Quando consultando as NFSe, o xml retorna corretamente, mas a property NotasFiscais é preenchida somente com a primeira nota quando não há numero de RPS.

Quando o cliente cria a nota direto do site da Nota Carioca, ele não cria uma RPS e isso dá problema com o componente que leva em conta que sempre existe uma RPS.

 Fiz essa correção, mas queria  que os experts analisassem se é pertinente

Na unit ACBrNFSeWebServices.pas

 

var b:boolean; 

....

if FProvedor in [proNFSeBrasil, proEL] then
        // Se o provedor for NFSeBrasil ou EL compara apenas o numero do RPS
        CondicaoNovoRetorno := (StrToInt64Def(FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Numero, 0) = StrToInt64Def(FRetornoNFSe.ListaNFSe.CompNFSe.Items[i].NFSe.IdentificacaoRps.Numero, 0))
      else  begin
        // caso contrario compara se já esta adicionado comparando pelo número, série e (tipo ou InfId.ID)
        CondicaoNovoRetorno := (StrToInt64Def(FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Numero, 0) = StrToInt64Def(FRetornoNFSe.ListaNFSe.CompNFSe.Items[i].NFSe.IdentificacaoRps.Numero, 0)) and
              (FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Serie = FRetornoNFSe.ListaNFSe.CompNFSe.Items[i].NFSe.IdentificacaoRps.Serie) and
              ((FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Tipo = FRetornoNFSe.ListaNFSe.CompNFSe.Items[i].NFSe.IdentificacaoRps.Tipo) or
              (FNotasFiscais.Items[l].NFSe.InfID.ID = FRetornoNFSe.ListaNFSe.CompNFSe.Items[i].NFSe.InfID.ID));
        b:=(StrToInt64Def(FNotasFiscais.Items[l].NFSe.Numero, 0)=StrToInt64Def(FRetornoNFSe.ListaNFSe.CompNFSe.Items[i].NFSe.Numero,0));
        if (StrToInt64Def(FRetornoNFSe.ListaNFSe.CompNFSe.Items[i].NFSe.Numero,0)>0) then
          CondicaoNovoRetorno :=CondicaoNovoRetorno  and b;
      end;

 

Editado 3 Março, 2018 por Jwest

[Juliomar Marchetti]

sempre que sugerir correções anexe o arquivo alterado ao post. obrigado.

[Jwest]

OK, aqui esta a unit.

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Bom dia,

Agradecemos a sua colaboração, mas por favor primeiro atualize os fontes e aplique a sua correção.

Depois anexe a unit para que possamos avaliar.

Desde já muito obrigado.