ACBrNFSeX - Sugestão de pequena melhoria

Gabriel Bonzanini · 13 Agosto, 2025

Boa tarde pessoal!

Na unit ACBrNFSeX.pas, método TACBrNFSeX.Emitir (linha 509 da versão do repositório), existe um sleep que acredito que possa ser evitado, caso o componente já tenha obtido o retorno desejado:

          while (Situacao < 3) and (qTentativas < Tentativas) do
          begin
            FProvider.ConsultaSituacao;

            Situacao := StrToIntDef(FWebService.ConsultaSituacao.Situacao, 0);
            Inc(qTentativas);
            sleep(Intervalo); <<<<<<<
          end;

Uma sugestão seria adicionar um if com as mesmas condições do laço, pois caso elas tenham sido atendidas, não há motivo para aguardar:

          while (Situacao < 3) and (qTentativas < Tentativas) do
          begin
            FProvider.ConsultaSituacao;

            Situacao := StrToIntDef(FWebService.ConsultaSituacao.Situacao, 0);
            Inc(qTentativas);
			
            if (Situacao < 3) and (qTentativas < Tentativas) Then
              sleep(Intervalo);
          end;

Outro formato, se preferirem, poderia ser utilizando um while True:

          while True do
          begin
            FProvider.ConsultaSituacao;

            Situacao := StrToIntDef(FWebService.ConsultaSituacao.Situacao, 0);
            Inc(qTentativas);
			
            if (Situacao < 3) and (qTentativas < Tentativas) then
              sleep(Intervalo)
            else
              break;
          end;

Abraço, e obrigado pelo trabalho de vocês, seus componentes são de grande ajuda!

Editado 13 Agosto, 2025 por Gabriel Bonzanini