ACBRSEDEX - ERRO EM PESO MENOR QUE 1 KILO

[carlos_augusto]

Prezados Companheiros

Bom Dia

Estou tendo dificuldade com a utilização do componete AcbrSedex, para fazer cálculo de Preços de Postagem e Prazos junto aos Correios.

Eu fiz um teste inicial com mercadoria cujo peso era 1 kilo ( nVlPeso=1 ) e obtive êxito.

Porém, quando fiz o teste com mercadoria de peso menor que 1 kilo ocorre erro.
Estou informando ao componente o valor de 0.7100 e o AcbrSedex gera :  nVlPeso=0.71 e ocorre erro de : 
  Erro HTTP: 500 - Socket Error: 10060 Connection timed out

Efetuei o teste diversas vezes e sempre ocorre o mesmo erro.

Se eu coloco 2 zeros no final do peso e colo a requisição no navegador a consulta é aceita.

Por acaso os companheiros já passaram por esta situação?

Grato

[EMBarbosa]

Em 13/04/2020 at 10:37, carlos_augusto disse:

Prezados Companheiros

Bom Dia

Estou tendo dificuldade com a utilização do componete AcbrSedex, para fazer cálculo de Preços de Postagem e Prazos junto aos Correios.

Eu fiz um teste inicial com mercadoria cujo peso era 1 kilo ( nVlPeso=1 ) e obtive êxito.

Porém, quando fiz o teste com mercadoria de peso menor que 1 kilo ocorre erro.
Estou informando ao componente o valor de 0.7100 e o AcbrSedex gera :  nVlPeso=0.71 e ocorre erro de : 
  Erro HTTP: 500 - Socket Error: 10060 Connection timed out

Efetuei o teste diversas vezes e sempre ocorre o mesmo erro.

Se eu coloco 2 zeros no final do peso e colo a requisição no navegador a consulta é aceita.

Por acaso os companheiros já passaram por esta situação?

Grato

Olá,

   Poderia me mandar as duas urls que você tentou? A que não funciona e a que funciona.

   A formatação desse campo é feito na unit ACBrSedex.pas na linha 359 no método TACBrSedex.Consultar conforme abaixo:

  try
    if fUrlConsulta = CURL_SEDEX then
      Self.HTTPGet(fUrlConsulta +
        'nCdEmpresa=' + fsCodContrato +
        '&sDsSenha=' + fsDsSenha +
        '&sCepOrigem=' + OnlyNumber(fsCepOrigem) +
        '&sCepDestino=' + OnlyNumber(fsCepDestino) +
        '&nVlPeso=' + FloatToString(fnVlPeso) +
(continua...)

   Talvez seja só necessário ajustar a formatação do FloatToString.

[Juliana Tamizou]

Tópico fechado por falta de retorno do usuário