VBScript
VBScript
MercadoLibre - Search Orders from a Buyer
See more MercadoLibre Examples
Search for orders from a buyer.Chilkat VBScript Downloads
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)
success = 0
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = CreateObject("Chilkat.Http")
' First get our previously obtained OAuth2 access token.
set jsonToken = CreateObject("Chilkat.JsonObject")
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")
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://api.mercadolibre.com/orders/search?buyer={$buyer_id}&access_token={$access_token}",sbResponseBody)
If (success = 0) Then
outFile.WriteLine(http.LastErrorText)
outFile.WriteLine("Response Header:")
outFile.WriteLine(http.LastHeader)
outFile.WriteLine("----")
outFile.WriteLine("Response Body:")
outFile.WriteLine(sbResponseBody.GetAsString())
outFile.WriteLine("Failed.")
WScript.Quit
End If
set jResp = CreateObject("Chilkat.JsonObject")
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
outFile.WriteLine("Response Body:")
outFile.WriteLine(jResp.Emit())
respStatusCode = http.LastStatus
outFile.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
outFile.WriteLine("Response Header:")
outFile.WriteLine(http.LastHeader)
outFile.WriteLine("----")
outFile.WriteLine("Response Body:")
outFile.WriteLine(sbResponseBody.GetAsString())
outFile.WriteLine("Failed.")
WScript.Quit
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
set date_closed = CreateObject("Chilkat.DtObj")
set date_last_updated = CreateObject("Chilkat.DtObj")
set date_created = CreateObject("Chilkat.DtObj")
set date_approved = CreateObject("Chilkat.DtObj")
set date_last_modified = CreateObject("Chilkat.DtObj")
query = jResp.StringOf("query")
sortId = jResp.StringOf("sort.id")
sortName = jResp.StringOf("sort.name")
pagingTotal = jResp.IntOf("paging.total")
pagingOffset = jResp.IntOf("paging.offset")
pagingLimit = jResp.IntOf("paging.limit")
display = jResp.StringOf("display")
i = 0
count_i = jResp.SizeOfArray("results")
Do 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",0,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",0,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",0,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")
Do 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",0,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",0,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",0,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")
Do While k < count_k
jResp.K = k
strVal = jResp.StringOf("results[i].payments[j].available_actions[k]")
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("results[i].order_items")
Do 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")
Do While k < count_k
jResp.K = k
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("results[i].tags")
Do While j < count_j
jResp.J = j
strVal = jResp.StringOf("results[i].tags[j]")
j = j + 1
Loop
j = 0
count_j = jResp.SizeOfArray("results[i].mediations")
Do While j < count_j
jResp.J = j
j = j + 1
Loop
i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("available_sorts")
Do 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
Loop
i = 0
count_i = jResp.SizeOfArray("filters")
Do While i < count_i
jResp.I = i
i = i + 1
Loop
outFile.Close