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.
https://api.aceproject.com/?fct=closeclock&guid=ecf5e7ad-ed54-4f1a-94e1-80be4116ccd5×heetinoutid=###&projectid=NULL&taskid=NULL&timetypeid=###&indatetime=NULL&comments=NULL&userip=NULL&format=DS
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. |
TimesheetInOutId |
Integer |
False |
|
|
|
|
|
True |
|
ProjectId |
Integer |
True |
|
|
NULL |
|
|
False |
Auto-generated unique identifier of a project. |
TaskId |
Integer |
True |
|
|
NULL |
|
|
False |
Auto-generated unique identifier of a task. |
TimetypeId |
Integer |
False |
|
|
|
|
|
True |
Auto-generated unique identifier of a time type. |
InDatetime |
DateTime |
True |
|
|
NULL |
|
|
False |
Start datetime of the time clock. |
Comments |
String |
True |
|
|
NULL |
|
|
False |
Any user-defined comment related to the time sheet entry (work item). |
UserIP |
String |
True |
|
|
NULL |
|
|
False |
IP address of the computer user |
Format |
String |
False |
|
RS: RecordSet DS: DataSet JSON: JSON |
DS |
|
|
True |
Return Format |
Public Class Sample
Public Sub CodeSample_closeclock()
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
sb.Append("fct=closeclock")
sb.Append(String.Format("&guid={0}", "e0c62d88-d96a-45b3-8e0c-e45391c07ade"))
sb.Append(String.Format("&timesheetinoutid={0}", ###))
sb.Append(String.Format("&projectid={0}", "NULL"))
sb.Append(String.Format("&taskid={0}", "NULL"))
sb.Append(String.Format("&timetypeid={0}", ###))
sb.Append(String.Format("&indatetime={0}", "NULL"))
sb.Append(String.Format("&comments={0}", "NULL"))
sb.Append(String.Format("&userip={0}", "NULL"))
sb.Append(String.Format("&format={0}", "DS"))
strXML = CallHttp("https://api.aceproject.com/", sb.ToString)
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