' Options: 'Date: 2025-05-10 04:43:44 '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: EditContactRecordRequest.* '''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 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 ''' '''EditContactRecord web service. ''' Public Partial Class EditContactRecordRequest Inherits BaseSecureRequest Implements IReturn(Of EditContactRecordResponse) Public Sub New() Attributes = New List(Of AttributeValuePair) NewAttachments = New List(Of FileAttachment) End Sub Public Overridable Property RefNumber As String Public Overridable Property Contact As String Public Overridable Property CustomerAcct As Nullable(Of Integer) Public Overridable Property ActionId As Nullable(Of Long) Public Overridable Property ActionDate As Nullable(Of Date) Public Overridable Property PopUp As Nullable(Of Boolean) Public Overridable Property TopicId As Nullable(Of Long) Public Overridable Property Closed As Nullable(Of Boolean) Public Overridable Property ClosedDate As Nullable(Of Date) Public Overridable Property ColorValue As Nullable(Of Integer) Public Overridable Property LanID As String Public Overridable Property FormattedNotes As Boolean Public Overridable Property AppendNotes 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 NewAttachments As List(Of FileAttachment) End Class Public Partial Class EditContactRecordResponse Inherits BaseResponse End Class End Namespace End Namespace