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=savetaskgroup&guid=6f10039c-46f7-4f5f-a0cb-a6bc34b5bf7d&portfolioid=NULL&projectid=NULL&taskgroupid=NULL&taskgroupname=NULL&taskgroupdesc=NULL&myorder=NULL&isdefault=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. |
PortfolioId |
Integer |
True |
|
|
NULL |
|
|
True |
|
ProjectId |
Integer |
True |
|
|
NULL |
True |
False |
|
Auto-generated unique identifier of a project. |
TaskGroupId |
Integer |
True |
|
|
NULL |
False |
True |
|
Auto-generated unique identifier of a task group. |
TaskGroupName |
String |
True |
50 |
|
NULL |
True |
False |
|
Unique name given to a task group. The name must be unique within the project. |
TaskGroupDesc |
String |
True |
|
|
NULL |
|
|
False |
Describes any relevant task group information for the entry. |
Myorder |
Decimal |
True |
|
|
NULL |
|
|
False |
Order number used for sorting related entries in lists. |
IsDefault |
Boolean |
True |
|
True or False |
NULL |
|
|
False |
Indicates whether the entry is the default value selected in lists. |
Format |
String |
False |
|
RS: RecordSet DS: DataSet JSON: JSON |
DS |
|
|
True |
Return Format |
Public Class Sample
Public Sub CodeSample_savetaskgroup()
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=savetaskgroup")
sb.Append(String.Format("&guid={0}", "123b49c6-f7dc-48d6-a40f-6e50b4ed27a6"))
sb.Append(String.Format("&portfolioid={0}", "NULL"))
sb.Append(String.Format("&projectid={0}", "NULL"))
sb.Append(String.Format("&taskgroupid={0}", "NULL"))
sb.Append(String.Format("&taskgroupname={0}", "NULL"))
sb.Append(String.Format("&taskgroupdesc={0}", "NULL"))
sb.Append(String.Format("&myorder={0}", "NULL"))
sb.Append(String.Format("&isdefault={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