' Options: 'Date: 2025-06-02 05:01:37 '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: SaleInfoRequest.* '''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 DiscountFromPriceLevel Public Overridable Property BasePriceLevel As String Public Overridable Property DisountPercentage As Decimal End Class Public Partial Class RecurringSaleDay Public Overridable Property Weekday As String Public Overridable Property BeginHour As Integer Public Overridable Property BeginMinute As Integer Public Overridable Property EndHour As Integer Public Overridable Property EndMinute As Integer End Class Public Partial Class RecurringSaleInfo Public Sub New() Days = New List(Of RecurringSaleDay) End Sub Public Overridable Property Days As List(Of RecurringSaleDay) End Class ''' '''SaleInfoRequires active-e Inventory Service ''' Public Partial Class SaleInfoRequest Inherits BaseSecureRequest Implements IReturn(Of SaleInfoResponse) Public Overridable Property LocationId As Nullable(Of Long) ''' '''If sent, only sales that are active during the sent Date/Time are returned. Otherwise, the current Date/Time is used ''' Public Overridable Property DateTime As Nullable(Of Date) End Class Public Partial Class SaleInfoResponse Inherits BaseResponse Public Sub New() SaleRecords = New List(Of SaleRecord) End Sub Public Overridable Property SaleRecords As List(Of SaleRecord) End Class Public Partial Class SaleRecord Public Overridable Property SadPk As Long Public Overridable Property SkuPk As Long Public Overridable Property SaqPk As Long Public Overridable Property Model As String Public Overridable Property SKU As String Public Overridable Property LocationId As Long Public Overridable Property StartDate As Date Public Overridable Property EndDate As Date Public Overridable Property CustomerAccount As Nullable(Of Integer) Public Overridable Property CustomerDefaultId As Nullable(Of Long) Public Overridable Property Condition As String Public Overridable Property DiscountFromPriceLevel As DiscountFromPriceLevel Public Overridable Property DiscountByPriceLevel As String Public Overridable Property DiscountBySetPrice As Nullable(Of Decimal) Public Overridable Property DiscountByAmount As Nullable(Of Decimal) Public Overridable Property RecurringSale As RecurringSaleInfo End Class End Namespace End Namespace