Visual Basic 6.0 Xero: Create an Invoice

Back to Index

Example of a draft sales ( ACCREC) invoice with enough detail to be approved once it's been created.

Documentation: https://developer.xero.com/documentation/api/invoices

Dim rest As New ChilkatRest
Dim success As Long

Dim oauth1 As New ChilkatOAuth1
oauth1.ConsumerKey = "OAUTH1_CONSUMER_KEY"
oauth1.ConsumerSecret = "OAUTH1_CONSUMER_SECRET"
oauth1.Token = "OAUTH1_TOKEN"
oauth1.TokenSecret = "OAUTH1_TOKEN_SECRET"
oauth1.SignatureMethod = "RSA-SHA1"
Dim rsaKey As New PrivateKey
'  Insert code here to load the RSA private key...
'  ...
'  then call SetRsaKey to provide the RSA key to the OAuth1 class.
success = oauth1.SetRsaKey(rsaKey)
success = rest.SetAuthOAuth1(oauth1,0)

success = rest.Connect("api.xero.com",443,1,1)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

'  The following code creates the JSON request body.
'  The JSON created by this code is shown below.
Dim jsonReq As New ChilkatJsonObject
success = jsonReq.UpdateString("Type","ACCREC")
success = jsonReq.UpdateString("Contact.ContactID","eaa28f49-6028-4b6e-bb12-d8f6278073fc")
success = jsonReq.UpdateString("Date","/Date(1518685950940+0000)/")
success = jsonReq.UpdateString("DueDate","/Date(1518685950940+0000)/")
success = jsonReq.UpdateString("DateString","2009-05-27T00:00:00")
success = jsonReq.UpdateString("DueDateString","2009-06-06T00:00:00")
success = jsonReq.UpdateString("LineAmountTypes","Exclusive")
success = jsonReq.UpdateString("LineItems[0].Description","Consulting services as agreed (20% off standard rate)")
success = jsonReq.UpdateString("LineItems[0].Quantity","10")
success = jsonReq.UpdateString("LineItems[0].UnitAmount","100.00")
success = jsonReq.UpdateString("LineItems[0].AccountCode","200")
success = jsonReq.UpdateString("LineItems[0].DiscountRate","20")

Dim sbReq As New ChilkatStringBuilder
success = jsonReq.EmitSb(sbReq)

success = rest.AddHeader("Content-Type","application/json")

Dim sbResponse As New ChilkatStringBuilder
success = rest.FullRequestSb("POST","/api.xro/2.0/Invoices",sbReq,sbResponse)
If (success <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

If (rest.ResponseStatusCode <> 200) Then
    Debug.Print "Received error response code: " & rest.ResponseStatusCode
    Debug.Print "Response body:"
    Debug.Print sbResponse.GetAsString()
    Exit Sub
End If

Debug.Print "Example Completed."

Sample JSON Request Body

{
  "Type": "ACCREC",
  "Contact": { 
    "ContactID": "eaa28f49-6028-4b6e-bb12-d8f6278073fc" 
  },
  "Date": "\/Date(1518685950940+0000)\/",
  "DueDate": "\/Date(1518685950940+0000)\/",
  "DateString": "2009-05-27T00:00:00",
  "DueDateString": "2009-06-06T00:00:00",
  "LineAmountTypes": "Exclusive",
  "LineItems": [
    {
      "Description": "Consulting services as agreed (20% off standard rate)",
      "Quantity": "10",
      "UnitAmount": "100.00",
      "AccountCode": "200",
      "DiscountRate": "20"
    }
  ]
}