Erro: TLS invalid ecpointformat list

[Alice]

bom dia pessoal,

estou tentando testar o exemplo do ACBrIBPTax. 
Informo cnpj, token, UF e ncm, clico em consultar e ocorre o seguinte erro:

Erro HTTP:500 Socket Error: SSL_CHECK_SERVERHELLO_TLSEXT: tls invalid ecpointformat list
URL: https://apidoni.ibpt.org.br/api/v1/produtos?

Editado 13 Março, 2018 por Alice
descrição do título incompleto

[Daniel Simoes]

Verifique se você possui a versão 1.0 do OpenSSL... apenas essa versão e superior, suportam TLS1.2

Veja Esse tópico 

 

 

[Alice]

Boa tarde!

Segui os passos do artigo e coloquei todas as dlls e o acbr.inc junto com o executável, mas agora está ocorrendo o seguinte erro que não ocorreu no teste direto no site de olhonoimposto.ibpt.org.br

Erro HTTP: 404 Not found
Socket Error: 0
URL: https://apidoni.ibpt.org.br/api/v1/produtos?token...

Resposta HTTP:
{"Message":"No HTTP resource was found that matches the request URI
URL: https://apidoni.ibpt.org.br/api/v1/produtos?token...

[Alice]

Daniel, obrigada pela ajuda!
Na realidade a url estava faltando passar a descricao, unidadeMedida, valor e gtin com valor zero.

[Daniel Simoes]

Desculpe, não compreendi se há necessidade de algum ajuste nos fontes do ACBr

[Alice]

Em 13/03/2018 at 20:36, Daniel Simoes disse:

Desculpe, não compreendi se há necessidade de algum ajuste nos fontes do ACBr

Em TACBrIBPTax.API_ConsultarProduto retirei apenas o IF abaixo, pois mesmo o valor unitário sendo zero parece que precisa passar o parâmetro <valor> para o webservice.

if AValorUnitario > 0 then
    UrlConsulta := UrlConsulta + '&valor=' + Self.AjustaParam(FormatFloatBr(AValorUnitario,'#.##'));

[Alice]

18 horas atrás, Alice disse:

Em TACBrIBPTax.API_ConsultarProduto retirei apenas o IF abaixo, pois mesmo o valor unitário sendo zero parece que precisa passar o parâmetro <valor> para o webservice.

if AValorUnitario > 0 then
    UrlConsulta := UrlConsulta + '&valor=' + Self.AjustaParam(FormatFloatBr(AValorUnitario,'#.##'));

Deixei assim:  

if AValorUnitario > 0 then
    UrlConsulta := UrlConsulta + '&valor=' + Self.AjustaParam(FormatFloatBr(AValorUnitario,'#.##'))
  else if AValorUnitario = 0 then
    UrlConsulta := UrlConsulta + '&valor=' + '0.00';

[EMBarbosa]

23 horas atrás, Alice disse:

Deixei assim:  

if AValorUnitario > 0 then
    UrlConsulta := UrlConsulta + '&valor=' + Self.AjustaParam(FormatFloatBr(AValorUnitario,'#.##'))
  else if AValorUnitario = 0 then
    UrlConsulta := UrlConsulta + '&valor=' + '0.00';

Provável que apenas adicionando o igual já resolveria:

if AValorUnitario >= 0 then
    UrlConsulta := UrlConsulta + '&valor=' + Self.AjustaParam(FormatFloatBr(AValorUnitario,'#.##'));

 

Em 21/03/2018 at 16:06, Alice disse:

pois mesmo o valor unitário sendo zero parece que precisa passar o parâmetro <valor> para o webservice

Me parece que é o mesmo caso deste tópico:

 

[BigWings]

Em 13/03/2018 at 15:15, Alice disse:

Daniel, obrigada pela ajuda!
Na realidade a url estava faltando passar a descricao, unidadeMedida, valor e gtin com valor zero.

Correção aplicada no repositório:

Revision: 14909
Author: bigwings
Date: segunda-feira, 26 de março de 2018 07:56:31
Message:
26/03/2018
-- ACBrIBPTax --
[*] Ajuste na montagem da URL de chamada na consulta por API com os campos
    agora obrigatórios.
[*] Inclusão de campos no retorno na consulta por API: vigência, chave, versão,
    fonte, valores calculados.
[*] Ajustes de codificação e vazamento de memória nas mensagens de erro.
  Por: BigWings

----
Modified : /trunk2/Fontes/ACBrTCP/ACBrIBPTax.pas
Modified : /trunk2/Fontes/ACBrTCP/ACBrTCP-change-log.txt