Sample code for 30+ languages & platforms
Lianja

Generate an E-way Bill

See more HTTP Misc Examples

Demonstrates how to send an HTTP POST request to generate an e-way bill.

Chilkat Lianja Downloads

Download Chilkat for Lianja
Lianja 
llSuccess = .F.

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

// This example uses the previously obtained access token that was retrieved
// in this example:  Get EWAY Auth Token using Gstin, username, password, and app_key

loJsonAuth = createobject("CkJsonObject")
llSuccess = loJsonAuth.LoadFile("qa_data/tokens/ewayAuth.json")
if (llSuccess = .F.) then
    ? loJsonAuth.LastErrorText
    release loJsonAuth
    return
endif

// The jsonAuth contains something like this:
// {
//   "authToken": "IBTeFtxNfVurg71LTzZ2r0xK7",
//   "decryptedSek": "5g1TyTie7yoslU3DrbYATa7mWyPazlODE7cEh5Vy4Ho="
// }

// Generate the JSON data for the e-way bill.
// The following code can be generated by pasting representative JSON into this online tool:
// Generate JSON Code
loJsonData = createobject("CkJsonObject")
loJsonData.UpdateString("supplyType","O")
loJsonData.UpdateString("subSupplyType","1")
loJsonData.UpdateString("docType","INV")
loJsonData.UpdateString("docNo","AW1234-2")
loJsonData.UpdateString("docDate","05/04/2018")
loJsonData.UpdateString("fromGstin","09ABDC24212B1FK")
loJsonData.UpdateString("fromTrdName","willy")
loJsonData.UpdateString("fromAddr1","3RD CROSS NO 200  19  A")
loJsonData.UpdateString("fromAddr2","GROUND FLOOR OZZY ROAD")
loJsonData.UpdateString("fromPlace","BUSY TOWN")
loJsonData.UpdateNumber("fromPincode","640033")
loJsonData.UpdateNumber("actFromStateCode","05")
loJsonData.UpdateNumber("fromStateCode","05")
loJsonData.UpdateString("toGstin","01AAAASCC10BBBB")
loJsonData.UpdateString("toTrdName","mthustra")
loJsonData.UpdateString("toAddr1","Shrek Ogre")
loJsonData.UpdateString("toAddr2","Basadronsil")
loJsonData.UpdateString("toPlace","Grifl Blagar")
loJsonData.UpdateNumber("toPincode","699988")
loJsonData.UpdateNumber("actToStateCode","29")
loJsonData.UpdateNumber("toStateCode","02")
loJsonData.UpdateNumber("totalValue","5609889")
loJsonData.UpdateNumber("cgstValue","0")
loJsonData.UpdateNumber("sgstValue","0")
loJsonData.UpdateNumber("igstValue","168296.67")
loJsonData.UpdateNumber("cessValue","224395.56")
loJsonData.UpdateString("transporterId","09ABDC24212B1FK")
loJsonData.UpdateString("transporterName","")
loJsonData.UpdateString("transDocNo","12332")
loJsonData.UpdateNumber("transMode","1")
loJsonData.UpdateString("transDistance","656")
loJsonData.UpdateString("transDocDate","10/04/2018")
loJsonData.UpdateString("vehicleNo","PBN4567")
loJsonData.UpdateString("vehicleType","R")
loJsonData.I = 0
loJsonData.UpdateString("itemList[i].productName","Wheat")
loJsonData.UpdateString("itemList[i].productDesc","Wheat")
loJsonData.UpdateNumber("itemList[i].hsnCode","1001")
loJsonData.UpdateNumber("itemList[i].quantity","4")
loJsonData.UpdateString("itemList[i].qtyUnit","BOX")
loJsonData.UpdateNumber("itemList[i].cgstRate","0")
loJsonData.UpdateNumber("itemList[i].sgstRate","0")
loJsonData.UpdateNumber("itemList[i].igstRate","3")
loJsonData.UpdateNumber("itemList[i].cessRate","4")
loJsonData.UpdateNumber("itemList[i].cessAdvol","0")
loJsonData.UpdateNumber("itemList[i].taxableAmount","5609889")

// The body of the HTTP POST will contain JSON that looks like this:
// 	{
// 	"action":"GENEWAYBILL",
// 	"data": " iJiJGXq ... oUZp/25Y "
// 	}

// The "data" is the encrypted jsonData using our previously agreed-upon symmetric encryption key.
// Let's begin build the JSON request body..
loJsonRequestBody = createobject("CkJsonObject")
loJsonRequestBody.UpdateString("action","GENEWAYBILL")

// Setup the encryptor using the decryptedSek from the jsonAuth
loCrypt = createobject("CkCrypt2")
loCrypt.CryptAlgorithm = "aes"
loCrypt.CipherMode = "ecb"
loCrypt.KeyLength = 256
loCrypt.SetEncodedKey(loJsonAuth.StringOf("decryptedSek"),"base64")
loCrypt.EncodingMode = "base64"

// Encrypt the jsonData and add it to our JSON request body
loJsonRequestBody.UpdateString("data",loCrypt.EncryptStringENC(loJsonData.Emit()))

loHttp = createobject("CkHttp")

// Add the authtoken to the request header.
// Be careful to be precise with uppercase/lowercase ("authtoken" vs "authToken")
loHttp.SetRequestHeader("authtoken",loJsonAuth.StringOf("authToken"))
loHttp.SetRequestHeader("Gstin","09ABDC24212B1FK")
loHttp.Accept = "application/json"

// POST the request to generate an e-way bill:
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpJson("POST","http://ewb.wepgst.com/api/EWayBill",loJsonRequestBody,"application/json",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loJsonAuth
    release loJsonData
    release loJsonRequestBody
    release loCrypt
    release loHttp
    release loResp
    return
endif

lnRespStatusCode = loResp.StatusCode
? "response status code =" + str(lnRespStatusCode)
? "response body:"
? loResp.BodyStr

if (lnRespStatusCode <> 200) then
    ? "Failed in some unknown way."
    release loJsonAuth
    release loJsonData
    release loJsonRequestBody
    release loCrypt
    release loHttp
    release loResp
    return
endif

// When the response status code = 200, we'll have either
// success response like this:
//  {"status":"1","data":"..."}
// 
// or a failed response like this:
// 
// {"status":"0","error":"eyJlcnJvckNvZGVzIjoiMTA4In0="}

// Load the response body into a JSON object.
loJson = createobject("CkJsonObject")
loJson.Load(loResp.BodyStr)

lnStatus = loJson.IntOf("status")
? "status = " + str(lnStatus)

if (lnStatus <> 1) then
    // Failed.  Base64 decode the error
    // {"status":"0","error":"eyJlcnJvckNvZGVzIjoiMTA4In0="}
    // For an invalid password, the error is: {"errorCodes":"108"}
    loSbError = createobject("CkStringBuilder")
    loJson.StringOfSb("error",loSbError)
    loSbError.Decode("base64","utf-8")
    ? "error: " + loSbError.GetAsString()
    release loJsonAuth
    release loJsonData
    release loJsonRequestBody
    release loCrypt
    release loHttp
    release loResp
    release loJson
    release loSbError
    return
endif

loJson.EmitCompact = .F.
? "JSON response:"
? loJson.Emit()

loBdData = createobject("CkBinData")
loBdData.AppendEncoded(loJson.StringOf("data"),"base64")
loCrypt.DecryptBd(loBdData)

// Decrypts to 
// {"ewayBillNo":331001121234,"ewayBillDate":"24/05/2018 04:38:00 PM","validUpto":"31/05/2018 11:59:00 PM"}

loJsonBill = createobject("CkJsonObject")
loJsonBill.Load(loBdData.GetString("utf-8"))

lnEwayBillNo = loJsonBill.IntOf("ewayBillNo")
? "ewayBillNo = " + str(lnEwayBillNo)

lcEwayBillDate = loJsonBill.StringOf("ewayBillDate")
? "ewayBillDate = " + lcEwayBillDate

lcValidUpto = loJsonBill.StringOf("validUpto")
? "validUpto = " + lcValidUpto

// Sample output:

// ewayBillNo = 331001121234
// ewayBillDate = 24/05/2018 04:55:00 PM
// validUpto = 31/05/2018 11:59:00 PM


release loJsonAuth
release loJsonData
release loJsonRequestBody
release loCrypt
release loHttp
release loResp
release loJson
release loSbError
release loBdData
release loJsonBill