Erro -16 no evento CTE_DistribuicaoDFePorUltNSU

[Jucelino]

Olá, estou usando a biblioteca libacbrcte64.so em java.

Quando executo o evento CTE_DistribuicaoDFePorUltNSU o seu retorno é o código -16, sendo que o mesmo não está na documentação https://acbr.sourceforge.io/ACBrLib/CTE_DistribuicaoDFePorUltNSU.html

O que significa esse código?

[Jucelino]

Anexo log do evento no nível 4 - Paranoico

ACBrLibCTe-20220901.log

[antonio.carlos]

@Jucelino bom dia, 
com o programa exemplo, ocorre o mesmo comportamento ? 
vamos analisar os logs, enquanto isso consegue fazer um teste com o programa exemplo ?

[Daniel Simoes]

Pelo que notei nos fontes.. -16 ocorrerá quando houver um Exception durante a Transmissão/Recepção... Provavelmente um TimeOut...

Você pode ter mais detalhes do Erro, se solicitar o Ultimo Retorno

https://acbr.sourceforge.io/ACBrLib/CTE_UltimoRetorno.html

      with CTeDM do
      begin
        try
          ACBrCTe1.WebServices.DistribuicaoDFe.cUFAutor := AcUFAutor;
          ACBrCTe1.WebServices.DistribuicaoDFe.CNPJCPF  := ACNPJCPF;
          ACBrCTe1.WebServices.DistribuicaoDFe.ultNSU   := AultNSU;
          ACBrCTe1.WebServices.DistribuicaoDFe.NSU      := '';
          ACBrCTe1.WebServices.DistribuicaoDFe.chCTe    := '';

          ACBrCTe1.WebServices.DistribuicaoDFe.Executar;

          Resp := TDistribuicaoDFeResposta.Create(Config.TipoResposta, Config.CodResposta);
          try
            Resp.Processar(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt,
                           ACBrCTe1.WebServices.DistribuicaoDFe.Msg,
                           ACBrCTe1.WebServices.DistribuicaoDFe.NomeArq,
                           ACBrCTe1.WebServices.DistribuicaoDFe.ListaArqs);
            Resposta := Resp.Gerar;
          finally
            Resp.Free;
          end;

          MoverStringParaPChar(Resposta, sResposta, esTamanho);
          Result := SetRetorno(ErrOK, Resposta);
        except
          raise EACBrLibException.Create(ErrRetorno, ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo);  // <--------- AQUI -------------
        end; 

 

[Jucelino]

Olá. 

Devido esse problema tive que deixar para outro momento esse desenvolvimento e estou retornando agora.

Fizemos os testes em outros ambientes e sempre retornou esse erro -16 sem mensagem, até mesmo em ambientes que estão com acesso livre à internet.

Revisando o fonte com minha equipe, sugerimos adicionar um except nessa linha destacada:

        try
          ACBrCTe1.WebServices.DistribuicaoDFe.cUFAutor := AcUFAutor;
          ACBrCTe1.WebServices.DistribuicaoDFe.CNPJCPF  := ACNPJCPF;
          ACBrCTe1.WebServices.DistribuicaoDFe.ultNSU   := AultNSU;
          ACBrCTe1.WebServices.DistribuicaoDFe.NSU      := '';
          ACBrCTe1.WebServices.DistribuicaoDFe.chCTe    := '';

          ACBrCTe1.WebServices.DistribuicaoDFe.Executar;

          Resp := TDistribuicaoDFeResposta.Create(Config.TipoResposta, Config.CodResposta);
          try
            Resp.Processar(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt,
                           ACBrCTe1.WebServices.DistribuicaoDFe.Msg,
                           ACBrCTe1.WebServices.DistribuicaoDFe.NomeArq,
                           ACBrCTe1.WebServices.DistribuicaoDFe.ListaArqs);
            Resposta := Resp.Gerar;
          finally
            Resp.Free;
          end;

          MoverStringParaPChar(Resposta, sResposta, esTamanho);
          Result := SetRetorno(ErrOK, Resposta);
        except
          on E: Exception do
          begin
            if Trim(ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo) = '' then
              raise EACBrLibException.Create(ErrRetorno, E.Message) //----------- AQUI
            else
              raise EACBrLibException.Create(ErrRetorno, ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo);
          end;
        end;

Esse except ajudará verificar outros excepts dentro do "ACBrCTe1.WebServices.DistribuicaoDFe.Executar", pois da forma atual, ele só trará erros contidos no "ACBrCTe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo", sendo que pode ser que nem foi feita a solicitação no WebServices, assim ocultando o erro.

Caso seja possível fazer essa alteração, favor informar em qual versão estará.

Fico no aguardo.

Editado 17 Novembro, 2022 por Jucelino

[Daniel Simoes]

Humm.. você tem razão... esse IF, está escondendo o real motivo do Exception...

Acho que poderíamos/deveríamos concatenar o E.Message, ao xMotivo, para sabermos o real motivo do Exception

@Juliana Tamizou, pode por favor criar uma Tarefa ?

[antonio.carlos]

4 minutos atrás, Daniel Simoes disse:

Humm.. você tem razão... esse IF, está escondendo o real motivo do Exception...

Acho que poderíamos/deveríamos concatenar o E.Message, ao xMotivo, para sabermos o real motivo do Exception

@Juliana Tamizou, pode por favor criar uma Tarefa ?

@Daniel Simoes criei uma task para analise do caso #TK-3293

[antonio.carlos]

@Jucelino em conjunto com consultor @EMBarbosa fizemos uma analise e um ajuste na sua contribuição, fizemos um commit Rev. 27632 .
Próxima compilação da ACBrLibCTe, MDFe e NFe, ambos foram adicionado alteração para trazer a mensagem e o motivo.

[Juliana Tamizou]

Boa tarde,

Novas libs disponiveis.

At.