ExtrairNotasRetorno - extrai apenas a última (NFSe ACBrNFSeWebServices.pas)

[rubenstz]

Bom dia,

Estive tendo problemas com dois provedores que trabalho (ISSCuritiba e BHISS) durante a transmissão por queda de conexão ou timeout do provedor e precisei para corrigir em meu banco de dados números e outros dados do lote utilizar a função ConsultarLoteRps que traz as notas fiscais processadas em um lote de envio desde que eu informe um xml de RPS e número de LOTE e PROTOCOLO, mas estava me trazendo somente a última nota enviada, diferente até da nota gerada pelo RPS que selecionei, verifiquei e vi o seguinte na função ExtrairNotasRetorno da unit ACBrNFSeWebServices.pas :

Na condição para avaliar se abaixo se o RPS está na lista:

Citar

      if ((not (FProvedor in [proNFSeBrasil, proEL])) and
         ((StrToInt64Def(FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Numero, 0) = StrToInt64Def(FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.IdentificacaoRps.Numero, 0)) and
           (FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Serie = FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.IdentificacaoRps.Serie) and
           (FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Tipo = FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.IdentificacaoRps.Tipo)) or
          (FNotasFiscais.Items[l].NFSe.InfID.ID = FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.InfID.ID)) or
         ((FProvedor in [proNFSeBrasil, proEL]) and
          (StrToInt64Def(FNotasFiscais.Items[l].NFSe.IdentificacaoRps.Numero, 0) = StrToInt64Def(FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.IdentificacaoRps.Numero, 0))) then

Falta um parenteses na condição OR que verifica  (FNotasFiscais.Items[l].NFSe.InfID.ID = FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.InfID.ID) e isto faz com que sempre exista apenas uma NOTAFISCAL na lista, corrigi para o código abaixo e funcionou para mim:

Citar

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

Deixei meio separado apenas para exemplificar, se os moderadores puderem conferir e dar um ok.

Este problema nunca irá ocorrer em versões anteriores do ACBr se o emitente enviar 1 nota por lote e consultar o retorno, mas se existirem mais de uma sempre aparecerá apenas a última enviada pois a váriavel NovoRetorno sempre será false e não incrementa a lista de notas fiscais.

Att,

 

 

[Italo Giurizzato Junior]

Boa noite Rubens,

Anexe a unit alterada para que possamos avaliar.

[rubenstz]

Em 2017-4-28 at 10:12, rubenstz disse:

Bom dia,

Estive tendo problemas com dois provedores que trabalho (ISSCuritiba e BHISS) durante a transmissão por queda de conexão ou timeout do provedor e precisei para corrigir em meu banco de dados números e outros dados do lote utilizar a função ConsultarLoteRps que traz as notas fiscais processadas em um lote de envio desde que eu informe um xml de RPS e número de LOTE e PROTOCOLO, mas estava me trazendo somente a última nota enviada, diferente até da nota gerada pelo RPS que selecionei, verifiquei e vi o seguinte na função ExtrairNotasRetorno da unit ACBrNFSeWebServices.pas :

Na condição para avaliar se abaixo se o RPS está na lista:

Falta um parenteses na condição OR que verifica  (FNotasFiscais.Items[l].NFSe.InfID.ID = FRetornoNFSe.ListaNFSe.CompNFSe.Items.NFSe.InfID.ID) e isto faz com que sempre exista apenas uma NOTAFISCAL na lista, corrigi para o código abaixo e funcionou para mim:

Deixei meio separado apenas para exemplificar, se os moderadores puderem conferir e dar um ok.

Este problema nunca irá ocorrer em versões anteriores do ACBr se o emitente enviar 1 nota por lote e consultar o retorno, mas se existirem mais de uma sempre aparecerá apenas a última enviada pois a váriavel NovoRetorno sempre será false e não incrementa a lista de notas fiscais.

Att,

 

 

 

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Boa noite Rubens,

Muito obrigado pela colaboração, fiz uma pequena alteração e ainda hoje estarei enviando para o repositório.