(PowerBuilder) Send POST to Bradesco Platform with Billing Ticket for Registration

Sends a POST request to the Bradesco platform containing the JSON data of the Billing Ticket for registration.

Note: This example requires updates that are in Chilkat v9.5.0.77 and later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
integer li_Success
oleobject loo_Json
oleobject loo_Cert
oleobject loo_Crypt
string ls_SigBase64
string ls_Url
oleobject loo_Req
oleobject loo_Http
oleobject loo_Resp

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

// First build the JSON containing the data to be sent.

// {
// "nuCPFCNPJ":"12668",
// "filialCPFCNPJ":"1",
// "ctrlCPFCNPJ":"59",
// "cdTipoAcesso":"2",
// "idProduto":"9",
// "nuNegociacao":"262200000000005577",
// "nuCliente":"SEU_NUM_CLIENTE",
// "dtEmissaoTitulo":"21.09.2016",
// "dtVencimentoTitulo":"21.09.2016",
// "vlNominalTitulo":"888888",
// "cdEspecieTitulo":"2",
// "nomePagador":"NOME DO PAGADOR",
// "logradouroPagador":"ENDERECO DO PAGADOR",
// "nuLogradouroPagador":"1145",
// "complementoLogradouroPagador":"APTO 34",
// "cepPagador":"5588",
// "complementoCepPagador":"1",
// "bairroPagador":"BAIRRO PAGADOR",
// "municipioPagador":"MUNICIPIO PAGADOR",
// "ufPagador":"SP",
// "cdIndCpfcnpjPagador":"2",
// "nuCpfcnpjPagador":"12668000159",
// "endEletronicoPagador":"PAGADOR@BRADESCO.COM.BR",
// "nomeSacadorAvalista":"NOME SACADOR AVALISTA",
// "logradouroSacadorAvalista":"ENDERECO SACADOR AVALISTA",
// "nuLogradouroSacadorAvalista":"5555",
// "complementoLogradouroSacadorAvalista":"BLOCO 23",
// "cepSacadorAvalista":"6182",
// "complementoCepSacadorAvalista":"160",
// "bairroSacadorAvalista":"BAIRRO SACADOR AVALISTA",
// "municipioSacadorAvalista":"MUNICIPIO SACADOR AVALISTA",
// "ufSacadorAvalista":"SP",
// "cdIndCpfcnpjSacadorAvalista":"2",
// "nuCpfcnpjSacadorAvalista":"12668000159",
// "endEletronicoSacadorAvalista":"SACADOR@BRADESCO.COM.BR",
// }
// 

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat_9_5_0.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Json.UpdateString("nuCPFCNPJ","12668")
loo_Json.UpdateString("filialCPFCNPJ","1")
loo_Json.UpdateString("ctrlCPFCNPJ","59")
loo_Json.UpdateString("cdTipoAcesso","2")
loo_Json.UpdateString("idProduto","9")
loo_Json.UpdateString("nuNegociacao","262200000000005577")
loo_Json.UpdateString("nuCliente","SEU_NUM_CLIENTE")
loo_Json.UpdateString("dtEmissaoTitulo","21.09.2016")
loo_Json.UpdateString("dtVencimentoTitulo","21.09.2016")
loo_Json.UpdateString("vlNominalTitulo","888888")
loo_Json.UpdateString("cdEspecieTitulo","2")
loo_Json.UpdateString("nomePagador","NOME DO PAGADOR")
loo_Json.UpdateString("logradouroPagador","ENDERECO DO PAGADOR")
loo_Json.UpdateString("nuLogradouroPagador","1145")
loo_Json.UpdateString("complementoLogradouroPagador","APTO 34")
loo_Json.UpdateString("cepPagador","5588")
loo_Json.UpdateString("complementoCepPagador","1")
loo_Json.UpdateString("bairroPagador","BAIRRO PAGADOR")
loo_Json.UpdateString("municipioPagador","MUNICIPIO PAGADOR")
loo_Json.UpdateString("ufPagador","SP")
loo_Json.UpdateString("cdIndCpfcnpjPagador","2")
loo_Json.UpdateString("nuCpfcnpjPagador","12668000159")
loo_Json.UpdateString("endEletronicoPagador","PAGADOR@BRADESCO.COM.BR")
loo_Json.UpdateString("nomeSacadorAvalista","NOME SACADOR AVALISTA")
loo_Json.UpdateString("logradouroSacadorAvalista","ENDERECO SACADOR AVALISTA")
loo_Json.UpdateString("nuLogradouroSacadorAvalista","5555")
loo_Json.UpdateString("complementoLogradouroSacadorAvalista","BLOCO 23")
loo_Json.UpdateString("cepSacadorAvalista","6182")
loo_Json.UpdateString("complementoCepSacadorAvalista","160")
loo_Json.UpdateString("bairroSacadorAvalista","BAIRRO SACADOR AVALISTA")
loo_Json.UpdateString("municipioSacadorAvalista","MUNICIPIO SACADOR AVALISTA")
loo_Json.UpdateString("ufSacadorAvalista","SP")
loo_Json.UpdateString("cdIndCpfcnpjSacadorAvalista","2")
loo_Json.UpdateString("nuCpfcnpjSacadorAvalista","12668000159")
loo_Json.UpdateString("endEletronicoSacadorAvalista","SACADOR@BRADESCO.COM.BR")

// Load out PFX file 
loo_Cert = create oleobject
li_rc = loo_Cert.ConnectToNewObject("Chilkat_9_5_0.Cert")

li_Success = loo_Cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
if li_Success <> 1 then
    Write-Debug loo_Cert.LastErrorText
    destroy loo_Json
    destroy loo_Cert
    return
end if

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat_9_5_0.Crypt2")

li_Success = loo_Crypt.SetSigningCert(loo_Cert)
if li_Success <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Json
    destroy loo_Cert
    destroy loo_Crypt
    return
end if

// Use SHA-256 within the signing..
loo_Crypt.HashAlgorithm = "sha256"

// IMPORTANT: This example requires Chilkat v9.5.0.77 or later.
// Use no authenticated attributes
loo_Crypt.SigningAttributes = "{}"

loo_Json.EmitCompact = 1
ls_SigBase64 = loo_Crypt.OpaqueSignStringENC(loo_Json.Emit())
if loo_Crypt.LastMethodSuccess <> 1 then
    Write-Debug loo_Crypt.LastErrorText
    destroy loo_Json
    destroy loo_Cert
    destroy loo_Crypt
    return
end if

// Next, we need to send a POST to the following URL where the body of the POST
// contains the binary PKCS7 signature (which embeds the JSON).
ls_Url = "https://cobranca.bradesconetempresa.b.br/ibpjregistrotitulows/registrotitulohomologacao"

loo_Req = create oleobject
li_rc = loo_Req.ConnectToNewObject("Chilkat_9_5_0.HttpRequest")

loo_Req.HttpVerb = "POST"
// This is strange because apparently the server wants a "text/xml" Content-Type,
// but the content in the body is not actually XML, it's binary PKCS7.
loo_Req.ContentType = "text/xml"
loo_Req.LoadBodyFromString(ls_SigBase64,"utf-8")

// We don't actually pass the URL, we set the path here, and the domain is passed below..
loo_Req.Path = "/ibpjregistrotitulows/registrotitulohomologacao"

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat_9_5_0.Http")

loo_Resp = loo_Http.SynchronousRequest("cobranca.bradesconetempresa.b.br",443,1,loo_Req)
if loo_Http.LastMethodSuccess <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Json
    destroy loo_Cert
    destroy loo_Crypt
    destroy loo_Req
    destroy loo_Http
    return
end if

Write-Debug "Response status code: " + string(loo_Resp.StatusCode)
Write-Debug "Response body:"
Write-Debug loo_Resp.BodyStr

destroy loo_Resp


destroy loo_Json
destroy loo_Cert
destroy loo_Crypt
destroy loo_Req
destroy loo_Http