DataFlex
DataFlex
MercadoLibre - Search Orders from a Buyer
See more MercadoLibre Examples
Search for orders from a buyer.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoHttp
Handle hoJsonToken
Variant vSbResponseBody
Handle hoSbResponseBody
Handle hoJResp
Integer iRespStatusCode
Variant vDate_closed
Handle hoDate_closed
Variant vDate_last_updated
Handle hoDate_last_updated
Variant vDate_created
Handle hoDate_created
Variant vDate_approved
Handle hoDate_approved
Variant vDate_last_modified
Handle hoDate_last_modified
String sSellerPhoneNumber
String sSellerPhoneExtension
String sSellerPhoneArea_code
Boolean iSellerPhoneVerified
String sSellerAlternative_phoneNumber
String sSellerAlternative_phoneExtension
String sSellerAlternative_phoneArea_code
String sSellerNickname
String sSellerLast_name
Integer iSellerId
String sSellerFirst_name
String sSellerEmail
Boolean iFulfilled
String sBuying_mode
String sTaxesAmount
String sTaxesCurrency_id
String sOrder_requestChange
String sOrder_requestReturn
String sExpiration_date
String sFeedbackSale
String sFeedbackPurchase
Integer iShippingId
Integer iId
String sManufacturing_ending_date
Boolean iHidden_for_seller
String sLast_updated
String sComments
String sPack_id
Integer iCouponAmount
String sCouponId
Integer iShipping_cost
String sApplication_id
String sPickup_id
String sStatus_detail
String sBuyerBilling_infoDoc_number
String sBuyerBilling_infoDoc_type
String sBuyerPhoneNumber
String sBuyerPhoneExtension
String sBuyerPhoneArea_code
Boolean iBuyerPhoneVerified
String sBuyerAlternative_phoneNumber
String sBuyerAlternative_phoneExtension
String sBuyerAlternative_phoneArea_code
String sBuyerNickname
String sBuyerLast_name
Integer iBuyerId
String sBuyerFirst_name
String sBuyerEmail
String sTotal_amount
String sPaid_amount
String sCurrency_id
String sStatus
Integer j
Integer iCount_j
String sReason
String sStatus_code
String sTotal_paid_amount
String sOperation_type
String sTransaction_amount
Integer iCollectorId
String sCoupon_id
Integer iInstallments
String sAuthorization_code
Integer iTaxes_amount
Integer iCoupon_amount
String sInstallment_amount
String sActivation_uri
Integer iOverpaid_amount
Integer iCard_id
String sIssuer_id
String sPayment_method_id
String sPayment_type
String sDeferred_period
String sAtm_transfer_referenceTransaction_id
String sAtm_transfer_referenceCompany_id
String sSite_id
Integer iPayer_id
String sMarketplace_fee
Integer iOrder_id
String sTransaction_order_id
Integer k
Integer iCount_k
String sStrVal
String sItemSeller_custom_field
String sItemCondition
String sItemCategory_id
String sItemVariation_id
String sItemSeller_sku
String sItemWarranty
String sItemId
String sItemTitle
Integer iQuantity
String sDifferential_pricing_id
String sSale_fee
String sListing_type_id
String sBase_currency_id
String sUnit_price
String sFull_unit_price
String sBase_exchange_rate
String sManufacturing_days
String sId_str
String sName
String sQuery
String sSortId
String sSortName
Integer iPagingTotal
Integer iPagingOffset
Integer iPagingLimit
String sDisplay
Integer i
Integer iCount_i
String sTemp1
Move False To iSuccess
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatHttp)) To hoHttp
If (Not(IsComObjectCreated(hoHttp))) Begin
Send CreateComObject of hoHttp
End
// First get our previously obtained OAuth2 access token.
Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
If (Not(IsComObjectCreated(hoJsonToken))) Begin
Send CreateComObject of hoJsonToken
End
Get ComLoadFile Of hoJsonToken "qa_data/tokens/mercadolibre.json" To iSuccess
// 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
Get ComStringOf Of hoJsonToken "access_token" To sTemp1
Get ComSetUrlVar Of hoHttp "access_token" sTemp1 To iSuccess
// Use an actual buyer ID here..
Get ComSetUrlVar Of hoHttp "buyer_id" "577815702" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
Send CreateComObject of hoSbResponseBody
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComQuickGetSb Of hoHttp "https://api.mercadolibre.com/orders/search?buyer={$buyer_id}&access_token={$access_token}" vSbResponseBody To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoHttp To sTemp1
Showln sTemp1
Showln "Response Header:"
Get ComLastHeader Of hoHttp To sTemp1
Showln sTemp1
Showln "----"
Showln "Response Body:"
Get ComGetAsString Of hoSbResponseBody To sTemp1
Showln sTemp1
Showln "Failed."
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJResp
If (Not(IsComObjectCreated(hoJResp))) Begin
Send CreateComObject of hoJResp
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess
Set ComEmitCompact Of hoJResp To False
Showln "Response Body:"
Get ComEmit Of hoJResp To sTemp1
Showln sTemp1
Get ComLastStatus Of hoHttp To iRespStatusCode
Showln "Response Status Code = " iRespStatusCode
If (iRespStatusCode >= 400) Begin
Showln "Response Header:"
Get ComLastHeader Of hoHttp To sTemp1
Showln sTemp1
Showln "----"
Showln "Response Body:"
Get ComGetAsString Of hoSbResponseBody To sTemp1
Showln sTemp1
Showln "Failed."
Procedure_Return
End
// 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
Get Create (RefClass(cComChilkatDtObj)) To hoDate_closed
If (Not(IsComObjectCreated(hoDate_closed))) Begin
Send CreateComObject of hoDate_closed
End
Get Create (RefClass(cComChilkatDtObj)) To hoDate_last_updated
If (Not(IsComObjectCreated(hoDate_last_updated))) Begin
Send CreateComObject of hoDate_last_updated
End
Get Create (RefClass(cComChilkatDtObj)) To hoDate_created
If (Not(IsComObjectCreated(hoDate_created))) Begin
Send CreateComObject of hoDate_created
End
Get Create (RefClass(cComChilkatDtObj)) To hoDate_approved
If (Not(IsComObjectCreated(hoDate_approved))) Begin
Send CreateComObject of hoDate_approved
End
Get Create (RefClass(cComChilkatDtObj)) To hoDate_last_modified
If (Not(IsComObjectCreated(hoDate_last_modified))) Begin
Send CreateComObject of hoDate_last_modified
End
Get ComStringOf Of hoJResp "query" To sQuery
Get ComStringOf Of hoJResp "sort.id" To sSortId
Get ComStringOf Of hoJResp "sort.name" To sSortName
Get ComIntOf Of hoJResp "paging.total" To iPagingTotal
Get ComIntOf Of hoJResp "paging.offset" To iPagingOffset
Get ComIntOf Of hoJResp "paging.limit" To iPagingLimit
Get ComStringOf Of hoJResp "display" To sDisplay
Move 0 To i
Get ComSizeOfArray Of hoJResp "results" To iCount_i
While (i < iCount_i)
Set ComI Of hoJResp To i
Get ComStringOf Of hoJResp "results[i].seller.phone.number" To sSellerPhoneNumber
Get ComStringOf Of hoJResp "results[i].seller.phone.extension" To sSellerPhoneExtension
Get ComStringOf Of hoJResp "results[i].seller.phone.area_code" To sSellerPhoneArea_code
Get ComBoolOf Of hoJResp "results[i].seller.phone.verified" To iSellerPhoneVerified
Get ComStringOf Of hoJResp "results[i].seller.alternative_phone.number" To sSellerAlternative_phoneNumber
Get ComStringOf Of hoJResp "results[i].seller.alternative_phone.extension" To sSellerAlternative_phoneExtension
Get ComStringOf Of hoJResp "results[i].seller.alternative_phone.area_code" To sSellerAlternative_phoneArea_code
Get ComStringOf Of hoJResp "results[i].seller.nickname" To sSellerNickname
Get ComStringOf Of hoJResp "results[i].seller.last_name" To sSellerLast_name
Get ComIntOf Of hoJResp "results[i].seller.id" To iSellerId
Get ComStringOf Of hoJResp "results[i].seller.first_name" To sSellerFirst_name
Get ComStringOf Of hoJResp "results[i].seller.email" To sSellerEmail
Get ComBoolOf Of hoJResp "results[i].fulfilled" To iFulfilled
Get ComStringOf Of hoJResp "results[i].buying_mode" To sBuying_mode
Get ComStringOf Of hoJResp "results[i].taxes.amount" To sTaxesAmount
Get ComStringOf Of hoJResp "results[i].taxes.currency_id" To sTaxesCurrency_id
Get ComStringOf Of hoJResp "results[i].order_request.change" To sOrder_requestChange
Get ComStringOf Of hoJResp "results[i].order_request.return" To sOrder_requestReturn
Get ComStringOf Of hoJResp "results[i].expiration_date" To sExpiration_date
Get ComStringOf Of hoJResp "results[i].feedback.sale" To sFeedbackSale
Get ComStringOf Of hoJResp "results[i].feedback.purchase" To sFeedbackPurchase
Get ComIntOf Of hoJResp "results[i].shipping.id" To iShippingId
Get pvComObject of hoDate_closed to vDate_closed
Get ComDtOf Of hoJResp "results[i].date_closed" False vDate_closed To iSuccess
Get ComIntOf Of hoJResp "results[i].id" To iId
Get ComStringOf Of hoJResp "results[i].manufacturing_ending_date" To sManufacturing_ending_date
Get ComBoolOf Of hoJResp "results[i].hidden_for_seller" To iHidden_for_seller
Get pvComObject of hoDate_last_updated to vDate_last_updated
Get ComDtOf Of hoJResp "results[i].date_last_updated" False vDate_last_updated To iSuccess
Get ComStringOf Of hoJResp "results[i].last_updated" To sLast_updated
Get ComStringOf Of hoJResp "results[i].comments" To sComments
Get ComStringOf Of hoJResp "results[i].pack_id" To sPack_id
Get ComIntOf Of hoJResp "results[i].coupon.amount" To iCouponAmount
Get ComStringOf Of hoJResp "results[i].coupon.id" To sCouponId
Get ComIntOf Of hoJResp "results[i].shipping_cost" To iShipping_cost
Get pvComObject of hoDate_created to vDate_created
Get ComDtOf Of hoJResp "results[i].date_created" False vDate_created To iSuccess
Get ComStringOf Of hoJResp "results[i].application_id" To sApplication_id
Get ComStringOf Of hoJResp "results[i].pickup_id" To sPickup_id
Get ComStringOf Of hoJResp "results[i].status_detail" To sStatus_detail
Get ComStringOf Of hoJResp "results[i].buyer.billing_info.doc_number" To sBuyerBilling_infoDoc_number
Get ComStringOf Of hoJResp "results[i].buyer.billing_info.doc_type" To sBuyerBilling_infoDoc_type
Get ComStringOf Of hoJResp "results[i].buyer.phone.number" To sBuyerPhoneNumber
Get ComStringOf Of hoJResp "results[i].buyer.phone.extension" To sBuyerPhoneExtension
Get ComStringOf Of hoJResp "results[i].buyer.phone.area_code" To sBuyerPhoneArea_code
Get ComBoolOf Of hoJResp "results[i].buyer.phone.verified" To iBuyerPhoneVerified
Get ComStringOf Of hoJResp "results[i].buyer.alternative_phone.number" To sBuyerAlternative_phoneNumber
Get ComStringOf Of hoJResp "results[i].buyer.alternative_phone.extension" To sBuyerAlternative_phoneExtension
Get ComStringOf Of hoJResp "results[i].buyer.alternative_phone.area_code" To sBuyerAlternative_phoneArea_code
Get ComStringOf Of hoJResp "results[i].buyer.nickname" To sBuyerNickname
Get ComStringOf Of hoJResp "results[i].buyer.last_name" To sBuyerLast_name
Get ComIntOf Of hoJResp "results[i].buyer.id" To iBuyerId
Get ComStringOf Of hoJResp "results[i].buyer.first_name" To sBuyerFirst_name
Get ComStringOf Of hoJResp "results[i].buyer.email" To sBuyerEmail
Get ComStringOf Of hoJResp "results[i].total_amount" To sTotal_amount
Get ComStringOf Of hoJResp "results[i].paid_amount" To sPaid_amount
Get ComStringOf Of hoJResp "results[i].currency_id" To sCurrency_id
Get ComStringOf Of hoJResp "results[i].status" To sStatus
Move 0 To j
Get ComSizeOfArray Of hoJResp "results[i].payments" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "results[i].payments[j].reason" To sReason
Get ComStringOf Of hoJResp "results[i].payments[j].status_code" To sStatus_code
Get ComStringOf Of hoJResp "results[i].payments[j].total_paid_amount" To sTotal_paid_amount
Get ComStringOf Of hoJResp "results[i].payments[j].operation_type" To sOperation_type
Get ComStringOf Of hoJResp "results[i].payments[j].transaction_amount" To sTransaction_amount
Get pvComObject of hoDate_approved to vDate_approved
Get ComDtOf Of hoJResp "results[i].payments[j].date_approved" False vDate_approved To iSuccess
Get ComIntOf Of hoJResp "results[i].payments[j].collector.id" To iCollectorId
Get ComStringOf Of hoJResp "results[i].payments[j].coupon_id" To sCoupon_id
Get ComIntOf Of hoJResp "results[i].payments[j].installments" To iInstallments
Get ComStringOf Of hoJResp "results[i].payments[j].authorization_code" To sAuthorization_code
Get ComIntOf Of hoJResp "results[i].payments[j].taxes_amount" To iTaxes_amount
Get ComIntOf Of hoJResp "results[i].payments[j].id" To iId
Get pvComObject of hoDate_last_modified to vDate_last_modified
Get ComDtOf Of hoJResp "results[i].payments[j].date_last_modified" False vDate_last_modified To iSuccess
Get ComIntOf Of hoJResp "results[i].payments[j].coupon_amount" To iCoupon_amount
Get ComIntOf Of hoJResp "results[i].payments[j].shipping_cost" To iShipping_cost
Get ComStringOf Of hoJResp "results[i].payments[j].installment_amount" To sInstallment_amount
Get pvComObject of hoDate_created to vDate_created
Get ComDtOf Of hoJResp "results[i].payments[j].date_created" False vDate_created To iSuccess
Get ComStringOf Of hoJResp "results[i].payments[j].activation_uri" To sActivation_uri
Get ComIntOf Of hoJResp "results[i].payments[j].overpaid_amount" To iOverpaid_amount
Get ComIntOf Of hoJResp "results[i].payments[j].card_id" To iCard_id
Get ComStringOf Of hoJResp "results[i].payments[j].status_detail" To sStatus_detail
Get ComStringOf Of hoJResp "results[i].payments[j].issuer_id" To sIssuer_id
Get ComStringOf Of hoJResp "results[i].payments[j].payment_method_id" To sPayment_method_id
Get ComStringOf Of hoJResp "results[i].payments[j].payment_type" To sPayment_type
Get ComStringOf Of hoJResp "results[i].payments[j].deferred_period" To sDeferred_period
Get ComStringOf Of hoJResp "results[i].payments[j].atm_transfer_reference.transaction_id" To sAtm_transfer_referenceTransaction_id
Get ComStringOf Of hoJResp "results[i].payments[j].atm_transfer_reference.company_id" To sAtm_transfer_referenceCompany_id
Get ComStringOf Of hoJResp "results[i].payments[j].site_id" To sSite_id
Get ComIntOf Of hoJResp "results[i].payments[j].payer_id" To iPayer_id
Get ComStringOf Of hoJResp "results[i].payments[j].marketplace_fee" To sMarketplace_fee
Get ComIntOf Of hoJResp "results[i].payments[j].order_id" To iOrder_id
Get ComStringOf Of hoJResp "results[i].payments[j].currency_id" To sCurrency_id
Get ComStringOf Of hoJResp "results[i].payments[j].status" To sStatus
Get ComStringOf Of hoJResp "results[i].payments[j].transaction_order_id" To sTransaction_order_id
Move 0 To k
Get ComSizeOfArray Of hoJResp "results[i].payments[j].available_actions" To iCount_k
While (k < iCount_k)
Set ComK Of hoJResp To k
Get ComStringOf Of hoJResp "results[i].payments[j].available_actions[k]" To sStrVal
Move (k + 1) To k
Loop
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "results[i].order_items" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "results[i].order_items[j].item.seller_custom_field" To sItemSeller_custom_field
Get ComStringOf Of hoJResp "results[i].order_items[j].item.condition" To sItemCondition
Get ComStringOf Of hoJResp "results[i].order_items[j].item.category_id" To sItemCategory_id
Get ComStringOf Of hoJResp "results[i].order_items[j].item.variation_id" To sItemVariation_id
Get ComStringOf Of hoJResp "results[i].order_items[j].item.seller_sku" To sItemSeller_sku
Get ComStringOf Of hoJResp "results[i].order_items[j].item.warranty" To sItemWarranty
Get ComStringOf Of hoJResp "results[i].order_items[j].item.id" To sItemId
Get ComStringOf Of hoJResp "results[i].order_items[j].item.title" To sItemTitle
Get ComIntOf Of hoJResp "results[i].order_items[j].quantity" To iQuantity
Get ComStringOf Of hoJResp "results[i].order_items[j].differential_pricing_id" To sDifferential_pricing_id
Get ComStringOf Of hoJResp "results[i].order_items[j].sale_fee" To sSale_fee
Get ComStringOf Of hoJResp "results[i].order_items[j].listing_type_id" To sListing_type_id
Get ComStringOf Of hoJResp "results[i].order_items[j].base_currency_id" To sBase_currency_id
Get ComStringOf Of hoJResp "results[i].order_items[j].unit_price" To sUnit_price
Get ComStringOf Of hoJResp "results[i].order_items[j].full_unit_price" To sFull_unit_price
Get ComStringOf Of hoJResp "results[i].order_items[j].base_exchange_rate" To sBase_exchange_rate
Get ComStringOf Of hoJResp "results[i].order_items[j].currency_id" To sCurrency_id
Get ComStringOf Of hoJResp "results[i].order_items[j].manufacturing_days" To sManufacturing_days
Move 0 To k
Get ComSizeOfArray Of hoJResp "results[i].order_items[j].item.variation_attributes" To iCount_k
While (k < iCount_k)
Set ComK Of hoJResp To k
Move (k + 1) To k
Loop
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "results[i].tags" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Get ComStringOf Of hoJResp "results[i].tags[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJResp "results[i].mediations" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJResp To j
Move (j + 1) To j
Loop
Move (i + 1) To i
Loop
Move 0 To i
Get ComSizeOfArray Of hoJResp "available_sorts" To iCount_i
While (i < iCount_i)
Set ComI Of hoJResp To i
Get ComStringOf Of hoJResp "available_sorts[i].id" To sId_str
Get ComStringOf Of hoJResp "available_sorts[i].name" To sName
Move (i + 1) To i
Loop
Move 0 To i
Get ComSizeOfArray Of hoJResp "filters" To iCount_i
While (i < iCount_i)
Set ComI Of hoJResp To i
Move (i + 1) To i
Loop
End_Procedure