|
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
(VBScript) 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
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http") set http = CreateObject("Chilkat.Http") ' First get our previously obtained OAuth2 access token. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") 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") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") 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 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") 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 ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.DtObj") set date_closed = CreateObject("Chilkat.DtObj") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.DtObj") set date_last_updated = CreateObject("Chilkat.DtObj") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.DtObj") set date_created = CreateObject("Chilkat.DtObj") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.DtObj") set date_approved = CreateObject("Chilkat.DtObj") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.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 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.