Lianja
CardConnect Create Profile

Demonstrates how to create a profile.
A PUT call to the profile endpoint creates a new profile or adds a new account to an existing profile. ...
See https://developer.cardconnect.com/cardconnect-api?lang=json#create-update-profile-request
Chilkat Lianja Downloads

Lianja
llSuccess = .F.

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

loHttp = createobject("CkHttp")

loHttp.BasicAuth = .T.
loHttp.Login = "API_USERNAME"
loHttp.Password = "API_PASSWORD"

// Build and send the following JSON:

// {
//   "region": "AK",
//   "phone": "7778789999",
//   "accttype": "VISA",
//   "postal": "19090",
//   "ssnl4": "3655",
//   "expiry": "0214",
//   "city": "ANYTOWN",
//   "country": "US",
//   "address": "123 MAIN STREET",
//   "merchid": "496400000840",
//   "name": "TOM JONES",
//   "account": "4444333322221111",
//   "license": "123451254",
// }

loJson = createobject("CkJsonObject")
loJson.UpdateString("region","AK")
loJson.UpdateString("phone","7778789999")
loJson.UpdateString("accttype","VISA")
loJson.UpdateString("postal","19090")
loJson.UpdateString("ssnl4","3655")
loJson.UpdateString("expiry","0214")
loJson.UpdateString("city","ANYTOWN")
loJson.UpdateString("country","US")
loJson.UpdateString("address","123 MAIN STREET")
loJson.UpdateString("merchid","MERCHANT_ID")
loJson.UpdateString("name","TOM JONES")
loJson.UpdateString("account","4444333322221111")
loJson.UpdateString("license","123451254")

lcUrl = "https://<site>.cardconnect.com:<port>/cardconnect/rest/profile"

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpStr("PUT",lcUrl,loJson.Emit(),"utf-8","application/json",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJson
    release loResp
    return
endif

// A response status of 200 indicates potential success.  The JSON response body
// must be examined to determine if it was truly successful or an error.
? "response status code = " + str(loResp.StatusCode)

loJsonResp = createobject("CkJsonObject")
loJsonResp.Load(loResp.BodyStr)
loJsonResp.EmitCompact = .F.

? "response JSON:"
? loJsonResp.Emit()

// A successful response looks like this:

// {
//   "country": "US",
//   "address": "123 MAIN STREET",
//   "resptext": "Profile Saved",
//   "city": "ANYTOWN",
//   "acctid": "1",
//   "respcode": "09",
//   "defaultacct": "Y",
//   "accttype": "VISA",
//   "token": "9441149619831111",
//   "license": "123451254",
//   "respproc": "PPS",
//   "phone": "7778789999",
//   "profileid": "16392957457306633141",
//   "name": "TOM JONES",
//   "auoptout": "N",
//   "postal": "19090",
//   "expiry": "0214",
//   "region": "AK",
//   "ssnl4": "3655",
//   "respstat": "A"
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

lcCountry = loJsonResp.StringOf("country")
lcAddress = loJsonResp.StringOf("address")
lcResptext = loJsonResp.StringOf("resptext")
lcCity = loJsonResp.StringOf("city")
lcAcctid = loJsonResp.StringOf("acctid")
lcRespcode = loJsonResp.StringOf("respcode")
lcDefaultacct = loJsonResp.StringOf("defaultacct")
lcAccttype = loJsonResp.StringOf("accttype")
lcToken = loJsonResp.StringOf("token")
lcLicense = loJsonResp.StringOf("license")
lcRespproc = loJsonResp.StringOf("respproc")
lcPhone = loJsonResp.StringOf("phone")
lcProfileid = loJsonResp.StringOf("profileid")
lcName = loJsonResp.StringOf("name")
lcAuoptout = loJsonResp.StringOf("auoptout")
lcPostal = loJsonResp.StringOf("postal")
lcExpiry = loJsonResp.StringOf("expiry")
lcRegion = loJsonResp.StringOf("region")
lcSsnl4 = loJsonResp.StringOf("ssnl4")
lcRespstat = loJsonResp.StringOf("respstat")


release loHttp
release loJson
release loResp
release loJsonResp