'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports System Imports System.ComponentModel Imports System.Diagnostics Imports System.Web.Services Imports System.Web.Services.Protocols Imports System.Xml.Serialization ' 'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000. ' Namespace RKSV_DE_DSFinVKService ''' _ Partial Public Class DSFinVKServer Inherits System.Web.Services.Protocols.SoapHttpClientProtocol Private GetMachineCodeOperationCompleted As System.Threading.SendOrPostCallback Private InitializeLibraryOperationCompleted As System.Threading.SendOrPostCallback Private CleanupLibraryOperationCompleted As System.Threading.SendOrPostCallback Private CreateDatabaseOperationCompleted As System.Threading.SendOrPostCallback Private CreateCashboxOperationCompleted As System.Threading.SendOrPostCallback Private GetCashboxesOperationCompleted As System.Threading.SendOrPostCallback Private BeginReceiptOperationCompleted As System.Threading.SendOrPostCallback Private UpdateReceiptOperationCompleted As System.Threading.SendOrPostCallback Private FinishReceiptOperationCompleted As System.Threading.SendOrPostCallback Private AddPositionToReceiptOperationCompleted As System.Threading.SendOrPostCallback Private ExportFullOperationCompleted As System.Threading.SendOrPostCallback Private ExportDateToDateOperationCompleted As System.Threading.SendOrPostCallback Private ExportNumberToNumberOperationCompleted As System.Threading.SendOrPostCallback Private ExportCSVFilesOperationCompleted As System.Threading.SendOrPostCallback Private GetAvailableTseListOperationCompleted As System.Threading.SendOrPostCallback Private GetDsFinVKValuesOperationCompleted As System.Threading.SendOrPostCallback Private GetDsFinVKValuesForTseOperationCompleted As System.Threading.SendOrPostCallback Private SetupTseForFirstUseTseOperationCompleted As System.Threading.SendOrPostCallback Private StringifyTseErrorCodeOperationCompleted As System.Threading.SendOrPostCallback Private GetAvailableClientsTseOperationCompleted As System.Threading.SendOrPostCallback Private IsClientPresentTseOperationCompleted As System.Threading.SendOrPostCallback Private GetTaxIdsOperationCompleted As System.Threading.SendOrPostCallback Private CreateCashpointClosingOperationCompleted As System.Threading.SendOrPostCallback Private GetLastReceiptValuesOperationCompleted As System.Threading.SendOrPostCallback Private GetLastReceiptQrCodeOperationCompleted As System.Threading.SendOrPostCallback Private GetLastReceiptQrCodeContentOperationCompleted As System.Threading.SendOrPostCallback Private RegisterNewClientTseOperationCompleted As System.Threading.SendOrPostCallback Private GetNextBON_IDOperationCompleted As System.Threading.SendOrPostCallback Private useDefaultCredentialsSetExplicitly As Boolean ''' Public Sub New() MyBase.New Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_RKSV_DE_DSFinVKService_DSFinVKServer If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then Me.UseDefaultCredentials = true Me.useDefaultCredentialsSetExplicitly = false Else Me.useDefaultCredentialsSetExplicitly = true End If End Sub Public Shadows Property Url() As String Get Return MyBase.Url End Get Set If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then MyBase.UseDefaultCredentials = false End If MyBase.Url = value End Set End Property Public Shadows Property UseDefaultCredentials() As Boolean Get Return MyBase.UseDefaultCredentials End Get Set MyBase.UseDefaultCredentials = value Me.useDefaultCredentialsSetExplicitly = true End Set End Property ''' Public Event GetMachineCodeCompleted As GetMachineCodeCompletedEventHandler ''' Public Event InitializeLibraryCompleted As InitializeLibraryCompletedEventHandler ''' Public Event CleanupLibraryCompleted As CleanupLibraryCompletedEventHandler ''' Public Event CreateDatabaseCompleted As CreateDatabaseCompletedEventHandler ''' Public Event CreateCashboxCompleted As CreateCashboxCompletedEventHandler ''' Public Event GetCashboxesCompleted As GetCashboxesCompletedEventHandler ''' Public Event BeginReceiptCompleted As BeginReceiptCompletedEventHandler ''' Public Event UpdateReceiptCompleted As UpdateReceiptCompletedEventHandler ''' Public Event FinishReceiptCompleted As FinishReceiptCompletedEventHandler ''' Public Event AddPositionToReceiptCompleted As AddPositionToReceiptCompletedEventHandler ''' Public Event ExportFullCompleted As ExportFullCompletedEventHandler ''' Public Event ExportDateToDateCompleted As ExportDateToDateCompletedEventHandler ''' Public Event ExportNumberToNumberCompleted As ExportNumberToNumberCompletedEventHandler ''' Public Event ExportCSVFilesCompleted As ExportCSVFilesCompletedEventHandler ''' Public Event GetAvailableTseListCompleted As GetAvailableTseListCompletedEventHandler ''' Public Event GetDsFinVKValuesCompleted As GetDsFinVKValuesCompletedEventHandler ''' Public Event GetDsFinVKValuesForTseCompleted As GetDsFinVKValuesForTseCompletedEventHandler ''' Public Event SetupTseForFirstUseTseCompleted As SetupTseForFirstUseTseCompletedEventHandler ''' Public Event StringifyTseErrorCodeCompleted As StringifyTseErrorCodeCompletedEventHandler ''' Public Event GetAvailableClientsTseCompleted As GetAvailableClientsTseCompletedEventHandler ''' Public Event IsClientPresentTseCompleted As IsClientPresentTseCompletedEventHandler ''' Public Event GetTaxIdsCompleted As GetTaxIdsCompletedEventHandler ''' Public Event CreateCashpointClosingCompleted As CreateCashpointClosingCompletedEventHandler ''' Public Event GetLastReceiptValuesCompleted As GetLastReceiptValuesCompletedEventHandler ''' Public Event GetLastReceiptQrCodeCompleted As GetLastReceiptQrCodeCompletedEventHandler ''' Public Event GetLastReceiptQrCodeContentCompleted As GetLastReceiptQrCodeContentCompletedEventHandler ''' Public Event RegisterNewClientTseCompleted As RegisterNewClientTseCompletedEventHandler ''' Public Event GetNextBON_IDCompleted As GetNextBON_IDCompletedEventHandler ''' _ Public Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal isDemoLicenseSpecified As Boolean, ByVal clientId As String) As String Dim results() As Object = Me.Invoke("GetMachineCode", New Object() {isDemoLicense, isDemoLicenseSpecified, clientId}) Return CType(results(0),String) End Function ''' Public Overloads Sub GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal isDemoLicenseSpecified As Boolean, ByVal clientId As String) Me.GetMachineCodeAsync(isDemoLicense, isDemoLicenseSpecified, clientId, Nothing) End Sub ''' Public Overloads Sub GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal isDemoLicenseSpecified As Boolean, ByVal clientId As String, ByVal userState As Object) If (Me.GetMachineCodeOperationCompleted Is Nothing) Then Me.GetMachineCodeOperationCompleted = AddressOf Me.OnGetMachineCodeOperationCompleted End If Me.InvokeAsync("GetMachineCode", New Object() {isDemoLicense, isDemoLicenseSpecified, clientId}, Me.GetMachineCodeOperationCompleted, userState) End Sub Private Sub OnGetMachineCodeOperationCompleted(ByVal arg As Object) If (Not (Me.GetMachineCodeCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetMachineCodeCompleted(Me, New GetMachineCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub InitializeLibrary( ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String, ByRef InitializeLibraryResult As ErrorCode, ByRef InitializeLibraryResultSpecified As Boolean) Dim results() As Object = Me.Invoke("InitializeLibrary", New Object() {server, database, username, password, Z_KASSE_ID}) InitializeLibraryResult = CType(results(0),ErrorCode) InitializeLibraryResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) Me.InitializeLibraryAsync(server, database, username, password, Z_KASSE_ID, Nothing) End Sub ''' Public Overloads Sub InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String, ByVal userState As Object) If (Me.InitializeLibraryOperationCompleted Is Nothing) Then Me.InitializeLibraryOperationCompleted = AddressOf Me.OnInitializeLibraryOperationCompleted End If Me.InvokeAsync("InitializeLibrary", New Object() {server, database, username, password, Z_KASSE_ID}, Me.InitializeLibraryOperationCompleted, userState) End Sub Private Sub OnInitializeLibraryOperationCompleted(ByVal arg As Object) If (Not (Me.InitializeLibraryCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent InitializeLibraryCompleted(Me, New InitializeLibraryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub CleanupLibrary( ByVal Z_KASSE_ID As String, ByRef CleanupLibraryResult As ErrorCode, ByRef CleanupLibraryResultSpecified As Boolean) Dim results() As Object = Me.Invoke("CleanupLibrary", New Object() {Z_KASSE_ID}) CleanupLibraryResult = CType(results(0),ErrorCode) CleanupLibraryResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub CleanupLibraryAsync(ByVal Z_KASSE_ID As String) Me.CleanupLibraryAsync(Z_KASSE_ID, Nothing) End Sub ''' Public Overloads Sub CleanupLibraryAsync(ByVal Z_KASSE_ID As String, ByVal userState As Object) If (Me.CleanupLibraryOperationCompleted Is Nothing) Then Me.CleanupLibraryOperationCompleted = AddressOf Me.OnCleanupLibraryOperationCompleted End If Me.InvokeAsync("CleanupLibrary", New Object() {Z_KASSE_ID}, Me.CleanupLibraryOperationCompleted, userState) End Sub Private Sub OnCleanupLibraryOperationCompleted(ByVal arg As Object) If (Not (Me.CleanupLibraryCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent CleanupLibraryCompleted(Me, New CleanupLibraryCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub CreateDatabase( ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByRef CreateDatabaseResult As ErrorCode, ByRef CreateDatabaseResultSpecified As Boolean) Dim results() As Object = Me.Invoke("CreateDatabase", New Object() {server, database, username, password}) CreateDatabaseResult = CType(results(0),ErrorCode) CreateDatabaseResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) Me.CreateDatabaseAsync(server, database, username, password, Nothing) End Sub ''' Public Overloads Sub CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal userState As Object) If (Me.CreateDatabaseOperationCompleted Is Nothing) Then Me.CreateDatabaseOperationCompleted = AddressOf Me.OnCreateDatabaseOperationCompleted End If Me.InvokeAsync("CreateDatabase", New Object() {server, database, username, password}, Me.CreateDatabaseOperationCompleted, userState) End Sub Private Sub OnCreateDatabaseOperationCompleted(ByVal arg As Object) If (Not (Me.CreateDatabaseCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent CreateDatabaseCompleted(Me, New CreateDatabaseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub CreateCashbox( ByVal cashbox As Kassendaten, ByRef CreateCashboxResult As ErrorCode, ByRef CreateCashboxResultSpecified As Boolean) Dim results() As Object = Me.Invoke("CreateCashbox", New Object() {cashbox}) CreateCashboxResult = CType(results(0),ErrorCode) CreateCashboxResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub CreateCashboxAsync(ByVal cashbox As Kassendaten) Me.CreateCashboxAsync(cashbox, Nothing) End Sub ''' Public Overloads Sub CreateCashboxAsync(ByVal cashbox As Kassendaten, ByVal userState As Object) If (Me.CreateCashboxOperationCompleted Is Nothing) Then Me.CreateCashboxOperationCompleted = AddressOf Me.OnCreateCashboxOperationCompleted End If Me.InvokeAsync("CreateCashbox", New Object() {cashbox}, Me.CreateCashboxOperationCompleted, userState) End Sub Private Sub OnCreateCashboxOperationCompleted(ByVal arg As Object) If (Not (Me.CreateCashboxCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent CreateCashboxCompleted(Me, New CreateCashboxCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetCashboxes( ByRef cashBoxes() As Kassendaten, ByRef GetCashboxesResult As ErrorCode, ByRef GetCashboxesResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetCashboxes", New Object() {cashBoxes}) cashBoxes = CType(results(0),Kassendaten()) GetCashboxesResult = CType(results(1),ErrorCode) GetCashboxesResultSpecified = CType(results(2),Boolean) End Sub ''' Public Overloads Sub GetCashboxesAsync(ByVal cashBoxes() As Kassendaten) Me.GetCashboxesAsync(cashBoxes, Nothing) End Sub ''' Public Overloads Sub GetCashboxesAsync(ByVal cashBoxes() As Kassendaten, ByVal userState As Object) If (Me.GetCashboxesOperationCompleted Is Nothing) Then Me.GetCashboxesOperationCompleted = AddressOf Me.OnGetCashboxesOperationCompleted End If Me.InvokeAsync("GetCashboxes", New Object() {cashBoxes}, Me.GetCashboxesOperationCompleted, userState) End Sub Private Sub OnGetCashboxesOperationCompleted(ByVal arg As Object) If (Not (Me.GetCashboxesCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetCashboxesCompleted(Me, New GetCashboxesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub BeginReceipt( ByVal cashboxName As String, ByVal bonkopfBegin As BonKopfBegin, ByRef transactionNumber As Integer, ByRef transactionNumberSpecified As Boolean, ByRef BeginReceiptResult As ErrorCode, ByRef BeginReceiptResultSpecified As Boolean) Dim results() As Object = Me.Invoke("BeginReceipt", New Object() {cashboxName, bonkopfBegin, transactionNumber, transactionNumberSpecified}) transactionNumber = CType(results(0),Integer) transactionNumberSpecified = CType(results(1),Boolean) BeginReceiptResult = CType(results(2),ErrorCode) BeginReceiptResultSpecified = CType(results(3),Boolean) End Sub ''' Public Overloads Sub BeginReceiptAsync(ByVal cashboxName As String, ByVal bonkopfBegin As BonKopfBegin, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) Me.BeginReceiptAsync(cashboxName, bonkopfBegin, transactionNumber, transactionNumberSpecified, Nothing) End Sub ''' Public Overloads Sub BeginReceiptAsync(ByVal cashboxName As String, ByVal bonkopfBegin As BonKopfBegin, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) If (Me.BeginReceiptOperationCompleted Is Nothing) Then Me.BeginReceiptOperationCompleted = AddressOf Me.OnBeginReceiptOperationCompleted End If Me.InvokeAsync("BeginReceipt", New Object() {cashboxName, bonkopfBegin, transactionNumber, transactionNumberSpecified}, Me.BeginReceiptOperationCompleted, userState) End Sub Private Sub OnBeginReceiptOperationCompleted(ByVal arg As Object) If (Not (Me.BeginReceiptCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent BeginReceiptCompleted(Me, New BeginReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub UpdateReceipt( ByVal cashboxName As String, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByRef UpdateReceiptResult As ErrorCode, ByRef UpdateReceiptResultSpecified As Boolean) Dim results() As Object = Me.Invoke("UpdateReceipt", New Object() {cashboxName, transactionNumber, transactionNumberSpecified}) UpdateReceiptResult = CType(results(0),ErrorCode) UpdateReceiptResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) Me.UpdateReceiptAsync(cashboxName, transactionNumber, transactionNumberSpecified, Nothing) End Sub ''' Public Overloads Sub UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) If (Me.UpdateReceiptOperationCompleted Is Nothing) Then Me.UpdateReceiptOperationCompleted = AddressOf Me.OnUpdateReceiptOperationCompleted End If Me.InvokeAsync("UpdateReceipt", New Object() {cashboxName, transactionNumber, transactionNumberSpecified}, Me.UpdateReceiptOperationCompleted, userState) End Sub Private Sub OnUpdateReceiptOperationCompleted(ByVal arg As Object) If (Not (Me.UpdateReceiptCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent UpdateReceiptCompleted(Me, New UpdateReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub FinishReceipt( ByVal cashboxName As String, ByVal bonkopfFinish As BonKopfFinish, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByRef FinishReceiptResult As ErrorCode, ByRef FinishReceiptResultSpecified As Boolean) Dim results() As Object = Me.Invoke("FinishReceipt", New Object() {cashboxName, bonkopfFinish, transactionNumber, transactionNumberSpecified}) FinishReceiptResult = CType(results(0),ErrorCode) FinishReceiptResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As BonKopfFinish, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) Me.FinishReceiptAsync(cashboxName, bonkopfFinish, transactionNumber, transactionNumberSpecified, Nothing) End Sub ''' Public Overloads Sub FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As BonKopfFinish, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) If (Me.FinishReceiptOperationCompleted Is Nothing) Then Me.FinishReceiptOperationCompleted = AddressOf Me.OnFinishReceiptOperationCompleted End If Me.InvokeAsync("FinishReceipt", New Object() {cashboxName, bonkopfFinish, transactionNumber, transactionNumberSpecified}, Me.FinishReceiptOperationCompleted, userState) End Sub Private Sub OnFinishReceiptOperationCompleted(ByVal arg As Object) If (Not (Me.FinishReceiptCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent FinishReceiptCompleted(Me, New FinishReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub AddPositionToReceipt( ByVal cashboxName As String, ByVal position As BonPosition, ByVal position_vat As BonPosition_Ust, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByRef AddPositionToReceiptResult As ErrorCode, ByRef AddPositionToReceiptResultSpecified As Boolean) Dim results() As Object = Me.Invoke("AddPositionToReceipt", New Object() {cashboxName, position, position_vat, transactionNumber, transactionNumberSpecified}) AddPositionToReceiptResult = CType(results(0),ErrorCode) AddPositionToReceiptResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As BonPosition, ByVal position_vat As BonPosition_Ust, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean) Me.AddPositionToReceiptAsync(cashboxName, position, position_vat, transactionNumber, transactionNumberSpecified, Nothing) End Sub ''' Public Overloads Sub AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As BonPosition, ByVal position_vat As BonPosition_Ust, ByVal transactionNumber As Integer, ByVal transactionNumberSpecified As Boolean, ByVal userState As Object) If (Me.AddPositionToReceiptOperationCompleted Is Nothing) Then Me.AddPositionToReceiptOperationCompleted = AddressOf Me.OnAddPositionToReceiptOperationCompleted End If Me.InvokeAsync("AddPositionToReceipt", New Object() {cashboxName, position, position_vat, transactionNumber, transactionNumberSpecified}, Me.AddPositionToReceiptOperationCompleted, userState) End Sub Private Sub OnAddPositionToReceiptOperationCompleted(ByVal arg As Object) If (Not (Me.AddPositionToReceiptCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent AddPositionToReceiptCompleted(Me, New AddPositionToReceiptCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub ExportFull( ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_FromSpecified As Boolean, ByVal Z_NR_To As Integer, ByVal Z_NR_ToSpecified As Boolean, ByVal path As String, ByVal zipFileName As String, ByRef ExportFullResult As ErrorCode, ByRef ExportFullResultSpecified As Boolean) Dim results() As Object = Me.Invoke("ExportFull", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName}) ExportFullResult = CType(results(0),ErrorCode) ExportFullResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_FromSpecified As Boolean, ByVal Z_NR_To As Integer, ByVal Z_NR_ToSpecified As Boolean, ByVal path As String, ByVal zipFileName As String) Me.ExportFullAsync(Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, Nothing) End Sub ''' Public Overloads Sub ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_FromSpecified As Boolean, ByVal Z_NR_To As Integer, ByVal Z_NR_ToSpecified As Boolean, ByVal path As String, ByVal zipFileName As String, ByVal userState As Object) If (Me.ExportFullOperationCompleted Is Nothing) Then Me.ExportFullOperationCompleted = AddressOf Me.OnExportFullOperationCompleted End If Me.InvokeAsync("ExportFull", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName}, Me.ExportFullOperationCompleted, userState) End Sub Private Sub OnExportFullOperationCompleted(ByVal arg As Object) If (Not (Me.ExportFullCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent ExportFullCompleted(Me, New ExportFullCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub ExportDateToDate( ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtFromSpecified As Boolean, ByVal dtTo As Date, ByVal dtToSpecified As Boolean, ByRef ExportDateToDateResult As ErrorCode, ByRef ExportDateToDateResultSpecified As Boolean) Dim results() As Object = Me.Invoke("ExportDateToDate", New Object() {cashboxName, dtFrom, dtFromSpecified, dtTo, dtToSpecified}) ExportDateToDateResult = CType(results(0),ErrorCode) ExportDateToDateResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtFromSpecified As Boolean, ByVal dtTo As Date, ByVal dtToSpecified As Boolean) Me.ExportDateToDateAsync(cashboxName, dtFrom, dtFromSpecified, dtTo, dtToSpecified, Nothing) End Sub ''' Public Overloads Sub ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtFromSpecified As Boolean, ByVal dtTo As Date, ByVal dtToSpecified As Boolean, ByVal userState As Object) If (Me.ExportDateToDateOperationCompleted Is Nothing) Then Me.ExportDateToDateOperationCompleted = AddressOf Me.OnExportDateToDateOperationCompleted End If Me.InvokeAsync("ExportDateToDate", New Object() {cashboxName, dtFrom, dtFromSpecified, dtTo, dtToSpecified}, Me.ExportDateToDateOperationCompleted, userState) End Sub Private Sub OnExportDateToDateOperationCompleted(ByVal arg As Object) If (Not (Me.ExportDateToDateCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent ExportDateToDateCompleted(Me, New ExportDateToDateCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub ExportNumberToNumber( ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberFromSpecified As Boolean, ByVal numberTo As Integer, ByVal numberToSpecified As Boolean, ByRef ExportNumberToNumberResult As ErrorCode, ByRef ExportNumberToNumberResultSpecified As Boolean) Dim results() As Object = Me.Invoke("ExportNumberToNumber", New Object() {cashboxName, numberFrom, numberFromSpecified, numberTo, numberToSpecified}) ExportNumberToNumberResult = CType(results(0),ErrorCode) ExportNumberToNumberResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberFromSpecified As Boolean, ByVal numberTo As Integer, ByVal numberToSpecified As Boolean) Me.ExportNumberToNumberAsync(cashboxName, numberFrom, numberFromSpecified, numberTo, numberToSpecified, Nothing) End Sub ''' Public Overloads Sub ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberFromSpecified As Boolean, ByVal numberTo As Integer, ByVal numberToSpecified As Boolean, ByVal userState As Object) If (Me.ExportNumberToNumberOperationCompleted Is Nothing) Then Me.ExportNumberToNumberOperationCompleted = AddressOf Me.OnExportNumberToNumberOperationCompleted End If Me.InvokeAsync("ExportNumberToNumber", New Object() {cashboxName, numberFrom, numberFromSpecified, numberTo, numberToSpecified}, Me.ExportNumberToNumberOperationCompleted, userState) End Sub Private Sub OnExportNumberToNumberOperationCompleted(ByVal arg As Object) If (Not (Me.ExportNumberToNumberCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent ExportNumberToNumberCompleted(Me, New ExportNumberToNumberCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub ExportCSVFiles( _ ByVal Z_KASSE_ID As String, _ ByVal Z_NR_From As Integer, _ ByVal Z_NR_FromSpecified As Boolean, _ ByVal Z_NR_To As Integer, _ ByVal Z_NR_ToSpecified As Boolean, _ ByVal path As String, _ ByVal zipFileName As String, _ ByVal exportCashpointclosing As Boolean, _ ByVal exportCashpointclosingSpecified As Boolean, _ ByVal exportLocation As Boolean, _ ByVal exportLocationSpecified As Boolean, _ ByVal exportCashregister As Boolean, _ ByVal exportCashregisterSpecified As Boolean, _ ByVal exportSlaves As Boolean, _ ByVal exportSlavesSpecified As Boolean, _ ByVal exportPa As Boolean, _ ByVal exportPaSpecified As Boolean, _ ByVal exportVat As Boolean, _ ByVal exportVatSpecified As Boolean, _ ByVal exportTse As Boolean, _ ByVal exportTseSpecified As Boolean, _ ByVal exportBusinesscases As Boolean, _ ByVal exportBusinesscasesSpecified As Boolean, _ ByVal exportPayment As Boolean, _ ByVal exportPaymentSpecified As Boolean, _ ByVal exportCashPerCurrency As Boolean, _ ByVal exportCashPerCurrencySpecified As Boolean, _ ByVal exportTransactions As Boolean, _ ByVal exportTransactionsSpecified As Boolean, _ ByVal exportAllocationGroups As Boolean, _ ByVal exportAllocationGroupsSpecified As Boolean, _ ByVal exportTransactionsVat As Boolean, _ ByVal exportTransactionsVatSpecified As Boolean, _ ByVal exportDatapayment As Boolean, _ ByVal exportDatapaymentSpecified As Boolean, _ ByVal exportLines As Boolean, _ ByVal exportLinesSpecified As Boolean, _ ByVal exportLinesVat As Boolean, _ ByVal exportLinesVatSpecified As Boolean, _ ByVal exportItemamounts As Boolean, _ ByVal exportItemamountsSpecified As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportSubitemsSpecified As Boolean, _ ByVal exportReferences As Boolean, _ ByVal exportReferencesSpecified As Boolean, _ ByVal exportTransactionsTse As Boolean, _ ByVal exportTransactionsTseSpecified As Boolean, _ ByRef ExportCSVFilesResult As ErrorCode, _ ByRef ExportCSVFilesResultSpecified As Boolean) Dim results() As Object = Me.Invoke("ExportCSVFiles", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, exportCashpointclosing, exportCashpointclosingSpecified, exportLocation, exportLocationSpecified, exportCashregister, exportCashregisterSpecified, exportSlaves, exportSlavesSpecified, exportPa, exportPaSpecified, exportVat, exportVatSpecified, exportTse, exportTseSpecified, exportBusinesscases, exportBusinesscasesSpecified, exportPayment, exportPaymentSpecified, exportCashPerCurrency, exportCashPerCurrencySpecified, exportTransactions, exportTransactionsSpecified, exportAllocationGroups, exportAllocationGroupsSpecified, exportTransactionsVat, exportTransactionsVatSpecified, exportDatapayment, exportDatapaymentSpecified, exportLines, exportLinesSpecified, exportLinesVat, exportLinesVatSpecified, exportItemamounts, exportItemamountsSpecified, exportSubitems, exportSubitemsSpecified, exportReferences, exportReferencesSpecified, exportTransactionsTse, exportTransactionsTseSpecified}) ExportCSVFilesResult = CType(results(0),ErrorCode) ExportCSVFilesResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub ExportCSVFilesAsync( _ ByVal Z_KASSE_ID As String, _ ByVal Z_NR_From As Integer, _ ByVal Z_NR_FromSpecified As Boolean, _ ByVal Z_NR_To As Integer, _ ByVal Z_NR_ToSpecified As Boolean, _ ByVal path As String, _ ByVal zipFileName As String, _ ByVal exportCashpointclosing As Boolean, _ ByVal exportCashpointclosingSpecified As Boolean, _ ByVal exportLocation As Boolean, _ ByVal exportLocationSpecified As Boolean, _ ByVal exportCashregister As Boolean, _ ByVal exportCashregisterSpecified As Boolean, _ ByVal exportSlaves As Boolean, _ ByVal exportSlavesSpecified As Boolean, _ ByVal exportPa As Boolean, _ ByVal exportPaSpecified As Boolean, _ ByVal exportVat As Boolean, _ ByVal exportVatSpecified As Boolean, _ ByVal exportTse As Boolean, _ ByVal exportTseSpecified As Boolean, _ ByVal exportBusinesscases As Boolean, _ ByVal exportBusinesscasesSpecified As Boolean, _ ByVal exportPayment As Boolean, _ ByVal exportPaymentSpecified As Boolean, _ ByVal exportCashPerCurrency As Boolean, _ ByVal exportCashPerCurrencySpecified As Boolean, _ ByVal exportTransactions As Boolean, _ ByVal exportTransactionsSpecified As Boolean, _ ByVal exportAllocationGroups As Boolean, _ ByVal exportAllocationGroupsSpecified As Boolean, _ ByVal exportTransactionsVat As Boolean, _ ByVal exportTransactionsVatSpecified As Boolean, _ ByVal exportDatapayment As Boolean, _ ByVal exportDatapaymentSpecified As Boolean, _ ByVal exportLines As Boolean, _ ByVal exportLinesSpecified As Boolean, _ ByVal exportLinesVat As Boolean, _ ByVal exportLinesVatSpecified As Boolean, _ ByVal exportItemamounts As Boolean, _ ByVal exportItemamountsSpecified As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportSubitemsSpecified As Boolean, _ ByVal exportReferences As Boolean, _ ByVal exportReferencesSpecified As Boolean, _ ByVal exportTransactionsTse As Boolean, _ ByVal exportTransactionsTseSpecified As Boolean) Me.ExportCSVFilesAsync(Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, exportCashpointclosing, exportCashpointclosingSpecified, exportLocation, exportLocationSpecified, exportCashregister, exportCashregisterSpecified, exportSlaves, exportSlavesSpecified, exportPa, exportPaSpecified, exportVat, exportVatSpecified, exportTse, exportTseSpecified, exportBusinesscases, exportBusinesscasesSpecified, exportPayment, exportPaymentSpecified, exportCashPerCurrency, exportCashPerCurrencySpecified, exportTransactions, exportTransactionsSpecified, exportAllocationGroups, exportAllocationGroupsSpecified, exportTransactionsVat, exportTransactionsVatSpecified, exportDatapayment, exportDatapaymentSpecified, exportLines, exportLinesSpecified, exportLinesVat, exportLinesVatSpecified, exportItemamounts, exportItemamountsSpecified, exportSubitems, exportSubitemsSpecified, exportReferences, exportReferencesSpecified, exportTransactionsTse, exportTransactionsTseSpecified, Nothing) End Sub ''' Public Overloads Sub ExportCSVFilesAsync( _ ByVal Z_KASSE_ID As String, _ ByVal Z_NR_From As Integer, _ ByVal Z_NR_FromSpecified As Boolean, _ ByVal Z_NR_To As Integer, _ ByVal Z_NR_ToSpecified As Boolean, _ ByVal path As String, _ ByVal zipFileName As String, _ ByVal exportCashpointclosing As Boolean, _ ByVal exportCashpointclosingSpecified As Boolean, _ ByVal exportLocation As Boolean, _ ByVal exportLocationSpecified As Boolean, _ ByVal exportCashregister As Boolean, _ ByVal exportCashregisterSpecified As Boolean, _ ByVal exportSlaves As Boolean, _ ByVal exportSlavesSpecified As Boolean, _ ByVal exportPa As Boolean, _ ByVal exportPaSpecified As Boolean, _ ByVal exportVat As Boolean, _ ByVal exportVatSpecified As Boolean, _ ByVal exportTse As Boolean, _ ByVal exportTseSpecified As Boolean, _ ByVal exportBusinesscases As Boolean, _ ByVal exportBusinesscasesSpecified As Boolean, _ ByVal exportPayment As Boolean, _ ByVal exportPaymentSpecified As Boolean, _ ByVal exportCashPerCurrency As Boolean, _ ByVal exportCashPerCurrencySpecified As Boolean, _ ByVal exportTransactions As Boolean, _ ByVal exportTransactionsSpecified As Boolean, _ ByVal exportAllocationGroups As Boolean, _ ByVal exportAllocationGroupsSpecified As Boolean, _ ByVal exportTransactionsVat As Boolean, _ ByVal exportTransactionsVatSpecified As Boolean, _ ByVal exportDatapayment As Boolean, _ ByVal exportDatapaymentSpecified As Boolean, _ ByVal exportLines As Boolean, _ ByVal exportLinesSpecified As Boolean, _ ByVal exportLinesVat As Boolean, _ ByVal exportLinesVatSpecified As Boolean, _ ByVal exportItemamounts As Boolean, _ ByVal exportItemamountsSpecified As Boolean, _ ByVal exportSubitems As Boolean, _ ByVal exportSubitemsSpecified As Boolean, _ ByVal exportReferences As Boolean, _ ByVal exportReferencesSpecified As Boolean, _ ByVal exportTransactionsTse As Boolean, _ ByVal exportTransactionsTseSpecified As Boolean, _ ByVal userState As Object) If (Me.ExportCSVFilesOperationCompleted Is Nothing) Then Me.ExportCSVFilesOperationCompleted = AddressOf Me.OnExportCSVFilesOperationCompleted End If Me.InvokeAsync("ExportCSVFiles", New Object() {Z_KASSE_ID, Z_NR_From, Z_NR_FromSpecified, Z_NR_To, Z_NR_ToSpecified, path, zipFileName, exportCashpointclosing, exportCashpointclosingSpecified, exportLocation, exportLocationSpecified, exportCashregister, exportCashregisterSpecified, exportSlaves, exportSlavesSpecified, exportPa, exportPaSpecified, exportVat, exportVatSpecified, exportTse, exportTseSpecified, exportBusinesscases, exportBusinesscasesSpecified, exportPayment, exportPaymentSpecified, exportCashPerCurrency, exportCashPerCurrencySpecified, exportTransactions, exportTransactionsSpecified, exportAllocationGroups, exportAllocationGroupsSpecified, exportTransactionsVat, exportTransactionsVatSpecified, exportDatapayment, exportDatapaymentSpecified, exportLines, exportLinesSpecified, exportLinesVat, exportLinesVatSpecified, exportItemamounts, exportItemamountsSpecified, exportSubitems, exportSubitemsSpecified, exportReferences, exportReferencesSpecified, exportTransactionsTse, exportTransactionsTseSpecified}, Me.ExportCSVFilesOperationCompleted, userState) End Sub Private Sub OnExportCSVFilesOperationCompleted(ByVal arg As Object) If (Not (Me.ExportCSVFilesCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent ExportCSVFilesCompleted(Me, New ExportCSVFilesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetAvailableTseList( ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByRef tseDriveLetterList() As String, ByRef tseSerialList() As String, ByRef count As Integer, ByRef countSpecified As Boolean, ByRef GetAvailableTseListResult As Integer, ByRef GetAvailableTseListResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetAvailableTseList", New Object() {startDriveLetter, endDriveLetter, tseDriveLetterList, tseSerialList, count, countSpecified}) tseDriveLetterList = CType(results(0),String()) tseSerialList = CType(results(1),String()) count = CType(results(2),Integer) countSpecified = CType(results(3),Boolean) GetAvailableTseListResult = CType(results(4),Integer) GetAvailableTseListResultSpecified = CType(results(5),Boolean) End Sub ''' Public Overloads Sub GetAvailableTseListAsync(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer, ByVal countSpecified As Boolean) Me.GetAvailableTseListAsync(startDriveLetter, endDriveLetter, tseDriveLetterList, tseSerialList, count, countSpecified, Nothing) End Sub ''' Public Overloads Sub GetAvailableTseListAsync(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer, ByVal countSpecified As Boolean, ByVal userState As Object) If (Me.GetAvailableTseListOperationCompleted Is Nothing) Then Me.GetAvailableTseListOperationCompleted = AddressOf Me.OnGetAvailableTseListOperationCompleted End If Me.InvokeAsync("GetAvailableTseList", New Object() {startDriveLetter, endDriveLetter, tseDriveLetterList, tseSerialList, count, countSpecified}, Me.GetAvailableTseListOperationCompleted, userState) End Sub Private Sub OnGetAvailableTseListOperationCompleted(ByVal arg As Object) If (Not (Me.GetAvailableTseListCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetAvailableTseListCompleted(Me, New GetAvailableTseListCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub 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, ByRef GetDsFinVKValuesResult As Integer, ByRef GetDsFinVKValuesResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetDsFinVKValues", New Object() {Z_KASSE_ID, tse_serial, tse_sig_algo, tse_zeitformat, tse_pd_encoding, tse_public_key, tse_zertifikat}) tse_serial = CType(results(0),String) tse_sig_algo = CType(results(1),String) tse_zeitformat = CType(results(2),String) tse_pd_encoding = CType(results(3),String) tse_public_key = CType(results(4),String) tse_zertifikat = CType(results(5),String) GetDsFinVKValuesResult = CType(results(6),Integer) GetDsFinVKValuesResultSpecified = CType(results(7),Boolean) End Sub ''' Public Overloads Sub GetDsFinVKValuesAsync(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) Me.GetDsFinVKValuesAsync(Z_KASSE_ID, tse_serial, tse_sig_algo, tse_zeitformat, tse_pd_encoding, tse_public_key, tse_zertifikat, Nothing) End Sub ''' Public Overloads Sub GetDsFinVKValuesAsync(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, ByVal userState As Object) If (Me.GetDsFinVKValuesOperationCompleted Is Nothing) Then Me.GetDsFinVKValuesOperationCompleted = AddressOf Me.OnGetDsFinVKValuesOperationCompleted End If Me.InvokeAsync("GetDsFinVKValues", New Object() {Z_KASSE_ID, tse_serial, tse_sig_algo, tse_zeitformat, tse_pd_encoding, tse_public_key, tse_zertifikat}, Me.GetDsFinVKValuesOperationCompleted, userState) End Sub Private Sub OnGetDsFinVKValuesOperationCompleted(ByVal arg As Object) If (Not (Me.GetDsFinVKValuesCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetDsFinVKValuesCompleted(Me, New GetDsFinVKValuesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetDsFinVKValuesForTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef tseData As TSEData, ByRef GetDsFinVKValuesForTseResult As Integer, ByRef GetDsFinVKValuesForTseResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetDsFinVKValuesForTse", New Object() {Z_KASSE_ID, driveLetter, tseData}) tseData = CType(results(0),TSEData) GetDsFinVKValuesForTseResult = CType(results(1),Integer) GetDsFinVKValuesForTseResultSpecified = CType(results(2),Boolean) End Sub ''' Public Overloads Sub GetDsFinVKValuesForTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As TSEData) Me.GetDsFinVKValuesForTseAsync(Z_KASSE_ID, driveLetter, tseData, Nothing) End Sub ''' Public Overloads Sub GetDsFinVKValuesForTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As TSEData, ByVal userState As Object) If (Me.GetDsFinVKValuesForTseOperationCompleted Is Nothing) Then Me.GetDsFinVKValuesForTseOperationCompleted = AddressOf Me.OnGetDsFinVKValuesForTseOperationCompleted End If Me.InvokeAsync("GetDsFinVKValuesForTse", New Object() {Z_KASSE_ID, driveLetter, tseData}, Me.GetDsFinVKValuesForTseOperationCompleted, userState) End Sub Private Sub OnGetDsFinVKValuesForTseOperationCompleted(ByVal arg As Object) If (Not (Me.GetDsFinVKValuesForTseCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetDsFinVKValuesForTseCompleted(Me, New GetDsFinVKValuesForTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub 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, ByRef SetupTseForFirstUseTseResult As Integer, ByRef SetupTseForFirstUseTseResultSpecified As Boolean) Dim results() As Object = Me.Invoke("SetupTseForFirstUseTse", New Object() {Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId}) SetupTseForFirstUseTseResult = CType(results(0),Integer) SetupTseForFirstUseTseResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub 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) Me.SetupTseForFirstUseTseAsync(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId, Nothing) End Sub ''' Public Overloads Sub 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, ByVal userState As Object) If (Me.SetupTseForFirstUseTseOperationCompleted Is Nothing) Then Me.SetupTseForFirstUseTseOperationCompleted = AddressOf Me.OnSetupTseForFirstUseTseOperationCompleted End If Me.InvokeAsync("SetupTseForFirstUseTse", New Object() {Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId}, Me.SetupTseForFirstUseTseOperationCompleted, userState) End Sub Private Sub OnSetupTseForFirstUseTseOperationCompleted(ByVal arg As Object) If (Not (Me.SetupTseForFirstUseTseCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent SetupTseForFirstUseTseCompleted(Me, New SetupTseForFirstUseTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Function StringifyTseErrorCode(ByVal tseErrorCode As Integer, ByVal tseErrorCodeSpecified As Boolean) As String Dim results() As Object = Me.Invoke("StringifyTseErrorCode", New Object() {tseErrorCode, tseErrorCodeSpecified}) Return CType(results(0),String) End Function ''' Public Overloads Sub StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer, ByVal tseErrorCodeSpecified As Boolean) Me.StringifyTseErrorCodeAsync(tseErrorCode, tseErrorCodeSpecified, Nothing) End Sub ''' Public Overloads Sub StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer, ByVal tseErrorCodeSpecified As Boolean, ByVal userState As Object) If (Me.StringifyTseErrorCodeOperationCompleted Is Nothing) Then Me.StringifyTseErrorCodeOperationCompleted = AddressOf Me.OnStringifyTseErrorCodeOperationCompleted End If Me.InvokeAsync("StringifyTseErrorCode", New Object() {tseErrorCode, tseErrorCodeSpecified}, Me.StringifyTseErrorCodeOperationCompleted, userState) End Sub Private Sub OnStringifyTseErrorCodeOperationCompleted(ByVal arg As Object) If (Not (Me.StringifyTseErrorCodeCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent StringifyTseErrorCodeCompleted(Me, New StringifyTseErrorCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetAvailableClientsTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef clientIds() As String, ByRef count As Integer, ByRef countSpecified As Boolean, ByRef GetAvailableClientsTseResult As Integer, ByRef GetAvailableClientsTseResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetAvailableClientsTse", New Object() {Z_KASSE_ID, driveLetter, clientIds, count, countSpecified}) clientIds = CType(results(0),String()) count = CType(results(1),Integer) countSpecified = CType(results(2),Boolean) GetAvailableClientsTseResult = CType(results(3),Integer) GetAvailableClientsTseResultSpecified = CType(results(4),Boolean) End Sub ''' Public Overloads Sub GetAvailableClientsTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer, ByVal countSpecified As Boolean) Me.GetAvailableClientsTseAsync(Z_KASSE_ID, driveLetter, clientIds, count, countSpecified, Nothing) End Sub ''' Public Overloads Sub GetAvailableClientsTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer, ByVal countSpecified As Boolean, ByVal userState As Object) If (Me.GetAvailableClientsTseOperationCompleted Is Nothing) Then Me.GetAvailableClientsTseOperationCompleted = AddressOf Me.OnGetAvailableClientsTseOperationCompleted End If Me.InvokeAsync("GetAvailableClientsTse", New Object() {Z_KASSE_ID, driveLetter, clientIds, count, countSpecified}, Me.GetAvailableClientsTseOperationCompleted, userState) End Sub Private Sub OnGetAvailableClientsTseOperationCompleted(ByVal arg As Object) If (Not (Me.GetAvailableClientsTseCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetAvailableClientsTseCompleted(Me, New GetAvailableClientsTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub IsClientPresentTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByRef result As Boolean, ByRef resultSpecified As Boolean, ByRef IsClientPresentTseResult As ErrorCode, ByRef IsClientPresentTseResultSpecified As Boolean) Dim results() As Object = Me.Invoke("IsClientPresentTse", New Object() {Z_KASSE_ID, driveLetter, clientId, result, resultSpecified}) result = CType(results(0),Boolean) resultSpecified = CType(results(1),Boolean) IsClientPresentTseResult = CType(results(2),ErrorCode) IsClientPresentTseResultSpecified = CType(results(3),Boolean) End Sub ''' Public Overloads Sub IsClientPresentTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean, ByVal resultSpecified As Boolean) Me.IsClientPresentTseAsync(Z_KASSE_ID, driveLetter, clientId, result, resultSpecified, Nothing) End Sub ''' Public Overloads Sub IsClientPresentTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean, ByVal resultSpecified As Boolean, ByVal userState As Object) If (Me.IsClientPresentTseOperationCompleted Is Nothing) Then Me.IsClientPresentTseOperationCompleted = AddressOf Me.OnIsClientPresentTseOperationCompleted End If Me.InvokeAsync("IsClientPresentTse", New Object() {Z_KASSE_ID, driveLetter, clientId, result, resultSpecified}, Me.IsClientPresentTseOperationCompleted, userState) End Sub Private Sub OnIsClientPresentTseOperationCompleted(ByVal arg As Object) If (Not (Me.IsClientPresentTseCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent IsClientPresentTseCompleted(Me, New IsClientPresentTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetTaxIds( ByVal Z_KASSE_ID As String, ByRef taxes As Taxes, ByRef GetTaxIdsResult As ErrorCode, ByRef GetTaxIdsResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetTaxIds", New Object() {Z_KASSE_ID, taxes}) taxes = CType(results(0),Taxes) GetTaxIdsResult = CType(results(1),ErrorCode) GetTaxIdsResultSpecified = CType(results(2),Boolean) End Sub ''' Public Overloads Sub GetTaxIdsAsync(ByVal Z_KASSE_ID As String, ByVal taxes As Taxes) Me.GetTaxIdsAsync(Z_KASSE_ID, taxes, Nothing) End Sub ''' Public Overloads Sub GetTaxIdsAsync(ByVal Z_KASSE_ID As String, ByVal taxes As Taxes, ByVal userState As Object) If (Me.GetTaxIdsOperationCompleted Is Nothing) Then Me.GetTaxIdsOperationCompleted = AddressOf Me.OnGetTaxIdsOperationCompleted End If Me.InvokeAsync("GetTaxIds", New Object() {Z_KASSE_ID, taxes}, Me.GetTaxIdsOperationCompleted, userState) End Sub Private Sub OnGetTaxIdsOperationCompleted(ByVal arg As Object) If (Not (Me.GetTaxIdsCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetTaxIdsCompleted(Me, New GetTaxIdsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub CreateCashpointClosing( ByVal Z_KASSE_ID As String, ByRef CreateCashpointClosingResult As ErrorCode, ByRef CreateCashpointClosingResultSpecified As Boolean) Dim results() As Object = Me.Invoke("CreateCashpointClosing", New Object() {Z_KASSE_ID}) CreateCashpointClosingResult = CType(results(0),ErrorCode) CreateCashpointClosingResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) Me.CreateCashpointClosingAsync(Z_KASSE_ID, Nothing) End Sub ''' Public Overloads Sub CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String, ByVal userState As Object) If (Me.CreateCashpointClosingOperationCompleted Is Nothing) Then Me.CreateCashpointClosingOperationCompleted = AddressOf Me.OnCreateCashpointClosingOperationCompleted End If Me.InvokeAsync("CreateCashpointClosing", New Object() {Z_KASSE_ID}, Me.CreateCashpointClosingOperationCompleted, userState) End Sub Private Sub OnCreateCashpointClosingOperationCompleted(ByVal arg As Object) If (Not (Me.CreateCashpointClosingCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent CreateCashpointClosingCompleted(Me, New CreateCashpointClosingCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetLastReceiptValues( ByVal Z_KASSE_ID As String, ByRef transactionNumber As String, ByRef serialNumber As String, ByRef signature As String, ByRef transactionStart As Date, ByRef transactionStartSpecified As Boolean, ByRef transactionFinish As Date, ByRef transactionFinishSpecified As Boolean, ByRef sigCounter As String, ByRef GetLastReceiptValuesResult As ErrorCode, ByRef GetLastReceiptValuesResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetLastReceiptValues", New Object() {Z_KASSE_ID, transactionNumber, serialNumber, signature, transactionStart, transactionStartSpecified, transactionFinish, transactionFinishSpecified, sigCounter}) transactionNumber = CType(results(0),String) serialNumber = CType(results(1),String) signature = CType(results(2),String) transactionStart = CType(results(3),Date) transactionStartSpecified = CType(results(4),Boolean) transactionFinish = CType(results(5),Date) transactionFinishSpecified = CType(results(6),Boolean) sigCounter = CType(results(7),String) GetLastReceiptValuesResult = CType(results(8),ErrorCode) GetLastReceiptValuesResultSpecified = CType(results(9),Boolean) End Sub ''' Public Overloads Sub GetLastReceiptValuesAsync(ByVal Z_KASSE_ID As String, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionStartSpecified As Boolean, ByVal transactionFinish As Date, ByVal transactionFinishSpecified As Boolean, ByVal sigCounter As String) Me.GetLastReceiptValuesAsync(Z_KASSE_ID, transactionNumber, serialNumber, signature, transactionStart, transactionStartSpecified, transactionFinish, transactionFinishSpecified, sigCounter, Nothing) End Sub ''' Public Overloads Sub GetLastReceiptValuesAsync(ByVal Z_KASSE_ID As String, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionStartSpecified As Boolean, ByVal transactionFinish As Date, ByVal transactionFinishSpecified As Boolean, ByVal sigCounter As String, ByVal userState As Object) If (Me.GetLastReceiptValuesOperationCompleted Is Nothing) Then Me.GetLastReceiptValuesOperationCompleted = AddressOf Me.OnGetLastReceiptValuesOperationCompleted End If Me.InvokeAsync("GetLastReceiptValues", New Object() {Z_KASSE_ID, transactionNumber, serialNumber, signature, transactionStart, transactionStartSpecified, transactionFinish, transactionFinishSpecified, sigCounter}, Me.GetLastReceiptValuesOperationCompleted, userState) End Sub Private Sub OnGetLastReceiptValuesOperationCompleted(ByVal arg As Object) If (Not (Me.GetLastReceiptValuesCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetLastReceiptValuesCompleted(Me, New GetLastReceiptValuesCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetLastReceiptQrCode( ByVal Z_KASSE_ID As String, ByRef qrCode As String, ByVal mimeType As String, ByRef GetLastReceiptQrCodeResult As ErrorCode, ByRef GetLastReceiptQrCodeResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetLastReceiptQrCode", New Object() {Z_KASSE_ID, qrCode, mimeType}) qrCode = CType(results(0),String) GetLastReceiptQrCodeResult = CType(results(1),ErrorCode) GetLastReceiptQrCodeResultSpecified = CType(results(2),Boolean) End Sub ''' Public Overloads Sub GetLastReceiptQrCodeAsync(ByVal Z_KASSE_ID As String, ByVal qrCode As String, ByVal mimeType As String) Me.GetLastReceiptQrCodeAsync(Z_KASSE_ID, qrCode, mimeType, Nothing) End Sub ''' Public Overloads Sub GetLastReceiptQrCodeAsync(ByVal Z_KASSE_ID As String, ByVal qrCode As String, ByVal mimeType As String, ByVal userState As Object) If (Me.GetLastReceiptQrCodeOperationCompleted Is Nothing) Then Me.GetLastReceiptQrCodeOperationCompleted = AddressOf Me.OnGetLastReceiptQrCodeOperationCompleted End If Me.InvokeAsync("GetLastReceiptQrCode", New Object() {Z_KASSE_ID, qrCode, mimeType}, Me.GetLastReceiptQrCodeOperationCompleted, userState) End Sub Private Sub OnGetLastReceiptQrCodeOperationCompleted(ByVal arg As Object) If (Not (Me.GetLastReceiptQrCodeCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetLastReceiptQrCodeCompleted(Me, New GetLastReceiptQrCodeCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetLastReceiptQrCodeContent( ByVal Z_KASSE_ID As String, ByRef qrCodeContent As String, ByRef GetLastReceiptQrCodeContentResult As ErrorCode, ByRef GetLastReceiptQrCodeContentResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetLastReceiptQrCodeContent", New Object() {Z_KASSE_ID, qrCodeContent}) qrCodeContent = CType(results(0),String) GetLastReceiptQrCodeContentResult = CType(results(1),ErrorCode) GetLastReceiptQrCodeContentResultSpecified = CType(results(2),Boolean) End Sub ''' Public Overloads Sub GetLastReceiptQrCodeContentAsync(ByVal Z_KASSE_ID As String, ByVal qrCodeContent As String) Me.GetLastReceiptQrCodeContentAsync(Z_KASSE_ID, qrCodeContent, Nothing) End Sub ''' Public Overloads Sub GetLastReceiptQrCodeContentAsync(ByVal Z_KASSE_ID As String, ByVal qrCodeContent As String, ByVal userState As Object) If (Me.GetLastReceiptQrCodeContentOperationCompleted Is Nothing) Then Me.GetLastReceiptQrCodeContentOperationCompleted = AddressOf Me.OnGetLastReceiptQrCodeContentOperationCompleted End If Me.InvokeAsync("GetLastReceiptQrCodeContent", New Object() {Z_KASSE_ID, qrCodeContent}, Me.GetLastReceiptQrCodeContentOperationCompleted, userState) End Sub Private Sub OnGetLastReceiptQrCodeContentOperationCompleted(ByVal arg As Object) If (Not (Me.GetLastReceiptQrCodeContentCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetLastReceiptQrCodeContentCompleted(Me, New GetLastReceiptQrCodeContentCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub RegisterNewClientTse( ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String, ByRef RegisterNewClientTseResult As ErrorCode, ByRef RegisterNewClientTseResultSpecified As Boolean) Dim results() As Object = Me.Invoke("RegisterNewClientTse", New Object() {Z_KASSE_ID, driveLetter, newClientId}) RegisterNewClientTseResult = CType(results(0),ErrorCode) RegisterNewClientTseResultSpecified = CType(results(1),Boolean) End Sub ''' Public Overloads Sub RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) Me.RegisterNewClientTseAsync(Z_KASSE_ID, driveLetter, newClientId, Nothing) End Sub ''' Public Overloads Sub RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String, ByVal userState As Object) If (Me.RegisterNewClientTseOperationCompleted Is Nothing) Then Me.RegisterNewClientTseOperationCompleted = AddressOf Me.OnRegisterNewClientTseOperationCompleted End If Me.InvokeAsync("RegisterNewClientTse", New Object() {Z_KASSE_ID, driveLetter, newClientId}, Me.RegisterNewClientTseOperationCompleted, userState) End Sub Private Sub OnRegisterNewClientTseOperationCompleted(ByVal arg As Object) If (Not (Me.RegisterNewClientTseCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent RegisterNewClientTseCompleted(Me, New RegisterNewClientTseCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' _ Public Sub GetNextBON_ID( ByVal Z_KASSE_ID As String, ByRef BON_ID As Integer, ByRef BON_IDSpecified As Boolean, ByRef GetNextBON_IDResult As ErrorCode, ByRef GetNextBON_IDResultSpecified As Boolean) Dim results() As Object = Me.Invoke("GetNextBON_ID", New Object() {Z_KASSE_ID, BON_ID, BON_IDSpecified}) BON_ID = CType(results(0),Integer) BON_IDSpecified = CType(results(1),Boolean) GetNextBON_IDResult = CType(results(2),ErrorCode) GetNextBON_IDResultSpecified = CType(results(3),Boolean) End Sub ''' Public Overloads Sub GetNextBON_IDAsync(ByVal Z_KASSE_ID As String, ByVal BON_ID As Integer, ByVal BON_IDSpecified As Boolean) Me.GetNextBON_IDAsync(Z_KASSE_ID, BON_ID, BON_IDSpecified, Nothing) End Sub ''' Public Overloads Sub GetNextBON_IDAsync(ByVal Z_KASSE_ID As String, ByVal BON_ID As Integer, ByVal BON_IDSpecified As Boolean, ByVal userState As Object) If (Me.GetNextBON_IDOperationCompleted Is Nothing) Then Me.GetNextBON_IDOperationCompleted = AddressOf Me.OnGetNextBON_IDOperationCompleted End If Me.InvokeAsync("GetNextBON_ID", New Object() {Z_KASSE_ID, BON_ID, BON_IDSpecified}, Me.GetNextBON_IDOperationCompleted, userState) End Sub Private Sub OnGetNextBON_IDOperationCompleted(ByVal arg As Object) If (Not (Me.GetNextBON_IDCompletedEvent) Is Nothing) Then Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) RaiseEvent GetNextBON_IDCompleted(Me, New GetNextBON_IDCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) End If End Sub ''' Public Shadows Sub CancelAsync(ByVal userState As Object) MyBase.CancelAsync(userState) End Sub Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean If ((url Is Nothing) _ OrElse (url Is String.Empty)) Then Return false End If Dim wsUri As System.Uri = New System.Uri(url) If ((wsUri.Port >= 1024) _ AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then Return true End If Return false End Function End Class ''' _ Public Enum ErrorCode ''' OK ''' FAILED ''' BAD_USERNAME ''' BAD_PASSWORD ''' TSE_NOT_FOUND ''' TSE_INITIALIZATION_FAILED ''' TSE_BEGIN_TRANSACTION_FAILED ''' TSE_FINISH_TRANSACTION_FAILED ''' ARRAY_LENGTH_NOT_EQUAL ''' PARAMETER_ERROR ''' DSFINVKCOM_LICENSE_NOT_VALID ''' KSVCOM_LICENSE_NOT_VALID ''' DATABASE_NO_CONNECTION ''' DATABASE_CONNECTION_NOT_OPENED ''' DATABASE_NOT_SPECIFIED ''' DATABASE_OPERATION_FAILED ''' CASHBOX_NAME_NOT_UNIQUE ''' CASHBOX_IN_USE ''' CASHBOX_NOT_FOUND ''' CASHBOX_NOT_MANAGED ''' CASHBOX_ALREADY_MANAGED ''' ROW_HAS_INVALID_DATA ''' ROW_BON_ID_NOT_FOUND ''' ROW_BON_ID_ALREADY_EXISTS ''' ROW_BON_ID_ALREADY_FINISHED End Enum ''' _ Partial Public Class Kassendaten Private iVNRField As Integer Private iVNRFieldSpecified As Boolean Private kASSE_BASISWAEH_CODEField As String Private kASSE_BRANDField As String Private kASSE_MODELLField As String Private kASSE_SERIENNRField As String Private kASSE_SW_BRANDField As String Private kASSE_SW_VERSIONField As String Private kEINE_UST_ZUORDNUNGField As String Private lOC_LANDField As String Private lOC_NAMEField As String Private lOC_ORTField As String Private lOC_PLZField As String Private lOC_STRASSEField As String Private lOC_USTIDField As String Private z_KASSE_IDField As String Private z_NRField As Long Private z_NRFieldSpecified As Boolean Private licenseField As String Private tse_bezeichnungField As String Private tse_ivnrField As Integer Private tse_ivnrFieldSpecified As Boolean ''' Public Property IVNR() As Integer Get Return Me.iVNRField End Get Set Me.iVNRField = value End Set End Property ''' _ Public Property IVNRSpecified() As Boolean Get Return Me.iVNRFieldSpecified End Get Set Me.iVNRFieldSpecified = value End Set End Property ''' _ Public Property KASSE_BASISWAEH_CODE() As String Get Return Me.kASSE_BASISWAEH_CODEField End Get Set Me.kASSE_BASISWAEH_CODEField = value End Set End Property ''' _ Public Property KASSE_BRAND() As String Get Return Me.kASSE_BRANDField End Get Set Me.kASSE_BRANDField = value End Set End Property ''' _ Public Property KASSE_MODELL() As String Get Return Me.kASSE_MODELLField End Get Set Me.kASSE_MODELLField = value End Set End Property ''' _ Public Property KASSE_SERIENNR() As String Get Return Me.kASSE_SERIENNRField End Get Set Me.kASSE_SERIENNRField = value End Set End Property ''' _ Public Property KASSE_SW_BRAND() As String Get Return Me.kASSE_SW_BRANDField End Get Set Me.kASSE_SW_BRANDField = value End Set End Property ''' _ Public Property KASSE_SW_VERSION() As String Get Return Me.kASSE_SW_VERSIONField End Get Set Me.kASSE_SW_VERSIONField = value End Set End Property ''' _ Public Property KEINE_UST_ZUORDNUNG() As String Get Return Me.kEINE_UST_ZUORDNUNGField End Get Set Me.kEINE_UST_ZUORDNUNGField = value End Set End Property ''' _ Public Property LOC_LAND() As String Get Return Me.lOC_LANDField End Get Set Me.lOC_LANDField = value End Set End Property ''' _ Public Property LOC_NAME() As String Get Return Me.lOC_NAMEField End Get Set Me.lOC_NAMEField = value End Set End Property ''' _ Public Property LOC_ORT() As String Get Return Me.lOC_ORTField End Get Set Me.lOC_ORTField = value End Set End Property ''' _ Public Property LOC_PLZ() As String Get Return Me.lOC_PLZField End Get Set Me.lOC_PLZField = value End Set End Property ''' _ Public Property LOC_STRASSE() As String Get Return Me.lOC_STRASSEField End Get Set Me.lOC_STRASSEField = value End Set End Property ''' _ Public Property LOC_USTID() As String Get Return Me.lOC_USTIDField End Get Set Me.lOC_USTIDField = value End Set End Property ''' _ Public Property Z_KASSE_ID() As String Get Return Me.z_KASSE_IDField End Get Set Me.z_KASSE_IDField = value End Set End Property ''' Public Property Z_NR() As Long Get Return Me.z_NRField End Get Set Me.z_NRField = value End Set End Property ''' _ Public Property Z_NRSpecified() As Boolean Get Return Me.z_NRFieldSpecified End Get Set Me.z_NRFieldSpecified = value End Set End Property ''' _ Public Property license() As String Get Return Me.licenseField End Get Set Me.licenseField = value End Set End Property ''' _ Public Property tse_bezeichnung() As String Get Return Me.tse_bezeichnungField End Get Set Me.tse_bezeichnungField = value End Set End Property ''' Public Property tse_ivnr() As Integer Get Return Me.tse_ivnrField End Get Set Me.tse_ivnrField = value End Set End Property ''' _ Public Property tse_ivnrSpecified() As Boolean Get Return Me.tse_ivnrFieldSpecified End Get Set Me.tse_ivnrFieldSpecified = value End Set End Property End Class ''' _ Partial Public Class Taxes Private countField As Integer Private countFieldSpecified As Boolean Private uST_BESCHRField() As String Private uST_SATZField() As Decimal Private uST_SCHLUESSELField() As Integer ''' Public Property Count() As Integer Get Return Me.countField End Get Set Me.countField = value End Set End Property ''' _ Public Property CountSpecified() As Boolean Get Return Me.countFieldSpecified End Get Set Me.countFieldSpecified = value End Set End Property ''' _ Public Property UST_BESCHR() As String() Get Return Me.uST_BESCHRField End Get Set Me.uST_BESCHRField = value End Set End Property ''' _ Public Property UST_SATZ() As Decimal() Get Return Me.uST_SATZField End Get Set Me.uST_SATZField = value End Set End Property ''' _ Public Property UST_SCHLUESSEL() As Integer() Get Return Me.uST_SCHLUESSELField End Get Set Me.uST_SCHLUESSELField = value End Set End Property End Class ''' _ Partial Public Class TSEData Private tse_pd_encodingField As String Private tse_public_keyField As String Private tse_serialField As String Private tse_sig_algoField As String Private tse_zeitformatField As String Private tse_zertifikatField As String ''' _ Public Property tse_pd_encoding() As String Get Return Me.tse_pd_encodingField End Get Set Me.tse_pd_encodingField = value End Set End Property ''' _ Public Property tse_public_key() As String Get Return Me.tse_public_keyField End Get Set Me.tse_public_keyField = value End Set End Property ''' _ Public Property tse_serial() As String Get Return Me.tse_serialField End Get Set Me.tse_serialField = value End Set End Property ''' _ Public Property tse_sig_algo() As String Get Return Me.tse_sig_algoField End Get Set Me.tse_sig_algoField = value End Set End Property ''' _ Public Property tse_zeitformat() As String Get Return Me.tse_zeitformatField End Get Set Me.tse_zeitformatField = value End Set End Property ''' _ Public Property tse_zertifikat() As String Get Return Me.tse_zertifikatField End Get Set Me.tse_zertifikatField = value End Set End Property End Class ''' _ Partial Public Class BonPosition_Ust Private bON_IDField As String Private pOS_BRUTTOField As Decimal Private pOS_BRUTTOFieldSpecified As Boolean Private pOS_NETTOField As Decimal Private pOS_NETTOFieldSpecified As Boolean Private pOS_USTField As Decimal Private pOS_USTFieldSpecified As Boolean Private pOS_ZEILEField As String Private uST_SCHLUESSELField As Integer Private uST_SCHLUESSELFieldSpecified As Boolean ''' _ Public Property BON_ID() As String Get Return Me.bON_IDField End Get Set Me.bON_IDField = value End Set End Property ''' Public Property POS_BRUTTO() As Decimal Get Return Me.pOS_BRUTTOField End Get Set Me.pOS_BRUTTOField = value End Set End Property ''' _ Public Property POS_BRUTTOSpecified() As Boolean Get Return Me.pOS_BRUTTOFieldSpecified End Get Set Me.pOS_BRUTTOFieldSpecified = value End Set End Property ''' Public Property POS_NETTO() As Decimal Get Return Me.pOS_NETTOField End Get Set Me.pOS_NETTOField = value End Set End Property ''' _ Public Property POS_NETTOSpecified() As Boolean Get Return Me.pOS_NETTOFieldSpecified End Get Set Me.pOS_NETTOFieldSpecified = value End Set End Property ''' Public Property POS_UST() As Decimal Get Return Me.pOS_USTField End Get Set Me.pOS_USTField = value End Set End Property ''' _ Public Property POS_USTSpecified() As Boolean Get Return Me.pOS_USTFieldSpecified End Get Set Me.pOS_USTFieldSpecified = value End Set End Property ''' _ Public Property POS_ZEILE() As String Get Return Me.pOS_ZEILEField End Get Set Me.pOS_ZEILEField = value End Set End Property ''' Public Property UST_SCHLUESSEL() As Integer Get Return Me.uST_SCHLUESSELField End Get Set Me.uST_SCHLUESSELField = value End Set End Property ''' _ Public Property UST_SCHLUESSELSpecified() As Boolean Get Return Me.uST_SCHLUESSELFieldSpecified End Get Set Me.uST_SCHLUESSELFieldSpecified = value End Set End Property End Class ''' _ Partial Public Class BonPosition Private aGENTUR_IDField As Integer Private aGENTUR_IDFieldSpecified As Boolean Private aRTIKELTEXTField As String Private aRT_NRField As String Private bON_IDField As String Private eINHEITField As String Private fAKTORField As Decimal Private fAKTORFieldSpecified As Boolean Private gTINField As String Private gUTSCHEIN_NRField As String Private gV_NAMEField As String Private gV_TYPField As String Private iNHAUSField As String Private mENGEField As Decimal Private mENGEFieldSpecified As Boolean Private pOS_TERMINAL_IDField As String Private pOS_ZEILEField As String Private p_STORNOField As String Private sTK_BRField As Decimal Private sTK_BRFieldSpecified As Boolean Private wARENGRField As String Private wARENGR_IDField As String Private z_KASSE_IDField As String ''' Public Property AGENTUR_ID() As Integer Get Return Me.aGENTUR_IDField End Get Set Me.aGENTUR_IDField = value End Set End Property ''' _ Public Property AGENTUR_IDSpecified() As Boolean Get Return Me.aGENTUR_IDFieldSpecified End Get Set Me.aGENTUR_IDFieldSpecified = value End Set End Property ''' _ Public Property ARTIKELTEXT() As String Get Return Me.aRTIKELTEXTField End Get Set Me.aRTIKELTEXTField = value End Set End Property ''' _ Public Property ART_NR() As String Get Return Me.aRT_NRField End Get Set Me.aRT_NRField = value End Set End Property ''' _ Public Property BON_ID() As String Get Return Me.bON_IDField End Get Set Me.bON_IDField = value End Set End Property ''' _ Public Property EINHEIT() As String Get Return Me.eINHEITField End Get Set Me.eINHEITField = value End Set End Property ''' Public Property FAKTOR() As Decimal Get Return Me.fAKTORField End Get Set Me.fAKTORField = value End Set End Property ''' _ Public Property FAKTORSpecified() As Boolean Get Return Me.fAKTORFieldSpecified End Get Set Me.fAKTORFieldSpecified = value End Set End Property ''' _ Public Property GTIN() As String Get Return Me.gTINField End Get Set Me.gTINField = value End Set End Property ''' _ Public Property GUTSCHEIN_NR() As String Get Return Me.gUTSCHEIN_NRField End Get Set Me.gUTSCHEIN_NRField = value End Set End Property ''' _ Public Property GV_NAME() As String Get Return Me.gV_NAMEField End Get Set Me.gV_NAMEField = value End Set End Property ''' _ Public Property GV_TYP() As String Get Return Me.gV_TYPField End Get Set Me.gV_TYPField = value End Set End Property ''' _ Public Property INHAUS() As String Get Return Me.iNHAUSField End Get Set Me.iNHAUSField = value End Set End Property ''' Public Property MENGE() As Decimal Get Return Me.mENGEField End Get Set Me.mENGEField = value End Set End Property ''' _ Public Property MENGESpecified() As Boolean Get Return Me.mENGEFieldSpecified End Get Set Me.mENGEFieldSpecified = value End Set End Property ''' _ Public Property POS_TERMINAL_ID() As String Get Return Me.pOS_TERMINAL_IDField End Get Set Me.pOS_TERMINAL_IDField = value End Set End Property ''' _ Public Property POS_ZEILE() As String Get Return Me.pOS_ZEILEField End Get Set Me.pOS_ZEILEField = value End Set End Property ''' _ Public Property P_STORNO() As String Get Return Me.p_STORNOField End Get Set Me.p_STORNOField = value End Set End Property ''' Public Property STK_BR() As Decimal Get Return Me.sTK_BRField End Get Set Me.sTK_BRField = value End Set End Property ''' _ Public Property STK_BRSpecified() As Boolean Get Return Me.sTK_BRFieldSpecified End Get Set Me.sTK_BRFieldSpecified = value End Set End Property ''' _ Public Property WARENGR() As String Get Return Me.wARENGRField End Get Set Me.wARENGRField = value End Set End Property ''' _ Public Property WARENGR_ID() As String Get Return Me.wARENGR_IDField End Get Set Me.wARENGR_IDField = value End Set End Property ''' _ Public Property Z_KASSE_ID() As String Get Return Me.z_KASSE_IDField End Get Set Me.z_KASSE_IDField = value End Set End Property End Class ''' _ Partial Public Class BonKopfFinish Private bON_ENDEField As String Private bON_IDField As String Private pROCESS_TYPEField As String Private uMS_BRUTTOField As Decimal Private uMS_BRUTTOFieldSpecified As Boolean Private z_KASSE_IDField As String Private payment_currenciesField() As String Private payment_per_currencyField() As Decimal Private payment_typesField() As String ''' _ Public Property BON_ENDE() As String Get Return Me.bON_ENDEField End Get Set Me.bON_ENDEField = value End Set End Property ''' _ Public Property BON_ID() As String Get Return Me.bON_IDField End Get Set Me.bON_IDField = value End Set End Property ''' _ Public Property PROCESS_TYPE() As String Get Return Me.pROCESS_TYPEField End Get Set Me.pROCESS_TYPEField = value End Set End Property ''' Public Property UMS_BRUTTO() As Decimal Get Return Me.uMS_BRUTTOField End Get Set Me.uMS_BRUTTOField = value End Set End Property ''' _ Public Property UMS_BRUTTOSpecified() As Boolean Get Return Me.uMS_BRUTTOFieldSpecified End Get Set Me.uMS_BRUTTOFieldSpecified = value End Set End Property ''' _ Public Property Z_KASSE_ID() As String Get Return Me.z_KASSE_IDField End Get Set Me.z_KASSE_IDField = value End Set End Property ''' _ Public Property payment_currencies() As String() Get Return Me.payment_currenciesField End Get Set Me.payment_currenciesField = value End Set End Property ''' _ Public Property payment_per_currency() As Decimal() Get Return Me.payment_per_currencyField End Get Set Me.payment_per_currencyField = value End Set End Property ''' _ Public Property payment_types() As String() Get Return Me.payment_typesField End Get Set Me.payment_typesField = value End Set End Property End Class ''' _ Partial Public Class BonKopfBegin Private bEDIENER_IDField As String Private bEDIENER_NAMEField As String Private bON_IDField As String Private bON_NAMEField As String Private bON_NOTIZField As String Private bON_NRField As Integer Private bON_NRFieldSpecified As Boolean Private bON_STARTField As String Private bON_STORNOField As String Private bON_TYPField As String Private kUNDE_IDField As String Private kUNDE_LANDField As String Private kUNDE_NAMEField As String Private kUNDE_ORTField As String Private kUNDE_PLZField As String Private kUNDE_STRASSEField As String Private kUNDE_TYPField As String Private kUNDE_USTIDField As String Private tERMINAL_IDField As String Private z_KASSE_IDField As String ''' _ Public Property BEDIENER_ID() As String Get Return Me.bEDIENER_IDField End Get Set Me.bEDIENER_IDField = value End Set End Property ''' _ Public Property BEDIENER_NAME() As String Get Return Me.bEDIENER_NAMEField End Get Set Me.bEDIENER_NAMEField = value End Set End Property ''' _ Public Property BON_ID() As String Get Return Me.bON_IDField End Get Set Me.bON_IDField = value End Set End Property ''' _ Public Property BON_NAME() As String Get Return Me.bON_NAMEField End Get Set Me.bON_NAMEField = value End Set End Property ''' _ Public Property BON_NOTIZ() As String Get Return Me.bON_NOTIZField End Get Set Me.bON_NOTIZField = value End Set End Property ''' Public Property BON_NR() As Integer Get Return Me.bON_NRField End Get Set Me.bON_NRField = value End Set End Property ''' _ Public Property BON_NRSpecified() As Boolean Get Return Me.bON_NRFieldSpecified End Get Set Me.bON_NRFieldSpecified = value End Set End Property ''' _ Public Property BON_START() As String Get Return Me.bON_STARTField End Get Set Me.bON_STARTField = value End Set End Property ''' _ Public Property BON_STORNO() As String Get Return Me.bON_STORNOField End Get Set Me.bON_STORNOField = value End Set End Property ''' _ Public Property BON_TYP() As String Get Return Me.bON_TYPField End Get Set Me.bON_TYPField = value End Set End Property ''' _ Public Property KUNDE_ID() As String Get Return Me.kUNDE_IDField End Get Set Me.kUNDE_IDField = value End Set End Property ''' _ Public Property KUNDE_LAND() As String Get Return Me.kUNDE_LANDField End Get Set Me.kUNDE_LANDField = value End Set End Property ''' _ Public Property KUNDE_NAME() As String Get Return Me.kUNDE_NAMEField End Get Set Me.kUNDE_NAMEField = value End Set End Property ''' _ Public Property KUNDE_ORT() As String Get Return Me.kUNDE_ORTField End Get Set Me.kUNDE_ORTField = value End Set End Property ''' _ Public Property KUNDE_PLZ() As String Get Return Me.kUNDE_PLZField End Get Set Me.kUNDE_PLZField = value End Set End Property ''' _ Public Property KUNDE_STRASSE() As String Get Return Me.kUNDE_STRASSEField End Get Set Me.kUNDE_STRASSEField = value End Set End Property ''' _ Public Property KUNDE_TYP() As String Get Return Me.kUNDE_TYPField End Get Set Me.kUNDE_TYPField = value End Set End Property ''' _ Public Property KUNDE_USTID() As String Get Return Me.kUNDE_USTIDField End Get Set Me.kUNDE_USTIDField = value End Set End Property ''' _ Public Property TERMINAL_ID() As String Get Return Me.tERMINAL_IDField End Get Set Me.tERMINAL_IDField = value End Set End Property ''' _ Public Property Z_KASSE_ID() As String Get Return Me.z_KASSE_IDField End Get Set Me.z_KASSE_IDField = value End Set End Property End Class ''' _ Public Delegate Sub GetMachineCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetMachineCodeCompletedEventArgs) ''' _ Partial Public Class GetMachineCodeCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property Result() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String) End Get End Property End Class ''' _ Public Delegate Sub InitializeLibraryCompletedEventHandler(ByVal sender As Object, ByVal e As InitializeLibraryCompletedEventArgs) ''' _ Partial Public Class InitializeLibraryCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property InitializeLibraryResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property InitializeLibraryResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub CleanupLibraryCompletedEventHandler(ByVal sender As Object, ByVal e As CleanupLibraryCompletedEventArgs) ''' _ Partial Public Class CleanupLibraryCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property CleanupLibraryResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property CleanupLibraryResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub CreateDatabaseCompletedEventHandler(ByVal sender As Object, ByVal e As CreateDatabaseCompletedEventArgs) ''' _ Partial Public Class CreateDatabaseCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property CreateDatabaseResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property CreateDatabaseResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub CreateCashboxCompletedEventHandler(ByVal sender As Object, ByVal e As CreateCashboxCompletedEventArgs) ''' _ Partial Public Class CreateCashboxCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property CreateCashboxResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property CreateCashboxResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetCashboxesCompletedEventHandler(ByVal sender As Object, ByVal e As GetCashboxesCompletedEventArgs) ''' _ Partial Public Class GetCashboxesCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property cashBoxes() As Kassendaten() Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),Kassendaten()) End Get End Property ''' Public ReadOnly Property GetCashboxesResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),ErrorCode) End Get End Property ''' Public ReadOnly Property GetCashboxesResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),Boolean) End Get End Property End Class ''' _ Public Delegate Sub BeginReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As BeginReceiptCompletedEventArgs) ''' _ Partial Public Class BeginReceiptCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property transactionNumber() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),Integer) End Get End Property ''' Public ReadOnly Property transactionNumberSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property ''' Public ReadOnly Property BeginReceiptResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),ErrorCode) End Get End Property ''' Public ReadOnly Property BeginReceiptResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(3),Boolean) End Get End Property End Class ''' _ Public Delegate Sub UpdateReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As UpdateReceiptCompletedEventArgs) ''' _ Partial Public Class UpdateReceiptCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property UpdateReceiptResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property UpdateReceiptResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub FinishReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As FinishReceiptCompletedEventArgs) ''' _ Partial Public Class FinishReceiptCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property FinishReceiptResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property FinishReceiptResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub AddPositionToReceiptCompletedEventHandler(ByVal sender As Object, ByVal e As AddPositionToReceiptCompletedEventArgs) ''' _ Partial Public Class AddPositionToReceiptCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property AddPositionToReceiptResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property AddPositionToReceiptResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub ExportFullCompletedEventHandler(ByVal sender As Object, ByVal e As ExportFullCompletedEventArgs) ''' _ Partial Public Class ExportFullCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property ExportFullResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property ExportFullResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub ExportDateToDateCompletedEventHandler(ByVal sender As Object, ByVal e As ExportDateToDateCompletedEventArgs) ''' _ Partial Public Class ExportDateToDateCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property ExportDateToDateResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property ExportDateToDateResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub ExportNumberToNumberCompletedEventHandler(ByVal sender As Object, ByVal e As ExportNumberToNumberCompletedEventArgs) ''' _ Partial Public Class ExportNumberToNumberCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property ExportNumberToNumberResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property ExportNumberToNumberResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub ExportCSVFilesCompletedEventHandler(ByVal sender As Object, ByVal e As ExportCSVFilesCompletedEventArgs) ''' _ Partial Public Class ExportCSVFilesCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property ExportCSVFilesResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property ExportCSVFilesResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetAvailableTseListCompletedEventHandler(ByVal sender As Object, ByVal e As GetAvailableTseListCompletedEventArgs) ''' _ Partial Public Class GetAvailableTseListCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property tseDriveLetterList() As String() Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String()) End Get End Property ''' Public ReadOnly Property tseSerialList() As String() Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),String()) End Get End Property ''' Public ReadOnly Property count() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),Integer) End Get End Property ''' Public ReadOnly Property countSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(3),Boolean) End Get End Property ''' Public ReadOnly Property GetAvailableTseListResult() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(4),Integer) End Get End Property ''' Public ReadOnly Property GetAvailableTseListResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(5),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetDsFinVKValuesCompletedEventHandler(ByVal sender As Object, ByVal e As GetDsFinVKValuesCompletedEventArgs) ''' _ Partial Public Class GetDsFinVKValuesCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property tse_serial() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String) End Get End Property ''' Public ReadOnly Property tse_sig_algo() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),String) End Get End Property ''' Public ReadOnly Property tse_zeitformat() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),String) End Get End Property ''' Public ReadOnly Property tse_pd_encoding() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(3),String) End Get End Property ''' Public ReadOnly Property tse_public_key() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(4),String) End Get End Property ''' Public ReadOnly Property tse_zertifikat() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(5),String) End Get End Property ''' Public ReadOnly Property GetDsFinVKValuesResult() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(6),Integer) End Get End Property ''' Public ReadOnly Property GetDsFinVKValuesResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(7),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetDsFinVKValuesForTseCompletedEventHandler(ByVal sender As Object, ByVal e As GetDsFinVKValuesForTseCompletedEventArgs) ''' _ Partial Public Class GetDsFinVKValuesForTseCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property tseData() As TSEData Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),TSEData) End Get End Property ''' Public ReadOnly Property GetDsFinVKValuesForTseResult() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Integer) End Get End Property ''' Public ReadOnly Property GetDsFinVKValuesForTseResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),Boolean) End Get End Property End Class ''' _ Public Delegate Sub SetupTseForFirstUseTseCompletedEventHandler(ByVal sender As Object, ByVal e As SetupTseForFirstUseTseCompletedEventArgs) ''' _ Partial Public Class SetupTseForFirstUseTseCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property SetupTseForFirstUseTseResult() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),Integer) End Get End Property ''' Public ReadOnly Property SetupTseForFirstUseTseResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub StringifyTseErrorCodeCompletedEventHandler(ByVal sender As Object, ByVal e As StringifyTseErrorCodeCompletedEventArgs) ''' _ Partial Public Class StringifyTseErrorCodeCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property Result() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String) End Get End Property End Class ''' _ Public Delegate Sub GetAvailableClientsTseCompletedEventHandler(ByVal sender As Object, ByVal e As GetAvailableClientsTseCompletedEventArgs) ''' _ Partial Public Class GetAvailableClientsTseCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property clientIds() As String() Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String()) End Get End Property ''' Public ReadOnly Property count() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Integer) End Get End Property ''' Public ReadOnly Property countSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),Boolean) End Get End Property ''' Public ReadOnly Property GetAvailableClientsTseResult() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(3),Integer) End Get End Property ''' Public ReadOnly Property GetAvailableClientsTseResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(4),Boolean) End Get End Property End Class ''' _ Public Delegate Sub IsClientPresentTseCompletedEventHandler(ByVal sender As Object, ByVal e As IsClientPresentTseCompletedEventArgs) ''' _ Partial Public Class IsClientPresentTseCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property result() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),Boolean) End Get End Property ''' Public ReadOnly Property resultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property ''' Public ReadOnly Property IsClientPresentTseResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),ErrorCode) End Get End Property ''' Public ReadOnly Property IsClientPresentTseResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(3),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetTaxIdsCompletedEventHandler(ByVal sender As Object, ByVal e As GetTaxIdsCompletedEventArgs) ''' _ Partial Public Class GetTaxIdsCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property taxes() As Taxes Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),Taxes) End Get End Property ''' Public ReadOnly Property GetTaxIdsResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),ErrorCode) End Get End Property ''' Public ReadOnly Property GetTaxIdsResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),Boolean) End Get End Property End Class ''' _ Public Delegate Sub CreateCashpointClosingCompletedEventHandler(ByVal sender As Object, ByVal e As CreateCashpointClosingCompletedEventArgs) ''' _ Partial Public Class CreateCashpointClosingCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property CreateCashpointClosingResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property CreateCashpointClosingResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetLastReceiptValuesCompletedEventHandler(ByVal sender As Object, ByVal e As GetLastReceiptValuesCompletedEventArgs) ''' _ Partial Public Class GetLastReceiptValuesCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property transactionNumber() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String) End Get End Property ''' Public ReadOnly Property serialNumber() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),String) End Get End Property ''' Public ReadOnly Property signature() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),String) End Get End Property ''' Public ReadOnly Property transactionStart() As Date Get Me.RaiseExceptionIfNecessary Return CType(Me.results(3),Date) End Get End Property ''' Public ReadOnly Property transactionStartSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(4),Boolean) End Get End Property ''' Public ReadOnly Property transactionFinish() As Date Get Me.RaiseExceptionIfNecessary Return CType(Me.results(5),Date) End Get End Property ''' Public ReadOnly Property transactionFinishSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(6),Boolean) End Get End Property ''' Public ReadOnly Property sigCounter() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(7),String) End Get End Property ''' Public ReadOnly Property GetLastReceiptValuesResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(8),ErrorCode) End Get End Property ''' Public ReadOnly Property GetLastReceiptValuesResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(9),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetLastReceiptQrCodeCompletedEventHandler(ByVal sender As Object, ByVal e As GetLastReceiptQrCodeCompletedEventArgs) ''' _ Partial Public Class GetLastReceiptQrCodeCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property qrCode() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String) End Get End Property ''' Public ReadOnly Property GetLastReceiptQrCodeResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),ErrorCode) End Get End Property ''' Public ReadOnly Property GetLastReceiptQrCodeResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetLastReceiptQrCodeContentCompletedEventHandler(ByVal sender As Object, ByVal e As GetLastReceiptQrCodeContentCompletedEventArgs) ''' _ Partial Public Class GetLastReceiptQrCodeContentCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property qrCodeContent() As String Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),String) End Get End Property ''' Public ReadOnly Property GetLastReceiptQrCodeContentResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),ErrorCode) End Get End Property ''' Public ReadOnly Property GetLastReceiptQrCodeContentResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),Boolean) End Get End Property End Class ''' _ Public Delegate Sub RegisterNewClientTseCompletedEventHandler(ByVal sender As Object, ByVal e As RegisterNewClientTseCompletedEventArgs) ''' _ Partial Public Class RegisterNewClientTseCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property RegisterNewClientTseResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),ErrorCode) End Get End Property ''' Public ReadOnly Property RegisterNewClientTseResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property End Class ''' _ Public Delegate Sub GetNextBON_IDCompletedEventHandler(ByVal sender As Object, ByVal e As GetNextBON_IDCompletedEventArgs) ''' _ Partial Public Class GetNextBON_IDCompletedEventArgs Inherits System.ComponentModel.AsyncCompletedEventArgs Private results() As Object Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) MyBase.New(exception, cancelled, userState) Me.results = results End Sub ''' Public ReadOnly Property BON_ID() As Integer Get Me.RaiseExceptionIfNecessary Return CType(Me.results(0),Integer) End Get End Property ''' Public ReadOnly Property BON_IDSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(1),Boolean) End Get End Property ''' Public ReadOnly Property GetNextBON_IDResult() As ErrorCode Get Me.RaiseExceptionIfNecessary Return CType(Me.results(2),ErrorCode) End Get End Property ''' Public ReadOnly Property GetNextBON_IDResultSpecified() As Boolean Get Me.RaiseExceptionIfNecessary Return CType(Me.results(3),Boolean) End Get End Property End Class End Namespace