(Xojo Plugin) MercadoLibre - Search Orders from a Buyer

Search for orders from a buyer.

For more information, see https://developers.mercadolibre.com.ar/es_ar/gestiona-ventas#Como-filtrar

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim http As New Chilkat.Http

// First get our previously obtained OAuth2 access token.
Dim jsonToken As New Chilkat.JsonObject
Dim success As Boolean
success = jsonToken.LoadFile("qa_data/tokens/mercadolibre.json")

// Implements the following CURL command:

// curl -X GET https://api.mercadolibre.com/orders/search?buyer=$BUYER_ID&access_token=$ACCESS_TOKEN

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

success = http.SetUrlVar("access_token",jsonToken.StringOf("access_token"))
// Use an actual buyer ID here..
success = http.SetUrlVar("buyer_id","577815702")

Dim sbResponseBody As New Chilkat.StringBuilder
success = http.QuickGetSb("https://api.mercadolibre.com/orders/search?buyer={$buyer_id}&access_token={$access_token}",sbResponseBody)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    System.DebugLog("Response Header:")
    System.DebugLog(http.LastHeader)
    System.DebugLog("----")
    System.DebugLog("Response Body:")
    System.DebugLog(sbResponseBody.GetAsString())
    System.DebugLog("Failed.")
    Return
End If

Dim jResp As New Chilkat.JsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

System.DebugLog("Response Body:")
System.DebugLog(jResp.Emit())

Dim respStatusCode As Int32
respStatusCode = http.LastStatus
System.DebugLog("Response Status Code = " + Str(respStatusCode))
If (respStatusCode >= 400) Then
    System.DebugLog("Response Header:")
    System.DebugLog(http.LastHeader)
    System.DebugLog("----")
    System.DebugLog("Response Body:")
    System.DebugLog(sbResponseBody.GetAsString())
    System.DebugLog("Failed.")
    Return
End If

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "query": "2032217210",
//   "results": [
//     {
//       "seller": {
//         "phone": {
//           "number": "11971427863",
//           "extension": "",
//           "area_code": null,
//           "verified": false
//         },
//         "alternative_phone": {
//           "number": "",
//           "extension": "",
//           "area_code": ""
//         },
//         "nickname": "VENDASDKMB",
//         "last_name": "Cheracomo",
//         "id": 239432672,
//         "first_name": "Demétrio",
//         "email": "dcherac.8m6k0q+2-ogiydgmrsge3tenby@mail.mercadolivre.com"
//       },
//       "payments": [
//         {
//           "reason": "Kit Com 03 Adesivo Spray 3m 75 Cola Silk Sublimação 300g",
//           "status_code": null,
//           "total_paid_amount": 129.95,
//           "operation_type": "regular_payment",
//           "transaction_amount": 129.95,
//           "date_approved": "2019-05-22T03:51:07.000-04:00",
//           "collector": {
//             "id": 239432672
//           },
//           "coupon_id": null,
//           "installments": 1,
//           "authorization_code": "008877",
//           "taxes_amount": 0,
//           "id": 4792155710,
//           "date_last_modified": "2019-05-22T03:51:07.000-04:00",
//           "coupon_amount": 0,
//           "available_actions": [
//             "refund"
//           ],
//           "shipping_cost": 0,
//           "installment_amount": 129.95,
//           "date_created": "2019-05-22T03:51:05.000-04:00",
//           "activation_uri": null,
//           "overpaid_amount": 0,
//           "card_id": 203453778,
//           "status_detail": "accredited",
//           "issuer_id": "24",
//           "payment_method_id": "master",
//           "payment_type": "credit_card",
//           "deferred_period": null,
//           "atm_transfer_reference": {
//             "transaction_id": "135292",
//             "company_id": null
//           },
//           "site_id": "MLB",
//           "payer_id": 89660613,
//           "marketplace_fee": 14.290000000000001,
//           "order_id": 2032217210,
//           "currency_id": "BRL",
//           "status": "approved",
//           "transaction_order_id": null
//         }
//       ],
//       "fulfilled": true,
//       "buying_mode": "buy_equals_pay",
//       "taxes": {
//         "amount": null,
//         "currency_id": null
//       },
//       "order_request": {
//         "change": null,
//         "return": null
//       },
//       "expiration_date": "2019-06-19T03:51:07.000-04:00",
//       "feedback": {
//         "sale": null,
//         "purchase": null
//       },
//       "shipping": {
//         "id": 27968238880
//       },
//       "date_closed": "2019-05-22T03:51:07.000-04:00",
//       "id": 2032217210,
//       "manufacturing_ending_date": null,
//       "hidden_for_seller": false,
//       "order_items": [
//         {
//           "item": {
//             "seller_custom_field": null,
//             "condition": "new",
//             "category_id": "MLB33383",
//             "variation_id": null,
//             "variation_attributes": [
//             ],
//             "seller_sku": null,
//             "warranty": "Garantia de 1 ano fabricante",
//             "id": "MLB1054990648",
//             "title": "Kit Com 03 Adesivo Spray 3m 75 Cola Silk Sublimação 300g"
//           },
//           "quantity": 1,
//           "differential_pricing_id": null,
//           "sale_fee": 14.29,
//           "listing_type_id": "gold_special",
//           "base_currency_id": null,
//           "unit_price": 129.95,
//           "full_unit_price": 129.95,
//           "base_exchange_rate": null,
//           "currency_id": "BRL",
//           "manufacturing_days": null
//         }
//       ],
//       "date_last_updated": "2020-02-14T02:55:49.811Z",
//       "last_updated": "2019-05-28T15:16:04.000-04:00",
//       "comments": null,
//       "pack_id": null,
//       "coupon": {
//         "amount": 0,
//         "id": null
//       },
//       "shipping_cost": 0,
//       "date_created": "2019-05-22T03:51:05.000-04:00",
//       "application_id": "7092",
//       "pickup_id": null,
//       "status_detail": null,
//       "tags": [
//         "delivered",
//         "paid"
//       ],
//       "buyer": {
//         "billing_info": {
//           "doc_number": "02183212950",
//           "doc_type": "CPF"
//         },
//         "phone": {
//           "number": "99962663",
//           "extension": "",
//           "area_code": "41",
//           "verified": false
//         },
//         "alternative_phone": {
//           "number": "30576339",
//           "extension": "",
//           "area_code": "41"
//         },
//         "nickname": "S.VICTORHUGO",
//         "last_name": "Schemberger",
//         "id": 89660613,
//         "first_name": "Victor Hugo",
//         "email": "vschemb.y14cdz+2-ogiydgmrsge3tenbz@mail.mercadolivre.com"
//       },
//       "total_amount": 129.95,
//       "paid_amount": 129.95,
//       "mediations": [
//       ],
//       "currency_id": "BRL",
//       "status": "paid"
//     }
//   ],
//   "sort": {
//     "id": "date_asc",
//     "name": "Date ascending"
//   },
//   "available_sorts": [
//     {
//       "id": "date_desc",
//       "name": "Date descending"
//     }
//   ],
//   "filters": [
//   ],
//   "paging": {
//     "total": 1,
//     "offset": 0,
//     "limit": 50
//   },
//   "display": "complete"
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

Dim date_closed As New Chilkat.DtObj
Dim date_last_updated As New Chilkat.DtObj
Dim date_created As New Chilkat.DtObj
Dim date_approved As New Chilkat.DtObj
Dim date_last_modified As New Chilkat.DtObj
Dim sellerPhoneNumber As String
Dim sellerPhoneExtension As String
Dim sellerPhoneArea_code As String
Dim sellerPhoneVerified As Boolean
Dim sellerAlternative_phoneNumber As String
Dim sellerAlternative_phoneExtension As String
Dim sellerAlternative_phoneArea_code As String
Dim sellerNickname As String
Dim sellerLast_name As String
Dim sellerId As Int32
Dim sellerFirst_name As String
Dim sellerEmail As String
Dim fulfilled As Boolean
Dim buying_mode As String
Dim taxesAmount As String
Dim taxesCurrency_id As String
Dim order_requestChange As String
Dim order_requestReturn As String
Dim expiration_date As String
Dim feedbackSale As String
Dim feedbackPurchase As String
Dim shippingId As Int32
Dim id As Int32
Dim manufacturing_ending_date As String
Dim hidden_for_seller As Boolean
Dim last_updated As String
Dim comments As String
Dim pack_id As String
Dim couponAmount As Int32
Dim couponId As String
Dim shipping_cost As Int32
Dim application_id As String
Dim pickup_id As String
Dim status_detail As String
Dim buyerBilling_infoDoc_number As String
Dim buyerBilling_infoDoc_type As String
Dim buyerPhoneNumber As String
Dim buyerPhoneExtension As String
Dim buyerPhoneArea_code As String
Dim buyerPhoneVerified As Boolean
Dim buyerAlternative_phoneNumber As String
Dim buyerAlternative_phoneExtension As String
Dim buyerAlternative_phoneArea_code As String
Dim buyerNickname As String
Dim buyerLast_name As String
Dim buyerId As Int32
Dim buyerFirst_name As String
Dim buyerEmail As String
Dim total_amount As String
Dim paid_amount As String
Dim currency_id As String
Dim status As String
Dim j As Int32
Dim count_j As Int32
Dim reason As String
Dim status_code As String
Dim total_paid_amount As String
Dim operation_type As String
Dim transaction_amount As String
Dim collectorId As Int32
Dim coupon_id As String
Dim installments As Int32
Dim authorization_code As String
Dim taxes_amount As Int32
Dim coupon_amount As Int32
Dim installment_amount As String
Dim activation_uri As String
Dim overpaid_amount As Int32
Dim card_id As Int32
Dim issuer_id As String
Dim payment_method_id As String
Dim payment_type As String
Dim deferred_period As String
Dim atm_transfer_referenceTransaction_id As String
Dim atm_transfer_referenceCompany_id As String
Dim site_id As String
Dim payer_id As Int32
Dim marketplace_fee As String
Dim order_id As Int32
Dim transaction_order_id As String
Dim k As Int32
Dim count_k As Int32
Dim strVal As String
Dim itemSeller_custom_field As String
Dim itemCondition As String
Dim itemCategory_id As String
Dim itemVariation_id As String
Dim itemSeller_sku As String
Dim itemWarranty As String
Dim itemId As String
Dim itemTitle As String
Dim quantity As Int32
Dim differential_pricing_id As String
Dim sale_fee As String
Dim listing_type_id As String
Dim base_currency_id As String
Dim unit_price As String
Dim full_unit_price As String
Dim base_exchange_rate As String
Dim manufacturing_days As String
Dim id_str As String
Dim name As String

Dim query As String
query = jResp.StringOf("query")
Dim sortId As String
sortId = jResp.StringOf("sort.id")
Dim sortName As String
sortName = jResp.StringOf("sort.name")
Dim pagingTotal As Int32
pagingTotal = jResp.IntOf("paging.total")
Dim pagingOffset As Int32
pagingOffset = jResp.IntOf("paging.offset")
Dim pagingLimit As Int32
pagingLimit = jResp.IntOf("paging.limit")
Dim display As String
display = jResp.StringOf("display")
Dim i As Int32
i = 0
Dim count_i As Int32
count_i = jResp.SizeOfArray("results")
While i < count_i
    jResp.I = i
    sellerPhoneNumber = jResp.StringOf("results[i].seller.phone.number")
    sellerPhoneExtension = jResp.StringOf("results[i].seller.phone.extension")
    sellerPhoneArea_code = jResp.StringOf("results[i].seller.phone.area_code")
    sellerPhoneVerified = jResp.BoolOf("results[i].seller.phone.verified")
    sellerAlternative_phoneNumber = jResp.StringOf("results[i].seller.alternative_phone.number")
    sellerAlternative_phoneExtension = jResp.StringOf("results[i].seller.alternative_phone.extension")
    sellerAlternative_phoneArea_code = jResp.StringOf("results[i].seller.alternative_phone.area_code")
    sellerNickname = jResp.StringOf("results[i].seller.nickname")
    sellerLast_name = jResp.StringOf("results[i].seller.last_name")
    sellerId = jResp.IntOf("results[i].seller.id")
    sellerFirst_name = jResp.StringOf("results[i].seller.first_name")
    sellerEmail = jResp.StringOf("results[i].seller.email")
    fulfilled = jResp.BoolOf("results[i].fulfilled")
    buying_mode = jResp.StringOf("results[i].buying_mode")
    taxesAmount = jResp.StringOf("results[i].taxes.amount")
    taxesCurrency_id = jResp.StringOf("results[i].taxes.currency_id")
    order_requestChange = jResp.StringOf("results[i].order_request.change")
    order_requestReturn = jResp.StringOf("results[i].order_request.return")
    expiration_date = jResp.StringOf("results[i].expiration_date")
    feedbackSale = jResp.StringOf("results[i].feedback.sale")
    feedbackPurchase = jResp.StringOf("results[i].feedback.purchase")
    shippingId = jResp.IntOf("results[i].shipping.id")
    success = jResp.DtOf("results[i].date_closed",False,date_closed)
    id = jResp.IntOf("results[i].id")
    manufacturing_ending_date = jResp.StringOf("results[i].manufacturing_ending_date")
    hidden_for_seller = jResp.BoolOf("results[i].hidden_for_seller")
    success = jResp.DtOf("results[i].date_last_updated",False,date_last_updated)
    last_updated = jResp.StringOf("results[i].last_updated")
    comments = jResp.StringOf("results[i].comments")
    pack_id = jResp.StringOf("results[i].pack_id")
    couponAmount = jResp.IntOf("results[i].coupon.amount")
    couponId = jResp.StringOf("results[i].coupon.id")
    shipping_cost = jResp.IntOf("results[i].shipping_cost")
    success = jResp.DtOf("results[i].date_created",False,date_created)
    application_id = jResp.StringOf("results[i].application_id")
    pickup_id = jResp.StringOf("results[i].pickup_id")
    status_detail = jResp.StringOf("results[i].status_detail")
    buyerBilling_infoDoc_number = jResp.StringOf("results[i].buyer.billing_info.doc_number")
    buyerBilling_infoDoc_type = jResp.StringOf("results[i].buyer.billing_info.doc_type")
    buyerPhoneNumber = jResp.StringOf("results[i].buyer.phone.number")
    buyerPhoneExtension = jResp.StringOf("results[i].buyer.phone.extension")
    buyerPhoneArea_code = jResp.StringOf("results[i].buyer.phone.area_code")
    buyerPhoneVerified = jResp.BoolOf("results[i].buyer.phone.verified")
    buyerAlternative_phoneNumber = jResp.StringOf("results[i].buyer.alternative_phone.number")
    buyerAlternative_phoneExtension = jResp.StringOf("results[i].buyer.alternative_phone.extension")
    buyerAlternative_phoneArea_code = jResp.StringOf("results[i].buyer.alternative_phone.area_code")
    buyerNickname = jResp.StringOf("results[i].buyer.nickname")
    buyerLast_name = jResp.StringOf("results[i].buyer.last_name")
    buyerId = jResp.IntOf("results[i].buyer.id")
    buyerFirst_name = jResp.StringOf("results[i].buyer.first_name")
    buyerEmail = jResp.StringOf("results[i].buyer.email")
    total_amount = jResp.StringOf("results[i].total_amount")
    paid_amount = jResp.StringOf("results[i].paid_amount")
    currency_id = jResp.StringOf("results[i].currency_id")
    status = jResp.StringOf("results[i].status")
    j = 0
    count_j = jResp.SizeOfArray("results[i].payments")
    While j < count_j
        jResp.J = j
        reason = jResp.StringOf("results[i].payments[j].reason")
        status_code = jResp.StringOf("results[i].payments[j].status_code")
        total_paid_amount = jResp.StringOf("results[i].payments[j].total_paid_amount")
        operation_type = jResp.StringOf("results[i].payments[j].operation_type")
        transaction_amount = jResp.StringOf("results[i].payments[j].transaction_amount")
        success = jResp.DtOf("results[i].payments[j].date_approved",False,date_approved)
        collectorId = jResp.IntOf("results[i].payments[j].collector.id")
        coupon_id = jResp.StringOf("results[i].payments[j].coupon_id")
        installments = jResp.IntOf("results[i].payments[j].installments")
        authorization_code = jResp.StringOf("results[i].payments[j].authorization_code")
        taxes_amount = jResp.IntOf("results[i].payments[j].taxes_amount")
        id = jResp.IntOf("results[i].payments[j].id")
        success = jResp.DtOf("results[i].payments[j].date_last_modified",False,date_last_modified)
        coupon_amount = jResp.IntOf("results[i].payments[j].coupon_amount")
        shipping_cost = jResp.IntOf("results[i].payments[j].shipping_cost")
        installment_amount = jResp.StringOf("results[i].payments[j].installment_amount")
        success = jResp.DtOf("results[i].payments[j].date_created",False,date_created)
        activation_uri = jResp.StringOf("results[i].payments[j].activation_uri")
        overpaid_amount = jResp.IntOf("results[i].payments[j].overpaid_amount")
        card_id = jResp.IntOf("results[i].payments[j].card_id")
        status_detail = jResp.StringOf("results[i].payments[j].status_detail")
        issuer_id = jResp.StringOf("results[i].payments[j].issuer_id")
        payment_method_id = jResp.StringOf("results[i].payments[j].payment_method_id")
        payment_type = jResp.StringOf("results[i].payments[j].payment_type")
        deferred_period = jResp.StringOf("results[i].payments[j].deferred_period")
        atm_transfer_referenceTransaction_id = jResp.StringOf("results[i].payments[j].atm_transfer_reference.transaction_id")
        atm_transfer_referenceCompany_id = jResp.StringOf("results[i].payments[j].atm_transfer_reference.company_id")
        site_id = jResp.StringOf("results[i].payments[j].site_id")
        payer_id = jResp.IntOf("results[i].payments[j].payer_id")
        marketplace_fee = jResp.StringOf("results[i].payments[j].marketplace_fee")
        order_id = jResp.IntOf("results[i].payments[j].order_id")
        currency_id = jResp.StringOf("results[i].payments[j].currency_id")
        status = jResp.StringOf("results[i].payments[j].status")
        transaction_order_id = jResp.StringOf("results[i].payments[j].transaction_order_id")
        k = 0
        count_k = jResp.SizeOfArray("results[i].payments[j].available_actions")
        While k < count_k
            jResp.K = k
            strVal = jResp.StringOf("results[i].payments[j].available_actions[k]")
            k = k + 1
        Wend
        j = j + 1
    Wend
    j = 0
    count_j = jResp.SizeOfArray("results[i].order_items")
    While j < count_j
        jResp.J = j
        itemSeller_custom_field = jResp.StringOf("results[i].order_items[j].item.seller_custom_field")
        itemCondition = jResp.StringOf("results[i].order_items[j].item.condition")
        itemCategory_id = jResp.StringOf("results[i].order_items[j].item.category_id")
        itemVariation_id = jResp.StringOf("results[i].order_items[j].item.variation_id")
        itemSeller_sku = jResp.StringOf("results[i].order_items[j].item.seller_sku")
        itemWarranty = jResp.StringOf("results[i].order_items[j].item.warranty")
        itemId = jResp.StringOf("results[i].order_items[j].item.id")
        itemTitle = jResp.StringOf("results[i].order_items[j].item.title")
        quantity = jResp.IntOf("results[i].order_items[j].quantity")
        differential_pricing_id = jResp.StringOf("results[i].order_items[j].differential_pricing_id")
        sale_fee = jResp.StringOf("results[i].order_items[j].sale_fee")
        listing_type_id = jResp.StringOf("results[i].order_items[j].listing_type_id")
        base_currency_id = jResp.StringOf("results[i].order_items[j].base_currency_id")
        unit_price = jResp.StringOf("results[i].order_items[j].unit_price")
        full_unit_price = jResp.StringOf("results[i].order_items[j].full_unit_price")
        base_exchange_rate = jResp.StringOf("results[i].order_items[j].base_exchange_rate")
        currency_id = jResp.StringOf("results[i].order_items[j].currency_id")
        manufacturing_days = jResp.StringOf("results[i].order_items[j].manufacturing_days")
        k = 0
        count_k = jResp.SizeOfArray("results[i].order_items[j].item.variation_attributes")
        While k < count_k
            jResp.K = k
            k = k + 1
        Wend
        j = j + 1
    Wend
    j = 0
    count_j = jResp.SizeOfArray("results[i].tags")
    While j < count_j
        jResp.J = j
        strVal = jResp.StringOf("results[i].tags[j]")
        j = j + 1
    Wend
    j = 0
    count_j = jResp.SizeOfArray("results[i].mediations")
    While j < count_j
        jResp.J = j
        j = j + 1
    Wend
    i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("available_sorts")
While i < count_i
    jResp.I = i
    id_str = jResp.StringOf("available_sorts[i].id")
    name = jResp.StringOf("available_sorts[i].name")
    i = i + 1
Wend
i = 0
count_i = jResp.SizeOfArray("filters")
While i < count_i
    jResp.I = i
    i = i + 1
Wend