' Options: 'Date: 2025-05-10 07:13:02 '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: ShortTermRentalReservationRequest.* '''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 PackageVariantItem Public Overridable Property Model As String Public Overridable Property Sku As String End Class Public Partial Class ShortTermRentalItem Public Sub New() PackageVariantItems = New List(Of PackageVariantItem) End Sub ''' '''SasPk, SaqPk, or PkhPk ''' Public Overridable Property Pk As Long ''' '''S for SerialNumber, P for Package deal. Empty for normal inventory. ''' Public Overridable Property ItemType As String ''' '''Quantity of item required. Does not apply to serial#s. ''' Public Overridable Property ItemQuantity As Nullable(Of Decimal) ''' '''Item rate. This is per item, so the total is this multiplied by ItemQuantity. ''' Public Overridable Property ItemRate As Nullable(Of Decimal) Public Overridable Property Notes As String Public Overridable Property PackageVariantItems As List(Of PackageVariantItem) End Class ''' '''ShortTermRentalReservationRequires active-e Short Term Rental Service ''' Public Partial Class ShortTermRentalReservationRequest Inherits BaseSecureRequest Implements IReturn(Of ShortTermRentalReservationResponse) Public Sub New() Items = New List(Of ShortTermRentalItem) End Sub ''' '''Date/Time the item is to be picked up. ''' Public Overridable Property PickupDate As Date ''' '''Date/Time the item is to be returned. ''' Public Overridable Property ReturnDate As Date ''' '''Account of the customer making the reservation ''' Public Overridable Property CustomerAcct As Integer Public Overridable Property Items As List(Of ShortTermRentalItem) Public Overridable Property Notes As String End Class Public Partial Class ShortTermRentalReservationResponse Inherits BaseResponse Public Overridable Property RefNumber As String End Class End Namespace End Namespace