Sample code for 30+ languages & platforms
Visual FoxPro

Shippo Create a New Manifest

See more Shippo Examples

Demonstrates how to create a manifest for your shipments.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loHttp
LOCAL loJson
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcStrVal
LOCAL lcAddress_from
LOCAL lcCarrier_account
LOCAL lcObject_created
LOCAL lcObject_id
LOCAL lcObject_owner
LOCAL lcObject_updated
LOCAL lcShipment_date
LOCAL lcStatus
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl https://api.goshippo.com/manifests/
*     -H "Authorization: ShippoToken shippo_test_831a7a042784f523b95db65444e6e084b636764b" \
*     -H "Content-Type: application/json"  \
*     -d '{
*           "carrier_account": "b741b99f95e841639b54272834bc478c",
*           "shipment_date": "2014-05-16T23:59:59Z",
*           "address_from": "28828839a2b04e208ac2aa4945fbca9a",
*           "transactions": [
*             "64bba01845ef40d29374032599f22588", 
*             "c169aa586a844cc49da00d0272b590e1"
*             ],
*           "async": false
*         }'

* Use this online tool to generate code from sample JSON:
* Generate Code to Create JSON

* The following JSON is sent in the request body.

* {
*   "carrier_account": "b741b99f95e841639b54272834bc478c",
*   "shipment_date": "2014-05-16T23:59:59Z",
*   "address_from": "28828839a2b04e208ac2aa4945fbca9a",
*   "transactions": [
*     "64bba01845ef40d29374032599f22588",
*     "c169aa586a844cc49da00d0272b590e1"
*   ],
*   "async": false
* }

loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("carrier_account","b741b99f95e841639b54272834bc478c")
loJson.UpdateString("shipment_date","2014-05-16T23:59:59Z")
loJson.UpdateString("address_from","28828839a2b04e208ac2aa4945fbca9a")
loJson.UpdateString("transactions[0]","64bba01845ef40d29374032599f22588")
loJson.UpdateString("transactions[1]","c169aa586a844cc49da00d0272b590e1")
loJson.UpdateBool("async",0)

loHttp.SetRequestHeader("Authorization","ShippoToken shippo_test_831a7a042784f523b95db65444e6e084b636764b")
loHttp.SetRequestHeader("Content-Type","application/json")

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://api.goshippo.com/manifests/",loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loResp
    CANCEL
ENDIF

loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loResp.GetBodySb(loSbResponseBody)
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    RELEASE loHttp
    RELEASE loJson
    RELEASE loResp
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

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

* {
*   "address_from": "28828839a2b04e208ac2aa4945fbca9a",
*   "carrier_account": "b741b99f95e841639b54272834bc478c",
*   "documents": [
*     "https://shippo-delivery.s3.amazonaws.com/0fadebf6f60c4aca95fa01bcc59c79ae.pdf?Signature=tlQU3RECwdHUQJQadwqg5bAzGFQ%3D&Expires=1402803835&AWSAccessKeyId=AKIAJTHP3LLFMYAWALIA"
*   ],
*   "object_created": "2014-05-16T03:43:52.765Z",
*   "object_id": "0fadebf6f60c4aca95fa01bcc59c79ae",
*   "object_owner": "mrhippo@goshippo.com",
*   "object_updated": "2014-05-16T03:43:55.445Z",
*   "shipment_date": "2014-05-16T23:59:59Z",
*   "status": "SUCCESS",
*   "transactions": [
*     "64bba01845ef40d29374032599f22588",
*     "c169aa586a844cc49da00d0272b590e1"
*   ]
* }

* Sample code for parsing the JSON response...
* Use the following online tool to generate parsing code from sample JSON:
* Generate Parsing Code from JSON

lcAddress_from = loJResp.StringOf("address_from")
lcCarrier_account = loJResp.StringOf("carrier_account")
lcObject_created = loJResp.StringOf("object_created")
lcObject_id = loJResp.StringOf("object_id")
lcObject_owner = loJResp.StringOf("object_owner")
lcObject_updated = loJResp.StringOf("object_updated")
lcShipment_date = loJResp.StringOf("shipment_date")
lcStatus = loJResp.StringOf("status")
i = 0
lnCount_i = loJResp.SizeOfArray("documents")
DO WHILE i < lnCount_i
    loJResp.I = i
    lcStrVal = loJResp.StringOf("documents[i]")
    i = i + 1
ENDDO
i = 0
lnCount_i = loJResp.SizeOfArray("transactions")
DO WHILE i < lnCount_i
    loJResp.I = i
    lcStrVal = loJResp.StringOf("transactions[i]")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loJson
RELEASE loResp
RELEASE loSbResponseBody
RELEASE loJResp