Estou tentando fazer uma integração com uma api da boleto cloud. Mas meus conhecimentos são nulos neste assunto.
Após alguns dias de estudo, consegui entender a api, fazer a conexão e validá-la.
Estou agarrado agora no envio dos dados para geração do boleto ( o método body).
Meu código:
if nTipo = 1 // homologacao
cAdress := 'https://sandbox.boletocloud.com/api/v1/boletos/'
Else
cAdress := 'https://app.boletocloud.com/api/v1/boletos/' // producao
Endif
cUrl:= cAdress
oHttp:= CreateObject( 'MSXML2.ServerXMLHTTP.6.0' )
oHttp:Open( "POST", cUrl, .f. )
oHttp:setRequestHeader('Content-Type' , 'application/x-www-form-urlencoded')
oHttp:setRequestHeader('Authorization' , 'Basic YXBpLWtleV8td0llQ2hQdFg0TFFoSExISEpoUEpGQkthNXJxV1IzSjJ6bUR2ZW5KQ3BBPTp0b2tlbg==')
// comando acima (Authorization) está ok.... código token validado.
retorno := oHttp:Send()
IF oHttp:status <> 200 // diferente de aprovado
MsgStop( Alltrim(Str(oHttp:status)) +" - "+ Alltrim(oHttp:ResponseBody) , "Erro na requisição")
MemoWrit('boleto.html', oHttp:ResponseBody) // coloquei apenas para visualizar o retorno em caso de erro
RETURN NIL
ENDIF
x := hb_jsondecode( oHttp:ResponseBody, @aResult )
return nil
Este código retorna um .json informando que os parâmetros do boleto nao foram enviados.
Aà está o problema. Já gerei a variável que contém os dados do boleto, mas não estou sabendo como enviar.
A api pede para enviar um body com os dados.
Como faço isso?
Segue link com as informações da api.
[url]
https://boleto.cloud/app/dev/api#visao-geral-dados
[/url]
Em tempo
minigui (Roberto Lopes ) + mysql