' Options: 'Date: 2025-08-04 00:18:40 '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: CustomerInfoRequest.* '''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 Imports AIM.Global.Utils Namespace Global Namespace AIM Public Partial Class AttributeValue Public Overridable Property Name As String Public Overridable Property Tag As String Public Overridable Property Value As String End Class Public Partial Class CustomerDefaultInfo Public Overridable Property Id As Long Public Overridable Property Desc As String Public Overridable Property ShortDesc As String End Class Public Partial Class CustomerSearchRecord Inherits BindableObject Public Sub New() DependantInfo = New List(Of DependantRecord) End Sub Public Overridable Property Pk As Long Public Overridable Property Acct As Integer Public Overridable Property Last As String Public Overridable Property Name As String Public Overridable Property Addr1 As String Public Overridable Property Addr2 As String Public Overridable Property City As String Public Overridable Property St As String Public Overridable Property Zip As String Public Overridable Property Phone As String Public Overridable Property Email As String Public Overridable Property OpenInvoices As Boolean Public Overridable Property RentalActivity As Boolean Public Overridable Property StLoc As String Public Overridable Property Hold As Boolean Public Overridable Property Barcode As String Public Overridable Property Color As Integer Public Overridable Property DependantInfo As List(Of DependantRecord) Public Overridable Property AdditionalDetails As AdditionalDetail Public Overridable Property MatchedOn As String Public Partial Class DependantRecord Public Overridable Property Name As String Public Overridable Property OnlineId As String Public Overridable Property SchoolDistrict As String Public Overridable Property School As String Public Overridable Property Id As Long End Class Public Partial Class AdditionalDetail Public Overridable Property CreationDate As Date Public Overridable Property LastModifiedDate As Date Public Overridable Property Notes As String Public Overridable Property CustomerDefault As CustomerDefaultInfo Public Overridable Property TaxAuthority As TaxAuthorityInfo Public Overridable Property CanCharge As Boolean Public Overridable Property PopupNotes As String Public Overridable Property DlNumber As String Public Overridable Property Phone2 As String Public Overridable Property Phone3 As String Public Overridable Property Phone4 As String Public Overridable Property Location As LocationInfo End Class End Class Public Partial Class LocationInfo Public Overridable Property Id As Long Public Overridable Property Desc As String Public Overridable Property ShortDesc As String Public Overridable Property Region As String Public Overridable Property Latitude As Decimal Public Overridable Property Longitude As Decimal Public Overridable Property InStorePickup As String Public Overridable Property Active As Boolean Public Overridable Property CashSaleAcct As Nullable(Of Integer) End Class Public Partial Class TaxAuthorityInfo Public Overridable Property Id As Long Public Overridable Property Desc As String Public Overridable Property ShortDesc As String End Class End Namespace Namespace AIM.Global.Utils Public Partial Class BindableObject 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 ''' '''The OAuthToken token return by AeServices30 ''' Public Overridable Property OAuthToken As String ''' '''The Device ID of the Mobile Device. Not used for non-mobile devices. ''' Public Overridable Property DeviceId As String ''' '''An identifier for your integration ''' Public Overridable Property AppId As String End Class Public Partial Class BaseResponse ''' ''' ''' Public Overridable Property Status As BaseResponseResult End Class Public Partial Class BaseSecureRequest Inherits BaseRequest ''' '''The Login Token return by the Security API. Required for secured calls. ''' Public Overridable Property Token As String End Class Public Partial Class CategoryLevelDiscount Public Overridable Property Category As Integer Public Overridable Property SubCategory As Nullable(Of Integer) Public Overridable Property DiscountType As String Public Overridable Property DiscountAmount As Decimal End Class Public Partial Class CustomerDiscountInfo Public Sub New() CategoryLevelDiscounts = New List(Of CategoryLevelDiscount) End Sub Public Overridable Property AccessoryInventory As Decimal Public Overridable Property SerializedInventory As Decimal Public Overridable Property ShortTermRental As Decimal Public Overridable Property NonInventory As Decimal Public Overridable Property Labor As Decimal Public Overridable Property MediaInventory As Decimal Public Overridable Property CategoryLevelDiscounts As List(Of CategoryLevelDiscount) Public Overridable Property PriceLevel As String End Class Public Partial Class CustomerEmailInfo Public Overridable Property Description As String Public Overridable Property Email As String Public Overridable Property Method As String Public Overridable Property Type As String End Class ''' '''CustomerInfoRequires active-e Customer Service. ''' Public Partial Class CustomerInfoRequest Inherits BaseSecureRequest Implements IReturn(Of CustomerInfoResponse) Public Overridable Property Acct As Integer End Class Public Partial Class CustomerInfoResponse Inherits BaseResponse Public Sub New() Memberships = New List(Of CustomerMembershipInfo) Emails = New List(Of CustomerEmailInfo) Attributes = New List(Of AttributeValue) End Sub Public Overridable Property Customer As CustomerSearchRecord Public Overridable Property DiscountInfo As CustomerDiscountInfo Public Overridable Property Memberships As List(Of CustomerMembershipInfo) Public Overridable Property Emails As List(Of CustomerEmailInfo) Public Overridable Property Attributes As List(Of AttributeValue) End Class Public Partial Class CustomerMembershipInfo Public Overridable Property Description As String Public Overridable Property TeeLevel As Integer Public Overridable Property WebTeeLevel As Integer Public Overridable Property StationLevel As Integer End Class End Namespace End Namespace