VBScript
VBScript
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.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.
' Create and send the following HTTP request:
' Load the access token previously obtained in Ecwid Get Access Token
set jsonToken = CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/ecwid.json")
set sbUrl = CreateObject("Chilkat.StringBuilder")
success = sbUrl.Append("https://app.ecwid.com/api/v3/4870020/orders?token=")
success = 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
' }
set http = CreateObject("Chilkat.Http")
http.SetRequestHeader "Cache-Control","no-cache"
set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateInt("subtotal",30)
success = json.UpdateInt("total",40)
success = json.UpdateString("email","example@example.com")
success = json.UpdateString("paymentMethod","Phone order")
success = json.UpdateInt("tax",0)
success = json.UpdateString("paymentStatus","PAID")
success = json.UpdateBool("customerTaxExempt",0)
success = json.UpdateString("customerTaxId","")
success = json.UpdateBool("customerTaxIdValid",0)
success = json.UpdateBool("reversedTaxApplied",0)
success = json.UpdateString("fulfillmentStatus","AWAITING_PROCESSING")
success = json.UpdateString("createDate","2015-09-20 19:59:43 +0000")
success = json.UpdateInt("items[0].price",15)
success = json.UpdateNumber("items[0].weight","0.32")
success = json.UpdateString("items[0].sku","00004")
success = json.UpdateInt("items[0].quantity",2)
success = json.UpdateString("items[0].name","Cherry")
success = json.UpdateString("billingPerson.name","Eugene K")
success = json.UpdateString("billingPerson.companyName","Hedgehog and Bucket")
success = json.UpdateString("billingPerson.street","My Street")
success = json.UpdateString("billingPerson.city","San Diego")
success = json.UpdateString("billingPerson.countryCode","US")
success = json.UpdateString("billingPerson.postalCode","90002")
success = json.UpdateString("billingPerson.stateOrProvinceCode","CA")
success = json.UpdateString("billingPerson.phone","123141321")
success = json.UpdateString("shippingPerson.name","Eugene K")
success = json.UpdateString("shippingPerson.companyName","Hedgehog and Bucket")
success = json.UpdateString("shippingPerson.street","My Street")
success = json.UpdateString("shippingPerson.city","San Diego")
success = json.UpdateString("shippingPerson.countryCode","US")
success = json.UpdateString("shippingPerson.postalCode","90002")
success = json.UpdateString("shippingPerson.stateOrProvinceCode","CA")
success = json.UpdateString("shippingPerson.phone","123141321")
success = json.UpdateString("shippingOption.shippingMethodName","Fast Delivery")
success = json.UpdateInt("shippingOption.shippingRate",10)
success = json.UpdateBool("shippingOption.isPickup",0)
success = json.UpdateString("shippingOption.fulfilmentType","DELIVERY")
success = json.UpdateBool("hidden",0)
success = json.UpdateString("privateAdminNotes","Must be delivered till Sunday.")
success = json.UpdateBool("acceptMarketing",0)
success = json.UpdateBool("disableAllCustomerNotifications",1)
success = json.UpdateBool("externalFulfillment",1)
success = json.UpdateString("externalOrderId","2")
success = json.UpdateBool("pricesIncludeTax",0)
url = sbUrl.GetAsString()
set resp = CreateObject("Chilkat.HttpResponse")
success = http.HttpJson("POST",url,json,"application/json",resp)
If (success = 0) Then
outFile.WriteLine(http.LastErrorText)
WScript.Quit
End If
outFile.WriteLine("Response status code = " & resp.StatusCode)
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = resp.GetBodySb(sbResponseBody)
set jResp = CreateObject("Chilkat.JsonObject")
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
outFile.WriteLine("Response Body:")
outFile.WriteLine(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
id = jResp.IntOf("id")
orderid = jResp.StringOf("orderid")
outFile.Close