' Options: 'Date: 2024-12-03 18:27:02 'Version: 8.23 'Tip: To override a DTO option, remove "''" prefix before updating 'BaseUrl: https://api.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: CurrentUserQuery.* '''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 BokaMera.API.ServiceModel.Dtos Namespace Global Namespace BokaMera.API.ServiceModel.Dtos Public Partial Class AdminProfile Public Overridable Property CompanyId As Guid Public Overridable Property Id As Guid Public Overridable Property Firstname As String Public Overridable Property Lastname As String Public Overridable Property Email As String Public Overridable Property WorkerId As String Public Overridable Property Phone As String End Class Public Partial Class CompanyCustomerResponse Public Sub New() CustomFieldValues = New List(Of CustomFieldDataResponse) End Sub Public Overridable Property CompanyId As Nullable(Of Guid) Public Overridable Property CompanyName As String Public Overridable Property CustomerId As Nullable(Of Guid) Public Overridable Property SubscribedToNewsletter As Boolean Public Overridable Property CustomFieldValues As List(Of CustomFieldDataResponse) End Class Public Partial Class CurrentUserQuery Implements IReturn(Of CurrentUserQueryResponse) ''' '''If you want to include the users favorites ''' Public Overridable Property IncludeFavorites As Boolean Public Overridable Property IncludeCompanyCustomers As Boolean End Class Public Partial Class CurrentUserQueryResponse Public Sub New() Favorites = New List(Of UserFavorites) CompanyCustomers = New List(Of CompanyCustomerResponse) End Sub ''' '''The user id for your profile. ''' Public Overridable Property UserId As Guid Public Overridable Property Favorites As List(Of UserFavorites) Public Overridable Property UserProfile As UserProfileResponse Public Overridable Property CustomerProfile As UserProfileResponse Public Overridable Property AdminProfile As AdminProfile Public Overridable Property CompanyCustomers As List(Of CompanyCustomerResponse) End Class Public Partial Class CustomFieldDataResponse Public Overridable Property Id As Integer Public Overridable Property Column As String Public Overridable Property Name As String Public Overridable Property Description As String Public Overridable Property Value As String ''' '''Data field of custom field. Valid values are: TextBox, ... Example: 'TextBox' ''' Public Overridable Property DataType As String End Class Public Partial Class UserFavorites Public Overridable Property CompanyId As Guid Public Overridable Property Company As CompanyQueryResponse End Class Public Partial Class UserProfileResponse Public Overridable Property Id As Guid Public Overridable Property Firstname As String Public Overridable Property Lastname As String Public Overridable Property Phone As String Public Overridable Property Email As String End Class End Namespace End Namespace