' Options:
'Date: 2025-08-04 04:10:06
'Version: 6.110
'Tip: To override a DTO option, remove "''" prefix before updating
'BaseUrl: https://szallitoiportal-be.veolia.hu
'
'''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: BrowseCurrentUser.*
'''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.IO
Imports Portal.Common
Imports Portal.ServiceDto

Namespace Global

    Namespace Portal.Common

        Public Enum BusinessType
            Company = 0
            PrivateEntrepreneur = 1
            NonProfit = 2
            LawOffice = 3
        End Enum

        Public Enum SupplierStatus
            Registered = 0
            AwaitingVeoliaConfirmation = 1
            Active = 2
            Rejected = 3
            Locked = 4
            Deleted = 5
        End Enum
    End Namespace

    Namespace Portal.ServiceDto

        <Route("/user/current", "GET")>
        Public Partial Class BrowseCurrentUser
            Implements IReturn(Of BrowseCurrentUserResponse)
            Implements IGet
        End Class

        Public Partial Class BrowseCurrentUserResponse
            Inherits ResponseBase
            Public Overridable Property User As CurrentUser
        End Class

        Public Partial Class CurrentSupplier
            Inherits SupplierSimple
            Public Overridable Property Status As SupplierStatus
        End Class

        Public Partial Class CurrentUser
            Public Sub New()
                Roles = New List(Of String)
                Permissions = New List(Of String)
            End Sub

            Public Overridable Property Id As Integer
            Public Overridable Property Email As String
            Public Overridable Property UserName As String
            Public Overridable Property PhoneNumber As String
            Public Overridable Property DisplayName As String
            Public Overridable Property OrganizationUnit As String
            Public Overridable Property Position As String
            Public Overridable Property Status As Integer
            Public Overridable Property Supplier As CurrentSupplier
            Public Overridable Property Roles As List(Of String)
            Public Overridable Property Permissions As List(Of String)
        End Class

        Public Partial Class ResponseBase
            Public Overridable Property ResponseStatus As ResponseStatus
        End Class

        Public Partial Class SupplierSimple
            Public Overridable Property Id As Integer
            Public Overridable Property OwnerId As Integer
            Public Overridable Property VatNumber As String
            Public Overridable Property BusinessType As BusinessType
            Public Overridable Property CountryId As Integer
            Public Overridable Property Name As String
            Public Overridable Property ShortName As String
            Public Overridable Property RegistrationNumber As String
            Public Overridable Property EstablishedDate As Date
            Public Overridable Property RegistrationDate As Date
            Public Overridable Property Duns As String
            Public Overridable Property OperatingLicenseNumber As String
            Public Overridable Property IsAccounting As Boolean
            Public Overridable Property IsSmallTaxPayer As Boolean
            Public Overridable Property Email As String
            Public Overridable Property PhoneNumber As String
            Public Overridable Property Website As String
        End Class
    End Namespace
End Namespace