Erro em retorno de consulta Campinas

[Edson Viel]

Boa tarde pessoal

Após atualizar o ACBr essa semana tivemos um problema com NFS-e de Campinas, provedor IssDSF. Onde aparece um erro em branco na aplicação.

Pegamos uma maquina que o ACBr não foi atualizado e fizemos a comparação da execução da consulta e na unit ACBrNFSeWebServices vimos que foi alterado as seguintes linhas:

  if FProvedor in [proNotaBlu, proGiap] then
    Result := UpperCase(FRetornoNFSe.ListaNFSe.Sucesso) = UpperCase('true')
  else // Validação através da data de recebimento
    Result := (FDataRecebimento <> 0);

  if (FProvedor = proISSDSF) and Alerta203 then
    Result := True;

para:

  case Fprovedor of
    proNotaBlu,
    proGiap: Result := (UpperCase(FRetornoNFSe.ListaNFSe.Sucesso) = UpperCase('true'));

    proISSDSF: Result := Alerta203;

    proEgoverneISS: Result := ProcSucesso;
  else
    Result := (FDataRecebimento <> 0);
  end;

com isso onde antes a mesma consulta retornava True agora está retornando False.

Gostaria que fez a alteração verificasse o motivo do mesmo para correção pois agora estamos tendo problemas em todas as notas de nossos clientes de Campinas.

Estou mandando a versão um pouco mais antiga do arquivo para analise.

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Boa tarde Edson,

Tente com essa alteração:

  case Fprovedor of
    proNotaBlu,
    proGiap: Result := (UpperCase(FRetornoNFSe.ListaNFSe.Sucesso) = UpperCase('true'));

    proISSDSF: Result := Alerta203 or (FDataRecebimento <> 0);

    proEgoverneISS: Result := ProcSucesso;
  else
    Result := (FDataRecebimento <> 0);
  end;

 

[Edson Viel]

Obrigado Italo, outra pessoa havia uma alteração para retornar True, mas já orientei a fazer desse forma que vc falou e vamos testar aqui.

[Edson Viel]

Testamos e deu certo Italo. Segue em anexo arquivo com alteração. Obrigado.

ACBrNFSeWebServices.pas

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.