' Options: 'Date: 2026-10-20 14:58:45 'Version: 8.22 'Tip: To override a DTO option, remove "''" prefix before updating 'BaseUrl: https://emg-servdesk.eras-online.de ' '''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: GetCustomersOnlineStatus.* '''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 Eras2Web.Service.Desktop.Server.ServiceModel.Eras2Client.Models Imports Eras2Web.Service.Desktop.Server.ServiceModel.Eras2WebExt.Models Imports Eras2Web.Service.Desktop.Server.ServiceModel.Eras2Client.Customers Namespace Global Namespace Eras2Web.Service.Desktop.Server.ServiceModel.Eras2Client.Customers Public Partial Class GetCustomersOnlineStatus Implements IReturn(Of GetCustomersOnlineStatusResponse) Public Sub New() CustomersGuidList = New List(Of Guid) End Sub Public Overridable Property CustomersGuidList As List(Of Guid) End Class Public Partial Class GetCustomersOnlineStatusResponse Public Sub New() Kunden = New List(Of Customer) Objekte = New List(Of Objekt) BillingInformation = New List(Of BillingInformation) End Sub Public Overridable Property Kunden As List(Of Customer) Public Overridable Property Objekte As List(Of Objekt) Public Overridable Property BillingInformation As List(Of BillingInformation) Public Overridable Property ResponseStatus As ResponseStatus End Class End Namespace Namespace Eras2Web.Service.Desktop.Server.ServiceModel.Eras2Client.Models Public Partial Class BillingInformation Public Overridable Property Guid As String Public Overridable Property From As Date Public Overridable Property To As Date Public Overridable Property IsCompleted As Boolean Public Overridable Property HasNebenkosten As Boolean Public Overridable Property ObjektGuid As String Public Overridable Property AnmerkungKundenportal As String Public Overridable Property KundenportalMarkedDone As Boolean Public Overridable Property MarkedDoneAt As Nullable(Of Date) Public Overridable Property KundenportalMarkedClosed As Boolean Public Overridable Property MarkedClosedAt As Nullable(Of Date) End Class Public Partial Class Customer Public Sub New() CustomerAddresses = New List(Of CustomerAddress) CustomerObjekte = New List(Of CustomerObjekt) End Sub Public Overridable Property Guid As String Public Overridable Property Name1 As String Public Overridable Property Name2 As String Public Overridable Property Name3 As String Public Overridable Property Number As String Public Overridable Property Salutation As String Public Overridable Property CustomerAddresses As List(Of CustomerAddress) Public Overridable Property CustomerObjekte As List(Of CustomerObjekt) End Class Public Partial Class Objekt Public Overridable Property Guid As String Public Overridable Property Number As String Public Overridable Property IsCompleted As String Public Overridable Property Uvi As String Public Overridable Property IsUviDisabled As String Public Overridable Property CompletedDate As Nullable(Of Date) Public Overridable Property AddressGuid As String Public Overridable Property AnmerkungKundenportal As String Public Overridable Property KundenportalMarkedDone As Boolean Public Overridable Property MarkedDoneAt As Nullable(Of Date) End Class End Namespace Namespace Eras2Web.Service.Desktop.Server.ServiceModel.Eras2WebExt.Models Public Partial Class BillingInformation Public Overridable Property Guid As String Public Overridable Property From As Date Public Overridable Property To As Date Public Overridable Property IsCompleted As Boolean Public Overridable Property HasNebenkosten As Boolean End Class Public Partial Class Customer Public Sub New() CustomerAddresses = New List(Of CustomerAddress) CustomerObjekte = New List(Of CustomerObjekt) End Sub Public Overridable Property Guid As Guid Public Overridable Property Name1 As String Public Overridable Property Name2 As String Public Overridable Property Name3 As String Public Overridable Property Number As String Public Overridable Property Salutation As String Public Overridable Property CustomerAddresses As List(Of CustomerAddress) Public Overridable Property CustomerObjekte As List(Of CustomerObjekt) End Class Public Partial Class Objekt Public Sub New() Nutzeinheiten = New List(Of Nutzeinheit) BillingInformations = New List(Of BillingInformation) End Sub Public Overridable Property Guid As Guid Public Overridable Property Number As String Public Overridable Property IsCompleted As String Public Overridable Property CompletedDate As Nullable(Of Date) Public Overridable Property Address As Address Public Overridable Property Nutzeinheiten As List(Of Nutzeinheit) Public Overridable Property BillingInformations As List(Of BillingInformation) End Class End Namespace End Namespace