B4X

Ecwid - Create Order

See more Ecwid Examples

Create a new order in an Ecwid store. This can be useful for storefronts with a custom checkout process or manually creating orders for sales made earlier. B4X

Dim success As Boolean = False

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

'  Create and send the following HTTP request:

'  Load the access token previously obtained in Ecwid Get Access Token
Dim jsonToken As ChilkatJsonObject
jsonToken.Initialize
jsonToken.LoadFile("qa_data/tokens/ecwid.json")

Dim sbUrl As ChilkatStringBuilder
sbUrl.Initialize
sbUrl.Append("https://app.ecwid.com/api/v3/4870020/orders?token=")
sbUrl.Append(jsonToken.StringOf("access_token"))

'  POST /api/v3/4870020/orders?token=1234567890qwqeertt HTTP/1.1
'  Host: app.ecwid.com
'  Content-Type: application/json;charset=utf-8
'  Cache-Control: no-cache
'  
'  {
'          "subtotal": 30,
'          "total": 40,
'          "email": "example@example.com",
'          "paymentMethod": "Phone order",
'          "tax": 0,
'          "paymentStatus": "PAID",
'          "customerTaxExempt": false,
'          "customerTaxId": "",
'          "customerTaxIdValid": false,
'          "reversedTaxApplied": false,
'          "fulfillmentStatus": "AWAITING_PROCESSING",
'          "createDate": "2015-09-20 19:59:43 +0000",
'          "items": [
'              {
'                  "price": 15,
'                  "weight": 0.32,
'                  "sku": "00004",
'                  "quantity": 2,
'                  "name": "Cherry"
'              }
'          ],
'          "billingPerson": {
'              "name": "Eugene K",
'              "companyName": "Hedgehog and Bucket",
'              "street": "My Street",
'              "city": "San Diego",
'              "countryCode": "US",
'              "postalCode": "90002",
'              "stateOrProvinceCode": "CA",
'              "phone": "123141321"
'          },
'          "shippingPerson": {
'              "name": "Eugene K",
'              "companyName": "Hedgehog and Bucket",
'              "street": "My Street",
'              "city": "San Diego",
'              "countryCode": "US",
'              "postalCode": "90002",
'              "stateOrProvinceCode": "CA",
'              "phone": "123141321"
'          },
'          "shippingOption": {
'              "shippingMethodName": "Fast Delivery",
'              "shippingRate": 10,
'              "isPickup": false,
'              "fulfilmentType": "DELIVERY"
'          },
'          "hidden": false,
'          "privateAdminNotes": "Must be delivered till Sunday.",
'          "acceptMarketing": false,
'          "disableAllCustomerNotifications": true,
'          "externalFulfillment": true,
'          "externalOrderId": "2",
'          "pricesIncludeTax": false  
'      }

Dim http As ChilkatHttp
http.Initialize("http")
http.SetRequestHeader("Cache-Control", "no-cache")

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateInt("subtotal", 30)
json.UpdateInt("total", 40)
json.UpdateString("email", "example@example.com")
json.UpdateString("paymentMethod", "Phone order")
json.UpdateInt("tax", 0)
json.UpdateString("paymentStatus", "PAID")
json.UpdateBool("customerTaxExempt", False)
json.UpdateString("customerTaxId", "")
json.UpdateBool("customerTaxIdValid", False)
json.UpdateBool("reversedTaxApplied", False)
json.UpdateString("fulfillmentStatus", "AWAITING_PROCESSING")
json.UpdateString("createDate", "2015-09-20 19:59:43 +0000")
json.UpdateInt("items[0].price", 15)
json.UpdateNumber("items[0].weight", "0.32")
json.UpdateString("items[0].sku", "00004")
json.UpdateInt("items[0].quantity", 2)
json.UpdateString("items[0].name", "Cherry")
json.UpdateString("billingPerson.name", "Eugene K")
json.UpdateString("billingPerson.companyName", "Hedgehog and Bucket")
json.UpdateString("billingPerson.street", "My Street")
json.UpdateString("billingPerson.city", "San Diego")
json.UpdateString("billingPerson.countryCode", "US")
json.UpdateString("billingPerson.postalCode", "90002")
json.UpdateString("billingPerson.stateOrProvinceCode", "CA")
json.UpdateString("billingPerson.phone", "123141321")
json.UpdateString("shippingPerson.name", "Eugene K")
json.UpdateString("shippingPerson.companyName", "Hedgehog and Bucket")
json.UpdateString("shippingPerson.street", "My Street")
json.UpdateString("shippingPerson.city", "San Diego")
json.UpdateString("shippingPerson.countryCode", "US")
json.UpdateString("shippingPerson.postalCode", "90002")
json.UpdateString("shippingPerson.stateOrProvinceCode", "CA")
json.UpdateString("shippingPerson.phone", "123141321")
json.UpdateString("shippingOption.shippingMethodName", "Fast Delivery")
json.UpdateInt("shippingOption.shippingRate", 10)
json.UpdateBool("shippingOption.isPickup", False)
json.UpdateString("shippingOption.fulfilmentType", "DELIVERY")
json.UpdateBool("hidden", False)
json.UpdateString("privateAdminNotes", "Must be delivered till Sunday.")
json.UpdateBool("acceptMarketing", False)
json.UpdateBool("disableAllCustomerNotifications", True)
json.UpdateBool("externalFulfillment", True)
json.UpdateString("externalOrderId", "2")
json.UpdateBool("pricesIncludeTax", False)

Dim url As String = sbUrl.GetAsString
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", url, json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("Response status code = " & resp.StatusCode)

Dim sbResponseBody As ChilkatStringBuilder
sbResponseBody.Initialize
resp.GetBodySb(sbResponseBody)
Dim jResp As ChilkatJsonObject
jResp.Initialize
jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = False

Log("Response Body:")
Log(jResp.Emit)

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

'  {
'    "id": 20,
'    "orderid": "XJ12H"
'  }

'  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 id As Int = jResp.IntOf("id")
Dim orderid As String = jResp.StringOf("orderid")