' Options: 'Date: 2025-05-10 08:18:28 '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: ManufacturersRequest.* '''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 ManufacturerInfo Public Overridable Property Id As Long Public Overridable Property Manufacturer As String Public Overridable Property WebName As String Public Overridable Property WebId As Integer End Class ''' '''ManufacturersRequires active-e Inventory Service. ''' Public Partial Class ManufacturersRequest Inherits BaseSecureRequest Implements IReturn(Of ManufacturersResponse) ''' '''If sent, only data for the sent MFG will be returned ''' Public Overridable Property ManufacturerId As Nullable(Of Long) End Class Public Partial Class ManufacturersResponse Inherits BaseResponse Public Sub New() Manufacturers = New List(Of ManufacturerInfo) End Sub Public Overridable Property Manufacturers As List(Of ManufacturerInfo) End Class End Namespace End Namespace