' Options: 'Date: 2025-04-05 02:25:13 'Version: 8.23 'Tip: To override a DTO option, remove "''" prefix before updating 'BaseUrl: https://testapi.bokamera.se ' '''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: UpdateIncentive.* '''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 System.Globalization Imports ServiceStack.Data Imports System.IO Imports System.Net Imports System.Net.Http.Headers Imports BokaMera.API.ServiceModel.Db Imports BokaMera.API.ServiceModel.Db.Incentive Imports BokaMera.API.ServiceModel.Dtos Imports PaysonIntegrationCO2.Models.Enums Namespace Global Namespace BokaMera.API.ServiceModel.Db Public Partial Class BaseModel End Class Public Partial Class Country Inherits BaseModel Public Overridable Property CurrencyId As String Public Overridable Property CurrencyInfo As Currency Public Overridable Property Name As String Public Overridable Property Culture As String Public Overridable Property TimeZone As String Public Overridable Property ModifiedDate As Nullable(Of DateTimeOffset) Public Overridable Property Id As String End Class Public Partial Class Currency Inherits BaseModel Public Overridable Property Name As String Public Overridable Property CurrencySign As String Public Overridable Property Active As Boolean Public Overridable Property ModifiedDate As Nullable(Of DateTimeOffset) Public Overridable Property Id As String End Class End Namespace Namespace BokaMera.API.ServiceModel.Db.Incentive Public Enum CriteriaType LicenseAvailability SmsActivation eAccountingActivation CodeLockActivation SocialActivation OnlinePaymentActivation FollowUpMessageActivation RatingActivation End Enum Public Enum IncentiveActionType Upgrade = 1 AddOn = 2 Information = 3 End Enum Public Partial Class IncentiveCriteria Inherits BaseModel Public Overridable Property Id As Integer Public Overridable Property IncentiveId As Integer Public Overridable Property CriteriaType As CriteriaType Public Overridable Property Value As String Public Overridable Property InvertCondition As Boolean Public Overridable Property CreatedDate As DateTimeOffset End Class Public Enum IncentiveRecurrenceFrequency OneTime = 1 Weekly = 2 Monthly = 3 End Enum End Namespace Namespace BokaMera.API.ServiceModel.Dtos Public Partial Class AdminIncentiveQueryResponse Inherits CompanyIncentiveResponse Public Sub New() CompanyIds = New List(Of Guid) Criteria = New List(Of IncentiveCriteria) End Sub Public Overridable Property Frequency As IncentiveRecurrenceFrequency Public Overridable Property RecurrenceInterval As UInt32 Public Overridable Property CreatedDate As DateTimeOffset Public Overridable Property ModifiedDate As DateTimeOffset Public Overridable Property CompanyIds As List(Of Guid) Public Overridable Property Criteria As List(Of IncentiveCriteria) Public Overridable Property ApplyToAllCompanies As Boolean End Class Public Partial Class CompanyIncentiveResponse Public Overridable Property Id As Integer Public Overridable Property Heading As String Public Overridable Property StorageUrl As String Public Overridable Property SuccessButtonText As String Public Overridable Property ActionId As Integer Public Overridable Property InitialDelayInSeconds As Integer Public Overridable Property MaxDisplayCount As Nullable(Of Integer) Public Overridable Property ValidFrom As DateTimeOffset Public Overridable Property ValidTo As DateTimeOffset Public Overridable Property Action As IncentiveActionResponse Public Overridable Property Payload As String End Class Public Partial Class IncentiveActionResponse Public Overridable Property Id As Integer Public Overridable Property ActionType As IncentiveActionType Public Overridable Property Page As String Public Overridable Property Segment As String Public Overridable Property Element As String Public Overridable Property LicenseTypeId As Nullable(Of Integer) Public Overridable Property SuggestedLicenseToUpgrade As LicenseTypeQueryResponse End Class Public Partial Class IncentiveCriteriaDto Public Overridable Property CriteriaType As CriteriaType Public Overridable Property Value As String Public Overridable Property InvertCondition As Boolean End Class Public Partial Class LicenseItemsResponse Public Overridable Property Id As Integer Public Overridable Property Name As String Public Overridable Property AllowedItems As Integer End Class Public Partial Class LicensePriceResponse Public Overridable Property LicenseTypeId As Integer Public Overridable Property CountryId As String Public Overridable Property Price As Integer Public Overridable Property Country As Country Public Overridable Property LicensePlanId As Integer End Class Public Partial Class LicenseTypeQueryResponse Public Sub New() Items = New List(Of LicenseItemsResponse) Prices = New List(Of LicensePriceResponse) End Sub ''' '''The license type id ''' Public Overridable Property Id As Integer ''' '''The license type name ''' Public Overridable Property Name As String ''' '''The license type description ''' Public Overridable Property Description As String ''' '''If the license type is not a standard license but instead an extra license option. An example would be sending new letter license. ''' Public Overridable Property IsExtraLicenseOption As Boolean ''' '''The period of notice for the license in days. ''' Public Overridable Property PeriodOfNoticeDays As Integer ''' '''The license items for the license type ''' Public Overridable Property Items As List(Of LicenseItemsResponse) ''' '''The license prices in each country for the license type ''' Public Overridable Property Prices As List(Of LicensePriceResponse) End Class Public Partial Class UpdateIncentive Implements IReturn(Of AdminIncentiveQueryResponse) Public Sub New() CompanyIds = New List(Of Guid) Criteria = New List(Of IncentiveCriteriaDto) End Sub ''' '''The id of the incentive. ''' Public Overridable Property Id As Integer Public Overridable Property Heading As String Public Overridable Property StorageUrl As String Public Overridable Property SuccessButtonText As String Public Overridable Property ActionId As Nullable(Of Integer) Public Overridable Property Frequency As IncentiveRecurrenceFrequency Public Overridable Property RecurrenceInterval As UInt32 Public Overridable Property InitialDelayInSeconds As Integer Public Overridable Property MaxDisplayCount As Nullable(Of Integer) Public Overridable Property ValidFrom As DateTimeOffset Public Overridable Property ValidTo As DateTimeOffset Public Overridable Property CompanyIds As List(Of Guid) Public Overridable Property Criteria As List(Of IncentiveCriteriaDto) Public Overridable Property Payload As String End Class End Namespace Namespace PaysonIntegrationCO2.Models.Enums Public Enum Currency SEK = 1 EUR = 2 End Enum End Namespace End Namespace