Lianja

Amazon SP-API Sellers Get Marketplace Participations

See more Amazon SP-API Examples

Demonstrates Amazon SP-API Sellers API -- get marketplace participations. Lianja

llSuccess = .F.

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

loAuthAws = createobject("CkAuthAws")
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
loAuthAws.ServiceName = "execute-api"
// Use the region that is correct for your needs.
loAuthAws.Region = "eu-west-1"

loRest = createobject("CkRest")
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
// Make sure to use the correct domain.
// In this example, we are using "sandbox.sellingpartnerapi-eu.amazon.com"
llSuccess = loRest.Connect("sandbox.sellingpartnerapi-eu.amazon.com",lnPort,llBTls,llBAutoReconnect)
if (llSuccess = .F.) then
    ? loRest.LastErrorText
    release loAuthAws
    release loRest
    return
endif

llSuccess = loRest.SetAuthAws(loAuthAws)

// Load the previously obtained LWA access token.
// See Fetch SP-API LWA Access Token
loJsonToken = createobject("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
if (llSuccess = .F.) then
    ? "Failed to load LWA access token."
    release loAuthAws
    release loRest
    release loJsonToken
    return
endif

// Add the x-amz-access-token request header.
lcLwa_token = loJsonToken.StringOf("access_token")
loRest.ClearAllHeaders()
loRest.AddHeader("x-amz-access-token",lcLwa_token)

loSbResponse = createobject("CkStringBuilder")
lcUri = "/sellers/v1/marketplaceParticipations"
llSuccess = loRest.FullRequestNoBodySb("GET",lcUri,loSbResponse)
if (llSuccess = .F.) then
    ? loRest.LastErrorText
    release loAuthAws
    release loRest
    release loJsonToken
    release loSbResponse
    return
endif

// Examine the response status.
lnStatusCode = loRest.ResponseStatusCode
if (lnStatusCode <> 200) then
    ? "Response status text: " + loRest.ResponseStatusText
    ? "Response body: "
    ? loSbResponse.GetAsString()
    ? "Failed."
    release loAuthAws
    release loRest
    release loJsonToken
    release loSbResponse
    return
endif

? loSbResponse.GetAsString()

// If successful, gets a JSON response such as the following:

// {
//   "payload": [
//     {
//       "marketplace": {
//         "id": "ATVPDKIKX0DER",
//         "countryCode": "US",
//         "name": "Amazon.com",
//         "defaultCurrencyCode": "USD",
//         "defaultLanguageCode": "en_US",
//         "domainName": "www.amazon.com"
//       },
//       "participation": {
//         "isParticipating": true,
//         "hasSuspendedListings": false
//       }
//     }
//   ]
// }

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

loJson = createobject("CkJsonObject")

loJson.LoadSb(loSbResponse)

i = 0
lnCount_i = loJson.SizeOfArray("payload")
do while i < lnCount_i
    loJson.I = i
    lcId = loJson.StringOf("payload[i].marketplace.id")
    lcCountryCode = loJson.StringOf("payload[i].marketplace.countryCode")
    lcName = loJson.StringOf("payload[i].marketplace.name")
    lcDefaultCurrencyCode = loJson.StringOf("payload[i].marketplace.defaultCurrencyCode")
    lcDefaultLanguageCode = loJson.StringOf("payload[i].marketplace.defaultLanguageCode")
    lcDomainName = loJson.StringOf("payload[i].marketplace.domainName")
    llIsParticipating = loJson.BoolOf("payload[i].participation.isParticipating")
    llHasSuspendedListings = loJson.BoolOf("payload[i].participation.hasSuspendedListings")
    i = i + 1
enddo

? "Success!"


release loAuthAws
release loRest
release loJsonToken
release loSbResponse
release loJson