edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
aec330e6ed33e1a710a9d1d06f6686e70e95968e
SDL/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.vb

2977 lines
154 KiB
VB.net
Raw Blame History

'------------------------------------------------------------------------------
' <auto-generated>
' 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.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Imports System.Runtime.Serialization
Namespace RKSV_DE_DSFinVKService_2022
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="ErrorCode", [Namespace]:="http://schemas.datacontract.org/2004/07/DSFinVK")> _
Public Enum ErrorCode As Integer
<System.Runtime.Serialization.EnumMemberAttribute()> _
OK = 0
<System.Runtime.Serialization.EnumMemberAttribute()> _
FAILED = 1
<System.Runtime.Serialization.EnumMemberAttribute()> _
BAD_USERNAME = 2
<System.Runtime.Serialization.EnumMemberAttribute()> _
BAD_PASSWORD = 3
<System.Runtime.Serialization.EnumMemberAttribute()> _
TSE_NOT_FOUND = 4
<System.Runtime.Serialization.EnumMemberAttribute()> _
TSE_INITIALIZATION_FAILED = 5
<System.Runtime.Serialization.EnumMemberAttribute()> _
TSE_BEGIN_TRANSACTION_FAILED = 6
<System.Runtime.Serialization.EnumMemberAttribute()> _
TSE_FINISH_TRANSACTION_FAILED = 7
<System.Runtime.Serialization.EnumMemberAttribute()> _
ARRAY_LENGTH_NOT_EQUAL = 8
<System.Runtime.Serialization.EnumMemberAttribute()> _
PARAMETER_ERROR = 9
<System.Runtime.Serialization.EnumMemberAttribute()> _
DSFINVKCOM_LICENSE_NOT_VALID = 10
<System.Runtime.Serialization.EnumMemberAttribute()> _
KSVCOM_LICENSE_NOT_VALID = 11
<System.Runtime.Serialization.EnumMemberAttribute()> _
DATABASE_NO_CONNECTION = 100
<System.Runtime.Serialization.EnumMemberAttribute()> _
DATABASE_CONNECTION_NOT_OPENED = 101
<System.Runtime.Serialization.EnumMemberAttribute()> _
DATABASE_NOT_SPECIFIED = 102
<System.Runtime.Serialization.EnumMemberAttribute()> _
DATABASE_OPERATION_FAILED = 103
<System.Runtime.Serialization.EnumMemberAttribute()> _
CASHBOX_NAME_NOT_UNIQUE = 200
<System.Runtime.Serialization.EnumMemberAttribute()> _
CASHBOX_IN_USE = 201
<System.Runtime.Serialization.EnumMemberAttribute()> _
CASHBOX_NOT_FOUND = 202
<System.Runtime.Serialization.EnumMemberAttribute()> _
CASHBOX_NOT_MANAGED = 203
<System.Runtime.Serialization.EnumMemberAttribute()> _
CASHBOX_ALREADY_MANAGED = 204
<System.Runtime.Serialization.EnumMemberAttribute()> _
ROW_HAS_INVALID_DATA = 10001
<System.Runtime.Serialization.EnumMemberAttribute()> _
ROW_BON_ID_NOT_FOUND = 10100
<System.Runtime.Serialization.EnumMemberAttribute()> _
ROW_BON_ID_ALREADY_EXISTS = 10101
<System.Runtime.Serialization.EnumMemberAttribute()> _
ROW_BON_ID_ALREADY_FINISHED = 10102
End Enum
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="Kassendaten", [Namespace]:="http://schemas.datacontract.org/2004/07/DSFinVK"), _
System.SerializableAttribute()> _
Partial Public Class Kassendaten
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private IVNRField As Integer
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KASSE_BASISWAEH_CODEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KASSE_BRANDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KASSE_MODELLField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KASSE_SERIENNRField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KASSE_SW_BRANDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KASSE_SW_VERSIONField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KEINE_UST_ZUORDNUNGField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private LOC_LANDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private LOC_NAMEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private LOC_ORTField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private LOC_PLZField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private LOC_STRASSEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private LOC_USTIDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private Z_KASSE_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private Z_NRField As Long
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private licenseField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_bezeichnungField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_ivnrField As Integer
<Global.System.ComponentModel.BrowsableAttribute(false)> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="BonKopfBegin", [Namespace]:="http://schemas.datacontract.org/2004/07/DSFinVK"), _
System.SerializableAttribute()> _
Partial Public Class BonKopfBegin
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BEDIENER_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BEDIENER_NAMEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_NAMEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_NOTIZField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_NRField As Integer
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_STARTField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_STORNOField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_TYPField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_LANDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_NAMEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_ORTField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_PLZField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_STRASSEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_TYPField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private KUNDE_USTIDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private REF_BON_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private TERMINAL_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private Z_KASSE_IDField As String
<Global.System.ComponentModel.BrowsableAttribute(false)> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
Public Property REF_BON_ID() As String
Get
Return Me.REF_BON_IDField
End Get
Set
If (Object.ReferenceEquals(Me.REF_BON_IDField, value) <> true) Then
Me.REF_BON_IDField = value
Me.RaisePropertyChanged("REF_BON_ID")
End If
End Set
End Property
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="BonKopfFinish", [Namespace]:="http://schemas.datacontract.org/2004/07/DSFinVK"), _
System.SerializableAttribute()> _
Partial Public Class BonKopfFinish
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_ENDEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private PROCESS_TYPEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private UMS_BRUTTOField As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private Z_KASSE_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private payment_currenciesField() As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private payment_per_currencyField() As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private payment_typesField() As String
<Global.System.ComponentModel.BrowsableAttribute(false)> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="BonPosition", [Namespace]:="http://schemas.datacontract.org/2004/07/DSFinVK"), _
System.SerializableAttribute()> _
Partial Public Class BonPosition
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private AGENTUR_IDField As Integer
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private ARTIKELTEXTField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private ART_NRField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private EINHEITField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private FAKTORField As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private GTINField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private GUTSCHEIN_NRField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private GV_NAMEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private GV_TYPField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private INHAUSField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private MENGEField As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private POS_TERMINAL_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private POS_ZEILEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private P_STORNOField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private STK_BRField As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private WARENGRField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private WARENGR_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private Z_KASSE_IDField As String
<Global.System.ComponentModel.BrowsableAttribute(false)> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="BonPosition_Ust", [Namespace]:="http://schemas.datacontract.org/2004/07/DSFinVK"), _
System.SerializableAttribute()> _
Partial Public Class BonPosition_Ust
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private BON_IDField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private POS_BRUTTOField As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private POS_NETTOField As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private POS_USTField As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private POS_ZEILEField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private UST_SCHLUESSELField As Integer
<Global.System.ComponentModel.BrowsableAttribute(false)> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="TSEData", [Namespace]:="http://schemas.datacontract.org/2004/07/ItgKsV"), _
System.SerializableAttribute()> _
Partial Public Class TSEData
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_pd_encodingField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_public_keyField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_serialField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_sig_algoField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_zeitformatField As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private tse_zertifikatField As String
<Global.System.ComponentModel.BrowsableAttribute(false)> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"), _
System.Runtime.Serialization.DataContractAttribute(Name:="Taxes", [Namespace]:="http://schemas.datacontract.org/2004/07/DSFinVK"), _
System.SerializableAttribute()> _
Partial Public Class Taxes
Inherits Object
Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
<System.NonSerializedAttribute()> _
Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private CountField As Integer
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private UST_BESCHRField() As String
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private UST_SATZField() As Decimal
<System.Runtime.Serialization.OptionalFieldAttribute()> _
Private UST_SCHLUESSELField() As Integer
<Global.System.ComponentModel.BrowsableAttribute(false)> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.Runtime.Serialization.DataMemberAttribute()> _
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
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.ServiceContractAttribute(ConfigurationName:="RKSV_DE_DSFinVKService_2022.IDSFinVKServer")> _
Public Interface IDSFinVKServer
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetMachineCode", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetMachineCodeResponse")> _
Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetMachineCode", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetMachineCodeResponse")> _
Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/InitializeLibrary", ReplyAction:="http://tempuri.org/IDSFinVKServer/InitializeLibraryResponse")> _
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 RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/InitializeLibrary", ReplyAction:="http://tempuri.org/IDSFinVKServer/InitializeLibraryResponse")> _
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 RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CleanupLibrary", ReplyAction:="http://tempuri.org/IDSFinVKServer/CleanupLibraryResponse")> _
Function CleanupLibrary(ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CleanupLibrary", ReplyAction:="http://tempuri.org/IDSFinVKServer/CleanupLibraryResponse")> _
Function CleanupLibraryAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CreateDatabase", ReplyAction:="http://tempuri.org/IDSFinVKServer/CreateDatabaseResponse")> _
Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CreateDatabase", ReplyAction:="http://tempuri.org/IDSFinVKServer/CreateDatabaseResponse")> _
Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CreateCashbox", ReplyAction:="http://tempuri.org/IDSFinVKServer/CreateCashboxResponse")> _
Function CreateCashbox(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CreateCashbox", ReplyAction:="http://tempuri.org/IDSFinVKServer/CreateCashboxResponse")> _
Function CreateCashboxAsync(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetCashboxes", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetCashboxesResponse")> _
Function GetCashboxes(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As RKSV_DE_DSFinVKService_2022.GetCashboxesResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetCashboxes", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetCashboxesResponse")> _
Function GetCashboxesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetCashboxesResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/BeginReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/BeginReceiptResponse")> _
Function BeginReceipt(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As RKSV_DE_DSFinVKService_2022.BeginReceiptResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/BeginReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/BeginReceiptResponse")> _
Function BeginReceiptAsync(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.BeginReceiptResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/UpdateReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/UpdateReceiptResponse")> _
Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/UpdateReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/UpdateReceiptResponse")> _
Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/FinishReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/FinishReceiptResponse")> _
Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/FinishReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/FinishReceiptResponse")> _
Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/AddPositionToReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/AddPositionToReceiptResponse")> _
Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/AddPositionToReceipt", ReplyAction:="http://tempuri.org/IDSFinVKServer/AddPositionToReceiptResponse")> _
Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportFull", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportFullResponse")> _
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 RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportFull", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportFullResponse")> _
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 RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportDateToDate", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportDateToDateResponse")> _
Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportDateToDate", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportDateToDateResponse")> _
Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportNumberToNumber", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportNumberToNumberResponse")> _
Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportNumberToNumber", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportNumberToNumberResponse")> _
Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportCSVFiles", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportCSVFilesResponse")> _
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 RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/ExportCSVFiles", ReplyAction:="http://tempuri.org/IDSFinVKServer/ExportCSVFilesResponse")> _
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 RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetAvailableTseList", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetAvailableTseListResponse")> _
Function GetAvailableTseList(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetAvailableTseList", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetAvailableTseListResponse")> _
Function GetAvailableTseListAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValues", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesResponse")> _
Function GetDsFinVKValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValues", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesResponse")> _
Function GetDsFinVKValuesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesForTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesForTseResponse")> _
Function GetDsFinVKValuesForTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesForTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetDsFinVKValuesForTseResponse")> _
Function GetDsFinVKValuesForTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/SetupTseForFirstUseTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/SetupTseForFirstUseTseResponse")> _
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
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/SetupTseForFirstUseTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/SetupTseForFirstUseTseResponse")> _
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)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/StringifyTseErrorCode", ReplyAction:="http://tempuri.org/IDSFinVKServer/StringifyTseErrorCodeResponse")> _
Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/StringifyTseErrorCode", ReplyAction:="http://tempuri.org/IDSFinVKServer/StringifyTseErrorCodeResponse")> _
Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetAvailableClientsTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetAvailableClientsTseResponse")> _
Function GetAvailableClientsTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetAvailableClientsTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetAvailableClientsTseResponse")> _
Function GetAvailableClientsTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/IsClientPresentTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/IsClientPresentTseResponse")> _
Function IsClientPresentTse(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/IsClientPresentTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/IsClientPresentTseResponse")> _
Function IsClientPresentTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetTaxIds", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetTaxIdsResponse")> _
Function GetTaxIds(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetTaxIds", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetTaxIdsResponse")> _
Function GetTaxIdsAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CreateCashpointClosing", ReplyAction:="http://tempuri.org/IDSFinVKServer/CreateCashpointClosingResponse")> _
Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/CreateCashpointClosing", ReplyAction:="http://tempuri.org/IDSFinVKServer/CreateCashpointClosingResponse")> _
Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetLastReceiptValues", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetLastReceiptValuesResponse")> _
Function GetLastReceiptValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetLastReceiptValues", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetLastReceiptValuesResponse")> _
Function GetLastReceiptValuesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCode", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeResponse")> _
Function GetLastReceiptQrCode(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCode", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeResponse")> _
Function GetLastReceiptQrCodeAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeContent", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeContentResponse")> _
Function GetLastReceiptQrCodeContent(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeContent", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetLastReceiptQrCodeContentResponse")> _
Function GetLastReceiptQrCodeContentAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/RegisterNewClientTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/RegisterNewClientTseResponse")> _
Function RegisterNewClientTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/RegisterNewClientTse", ReplyAction:="http://tempuri.org/IDSFinVKServer/RegisterNewClientTseResponse")> _
Function RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode)
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetNextBON_ID", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetNextBON_IDResponse")> _
Function GetNextBON_ID(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse
'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist.
<System.ServiceModel.OperationContractAttribute(Action:="http://tempuri.org/IDSFinVKServer/GetNextBON_ID", ReplyAction:="http://tempuri.org/IDSFinVKServer/GetNextBON_IDResponse")> _
Function GetNextBON_IDAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse)
End Interface
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetCashboxes", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetCashboxesRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten)
MyBase.New
Me.cashBoxes = cashBoxes
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetCashboxesResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetCashboxesResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetCashboxesResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal GetCashboxesResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten)
MyBase.New
Me.GetCashboxesResult = GetCashboxesResult
Me.cashBoxes = cashBoxes
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="BeginReceipt", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class BeginReceiptRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public cashboxName As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public bonkopfBegin As RKSV_DE_DSFinVKService_2022.BonKopfBegin
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public transactionNumber As Integer
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal cashboxName As String, ByVal bonkopfBegin As RKSV_DE_DSFinVKService_2022.BonKopfBegin, ByVal transactionNumber As Integer)
MyBase.New
Me.cashboxName = cashboxName
Me.bonkopfBegin = bonkopfBegin
Me.transactionNumber = transactionNumber
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="BeginReceiptResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class BeginReceiptResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public BeginReceiptResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public transactionNumber As Integer
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal BeginReceiptResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal transactionNumber As Integer)
MyBase.New
Me.BeginReceiptResult = BeginReceiptResult
Me.transactionNumber = transactionNumber
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetAvailableTseList", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetAvailableTseListRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public startDriveLetter As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public endDriveLetter As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public tseDriveLetterList() As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
Public tseSerialList() As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=4)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetAvailableTseListResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetAvailableTseListResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetAvailableTseListResult As Integer
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public tseDriveLetterList() As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public tseSerialList() As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetDsFinVKValues", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetDsFinVKValuesRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public tse_serial As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public tse_sig_algo As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
Public tse_zeitformat As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=4)> _
Public tse_pd_encoding As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=5)> _
Public tse_public_key As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=6)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetDsFinVKValuesResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetDsFinVKValuesResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetDsFinVKValuesResult As Integer
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public tse_serial As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public tse_sig_algo As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
Public tse_zeitformat As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=4)> _
Public tse_pd_encoding As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=5)> _
Public tse_public_key As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=6)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetDsFinVKValuesForTse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetDsFinVKValuesForTseRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public driveLetter As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public tseData As RKSV_DE_DSFinVKService_2022.TSEData
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As RKSV_DE_DSFinVKService_2022.TSEData)
MyBase.New
Me.Z_KASSE_ID = Z_KASSE_ID
Me.driveLetter = driveLetter
Me.tseData = tseData
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetDsFinVKValuesForTseResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetDsFinVKValuesForTseResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetDsFinVKValuesForTseResult As Integer
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public tseData As RKSV_DE_DSFinVKService_2022.TSEData
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal GetDsFinVKValuesForTseResult As Integer, ByVal tseData As RKSV_DE_DSFinVKService_2022.TSEData)
MyBase.New
Me.GetDsFinVKValuesForTseResult = GetDsFinVKValuesForTseResult
Me.tseData = tseData
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetAvailableClientsTse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetAvailableClientsTseRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public driveLetter As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public clientIds() As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetAvailableClientsTseResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetAvailableClientsTseResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetAvailableClientsTseResult As Integer
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public clientIds() As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="IsClientPresentTse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class IsClientPresentTseRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public driveLetter As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public clientId As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="IsClientPresentTseResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class IsClientPresentTseResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public IsClientPresentTseResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public result As Boolean
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal IsClientPresentTseResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal result As Boolean)
MyBase.New
Me.IsClientPresentTseResult = IsClientPresentTseResult
Me.result = result
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetTaxIds", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetTaxIdsRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public taxes As RKSV_DE_DSFinVKService_2022.Taxes
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal Z_KASSE_ID As String, ByVal taxes As RKSV_DE_DSFinVKService_2022.Taxes)
MyBase.New
Me.Z_KASSE_ID = Z_KASSE_ID
Me.taxes = taxes
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetTaxIdsResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetTaxIdsResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetTaxIdsResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public taxes As RKSV_DE_DSFinVKService_2022.Taxes
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal GetTaxIdsResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal taxes As RKSV_DE_DSFinVKService_2022.Taxes)
MyBase.New
Me.GetTaxIdsResult = GetTaxIdsResult
Me.taxes = taxes
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetLastReceiptValues", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetLastReceiptValuesRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public transactionNumber As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public serialNumber As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
Public signature As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=4)> _
Public transactionStart As Date
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=5)> _
Public transactionFinish As Date
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=6)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetLastReceiptValuesResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetLastReceiptValuesResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetLastReceiptValuesResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public transactionNumber As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
Public serialNumber As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=3)> _
Public signature As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=4)> _
Public transactionStart As Date
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=5)> _
Public transactionFinish As Date
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=6)> _
Public sigCounter As String
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal GetLastReceiptValuesResult As RKSV_DE_DSFinVKService_2022.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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetLastReceiptQrCode", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetLastReceiptQrCodeRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public qrCode As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=2)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetLastReceiptQrCodeResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetLastReceiptQrCodeResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetLastReceiptQrCodeResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public qrCode As String
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal GetLastReceiptQrCodeResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal qrCode As String)
MyBase.New
Me.GetLastReceiptQrCodeResult = GetLastReceiptQrCodeResult
Me.qrCode = qrCode
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetLastReceiptQrCodeContent", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetLastReceiptQrCodeContentRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetLastReceiptQrCodeContentResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetLastReceiptQrCodeContentResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetLastReceiptQrCodeContentResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public qrCodeContent As String
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal GetLastReceiptQrCodeContentResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal qrCodeContent As String)
MyBase.New
Me.GetLastReceiptQrCodeContentResult = GetLastReceiptQrCodeContentResult
Me.qrCodeContent = qrCodeContent
End Sub
End Class
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetNextBON_ID", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetNextBON_IDRequest
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public Z_KASSE_ID As String
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
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
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"), _
System.ServiceModel.MessageContractAttribute(WrapperName:="GetNextBON_IDResponse", WrapperNamespace:="http://tempuri.org/", IsWrapped:=true)> _
Partial Public Class GetNextBON_IDResponse
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=0)> _
Public GetNextBON_IDResult As RKSV_DE_DSFinVKService_2022.ErrorCode
<System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://tempuri.org/", Order:=1)> _
Public BON_ID As Integer
Public Sub New()
MyBase.New
End Sub
Public Sub New(ByVal GetNextBON_IDResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal BON_ID As Integer)
MyBase.New
Me.GetNextBON_IDResult = GetNextBON_IDResult
Me.BON_ID = BON_ID
End Sub
End Class
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> _
Public Interface IDSFinVKServerChannel
Inherits RKSV_DE_DSFinVKService_2022.IDSFinVKServer, System.ServiceModel.IClientChannel
End Interface
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")> _
Partial Public Class DSFinVKServerClient
Inherits System.ServiceModel.ClientBase(Of RKSV_DE_DSFinVKService_2022.IDSFinVKServer)
Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateDatabaseAsync
Return MyBase.Channel.CreateDatabaseAsync(server, database, username, password)
End Function
Public Function CreateCashbox(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateCashbox
Return MyBase.Channel.CreateCashbox(cashbox)
End Function
Public Function CreateCashboxAsync(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateCashboxAsync
Return MyBase.Channel.CreateCashboxAsync(cashbox)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetCashboxes(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As RKSV_DE_DSFinVKService_2022.GetCashboxesResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetCashboxes
Return MyBase.Channel.GetCashboxes(request)
End Function
Public Function GetCashboxes(ByRef cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten) As RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest = New RKSV_DE_DSFinVKService_2022.GetCashboxesRequest()
inValue.cashBoxes = cashBoxes
Dim retVal As RKSV_DE_DSFinVKService_2022.GetCashboxesResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetCashboxes(inValue)
cashBoxes = retVal.cashBoxes
Return retVal.GetCashboxesResult
End Function
Public Function GetCashboxesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetCashboxesResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetCashboxesAsync
Return MyBase.Channel.GetCashboxesAsync(request)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_BeginReceipt(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As RKSV_DE_DSFinVKService_2022.BeginReceiptResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.BeginReceipt
Return MyBase.Channel.BeginReceipt(request)
End Function
Public Function BeginReceipt(ByVal cashboxName As String, ByVal bonkopfBegin As RKSV_DE_DSFinVKService_2022.BonKopfBegin, ByRef transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest = New RKSV_DE_DSFinVKService_2022.BeginReceiptRequest()
inValue.cashboxName = cashboxName
inValue.bonkopfBegin = bonkopfBegin
inValue.transactionNumber = transactionNumber
Dim retVal As RKSV_DE_DSFinVKService_2022.BeginReceiptResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).BeginReceipt(inValue)
transactionNumber = retVal.transactionNumber
Return retVal.BeginReceiptResult
End Function
Public Function BeginReceiptAsync(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.BeginReceiptResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.BeginReceiptAsync
Return MyBase.Channel.BeginReceiptAsync(request)
End Function
Public Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.UpdateReceiptAsync
Return MyBase.Channel.UpdateReceiptAsync(cashboxName, transactionNumber)
End Function
Public Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.FinishReceipt
Return MyBase.Channel.FinishReceipt(cashboxName, bonkopfFinish, transactionNumber)
End Function
Public Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.FinishReceiptAsync
Return MyBase.Channel.FinishReceiptAsync(cashboxName, bonkopfFinish, transactionNumber)
End Function
Public Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.AddPositionToReceipt
Return MyBase.Channel.AddPositionToReceipt(cashboxName, position, position_vat, transactionNumber)
End Function
Public Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.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
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetAvailableTseList(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest = New RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest()
inValue.startDriveLetter = startDriveLetter
inValue.endDriveLetter = endDriveLetter
inValue.tseDriveLetterList = tseDriveLetterList
inValue.tseSerialList = tseSerialList
inValue.count = count
Dim retVal As RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetAvailableTseList(inValue)
tseDriveLetterList = retVal.tseDriveLetterList
tseSerialList = retVal.tseSerialList
count = retVal.count
Return retVal.GetAvailableTseListResult
End Function
Public Function GetAvailableTseListAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetAvailableTseListAsync
Return MyBase.Channel.GetAvailableTseListAsync(request)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetDsFinVKValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest = New RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse = CType(Me,RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetDsFinVKValuesAsync
Return MyBase.Channel.GetDsFinVKValuesAsync(request)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetDsFinVKValuesForTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.TSEData) As Integer
Dim inValue As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest = New RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest()
inValue.Z_KASSE_ID = Z_KASSE_ID
inValue.driveLetter = driveLetter
inValue.tseData = tseData
Dim retVal As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetDsFinVKValuesForTse(inValue)
tseData = retVal.tseData
Return retVal.GetDsFinVKValuesForTseResult
End Function
Public Function GetDsFinVKValuesForTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.IDSFinVKServer.StringifyTseErrorCode
Return MyBase.Channel.StringifyTseErrorCode(tseErrorCode)
End Function
Public Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.StringifyTseErrorCodeAsync
Return MyBase.Channel.StringifyTseErrorCodeAsync(tseErrorCode)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetAvailableClientsTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest = New RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest()
inValue.Z_KASSE_ID = Z_KASSE_ID
inValue.driveLetter = driveLetter
inValue.clientIds = clientIds
inValue.count = count
Dim retVal As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetAvailableClientsTse(inValue)
clientIds = retVal.clientIds
count = retVal.count
Return retVal.GetAvailableClientsTseResult
End Function
Public Function GetAvailableClientsTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetAvailableClientsTseAsync
Return MyBase.Channel.GetAvailableClientsTseAsync(request)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_IsClientPresentTse(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest = New RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest()
inValue.Z_KASSE_ID = Z_KASSE_ID
inValue.driveLetter = driveLetter
inValue.clientId = clientId
inValue.result = result
Dim retVal As RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).IsClientPresentTse(inValue)
result = retVal.result
Return retVal.IsClientPresentTseResult
End Function
Public Function IsClientPresentTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.IsClientPresentTseAsync
Return MyBase.Channel.IsClientPresentTseAsync(request)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetTaxIds(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetTaxIds
Return MyBase.Channel.GetTaxIds(request)
End Function
Public Function GetTaxIds(ByVal Z_KASSE_ID As String, ByRef taxes As RKSV_DE_DSFinVKService_2022.Taxes) As RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest = New RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest()
inValue.Z_KASSE_ID = Z_KASSE_ID
inValue.taxes = taxes
Dim retVal As RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetTaxIds(inValue)
taxes = retVal.taxes
Return retVal.GetTaxIdsResult
End Function
Public Function GetTaxIdsAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetTaxIdsAsync
Return MyBase.Channel.GetTaxIdsAsync(request)
End Function
Public Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateCashpointClosingAsync
Return MyBase.Channel.CreateCashpointClosingAsync(Z_KASSE_ID)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetLastReceiptValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest = New RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse = CType(Me,RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptValuesAsync
Return MyBase.Channel.GetLastReceiptValuesAsync(request)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetLastReceiptQrCode(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest = New RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest()
inValue.Z_KASSE_ID = Z_KASSE_ID
inValue.qrCode = qrCode
inValue.mimeType = mimeType
Dim retVal As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetLastReceiptQrCode(inValue)
qrCode = retVal.qrCode
Return retVal.GetLastReceiptQrCodeResult
End Function
Public Function GetLastReceiptQrCodeAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptQrCodeAsync
Return MyBase.Channel.GetLastReceiptQrCodeAsync(request)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetLastReceiptQrCodeContent(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptQrCodeContent
Return MyBase.Channel.GetLastReceiptQrCodeContent(request)
End Function
Public Function GetLastReceiptQrCodeContent(ByVal Z_KASSE_ID As String, ByRef qrCodeContent As String) As RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest = New RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest()
inValue.Z_KASSE_ID = Z_KASSE_ID
inValue.qrCodeContent = qrCodeContent
Dim retVal As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetLastReceiptQrCodeContent(inValue)
qrCodeContent = retVal.qrCodeContent
Return retVal.GetLastReceiptQrCodeContentResult
End Function
Public Function GetLastReceiptQrCodeContentAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse) Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.RegisterNewClientTseAsync
Return MyBase.Channel.RegisterNewClientTseAsync(Z_KASSE_ID, driveLetter, newClientId)
End Function
<System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)> _
Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetNextBON_ID(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse Implements RKSV_DE_DSFinVKService_2022.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 RKSV_DE_DSFinVKService_2022.ErrorCode
Dim inValue As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest = New RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest()
inValue.Z_KASSE_ID = Z_KASSE_ID
inValue.BON_ID = BON_ID
Dim retVal As RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetNextBON_ID(inValue)
BON_ID = retVal.BON_ID
Return retVal.GetNextBON_IDResult
End Function
Public Function GetNextBON_IDAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetNextBON_IDAsync
Return MyBase.Channel.GetNextBON_IDAsync(request)
End Function
End Class
End Namespace
Reference in New Issue View Git Blame Copy Permalink