Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) MercadoLibre - Search Orders from a BuyerSearch for orders from a buyer. For more information, see https://developers.mercadolibre.com.ar/es_ar/gestiona-ventas#Como-filtrar
' 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 = 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 http.SetUrlVar("access_token",jsonToken.StringOf("access_token")) ' Use an actual buyer ID here.. 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 Debug.WriteLine(http.LastErrorText) Debug.WriteLine("Response Header:") Debug.WriteLine(http.LastHeader) Debug.WriteLine("----") Debug.WriteLine("Response Body:") Debug.WriteLine(sbResponseBody.GetAsString()) Debug.WriteLine("Failed.") Exit Sub End If Dim jResp As New Chilkat.JsonObject jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = http.LastStatus Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(http.LastHeader) Debug.WriteLine("----") Debug.WriteLine("Response Body:") Debug.WriteLine(sbResponseBody.GetAsString()) Debug.WriteLine("Failed.") Exit Sub 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 Integer 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 Integer Dim id As Integer 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 Integer Dim couponId As String Dim shipping_cost As Integer 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 Integer 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 Integer Dim count_j As Integer 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 Integer Dim coupon_id As String Dim installments As Integer Dim authorization_code As String Dim taxes_amount As Integer Dim coupon_amount As Integer Dim installment_amount As String Dim activation_uri As String Dim overpaid_amount As Integer Dim card_id As Integer 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 Integer Dim marketplace_fee As String Dim order_id As Integer Dim transaction_order_id As String Dim k As Integer Dim count_k As Integer 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 Integer 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 = jResp.StringOf("query") Dim sortId As String = jResp.StringOf("sort.id") Dim sortName As String = jResp.StringOf("sort.name") Dim pagingTotal As Integer = jResp.IntOf("paging.total") Dim pagingOffset As Integer = jResp.IntOf("paging.offset") Dim pagingLimit As Integer = jResp.IntOf("paging.limit") Dim display As String = jResp.StringOf("display") Dim i As Integer = 0 Dim count_i As Integer = 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") 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") 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") 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") 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") 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") 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 End While j = j + 1 End While 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 End While j = j + 1 End While 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 End While j = 0 count_j = jResp.SizeOfArray("results[i].mediations") While j < count_j jResp.J = j j = j + 1 End While i = i + 1 End While 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 End While i = 0 count_i = jResp.SizeOfArray("filters") While i < count_i jResp.I = i i = i + 1 End While |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.