'------------------------------------------------------------------------------
'
' 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)