' Options: 'Date: 2025-05-11 18:49:05 'Version: 8.40 'Tip: To override a DTO option, remove "''" prefix before updating 'BaseUrl: https://active-ewebservice.biz/aeservices30/api ' '''GlobalNamespace: '''MakePartial: True '''MakeVirtual: True '''MakeDataContractsExtensible: False '''AddReturnMarker: True '''AddDescriptionAsComments: True '''AddDataContractAttributes: False '''AddIndexesToDataMembers: False '''AddGeneratedCodeAttributes: False '''AddResponseStatus: False '''AddImplicitVersion: '''InitializeCollections: True '''ExportValueTypes: False 'IncludeTypes: AddContactRecordRequest.* '''ExcludeTypes: '''AddNamespaces: '''AddDefaultXmlNamespace: http://schemas.servicestack.net/types Imports System Imports System.Collections Imports System.Collections.Generic Imports System.Runtime.Serialization Imports ServiceStack Imports ServiceStack.DataAnnotations Imports AIM.WebService Imports AIM Namespace Global Namespace AIM Public Partial Class AttributeValuePair Public Overridable Property Name As String Public Overridable Property Value As String End Class Public Partial Class FileAttachment Public Overridable Property FileName As String Public Overridable Property Base64Contents As String End Class End Namespace Namespace AIM.WebService ''' '''AddContactRecord web service. ''' Public Partial Class AddContactRecordRequest Inherits BaseSecureRequest Implements IReturn(Of AddContactRecordResponse) Public Sub New() Attributes = New List(Of AttributeValuePair) Attachments = New List(Of FileAttachment) End Sub Public Overridable Property Contact As String Public Overridable Property CustomerAcct As Integer Public Overridable Property ActionId As Long Public Overridable Property ActionDate As Nullable(Of Date) Public Overridable Property PopUp As Boolean Public Overridable Property TopicId As Nullable(Of Long) Public Overridable Property Closed As Boolean Public Overridable Property ClosedDate As Nullable(Of Date) Public Overridable Property ColorValue As Integer Public Overridable Property OverrideLanID As String Public Overridable Property FormattedNotes As Boolean Public Overridable Property Note1 As String Public Overridable Property Note2 As String Public Overridable Property Note3 As String Public Overridable Property Attributes As List(Of AttributeValuePair) Public Overridable Property Attachments As List(Of FileAttachment) End Class Public Partial Class AddContactRecordResponse Inherits BaseResponse Public Overridable Property RefNumber As String End Class Public Partial Class BaseRequest ''' '''This is your AIM API Key provided by Tri-Tech ''' Public Overridable Property ApiKey As String Public Overridable Property OAuthToken As String End Class Public Partial Class BaseResponse ''' ''' ''' Public Overridable Property Status As BaseResponseResult End Class Public Partial Class BaseSecureRequest Inherits BaseRequest ''' ''' ''' Public Overridable Property Token As String ''' ''' ''' Public Overridable Property DeviceId As String ''' ''' ''' Public Overridable Property AppId As String End Class End Namespace End Namespace