' Options: 'Date: 2025-05-10 05:57:04 '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: ContractFulfillmentRequest.* '''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 Accessory Public Overridable Property Desc As String Public Overridable Property Price As Decimal Public Overridable Property Type As String Public Overridable Property CatNum As Integer Public Overridable Property Sku As String Public Overridable Property Report As Nullable(Of Boolean) End Class 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 ''' '''ContractFulfillmentRequires active-e Contracts Service.This API call used to be named C2BSetContractSerial. ''' Public Partial Class ContractFulfillmentRequest Inherits BaseSecureRequest Implements IReturn(Of ContractFulfillmentResponse) Public Sub New() DeliveredAccessories = New List(Of DeliveredAccessory) DeletedAccessoryIds = New List(Of Long) AddedAccessories = New List(Of Accessory) MassUpdateItems = New List(Of UpdateContractObj) End Sub Public Overridable Property Ref As String Public Overridable Property Serial As String Public Overridable Property SerialPk As Nullable(Of Long) Public Overridable Property CashPrice As Nullable(Of Decimal) Public Overridable Property NewStatus As String Public Overridable Property Notes As String Public Overridable Property DeliveryDate As Nullable(Of Date) Public Overridable Property DeliveredAccessories As List(Of DeliveredAccessory) Public Overridable Property DeletedAccessoryIds As List(Of Long) Public Overridable Property AddedAccessories As List(Of Accessory) Public Overridable Property FirstDue As Nullable(Of Date) Public Overridable Property CustomerAcct As Nullable(Of Integer) Public Overridable Property Unlock As Boolean Public Overridable Property MassUpdateItems As List(Of UpdateContractObj) Public Partial Class DeliveredAccessory Public Overridable Property Id As Long Public Overridable Property Delivered As Boolean End Class Public Partial Class UpdateContractObj Public Sub New() DeliveredAccessories = New List(Of DeliveredAccessory) DeletedAccessoryIds = New List(Of Long) AddedAccessories = New List(Of Accessory) End Sub Public Overridable Property Ref As String Public Overridable Property Serial As String Public Overridable Property SerialPk As Nullable(Of Long) Public Overridable Property CashPrice As Nullable(Of Decimal) Public Overridable Property NewStatus As String Public Overridable Property Notes As String Public Overridable Property DeliveryDate As Nullable(Of Date) Public Overridable Property DeliveredAccessories As List(Of DeliveredAccessory) Public Overridable Property DeletedAccessoryIds As List(Of Long) Public Overridable Property AddedAccessories As List(Of Accessory) Public Overridable Property FirstDue As Nullable(Of Date) Public Overridable Property NewCustomerAcct As Nullable(Of Integer) Public Overridable Property Unlock As Boolean End Class End Class Public Partial Class ContractFulfillmentResponse Inherits BaseResponse Public Sub New() MassUpdateErrors = New List(Of UpdateContractErrorObj) End Sub Public Overridable Property MassUpdateErrors As List(Of UpdateContractErrorObj) End Class Public Partial Class UpdateContractErrorObj Public Overridable Property Ref As String Public Overridable Property ErrorMessage As String End Class End Namespace End Namespace