API Call Samples

We reserve the right to log and verify your API calls and to contact you if we detect abuse on your part. For example:
  • the requests takes too long to return
  • the requests return too much data at a time
  • The requests are too frequent
We strongly suggest using the date filter parameters to return only the data that is relevant.
Selecting a category  

Selecting a function  

HTTP GET:

https://api.aceproject.com/?fct=saveexpense&guid=89469c8b-fbbd-4bf2-889c-6d917e45b891&expenseid=NULL&projectid=NULL&taskid=NULL&summary=NULL&expensetypeid=NULL&expensedate=NULL&amount=NULL&codeofaccount=NULL&comments=NULL&docadd=NULL&format=DS


Function Details
Name Guid Required Description
SaveExpense True Creates an expense entry if no ExpenseId is specified or updates an existing expense entry when a valid ExpenseId is specified.

Parameter Details
Name DataType Is Nullable Max length Domain Values Default Value Is Required
(Insert)		 Is Required
(Update)		 Is Required Description
Guid String False True Unique identifier for the authenticated user. The GUID has an expiry date and time which is managed automatically by the API.
ExpenseId Integer True NULL False True Auto-generated unique expense identifier.
ProjectId Integer True NULL True False Auto-generated unique identifier of a project.
TaskId Integer True NULL False Auto-generated unique identifier of a task.
Summary String True NULL True False Expense summary.
ExpenseTypeId Integer True NULL True Auto-generated unique identifier of an expense type.
ExpenseDate AceProject.Service.API.CustomDatatype.Date True NULL True Date the expense was made.
Amount Decimal True NULL True The amount of the expense.
CodeOfAccount String True NULL False Field used to store user-defined information about the expense.
Comments String True NULL False Any user-defined comment related to the expense entry.
DocAdd String True NULL True
Format String False RS: RecordSet
DS: DataSet
JSON: JSON		 DS True Return Format

.Net Code: 
Public Class Sample

    Public Sub CodeSample_saveexpense()
        Dim strXML As String = String.Empty

        Dim dsOutput As DataSet = Nothing
        Dim guid As String = String.Empty
        Dim sb As New System.Text.StringBuilder
        Try
            sb = New System.Text.StringBuilder
            'Building API QueryString
            sb.Append("fct=saveexpense")
            sb.Append(String.Format("&guid={0}", "5a463c25-702c-4057-932e-acad68736890"))
            sb.Append(String.Format("&expenseid={0}", "NULL"))
            sb.Append(String.Format("&projectid={0}", "NULL"))
            sb.Append(String.Format("&taskid={0}", "NULL"))
            sb.Append(String.Format("&summary={0}", "NULL"))
            sb.Append(String.Format("&expensetypeid={0}", "NULL"))
            sb.Append(String.Format("&expensedate={0}", "NULL"))
            sb.Append(String.Format("&amount={0}", "NULL"))
            sb.Append(String.Format("&codeofaccount={0}", "NULL"))
            sb.Append(String.Format("&comments={0}", "NULL"))
            sb.Append(String.Format("&docadd={0}", "NULL"))
            sb.Append(String.Format("&format={0}", "DS"))

            'Calling API
            strXML = CallHttp("https://api.aceproject.com/", sb.ToString)
            'Retreive Output structure generate by API
            dsOutput = Deserialize(Of DataSet)(strXML)
            If dsOutput IsNot Nothing AndAlso dsOutput.Tables.Count > 0 Then
                If dsOutput.Tables.Contains("dtAPIErrors") Then
                    Throw New Exception(String.Format("{0}: {1}", _
                                                      dsOutput.Tables(0).Rows(0).Item("ErrorNumber").ToString, _
                                                      dsOutput.Tables(0).Rows(0).Item("ErrorDescription").ToString))
                End If
            End If
        Catch ex As Exception
            Throw
        Finally
            If sb IsNot Nothing Then sb = Nothing
            If dsOutput IsNot Nothing Then
                dsOutput.Dispose()
                dsOutput = Nothing
            End If
        End Try
    End Sub

    Private Shared Function CallHttp( ByVal url As String, _ 
                                      ByVal params As String) As String
        Dim loHttp As System.Net.HttpWebRequest
        loHttp = CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
        loHttp.Method = "POST"
        Dim requestWriter As System.IO.StreamWriter = New System.IO.StreamWriter(loHttp.GetRequestStream())

        If Not String.IsNullOrEmpty(params) Then
            requestWriter.Write(params)
        End If
        requestWriter.Close()
        loHttp.ContentType = "application/x-www-form-urlencoded"
        loHttp.Headers.Set("Pragma", "no-cache")
        loHttp.AllowAutoRedirect = True
        loHttp.KeepAlive = True
        loHttp.Timeout = 30 * 1000

        Dim loWebResponse As System.Net.HttpWebResponse = CType(loHttp.GetResponse(), System.Net.HttpWebResponse)
        Dim enc As Encoding = System.Text.Encoding.UTF8
        Dim loResponseStream As System.IO.StreamReader = New System.IO.StreamReader(loWebResponse.GetResponseStream(), enc)
        Dim lcHtml As String = loResponseStream.ReadToEnd()

        loWebResponse.Close()
        loResponseStream.Close()

        Return lcHtml
    End Function


    Private Shared Function Deserialize(Of T)( ByVal strXML As String) As T
        Dim objet As T = Nothing
        Dim objType As Type = GetType(T)
        Try
            If Not String.IsNullOrEmpty(strXML) Then
                Dim objSerializer As New System.Xml.Serialization.XmlSerializer(objType)
                Dim objText As New System.Text.StringBuilder()
                Dim objXmlReader As New System.IO.StringReader(strXML)
                objet = DirectCast(objSerializer.Deserialize(objXmlReader), T)
                objXmlReader.Close()
            End If
            Return objet
        Catch ex As Exception
            Throw
        Finally
            If objet IsNot Nothing Then objet = Nothing
        End Try
    End Function

End Class