'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Imports System.Runtime.Serialization Namespace DSFinVKService _ Public Enum ErrorCode As Integer _ OK = 0 _ FAILED = 1 _ BAD_USERNAME = 2 _ BAD_PASSWORD = 3 _ TSE_NOT_FOUND = 4 _ TSE_INITIALIZATION_FAILED = 5 _ TSE_BEGIN_TRANSACTION_FAILED = 6 _ TSE_FINISH_TRANSACTION_FAILED = 7 _ ARRAY_LENGTH_NOT_EQUAL = 8 _ PARAMETER_ERROR = 9 _ DSFINVKCOM_LICENSE_NOT_VALID = 10 _ KSVCOM_LICENSE_NOT_VALID = 11 _ DATABASE_NO_CONNECTION = 100 _ DATABASE_CONNECTION_NOT_OPENED = 101 _ DATABASE_NOT_SPECIFIED = 102 _ DATABASE_OPERATION_FAILED = 103 _ CASHBOX_NAME_NOT_UNIQUE = 200 _ CASHBOX_IN_USE = 201 _ CASHBOX_NOT_FOUND = 202 _ CASHBOX_NOT_MANAGED = 203 _ CASHBOX_ALREADY_MANAGED = 204 _ ROW_HAS_INVALID_DATA = 10001 _ ROW_BON_ID_NOT_FOUND = 10100 _ ROW_BON_ID_ALREADY_EXISTS = 10101 _ ROW_BON_ID_ALREADY_FINISHED = 10102 End Enum _ Partial Public Class Kassendaten Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private IVNRField As Integer _ Private KASSE_BASISWAEH_CODEField As String _ Private KASSE_BRANDField As String _ Private KASSE_MODELLField As String _ Private KASSE_SERIENNRField As String _ Private KASSE_SW_BRANDField As String _ Private KASSE_SW_VERSIONField As String _ Private KEINE_UST_ZUORDNUNGField As String _ Private LOC_LANDField As String _ Private LOC_NAMEField As String _ Private LOC_ORTField As String _ Private LOC_PLZField As String _ Private LOC_STRASSEField As String _ Private LOC_USTIDField As String _ Private Z_KASSE_IDField As String _ Private Z_NRField As Long _ Private licenseField As String _ Private tse_bezeichnungField As String _ Private tse_ivnrField As Integer _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property IVNR() As Integer Get Return Me.IVNRField End Get Set If (Me.IVNRField.Equals(value) <> true) Then Me.IVNRField = value Me.RaisePropertyChanged("IVNR") End If End Set End Property _ Public Property KASSE_BASISWAEH_CODE() As String Get Return Me.KASSE_BASISWAEH_CODEField End Get Set If (Object.ReferenceEquals(Me.KASSE_BASISWAEH_CODEField, value) <> true) Then Me.KASSE_BASISWAEH_CODEField = value Me.RaisePropertyChanged("KASSE_BASISWAEH_CODE") End If End Set End Property _ Public Property KASSE_BRAND() As String Get Return Me.KASSE_BRANDField End Get Set If (Object.ReferenceEquals(Me.KASSE_BRANDField, value) <> true) Then Me.KASSE_BRANDField = value Me.RaisePropertyChanged("KASSE_BRAND") End If End Set End Property _ Public Property KASSE_MODELL() As String Get Return Me.KASSE_MODELLField End Get Set If (Object.ReferenceEquals(Me.KASSE_MODELLField, value) <> true) Then Me.KASSE_MODELLField = value Me.RaisePropertyChanged("KASSE_MODELL") End If End Set End Property _ Public Property KASSE_SERIENNR() As String Get Return Me.KASSE_SERIENNRField End Get Set If (Object.ReferenceEquals(Me.KASSE_SERIENNRField, value) <> true) Then Me.KASSE_SERIENNRField = value Me.RaisePropertyChanged("KASSE_SERIENNR") End If End Set End Property _ Public Property KASSE_SW_BRAND() As String Get Return Me.KASSE_SW_BRANDField End Get Set If (Object.ReferenceEquals(Me.KASSE_SW_BRANDField, value) <> true) Then Me.KASSE_SW_BRANDField = value Me.RaisePropertyChanged("KASSE_SW_BRAND") End If End Set End Property _ Public Property KASSE_SW_VERSION() As String Get Return Me.KASSE_SW_VERSIONField End Get Set If (Object.ReferenceEquals(Me.KASSE_SW_VERSIONField, value) <> true) Then Me.KASSE_SW_VERSIONField = value Me.RaisePropertyChanged("KASSE_SW_VERSION") End If End Set End Property _ Public Property KEINE_UST_ZUORDNUNG() As String Get Return Me.KEINE_UST_ZUORDNUNGField End Get Set If (Object.ReferenceEquals(Me.KEINE_UST_ZUORDNUNGField, value) <> true) Then Me.KEINE_UST_ZUORDNUNGField = value Me.RaisePropertyChanged("KEINE_UST_ZUORDNUNG") End If End Set End Property _ Public Property LOC_LAND() As String Get Return Me.LOC_LANDField End Get Set If (Object.ReferenceEquals(Me.LOC_LANDField, value) <> true) Then Me.LOC_LANDField = value Me.RaisePropertyChanged("LOC_LAND") End If End Set End Property _ Public Property LOC_NAME() As String Get Return Me.LOC_NAMEField End Get Set If (Object.ReferenceEquals(Me.LOC_NAMEField, value) <> true) Then Me.LOC_NAMEField = value Me.RaisePropertyChanged("LOC_NAME") End If End Set End Property _ Public Property LOC_ORT() As String Get Return Me.LOC_ORTField End Get Set If (Object.ReferenceEquals(Me.LOC_ORTField, value) <> true) Then Me.LOC_ORTField = value Me.RaisePropertyChanged("LOC_ORT") End If End Set End Property _ Public Property LOC_PLZ() As String Get Return Me.LOC_PLZField End Get Set If (Object.ReferenceEquals(Me.LOC_PLZField, value) <> true) Then Me.LOC_PLZField = value Me.RaisePropertyChanged("LOC_PLZ") End If End Set End Property _ Public Property LOC_STRASSE() As String Get Return Me.LOC_STRASSEField End Get Set If (Object.ReferenceEquals(Me.LOC_STRASSEField, value) <> true) Then Me.LOC_STRASSEField = value Me.RaisePropertyChanged("LOC_STRASSE") End If End Set End Property _ Public Property LOC_USTID() As String Get Return Me.LOC_USTIDField End Get Set If (Object.ReferenceEquals(Me.LOC_USTIDField, value) <> true) Then Me.LOC_USTIDField = value Me.RaisePropertyChanged("LOC_USTID") End If End Set End Property _ Public Property Z_KASSE_ID() As String Get Return Me.Z_KASSE_IDField End Get Set If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then Me.Z_KASSE_IDField = value Me.RaisePropertyChanged("Z_KASSE_ID") End If End Set End Property _ Public Property Z_NR() As Long Get Return Me.Z_NRField End Get Set If (Me.Z_NRField.Equals(value) <> true) Then Me.Z_NRField = value Me.RaisePropertyChanged("Z_NR") End If End Set End Property _ Public Property license() As String Get Return Me.licenseField End Get Set If (Object.ReferenceEquals(Me.licenseField, value) <> true) Then Me.licenseField = value Me.RaisePropertyChanged("license") End If End Set End Property _ Public Property tse_bezeichnung() As String Get Return Me.tse_bezeichnungField End Get Set If (Object.ReferenceEquals(Me.tse_bezeichnungField, value) <> true) Then Me.tse_bezeichnungField = value Me.RaisePropertyChanged("tse_bezeichnung") End If End Set End Property _ Public Property tse_ivnr() As Integer Get Return Me.tse_ivnrField End Get Set If (Me.tse_ivnrField.Equals(value) <> true) Then Me.tse_ivnrField = value Me.RaisePropertyChanged("tse_ivnr") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BonKopfBegin Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private BEDIENER_IDField As String _ Private BEDIENER_NAMEField As String _ Private BON_IDField As String _ Private BON_NAMEField As String _ Private BON_NOTIZField As String _ Private BON_NRField As Integer _ Private BON_STARTField As String _ Private BON_STORNOField As String _ Private BON_TYPField As String _ Private KUNDE_IDField As String _ Private KUNDE_LANDField As String _ Private KUNDE_NAMEField As String _ Private KUNDE_ORTField As String _ Private KUNDE_PLZField As String _ Private KUNDE_STRASSEField As String _ Private KUNDE_TYPField As String _ Private KUNDE_USTIDField As String _ Private TERMINAL_IDField As String _ Private Z_KASSE_IDField As String _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property BEDIENER_ID() As String Get Return Me.BEDIENER_IDField End Get Set If (Object.ReferenceEquals(Me.BEDIENER_IDField, value) <> true) Then Me.BEDIENER_IDField = value Me.RaisePropertyChanged("BEDIENER_ID") End If End Set End Property _ Public Property BEDIENER_NAME() As String Get Return Me.BEDIENER_NAMEField End Get Set If (Object.ReferenceEquals(Me.BEDIENER_NAMEField, value) <> true) Then Me.BEDIENER_NAMEField = value Me.RaisePropertyChanged("BEDIENER_NAME") End If End Set End Property _ Public Property BON_ID() As String Get Return Me.BON_IDField End Get Set If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then Me.BON_IDField = value Me.RaisePropertyChanged("BON_ID") End If End Set End Property _ Public Property BON_NAME() As String Get Return Me.BON_NAMEField End Get Set If (Object.ReferenceEquals(Me.BON_NAMEField, value) <> true) Then Me.BON_NAMEField = value Me.RaisePropertyChanged("BON_NAME") End If End Set End Property _ Public Property BON_NOTIZ() As String Get Return Me.BON_NOTIZField End Get Set If (Object.ReferenceEquals(Me.BON_NOTIZField, value) <> true) Then Me.BON_NOTIZField = value Me.RaisePropertyChanged("BON_NOTIZ") End If End Set End Property _ Public Property BON_NR() As Integer Get Return Me.BON_NRField End Get Set If (Me.BON_NRField.Equals(value) <> true) Then Me.BON_NRField = value Me.RaisePropertyChanged("BON_NR") End If End Set End Property _ Public Property BON_START() As String Get Return Me.BON_STARTField End Get Set If (Object.ReferenceEquals(Me.BON_STARTField, value) <> true) Then Me.BON_STARTField = value Me.RaisePropertyChanged("BON_START") End If End Set End Property _ Public Property BON_STORNO() As String Get Return Me.BON_STORNOField End Get Set If (Object.ReferenceEquals(Me.BON_STORNOField, value) <> true) Then Me.BON_STORNOField = value Me.RaisePropertyChanged("BON_STORNO") End If End Set End Property _ Public Property BON_TYP() As String Get Return Me.BON_TYPField End Get Set If (Object.ReferenceEquals(Me.BON_TYPField, value) <> true) Then Me.BON_TYPField = value Me.RaisePropertyChanged("BON_TYP") End If End Set End Property _ Public Property KUNDE_ID() As String Get Return Me.KUNDE_IDField End Get Set If (Object.ReferenceEquals(Me.KUNDE_IDField, value) <> true) Then Me.KUNDE_IDField = value Me.RaisePropertyChanged("KUNDE_ID") End If End Set End Property _ Public Property KUNDE_LAND() As String Get Return Me.KUNDE_LANDField End Get Set If (Object.ReferenceEquals(Me.KUNDE_LANDField, value) <> true) Then Me.KUNDE_LANDField = value Me.RaisePropertyChanged("KUNDE_LAND") End If End Set End Property _ Public Property KUNDE_NAME() As String Get Return Me.KUNDE_NAMEField End Get Set If (Object.ReferenceEquals(Me.KUNDE_NAMEField, value) <> true) Then Me.KUNDE_NAMEField = value Me.RaisePropertyChanged("KUNDE_NAME") End If End Set End Property _ Public Property KUNDE_ORT() As String Get Return Me.KUNDE_ORTField End Get Set If (Object.ReferenceEquals(Me.KUNDE_ORTField, value) <> true) Then Me.KUNDE_ORTField = value Me.RaisePropertyChanged("KUNDE_ORT") End If End Set End Property _ Public Property KUNDE_PLZ() As String Get Return Me.KUNDE_PLZField End Get Set If (Object.ReferenceEquals(Me.KUNDE_PLZField, value) <> true) Then Me.KUNDE_PLZField = value Me.RaisePropertyChanged("KUNDE_PLZ") End If End Set End Property _ Public Property KUNDE_STRASSE() As String Get Return Me.KUNDE_STRASSEField End Get Set If (Object.ReferenceEquals(Me.KUNDE_STRASSEField, value) <> true) Then Me.KUNDE_STRASSEField = value Me.RaisePropertyChanged("KUNDE_STRASSE") End If End Set End Property _ Public Property KUNDE_TYP() As String Get Return Me.KUNDE_TYPField End Get Set If (Object.ReferenceEquals(Me.KUNDE_TYPField, value) <> true) Then Me.KUNDE_TYPField = value Me.RaisePropertyChanged("KUNDE_TYP") End If End Set End Property _ Public Property KUNDE_USTID() As String Get Return Me.KUNDE_USTIDField End Get Set If (Object.ReferenceEquals(Me.KUNDE_USTIDField, value) <> true) Then Me.KUNDE_USTIDField = value Me.RaisePropertyChanged("KUNDE_USTID") End If End Set End Property _ Public Property TERMINAL_ID() As String Get Return Me.TERMINAL_IDField End Get Set If (Object.ReferenceEquals(Me.TERMINAL_IDField, value) <> true) Then Me.TERMINAL_IDField = value Me.RaisePropertyChanged("TERMINAL_ID") End If End Set End Property _ Public Property Z_KASSE_ID() As String Get Return Me.Z_KASSE_IDField End Get Set If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then Me.Z_KASSE_IDField = value Me.RaisePropertyChanged("Z_KASSE_ID") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BonKopfFinish Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private BON_ENDEField As String _ Private BON_IDField As String _ Private PROCESS_TYPEField As String _ Private UMS_BRUTTOField As Decimal _ Private Z_KASSE_IDField As String _ Private payment_currenciesField() As String _ Private payment_per_currencyField() As Decimal _ Private payment_typesField() As String _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property BON_ENDE() As String Get Return Me.BON_ENDEField End Get Set If (Object.ReferenceEquals(Me.BON_ENDEField, value) <> true) Then Me.BON_ENDEField = value Me.RaisePropertyChanged("BON_ENDE") End If End Set End Property _ Public Property BON_ID() As String Get Return Me.BON_IDField End Get Set If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then Me.BON_IDField = value Me.RaisePropertyChanged("BON_ID") End If End Set End Property _ Public Property PROCESS_TYPE() As String Get Return Me.PROCESS_TYPEField End Get Set If (Object.ReferenceEquals(Me.PROCESS_TYPEField, value) <> true) Then Me.PROCESS_TYPEField = value Me.RaisePropertyChanged("PROCESS_TYPE") End If End Set End Property _ Public Property UMS_BRUTTO() As Decimal Get Return Me.UMS_BRUTTOField End Get Set If (Me.UMS_BRUTTOField.Equals(value) <> true) Then Me.UMS_BRUTTOField = value Me.RaisePropertyChanged("UMS_BRUTTO") End If End Set End Property _ Public Property Z_KASSE_ID() As String Get Return Me.Z_KASSE_IDField End Get Set If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then Me.Z_KASSE_IDField = value Me.RaisePropertyChanged("Z_KASSE_ID") End If End Set End Property _ Public Property payment_currencies() As String() Get Return Me.payment_currenciesField End Get Set If (Object.ReferenceEquals(Me.payment_currenciesField, value) <> true) Then Me.payment_currenciesField = value Me.RaisePropertyChanged("payment_currencies") End If End Set End Property _ Public Property payment_per_currency() As Decimal() Get Return Me.payment_per_currencyField End Get Set If (Object.ReferenceEquals(Me.payment_per_currencyField, value) <> true) Then Me.payment_per_currencyField = value Me.RaisePropertyChanged("payment_per_currency") End If End Set End Property _ Public Property payment_types() As String() Get Return Me.payment_typesField End Get Set If (Object.ReferenceEquals(Me.payment_typesField, value) <> true) Then Me.payment_typesField = value Me.RaisePropertyChanged("payment_types") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BonPosition Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private AGENTUR_IDField As Integer _ Private ARTIKELTEXTField As String _ Private ART_NRField As String _ Private BON_IDField As String _ Private EINHEITField As String _ Private FAKTORField As Decimal _ Private GTINField As String _ Private GUTSCHEIN_NRField As String _ Private GV_NAMEField As String _ Private GV_TYPField As String _ Private INHAUSField As String _ Private MENGEField As Decimal _ Private POS_TERMINAL_IDField As String _ Private POS_ZEILEField As String _ Private P_STORNOField As String _ Private STK_BRField As Decimal _ Private WARENGRField As String _ Private WARENGR_IDField As String _ Private Z_KASSE_IDField As String _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property AGENTUR_ID() As Integer Get Return Me.AGENTUR_IDField End Get Set If (Me.AGENTUR_IDField.Equals(value) <> true) Then Me.AGENTUR_IDField = value Me.RaisePropertyChanged("AGENTUR_ID") End If End Set End Property _ Public Property ARTIKELTEXT() As String Get Return Me.ARTIKELTEXTField End Get Set If (Object.ReferenceEquals(Me.ARTIKELTEXTField, value) <> true) Then Me.ARTIKELTEXTField = value Me.RaisePropertyChanged("ARTIKELTEXT") End If End Set End Property _ Public Property ART_NR() As String Get Return Me.ART_NRField End Get Set If (Object.ReferenceEquals(Me.ART_NRField, value) <> true) Then Me.ART_NRField = value Me.RaisePropertyChanged("ART_NR") End If End Set End Property _ Public Property BON_ID() As String Get Return Me.BON_IDField End Get Set If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then Me.BON_IDField = value Me.RaisePropertyChanged("BON_ID") End If End Set End Property _ Public Property EINHEIT() As String Get Return Me.EINHEITField End Get Set If (Object.ReferenceEquals(Me.EINHEITField, value) <> true) Then Me.EINHEITField = value Me.RaisePropertyChanged("EINHEIT") End If End Set End Property _ Public Property FAKTOR() As Decimal Get Return Me.FAKTORField End Get Set If (Me.FAKTORField.Equals(value) <> true) Then Me.FAKTORField = value Me.RaisePropertyChanged("FAKTOR") End If End Set End Property _ Public Property GTIN() As String Get Return Me.GTINField End Get Set If (Object.ReferenceEquals(Me.GTINField, value) <> true) Then Me.GTINField = value Me.RaisePropertyChanged("GTIN") End If End Set End Property _ Public Property GUTSCHEIN_NR() As String Get Return Me.GUTSCHEIN_NRField End Get Set If (Object.ReferenceEquals(Me.GUTSCHEIN_NRField, value) <> true) Then Me.GUTSCHEIN_NRField = value Me.RaisePropertyChanged("GUTSCHEIN_NR") End If End Set End Property _ Public Property GV_NAME() As String Get Return Me.GV_NAMEField End Get Set If (Object.ReferenceEquals(Me.GV_NAMEField, value) <> true) Then Me.GV_NAMEField = value Me.RaisePropertyChanged("GV_NAME") End If End Set End Property _ Public Property GV_TYP() As String Get Return Me.GV_TYPField End Get Set If (Object.ReferenceEquals(Me.GV_TYPField, value) <> true) Then Me.GV_TYPField = value Me.RaisePropertyChanged("GV_TYP") End If End Set End Property _ Public Property INHAUS() As String Get Return Me.INHAUSField End Get Set If (Object.ReferenceEquals(Me.INHAUSField, value) <> true) Then Me.INHAUSField = value Me.RaisePropertyChanged("INHAUS") End If End Set End Property _ Public Property MENGE() As Decimal Get Return Me.MENGEField End Get Set If (Me.MENGEField.Equals(value) <> true) Then Me.MENGEField = value Me.RaisePropertyChanged("MENGE") End If End Set End Property _ Public Property POS_TERMINAL_ID() As String Get Return Me.POS_TERMINAL_IDField End Get Set If (Object.ReferenceEquals(Me.POS_TERMINAL_IDField, value) <> true) Then Me.POS_TERMINAL_IDField = value Me.RaisePropertyChanged("POS_TERMINAL_ID") End If End Set End Property _ Public Property POS_ZEILE() As String Get Return Me.POS_ZEILEField End Get Set If (Object.ReferenceEquals(Me.POS_ZEILEField, value) <> true) Then Me.POS_ZEILEField = value Me.RaisePropertyChanged("POS_ZEILE") End If End Set End Property _ Public Property P_STORNO() As String Get Return Me.P_STORNOField End Get Set If (Object.ReferenceEquals(Me.P_STORNOField, value) <> true) Then Me.P_STORNOField = value Me.RaisePropertyChanged("P_STORNO") End If End Set End Property _ Public Property STK_BR() As Decimal Get Return Me.STK_BRField End Get Set If (Me.STK_BRField.Equals(value) <> true) Then Me.STK_BRField = value Me.RaisePropertyChanged("STK_BR") End If End Set End Property _ Public Property WARENGR() As String Get Return Me.WARENGRField End Get Set If (Object.ReferenceEquals(Me.WARENGRField, value) <> true) Then Me.WARENGRField = value Me.RaisePropertyChanged("WARENGR") End If End Set End Property _ Public Property WARENGR_ID() As String Get Return Me.WARENGR_IDField End Get Set If (Object.ReferenceEquals(Me.WARENGR_IDField, value) <> true) Then Me.WARENGR_IDField = value Me.RaisePropertyChanged("WARENGR_ID") End If End Set End Property _ Public Property Z_KASSE_ID() As String Get Return Me.Z_KASSE_IDField End Get Set If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then Me.Z_KASSE_IDField = value Me.RaisePropertyChanged("Z_KASSE_ID") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class BonPosition_Ust Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private BON_IDField As String _ Private POS_BRUTTOField As Decimal _ Private POS_NETTOField As Decimal _ Private POS_USTField As Decimal _ Private POS_ZEILEField As String _ Private UST_SCHLUESSELField As Integer _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property BON_ID() As String Get Return Me.BON_IDField End Get Set If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then Me.BON_IDField = value Me.RaisePropertyChanged("BON_ID") End If End Set End Property _ Public Property POS_BRUTTO() As Decimal Get Return Me.POS_BRUTTOField End Get Set If (Me.POS_BRUTTOField.Equals(value) <> true) Then Me.POS_BRUTTOField = value Me.RaisePropertyChanged("POS_BRUTTO") End If End Set End Property _ Public Property POS_NETTO() As Decimal Get Return Me.POS_NETTOField End Get Set If (Me.POS_NETTOField.Equals(value) <> true) Then Me.POS_NETTOField = value Me.RaisePropertyChanged("POS_NETTO") End If End Set End Property _ Public Property POS_UST() As Decimal Get Return Me.POS_USTField End Get Set If (Me.POS_USTField.Equals(value) <> true) Then Me.POS_USTField = value Me.RaisePropertyChanged("POS_UST") End If End Set End Property _ Public Property POS_ZEILE() As String Get Return Me.POS_ZEILEField End Get Set If (Object.ReferenceEquals(Me.POS_ZEILEField, value) <> true) Then Me.POS_ZEILEField = value Me.RaisePropertyChanged("POS_ZEILE") End If End Set End Property _ Public Property UST_SCHLUESSEL() As Integer Get Return Me.UST_SCHLUESSELField End Get Set If (Me.UST_SCHLUESSELField.Equals(value) <> true) Then Me.UST_SCHLUESSELField = value Me.RaisePropertyChanged("UST_SCHLUESSEL") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class TSEData Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private tse_pd_encodingField As String _ Private tse_public_keyField As String _ Private tse_serialField As String _ Private tse_sig_algoField As String _ Private tse_zeitformatField As String _ Private tse_zertifikatField As String _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property tse_pd_encoding() As String Get Return Me.tse_pd_encodingField End Get Set If (Object.ReferenceEquals(Me.tse_pd_encodingField, value) <> true) Then Me.tse_pd_encodingField = value Me.RaisePropertyChanged("tse_pd_encoding") End If End Set End Property _ Public Property tse_public_key() As String Get Return Me.tse_public_keyField End Get Set If (Object.ReferenceEquals(Me.tse_public_keyField, value) <> true) Then Me.tse_public_keyField = value Me.RaisePropertyChanged("tse_public_key") End If End Set End Property _ Public Property tse_serial() As String Get Return Me.tse_serialField End Get Set If (Object.ReferenceEquals(Me.tse_serialField, value) <> true) Then Me.tse_serialField = value Me.RaisePropertyChanged("tse_serial") End If End Set End Property _ Public Property tse_sig_algo() As String Get Return Me.tse_sig_algoField End Get Set If (Object.ReferenceEquals(Me.tse_sig_algoField, value) <> true) Then Me.tse_sig_algoField = value Me.RaisePropertyChanged("tse_sig_algo") End If End Set End Property _ Public Property tse_zeitformat() As String Get Return Me.tse_zeitformatField End Get Set If (Object.ReferenceEquals(Me.tse_zeitformatField, value) <> true) Then Me.tse_zeitformatField = value Me.RaisePropertyChanged("tse_zeitformat") End If End Set End Property _ Public Property tse_zertifikat() As String Get Return Me.tse_zertifikatField End Get Set If (Object.ReferenceEquals(Me.tse_zertifikatField, value) <> true) Then Me.tse_zertifikatField = value Me.RaisePropertyChanged("tse_zertifikat") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Partial Public Class Taxes Inherits Object Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged _ Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject _ Private CountField As Integer _ Private UST_BESCHRField() As String _ Private UST_SATZField() As Decimal _ Private UST_SCHLUESSELField() As Integer _ Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData Get Return Me.extensionDataField End Get Set Me.extensionDataField = value End Set End Property _ Public Property Count() As Integer Get Return Me.CountField End Get Set If (Me.CountField.Equals(value) <> true) Then Me.CountField = value Me.RaisePropertyChanged("Count") End If End Set End Property _ Public Property UST_BESCHR() As String() Get Return Me.UST_BESCHRField End Get Set If (Object.ReferenceEquals(Me.UST_BESCHRField, value) <> true) Then Me.UST_BESCHRField = value Me.RaisePropertyChanged("UST_BESCHR") End If End Set End Property _ Public Property UST_SATZ() As Decimal() Get Return Me.UST_SATZField End Get Set If (Object.ReferenceEquals(Me.UST_SATZField, value) <> true) Then Me.UST_SATZField = value Me.RaisePropertyChanged("UST_SATZ") End If End Set End Property _ Public Property UST_SCHLUESSEL() As Integer() Get Return Me.UST_SCHLUESSELField End Get Set If (Object.ReferenceEquals(Me.UST_SCHLUESSELField, value) <> true) Then Me.UST_SCHLUESSELField = value Me.RaisePropertyChanged("UST_SCHLUESSEL") End If End Set End Property Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Protected Sub RaisePropertyChanged(ByVal propertyName As String) Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent If (Not (propertyChanged) Is Nothing) Then propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) End If End Sub End Class _ Public Interface IDSFinVKServer _ Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String _ Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String) _ Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode _ Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function CleanupLibrary(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode _ Function CleanupLibraryAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As DSFinVKService.ErrorCode _ Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function CreateCashbox(ByVal cashbox As DSFinVKService.Kassendaten) As DSFinVKService.ErrorCode _ Function CreateCashboxAsync(ByVal cashbox As DSFinVKService.Kassendaten) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function GetCashboxes(ByVal request As DSFinVKService.GetCashboxesRequest) As DSFinVKService.GetCashboxesResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetCashboxesAsync(ByVal request As DSFinVKService.GetCashboxesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetCashboxesResponse) _ Function BeginReceipt(ByVal request As DSFinVKService.BeginReceiptRequest) As DSFinVKService.BeginReceiptResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function BeginReceiptAsync(ByVal request As DSFinVKService.BeginReceiptRequest) As System.Threading.Tasks.Task(Of DSFinVKService.BeginReceiptResponse) _ Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode _ Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode _ Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode _ Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As DSFinVKService.ErrorCode _ Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As DSFinVKService.ErrorCode _ Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As DSFinVKService.ErrorCode _ Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function ExportCSVFiles( _ ByVal Z_KASSE_ID As String, _ ByVal Z_NR_From As Integer, _ ByVal Z_NR_To As Integer, _ ByVal path As String, _ ByVal zipFileName As String, _ ByVal exportCashpointclosing As Boolean, _ ByVal exportLocation As Boolean, _ ByVal exportCashregister As Boolean, _ ByVal exportSlaves As Boolean, _ ByVal exportPa As Boolean, _ ByVal exportVat As Boolean, _ ByVal exportTse As Boolean, _ ByVal exportBusinesscases As Boolean, _ ByVal exportPayment As Boolean, _ ByVal exportCashPerCurrency As Boolean, _ ByVal exportTransactions As Boolean, _ ByVal exportAllocationGroups As Boolean, _ ByVal exportTransactionsVat As Boolean, _ ByVal exportDatapayment As Boolean, _ ByVal exportLines As Boolean, _ ByVal exportLinesVat As Boolean, _ ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ ByVal exportTransactionsTse As Boolean) As DSFinVKService.ErrorCode _ Function ExportCSVFilesAsync( _ ByVal Z_KASSE_ID As String, _ ByVal Z_NR_From As Integer, _ ByVal Z_NR_To As Integer, _ ByVal path As String, _ ByVal zipFileName As String, _ ByVal exportCashpointclosing As Boolean, _ ByVal exportLocation As Boolean, _ ByVal exportCashregister As Boolean, _ ByVal exportSlaves As Boolean, _ ByVal exportPa As Boolean, _ ByVal exportVat As Boolean, _ ByVal exportTse As Boolean, _ ByVal exportBusinesscases As Boolean, _ ByVal exportPayment As Boolean, _ ByVal exportCashPerCurrency As Boolean, _ ByVal exportTransactions As Boolean, _ ByVal exportAllocationGroups As Boolean, _ ByVal exportTransactionsVat As Boolean, _ ByVal exportDatapayment As Boolean, _ ByVal exportLines As Boolean, _ ByVal exportLinesVat As Boolean, _ ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function GetAvailableTseList(ByVal request As DSFinVKService.GetAvailableTseListRequest) As DSFinVKService.GetAvailableTseListResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetAvailableTseListAsync(ByVal request As DSFinVKService.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableTseListResponse) _ Function GetDsFinVKValues(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As DSFinVKService.GetDsFinVKValuesResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetDsFinVKValuesAsync(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesResponse) _ Function GetDsFinVKValuesForTse(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As DSFinVKService.GetDsFinVKValuesForTseResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetDsFinVKValuesForTseAsync(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesForTseResponse) _ Function SetupTseForFirstUseTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer _ Function SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) _ Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String _ Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) _ Function GetAvailableClientsTse(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As DSFinVKService.GetAvailableClientsTseResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetAvailableClientsTseAsync(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableClientsTseResponse) _ Function IsClientPresentTse(ByVal request As DSFinVKService.IsClientPresentTseRequest) As DSFinVKService.IsClientPresentTseResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function IsClientPresentTseAsync(ByVal request As DSFinVKService.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.IsClientPresentTseResponse) _ Function GetTaxIds(ByVal request As DSFinVKService.GetTaxIdsRequest) As DSFinVKService.GetTaxIdsResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetTaxIdsAsync(ByVal request As DSFinVKService.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetTaxIdsResponse) _ Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode _ Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function GetLastReceiptValues(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As DSFinVKService.GetLastReceiptValuesResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetLastReceiptValuesAsync(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptValuesResponse) _ Function GetLastReceiptQrCode(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As DSFinVKService.GetLastReceiptQrCodeResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetLastReceiptQrCodeAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeResponse) _ Function GetLastReceiptQrCodeContent(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As DSFinVKService.GetLastReceiptQrCodeContentResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetLastReceiptQrCodeContentAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeContentResponse) _ Function RegisterNewClientTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As DSFinVKService.ErrorCode _ Function RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) _ Function GetNextBON_ID(ByVal request As DSFinVKService.GetNextBON_IDRequest) As DSFinVKService.GetNextBON_IDResponse 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. _ Function GetNextBON_IDAsync(ByVal request As DSFinVKService.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetNextBON_IDResponse) End Interface _ Partial Public Class GetCashboxesRequest _ Public cashBoxes() As DSFinVKService.Kassendaten Public Sub New() MyBase.New End Sub Public Sub New(ByVal cashBoxes() As DSFinVKService.Kassendaten) MyBase.New Me.cashBoxes = cashBoxes End Sub End Class _ Partial Public Class GetCashboxesResponse _ Public GetCashboxesResult As DSFinVKService.ErrorCode _ Public cashBoxes() As DSFinVKService.Kassendaten Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetCashboxesResult As DSFinVKService.ErrorCode, ByVal cashBoxes() As DSFinVKService.Kassendaten) MyBase.New Me.GetCashboxesResult = GetCashboxesResult Me.cashBoxes = cashBoxes End Sub End Class _ Partial Public Class BeginReceiptRequest _ Public cashboxName As String _ Public bonkopfBegin As DSFinVKService.BonKopfBegin _ Public transactionNumber As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal cashboxName As String, ByVal bonkopfBegin As DSFinVKService.BonKopfBegin, ByVal transactionNumber As Integer) MyBase.New Me.cashboxName = cashboxName Me.bonkopfBegin = bonkopfBegin Me.transactionNumber = transactionNumber End Sub End Class _ Partial Public Class BeginReceiptResponse _ Public BeginReceiptResult As DSFinVKService.ErrorCode _ Public transactionNumber As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal BeginReceiptResult As DSFinVKService.ErrorCode, ByVal transactionNumber As Integer) MyBase.New Me.BeginReceiptResult = BeginReceiptResult Me.transactionNumber = transactionNumber End Sub End Class _ Partial Public Class GetAvailableTseListRequest _ Public startDriveLetter As String _ Public endDriveLetter As String _ Public tseDriveLetterList() As String _ Public tseSerialList() As String _ Public count As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer) MyBase.New Me.startDriveLetter = startDriveLetter Me.endDriveLetter = endDriveLetter Me.tseDriveLetterList = tseDriveLetterList Me.tseSerialList = tseSerialList Me.count = count End Sub End Class _ Partial Public Class GetAvailableTseListResponse _ Public GetAvailableTseListResult As Integer _ Public tseDriveLetterList() As String _ Public tseSerialList() As String _ Public count As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAvailableTseListResult As Integer, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer) MyBase.New Me.GetAvailableTseListResult = GetAvailableTseListResult Me.tseDriveLetterList = tseDriveLetterList Me.tseSerialList = tseSerialList Me.count = count End Sub End Class _ Partial Public Class GetDsFinVKValuesRequest _ Public Z_KASSE_ID As String _ Public tse_serial As String _ Public tse_sig_algo As String _ Public tse_zeitformat As String _ Public tse_pd_encoding As String _ Public tse_public_key As String _ Public tse_zertifikat As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.tse_serial = tse_serial Me.tse_sig_algo = tse_sig_algo Me.tse_zeitformat = tse_zeitformat Me.tse_pd_encoding = tse_pd_encoding Me.tse_public_key = tse_public_key Me.tse_zertifikat = tse_zertifikat End Sub End Class _ Partial Public Class GetDsFinVKValuesResponse _ Public GetDsFinVKValuesResult As Integer _ Public tse_serial As String _ Public tse_sig_algo As String _ Public tse_zeitformat As String _ Public tse_pd_encoding As String _ Public tse_public_key As String _ Public tse_zertifikat As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetDsFinVKValuesResult As Integer, ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String) MyBase.New Me.GetDsFinVKValuesResult = GetDsFinVKValuesResult Me.tse_serial = tse_serial Me.tse_sig_algo = tse_sig_algo Me.tse_zeitformat = tse_zeitformat Me.tse_pd_encoding = tse_pd_encoding Me.tse_public_key = tse_public_key Me.tse_zertifikat = tse_zertifikat End Sub End Class _ Partial Public Class GetDsFinVKValuesForTseRequest _ Public Z_KASSE_ID As String _ Public driveLetter As String _ Public tseData As DSFinVKService.TSEData Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As DSFinVKService.TSEData) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.driveLetter = driveLetter Me.tseData = tseData End Sub End Class _ Partial Public Class GetDsFinVKValuesForTseResponse _ Public GetDsFinVKValuesForTseResult As Integer _ Public tseData As DSFinVKService.TSEData Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetDsFinVKValuesForTseResult As Integer, ByVal tseData As DSFinVKService.TSEData) MyBase.New Me.GetDsFinVKValuesForTseResult = GetDsFinVKValuesForTseResult Me.tseData = tseData End Sub End Class _ Partial Public Class GetAvailableClientsTseRequest _ Public Z_KASSE_ID As String _ Public driveLetter As String _ Public clientIds() As String _ Public count As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.driveLetter = driveLetter Me.clientIds = clientIds Me.count = count End Sub End Class _ Partial Public Class GetAvailableClientsTseResponse _ Public GetAvailableClientsTseResult As Integer _ Public clientIds() As String _ Public count As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetAvailableClientsTseResult As Integer, ByVal clientIds() As String, ByVal count As Integer) MyBase.New Me.GetAvailableClientsTseResult = GetAvailableClientsTseResult Me.clientIds = clientIds Me.count = count End Sub End Class _ Partial Public Class IsClientPresentTseRequest _ Public Z_KASSE_ID As String _ Public driveLetter As String _ Public clientId As String _ Public result As Boolean Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.driveLetter = driveLetter Me.clientId = clientId Me.result = result End Sub End Class _ Partial Public Class IsClientPresentTseResponse _ Public IsClientPresentTseResult As DSFinVKService.ErrorCode _ Public result As Boolean Public Sub New() MyBase.New End Sub Public Sub New(ByVal IsClientPresentTseResult As DSFinVKService.ErrorCode, ByVal result As Boolean) MyBase.New Me.IsClientPresentTseResult = IsClientPresentTseResult Me.result = result End Sub End Class _ Partial Public Class GetTaxIdsRequest _ Public Z_KASSE_ID As String _ Public taxes As DSFinVKService.Taxes Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal taxes As DSFinVKService.Taxes) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.taxes = taxes End Sub End Class _ Partial Public Class GetTaxIdsResponse _ Public GetTaxIdsResult As DSFinVKService.ErrorCode _ Public taxes As DSFinVKService.Taxes Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetTaxIdsResult As DSFinVKService.ErrorCode, ByVal taxes As DSFinVKService.Taxes) MyBase.New Me.GetTaxIdsResult = GetTaxIdsResult Me.taxes = taxes End Sub End Class _ Partial Public Class GetLastReceiptValuesRequest _ Public Z_KASSE_ID As String _ Public transactionNumber As String _ Public serialNumber As String _ Public signature As String _ Public transactionStart As Date _ Public transactionFinish As Date _ Public sigCounter As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.transactionNumber = transactionNumber Me.serialNumber = serialNumber Me.signature = signature Me.transactionStart = transactionStart Me.transactionFinish = transactionFinish Me.sigCounter = sigCounter End Sub End Class _ Partial Public Class GetLastReceiptValuesResponse _ Public GetLastReceiptValuesResult As DSFinVKService.ErrorCode _ Public transactionNumber As String _ Public serialNumber As String _ Public signature As String _ Public transactionStart As Date _ Public transactionFinish As Date _ Public sigCounter As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetLastReceiptValuesResult As DSFinVKService.ErrorCode, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) MyBase.New Me.GetLastReceiptValuesResult = GetLastReceiptValuesResult Me.transactionNumber = transactionNumber Me.serialNumber = serialNumber Me.signature = signature Me.transactionStart = transactionStart Me.transactionFinish = transactionFinish Me.sigCounter = sigCounter End Sub End Class _ Partial Public Class GetLastReceiptQrCodeRequest _ Public Z_KASSE_ID As String _ Public qrCode As String _ Public mimeType As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal qrCode As String, ByVal mimeType As String) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.qrCode = qrCode Me.mimeType = mimeType End Sub End Class _ Partial Public Class GetLastReceiptQrCodeResponse _ Public GetLastReceiptQrCodeResult As DSFinVKService.ErrorCode _ Public qrCode As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetLastReceiptQrCodeResult As DSFinVKService.ErrorCode, ByVal qrCode As String) MyBase.New Me.GetLastReceiptQrCodeResult = GetLastReceiptQrCodeResult Me.qrCode = qrCode End Sub End Class _ Partial Public Class GetLastReceiptQrCodeContentRequest _ Public Z_KASSE_ID As String _ Public qrCodeContent As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal qrCodeContent As String) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.qrCodeContent = qrCodeContent End Sub End Class _ Partial Public Class GetLastReceiptQrCodeContentResponse _ Public GetLastReceiptQrCodeContentResult As DSFinVKService.ErrorCode _ Public qrCodeContent As String Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetLastReceiptQrCodeContentResult As DSFinVKService.ErrorCode, ByVal qrCodeContent As String) MyBase.New Me.GetLastReceiptQrCodeContentResult = GetLastReceiptQrCodeContentResult Me.qrCodeContent = qrCodeContent End Sub End Class _ Partial Public Class GetNextBON_IDRequest _ Public Z_KASSE_ID As String _ Public BON_ID As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal Z_KASSE_ID As String, ByVal BON_ID As Integer) MyBase.New Me.Z_KASSE_ID = Z_KASSE_ID Me.BON_ID = BON_ID End Sub End Class _ Partial Public Class GetNextBON_IDResponse _ Public GetNextBON_IDResult As DSFinVKService.ErrorCode _ Public BON_ID As Integer Public Sub New() MyBase.New End Sub Public Sub New(ByVal GetNextBON_IDResult As DSFinVKService.ErrorCode, ByVal BON_ID As Integer) MyBase.New Me.GetNextBON_IDResult = GetNextBON_IDResult Me.BON_ID = BON_ID End Sub End Class _ Public Interface IDSFinVKServerChannel Inherits DSFinVKService.IDSFinVKServer, System.ServiceModel.IClientChannel End Interface _ Partial Public Class DSFinVKServerClient Inherits System.ServiceModel.ClientBase(Of DSFinVKService.IDSFinVKServer) Implements DSFinVKService.IDSFinVKServer Public Sub New() MyBase.New End Sub Public Sub New(ByVal endpointConfigurationName As String) MyBase.New(endpointConfigurationName) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(endpointConfigurationName, remoteAddress) End Sub Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) MyBase.New(binding, remoteAddress) End Sub Public Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String Implements DSFinVKService.IDSFinVKServer.GetMachineCode Return MyBase.Channel.GetMachineCode(isDemoLicense, clientId) End Function Public Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String) Implements DSFinVKService.IDSFinVKServer.GetMachineCodeAsync Return MyBase.Channel.GetMachineCodeAsync(isDemoLicense, clientId) End Function Public Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.InitializeLibrary Return MyBase.Channel.InitializeLibrary(server, database, username, password, Z_KASSE_ID) End Function Public Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.InitializeLibraryAsync Return MyBase.Channel.InitializeLibraryAsync(server, database, username, password, Z_KASSE_ID) End Function Public Function CleanupLibrary(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CleanupLibrary Return MyBase.Channel.CleanupLibrary(Z_KASSE_ID) End Function Public Function CleanupLibraryAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CleanupLibraryAsync Return MyBase.Channel.CleanupLibraryAsync(Z_KASSE_ID) End Function Public Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CreateDatabase Return MyBase.Channel.CreateDatabase(server, database, username, password) End Function Public Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CreateDatabaseAsync Return MyBase.Channel.CreateDatabaseAsync(server, database, username, password) End Function Public Function CreateCashbox(ByVal cashbox As DSFinVKService.Kassendaten) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CreateCashbox Return MyBase.Channel.CreateCashbox(cashbox) End Function Public Function CreateCashboxAsync(ByVal cashbox As DSFinVKService.Kassendaten) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CreateCashboxAsync Return MyBase.Channel.CreateCashboxAsync(cashbox) End Function _ Function DSFinVKService_IDSFinVKServer_GetCashboxes(ByVal request As DSFinVKService.GetCashboxesRequest) As DSFinVKService.GetCashboxesResponse Implements DSFinVKService.IDSFinVKServer.GetCashboxes Return MyBase.Channel.GetCashboxes(request) End Function Public Function GetCashboxes(ByRef cashBoxes() As DSFinVKService.Kassendaten) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.GetCashboxesRequest = New DSFinVKService.GetCashboxesRequest() inValue.cashBoxes = cashBoxes Dim retVal As DSFinVKService.GetCashboxesResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetCashboxes(inValue) cashBoxes = retVal.cashBoxes Return retVal.GetCashboxesResult End Function Public Function GetCashboxesAsync(ByVal request As DSFinVKService.GetCashboxesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetCashboxesResponse) Implements DSFinVKService.IDSFinVKServer.GetCashboxesAsync Return MyBase.Channel.GetCashboxesAsync(request) End Function _ Function DSFinVKService_IDSFinVKServer_BeginReceipt(ByVal request As DSFinVKService.BeginReceiptRequest) As DSFinVKService.BeginReceiptResponse Implements DSFinVKService.IDSFinVKServer.BeginReceipt Return MyBase.Channel.BeginReceipt(request) End Function Public Function BeginReceipt(ByVal cashboxName As String, ByVal bonkopfBegin As DSFinVKService.BonKopfBegin, ByRef transactionNumber As Integer) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.BeginReceiptRequest = New DSFinVKService.BeginReceiptRequest() inValue.cashboxName = cashboxName inValue.bonkopfBegin = bonkopfBegin inValue.transactionNumber = transactionNumber Dim retVal As DSFinVKService.BeginReceiptResponse = CType(Me,DSFinVKService.IDSFinVKServer).BeginReceipt(inValue) transactionNumber = retVal.transactionNumber Return retVal.BeginReceiptResult End Function Public Function BeginReceiptAsync(ByVal request As DSFinVKService.BeginReceiptRequest) As System.Threading.Tasks.Task(Of DSFinVKService.BeginReceiptResponse) Implements DSFinVKService.IDSFinVKServer.BeginReceiptAsync Return MyBase.Channel.BeginReceiptAsync(request) End Function Public Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.UpdateReceipt Return MyBase.Channel.UpdateReceipt(cashboxName, transactionNumber) End Function Public Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.UpdateReceiptAsync Return MyBase.Channel.UpdateReceiptAsync(cashboxName, transactionNumber) End Function Public Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.FinishReceipt Return MyBase.Channel.FinishReceipt(cashboxName, bonkopfFinish, transactionNumber) End Function Public Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As DSFinVKService.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.FinishReceiptAsync Return MyBase.Channel.FinishReceiptAsync(cashboxName, bonkopfFinish, transactionNumber) End Function Public Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.AddPositionToReceipt Return MyBase.Channel.AddPositionToReceipt(cashboxName, position, position_vat, transactionNumber) End Function Public Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As DSFinVKService.BonPosition, ByVal position_vat As DSFinVKService.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.AddPositionToReceiptAsync Return MyBase.Channel.AddPositionToReceiptAsync(cashboxName, position, position_vat, transactionNumber) End Function Public Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportFull Return MyBase.Channel.ExportFull(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName) End Function Public Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportFullAsync Return MyBase.Channel.ExportFullAsync(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName) End Function Public Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportDateToDate Return MyBase.Channel.ExportDateToDate(cashboxName, dtFrom, dtTo) End Function Public Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportDateToDateAsync Return MyBase.Channel.ExportDateToDateAsync(cashboxName, dtFrom, dtTo) End Function Public Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportNumberToNumber Return MyBase.Channel.ExportNumberToNumber(cashboxName, numberFrom, numberTo) End Function Public Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportNumberToNumberAsync Return MyBase.Channel.ExportNumberToNumberAsync(cashboxName, numberFrom, numberTo) End Function Public Function ExportCSVFiles( _ ByVal Z_KASSE_ID As String, _ ByVal Z_NR_From As Integer, _ ByVal Z_NR_To As Integer, _ ByVal path As String, _ ByVal zipFileName As String, _ ByVal exportCashpointclosing As Boolean, _ ByVal exportLocation As Boolean, _ ByVal exportCashregister As Boolean, _ ByVal exportSlaves As Boolean, _ ByVal exportPa As Boolean, _ ByVal exportVat As Boolean, _ ByVal exportTse As Boolean, _ ByVal exportBusinesscases As Boolean, _ ByVal exportPayment As Boolean, _ ByVal exportCashPerCurrency As Boolean, _ ByVal exportTransactions As Boolean, _ ByVal exportAllocationGroups As Boolean, _ ByVal exportTransactionsVat As Boolean, _ ByVal exportDatapayment As Boolean, _ ByVal exportLines As Boolean, _ ByVal exportLinesVat As Boolean, _ ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ ByVal exportTransactionsTse As Boolean) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.ExportCSVFiles Return MyBase.Channel.ExportCSVFiles(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName, exportCashpointclosing, exportLocation, exportCashregister, exportSlaves, exportPa, exportVat, exportTse, exportBusinesscases, exportPayment, exportCashPerCurrency, exportTransactions, exportAllocationGroups, exportTransactionsVat, exportDatapayment, exportLines, exportLinesVat, exportItemamounts, exportSubitems, exportReferences, exportTransactionsTse) End Function Public Function ExportCSVFilesAsync( _ ByVal Z_KASSE_ID As String, _ ByVal Z_NR_From As Integer, _ ByVal Z_NR_To As Integer, _ ByVal path As String, _ ByVal zipFileName As String, _ ByVal exportCashpointclosing As Boolean, _ ByVal exportLocation As Boolean, _ ByVal exportCashregister As Boolean, _ ByVal exportSlaves As Boolean, _ ByVal exportPa As Boolean, _ ByVal exportVat As Boolean, _ ByVal exportTse As Boolean, _ ByVal exportBusinesscases As Boolean, _ ByVal exportPayment As Boolean, _ ByVal exportCashPerCurrency As Boolean, _ ByVal exportTransactions As Boolean, _ ByVal exportAllocationGroups As Boolean, _ ByVal exportTransactionsVat As Boolean, _ ByVal exportDatapayment As Boolean, _ ByVal exportLines As Boolean, _ ByVal exportLinesVat As Boolean, _ ByVal exportItemamounts As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportReferences As Boolean, _ ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.ExportCSVFilesAsync Return MyBase.Channel.ExportCSVFilesAsync(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName, exportCashpointclosing, exportLocation, exportCashregister, exportSlaves, exportPa, exportVat, exportTse, exportBusinesscases, exportPayment, exportCashPerCurrency, exportTransactions, exportAllocationGroups, exportTransactionsVat, exportDatapayment, exportLines, exportLinesVat, exportItemamounts, exportSubitems, exportReferences, exportTransactionsTse) End Function _ Function DSFinVKService_IDSFinVKServer_GetAvailableTseList(ByVal request As DSFinVKService.GetAvailableTseListRequest) As DSFinVKService.GetAvailableTseListResponse Implements DSFinVKService.IDSFinVKServer.GetAvailableTseList Return MyBase.Channel.GetAvailableTseList(request) End Function Public Function GetAvailableTseList(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByRef tseDriveLetterList() As String, ByRef tseSerialList() As String, ByRef count As Integer) As Integer Dim inValue As DSFinVKService.GetAvailableTseListRequest = New DSFinVKService.GetAvailableTseListRequest() inValue.startDriveLetter = startDriveLetter inValue.endDriveLetter = endDriveLetter inValue.tseDriveLetterList = tseDriveLetterList inValue.tseSerialList = tseSerialList inValue.count = count Dim retVal As DSFinVKService.GetAvailableTseListResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetAvailableTseList(inValue) tseDriveLetterList = retVal.tseDriveLetterList tseSerialList = retVal.tseSerialList count = retVal.count Return retVal.GetAvailableTseListResult End Function Public Function GetAvailableTseListAsync(ByVal request As DSFinVKService.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableTseListResponse) Implements DSFinVKService.IDSFinVKServer.GetAvailableTseListAsync Return MyBase.Channel.GetAvailableTseListAsync(request) End Function _ Function DSFinVKService_IDSFinVKServer_GetDsFinVKValues(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As DSFinVKService.GetDsFinVKValuesResponse Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValues Return MyBase.Channel.GetDsFinVKValues(request) End Function Public Function GetDsFinVKValues(ByVal Z_KASSE_ID As String, ByRef tse_serial As String, ByRef tse_sig_algo As String, ByRef tse_zeitformat As String, ByRef tse_pd_encoding As String, ByRef tse_public_key As String, ByRef tse_zertifikat As String) As Integer Dim inValue As DSFinVKService.GetDsFinVKValuesRequest = New DSFinVKService.GetDsFinVKValuesRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.tse_serial = tse_serial inValue.tse_sig_algo = tse_sig_algo inValue.tse_zeitformat = tse_zeitformat inValue.tse_pd_encoding = tse_pd_encoding inValue.tse_public_key = tse_public_key inValue.tse_zertifikat = tse_zertifikat Dim retVal As DSFinVKService.GetDsFinVKValuesResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetDsFinVKValues(inValue) tse_serial = retVal.tse_serial tse_sig_algo = retVal.tse_sig_algo tse_zeitformat = retVal.tse_zeitformat tse_pd_encoding = retVal.tse_pd_encoding tse_public_key = retVal.tse_public_key tse_zertifikat = retVal.tse_zertifikat Return retVal.GetDsFinVKValuesResult End Function Public Function GetDsFinVKValuesAsync(ByVal request As DSFinVKService.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesResponse) Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValuesAsync Return MyBase.Channel.GetDsFinVKValuesAsync(request) End Function _ Function DSFinVKService_IDSFinVKServer_GetDsFinVKValuesForTse(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As DSFinVKService.GetDsFinVKValuesForTseResponse Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValuesForTse Return MyBase.Channel.GetDsFinVKValuesForTse(request) End Function Public Function GetDsFinVKValuesForTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef tseData As DSFinVKService.TSEData) As Integer Dim inValue As DSFinVKService.GetDsFinVKValuesForTseRequest = New DSFinVKService.GetDsFinVKValuesForTseRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.driveLetter = driveLetter inValue.tseData = tseData Dim retVal As DSFinVKService.GetDsFinVKValuesForTseResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetDsFinVKValuesForTse(inValue) tseData = retVal.tseData Return retVal.GetDsFinVKValuesForTseResult End Function Public Function GetDsFinVKValuesForTseAsync(ByVal request As DSFinVKService.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetDsFinVKValuesForTseResponse) Implements DSFinVKService.IDSFinVKServer.GetDsFinVKValuesForTseAsync Return MyBase.Channel.GetDsFinVKValuesForTseAsync(request) End Function Public Function SetupTseForFirstUseTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer Implements DSFinVKService.IDSFinVKServer.SetupTseForFirstUseTse Return MyBase.Channel.SetupTseForFirstUseTse(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) End Function Public Function SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) Implements DSFinVKService.IDSFinVKServer.SetupTseForFirstUseTseAsync Return MyBase.Channel.SetupTseForFirstUseTseAsync(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) End Function Public Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String Implements DSFinVKService.IDSFinVKServer.StringifyTseErrorCode Return MyBase.Channel.StringifyTseErrorCode(tseErrorCode) End Function Public Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) Implements DSFinVKService.IDSFinVKServer.StringifyTseErrorCodeAsync Return MyBase.Channel.StringifyTseErrorCodeAsync(tseErrorCode) End Function _ Function DSFinVKService_IDSFinVKServer_GetAvailableClientsTse(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As DSFinVKService.GetAvailableClientsTseResponse Implements DSFinVKService.IDSFinVKServer.GetAvailableClientsTse Return MyBase.Channel.GetAvailableClientsTse(request) End Function Public Function GetAvailableClientsTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef clientIds() As String, ByRef count As Integer) As Integer Dim inValue As DSFinVKService.GetAvailableClientsTseRequest = New DSFinVKService.GetAvailableClientsTseRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.driveLetter = driveLetter inValue.clientIds = clientIds inValue.count = count Dim retVal As DSFinVKService.GetAvailableClientsTseResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetAvailableClientsTse(inValue) clientIds = retVal.clientIds count = retVal.count Return retVal.GetAvailableClientsTseResult End Function Public Function GetAvailableClientsTseAsync(ByVal request As DSFinVKService.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetAvailableClientsTseResponse) Implements DSFinVKService.IDSFinVKServer.GetAvailableClientsTseAsync Return MyBase.Channel.GetAvailableClientsTseAsync(request) End Function _ Function DSFinVKService_IDSFinVKServer_IsClientPresentTse(ByVal request As DSFinVKService.IsClientPresentTseRequest) As DSFinVKService.IsClientPresentTseResponse Implements DSFinVKService.IDSFinVKServer.IsClientPresentTse Return MyBase.Channel.IsClientPresentTse(request) End Function Public Function IsClientPresentTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByRef result As Boolean) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.IsClientPresentTseRequest = New DSFinVKService.IsClientPresentTseRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.driveLetter = driveLetter inValue.clientId = clientId inValue.result = result Dim retVal As DSFinVKService.IsClientPresentTseResponse = CType(Me,DSFinVKService.IDSFinVKServer).IsClientPresentTse(inValue) result = retVal.result Return retVal.IsClientPresentTseResult End Function Public Function IsClientPresentTseAsync(ByVal request As DSFinVKService.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of DSFinVKService.IsClientPresentTseResponse) Implements DSFinVKService.IDSFinVKServer.IsClientPresentTseAsync Return MyBase.Channel.IsClientPresentTseAsync(request) End Function _ Function DSFinVKService_IDSFinVKServer_GetTaxIds(ByVal request As DSFinVKService.GetTaxIdsRequest) As DSFinVKService.GetTaxIdsResponse Implements DSFinVKService.IDSFinVKServer.GetTaxIds Return MyBase.Channel.GetTaxIds(request) End Function Public Function GetTaxIds(ByVal Z_KASSE_ID As String, ByRef taxes As DSFinVKService.Taxes) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.GetTaxIdsRequest = New DSFinVKService.GetTaxIdsRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.taxes = taxes Dim retVal As DSFinVKService.GetTaxIdsResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetTaxIds(inValue) taxes = retVal.taxes Return retVal.GetTaxIdsResult End Function Public Function GetTaxIdsAsync(ByVal request As DSFinVKService.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetTaxIdsResponse) Implements DSFinVKService.IDSFinVKServer.GetTaxIdsAsync Return MyBase.Channel.GetTaxIdsAsync(request) End Function Public Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.CreateCashpointClosing Return MyBase.Channel.CreateCashpointClosing(Z_KASSE_ID) End Function Public Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.CreateCashpointClosingAsync Return MyBase.Channel.CreateCashpointClosingAsync(Z_KASSE_ID) End Function _ Function DSFinVKService_IDSFinVKServer_GetLastReceiptValues(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As DSFinVKService.GetLastReceiptValuesResponse Implements DSFinVKService.IDSFinVKServer.GetLastReceiptValues Return MyBase.Channel.GetLastReceiptValues(request) End Function Public Function GetLastReceiptValues(ByVal Z_KASSE_ID As String, ByRef transactionNumber As String, ByRef serialNumber As String, ByRef signature As String, ByRef transactionStart As Date, ByRef transactionFinish As Date, ByRef sigCounter As String) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.GetLastReceiptValuesRequest = New DSFinVKService.GetLastReceiptValuesRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.transactionNumber = transactionNumber inValue.serialNumber = serialNumber inValue.signature = signature inValue.transactionStart = transactionStart inValue.transactionFinish = transactionFinish inValue.sigCounter = sigCounter Dim retVal As DSFinVKService.GetLastReceiptValuesResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetLastReceiptValues(inValue) transactionNumber = retVal.transactionNumber serialNumber = retVal.serialNumber signature = retVal.signature transactionStart = retVal.transactionStart transactionFinish = retVal.transactionFinish sigCounter = retVal.sigCounter Return retVal.GetLastReceiptValuesResult End Function Public Function GetLastReceiptValuesAsync(ByVal request As DSFinVKService.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptValuesResponse) Implements DSFinVKService.IDSFinVKServer.GetLastReceiptValuesAsync Return MyBase.Channel.GetLastReceiptValuesAsync(request) End Function _ Function DSFinVKService_IDSFinVKServer_GetLastReceiptQrCode(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As DSFinVKService.GetLastReceiptQrCodeResponse Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCode Return MyBase.Channel.GetLastReceiptQrCode(request) End Function Public Function GetLastReceiptQrCode(ByVal Z_KASSE_ID As String, ByRef qrCode As String, ByVal mimeType As String) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.GetLastReceiptQrCodeRequest = New DSFinVKService.GetLastReceiptQrCodeRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.qrCode = qrCode inValue.mimeType = mimeType Dim retVal As DSFinVKService.GetLastReceiptQrCodeResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetLastReceiptQrCode(inValue) qrCode = retVal.qrCode Return retVal.GetLastReceiptQrCodeResult End Function Public Function GetLastReceiptQrCodeAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeResponse) Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCodeAsync Return MyBase.Channel.GetLastReceiptQrCodeAsync(request) End Function _ Function DSFinVKService_IDSFinVKServer_GetLastReceiptQrCodeContent(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As DSFinVKService.GetLastReceiptQrCodeContentResponse Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCodeContent Return MyBase.Channel.GetLastReceiptQrCodeContent(request) End Function Public Function GetLastReceiptQrCodeContent(ByVal Z_KASSE_ID As String, ByRef qrCodeContent As String) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.GetLastReceiptQrCodeContentRequest = New DSFinVKService.GetLastReceiptQrCodeContentRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.qrCodeContent = qrCodeContent Dim retVal As DSFinVKService.GetLastReceiptQrCodeContentResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetLastReceiptQrCodeContent(inValue) qrCodeContent = retVal.qrCodeContent Return retVal.GetLastReceiptQrCodeContentResult End Function Public Function GetLastReceiptQrCodeContentAsync(ByVal request As DSFinVKService.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetLastReceiptQrCodeContentResponse) Implements DSFinVKService.IDSFinVKServer.GetLastReceiptQrCodeContentAsync Return MyBase.Channel.GetLastReceiptQrCodeContentAsync(request) End Function Public Function RegisterNewClientTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As DSFinVKService.ErrorCode Implements DSFinVKService.IDSFinVKServer.RegisterNewClientTse Return MyBase.Channel.RegisterNewClientTse(Z_KASSE_ID, driveLetter, newClientId) End Function Public Function RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of DSFinVKService.ErrorCode) Implements DSFinVKService.IDSFinVKServer.RegisterNewClientTseAsync Return MyBase.Channel.RegisterNewClientTseAsync(Z_KASSE_ID, driveLetter, newClientId) End Function _ Function DSFinVKService_IDSFinVKServer_GetNextBON_ID(ByVal request As DSFinVKService.GetNextBON_IDRequest) As DSFinVKService.GetNextBON_IDResponse Implements DSFinVKService.IDSFinVKServer.GetNextBON_ID Return MyBase.Channel.GetNextBON_ID(request) End Function Public Function GetNextBON_ID(ByVal Z_KASSE_ID As String, ByRef BON_ID As Integer) As DSFinVKService.ErrorCode Dim inValue As DSFinVKService.GetNextBON_IDRequest = New DSFinVKService.GetNextBON_IDRequest() inValue.Z_KASSE_ID = Z_KASSE_ID inValue.BON_ID = BON_ID Dim retVal As DSFinVKService.GetNextBON_IDResponse = CType(Me,DSFinVKService.IDSFinVKServer).GetNextBON_ID(inValue) BON_ID = retVal.BON_ID Return retVal.GetNextBON_IDResult End Function Public Function GetNextBON_IDAsync(ByVal request As DSFinVKService.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of DSFinVKService.GetNextBON_IDResponse) Implements DSFinVKService.IDSFinVKServer.GetNextBON_IDAsync Return MyBase.Channel.GetNextBON_IDAsync(request) End Function End Class End Namespace