' Options: 'Date: 2025-05-10 03:03:16 '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: CreateAePayRecordRequest.* '''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 Namespace Global 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 Public Partial Class CcInfo ''' '''Token returned from processor ''' Public Overridable Property TokenStr As String ''' '''Card Type (VISA, MCARD, AMEX, DSCVR) ''' Public Overridable Property CardType As String ''' '''Last four of the card ''' Public Overridable Property LastFour As String ''' '''Expiration Date of the Card. (MM/YY) ''' Public Overridable Property Expiration As String ''' '''Reason the card is on file. ''' Public Overridable Property ReasonOnFile As String ''' '''ID of the existing Token Record in AIM, if applicable ''' Public Overridable Property TokenPk As Nullable(Of Long) ''' '''Is this the customer's primary card? Defaults to false. ''' Public Overridable Property Primary As Nullable(Of Boolean) End Class ''' '''CreateAEPayRecordRequires active-e Customer Service. ''' Public Partial Class CreateAePayRecordRequest Inherits BaseSecureRequest Implements IReturn(Of CreateAePayRecordResponse) Public Sub New() Payments = New List(Of Payment) End Sub Public Overridable Property Payments As List(Of Payment) Public Overridable Property WebId As Nullable(Of Integer) Public Overridable Property PayRef As String Public Overridable Property Approval As String Public Overridable Property UpdateCc As Nullable(Of Boolean) Public Overridable Property CcName As String Public Overridable Property CardInfo As CcInfo Public Overridable Property Acct As Nullable(Of Integer) End Class Public Partial Class CreateAePayRecordResponse Inherits BaseResponse End Class Public Partial Class Payment Public Overridable Property Ref As String Public Overridable Property WebRef As String Public Overridable Property Amount As Decimal Public Overridable Property [Date] As Nullable(Of Date) End Class End Namespace End Namespace