From aec330e6ed33e1a710a9d1d06f6686e70e95968e Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 29 Nov 2022 10:31:58 +0100 Subject: [PATCH] IMEX MySnd, RKSV DE Storno, Div.Bugfix --- SDL/Classes/cRKSV.vb | 335 +- .../FormulareBaukasten/usrcntlVorauskasse.vb | 4 +- SDL/Formulare/KDFormulare/frmFormulare.vb | 2 +- SDL/kassenbuch/frmKassenbuch.vb | 22 +- VERAG_PROG_ALLGEMEIN/App.config | 4 + VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb | 2 +- .../Classes/cTranslateAuto.vb | 213 ++ .../Messenger/frmMessenger.Designer.vb | 8 +- .../Schnittstellen/cDeeplAPI.vb | 108 + .../RKSV_DE_DSFinVKService_2022/Arrays.xsd | 21 + .../RKSV_DE_DSFinVKService_2022/DSFinVK.xsd | 225 ++ .../RKSV_DE_DSFinVKService_2022/ItgKsV.xsd | 14 + .../Reference.svcmap | 36 + .../RKSV_DE_DSFinVKService_2022/Reference.vb | 2976 +++++++++++++++++ ...rvice_2022.BeginReceiptResponse.datasource | 10 + ...E_DSFinVKService_2022.ErrorCode.datasource | 10 + ....GetAvailableClientsTseResponse.datasource | 10 + ...022.GetAvailableTseListResponse.datasource | 10 + ...rvice_2022.GetCashboxesResponse.datasource | 10 + ....GetDsFinVKValuesForTseResponse.datasource | 10 + ...e_2022.GetDsFinVKValuesResponse.datasource | 10 + ...astReceiptQrCodeContentResponse.datasource | 10 + ...22.GetLastReceiptQrCodeResponse.datasource | 10 + ...22.GetLastReceiptValuesResponse.datasource | 10 + ...vice_2022.GetNextBON_IDResponse.datasource | 10 + ...KService_2022.GetTaxIdsResponse.datasource | 10 + ...2022.IsClientPresentTseResponse.datasource | 10 + ...DSFinVKService_2022.Kassendaten.datasource | 10 + ..._DE_DSFinVKService_2022.TSEData.datasource | 10 + ...SV_DE_DSFinVKService_2022.Taxes.datasource | 10 + .../configuration.svcinfo | 10 + .../configuration91.svcinfo | 201 ++ .../RKSV_DE_DSFinVKService_2022/service.wsdl | 554 +++ .../RKSV_DE_DSFinVKService_2022/service.xsd | 507 +++ .../RKSV_DE_DSFinVKService_2022/service1.xsd | 42 + .../VERAG_PROG_ALLGEMEIN.vbproj | 84 + .../RKSV_DE_DSFinVKService/DSFinVKServer.wsdl | 1 + .../RKSV_DE_DSFinVKService/Reference.vb | 143 +- VERAG_PROG_ALLGEMEIN/cAllgemein.vb | 5 + 39 files changed, 5592 insertions(+), 85 deletions(-) create mode 100644 VERAG_PROG_ALLGEMEIN/Classes/cTranslateAuto.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/cDeeplAPI.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Arrays.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/DSFinVK.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/ItgKsV.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.svcmap create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.vb create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BeginReceiptResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.ErrorCode.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetCashboxesResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Kassendaten.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.TSEData.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Taxes.datasource create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration.svcinfo create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration91.svcinfo create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.wsdl create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.xsd create mode 100644 VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service1.xsd diff --git a/SDL/Classes/cRKSV.vb b/SDL/Classes/cRKSV.vb index ca694860..429b2446 100644 --- a/SDL/Classes/cRKSV.vb +++ b/SDL/Classes/cRKSV.vb @@ -177,7 +177,327 @@ Public Class cRKSV 'Return getRKSVLink(kasse.rksv_bez) End Function 'Shared Function stornoRKSV_DE(ByVal kasse As cRKSV_Kasse, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, ByRef answer As String) As Boolean - Shared Function stornoRKSV_DE(PERSONAL As cPersonal, BELEG As EABeleg, ByVal kasse As cRKSV_Kasse, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean + Shared Function stornoRKSV_DE_TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT(PERSONAL As cPersonal, BELEG As EABeleg, ByVal kasse As cRKSV_Kasse, ByVal RKSV_Beleg_Id As Integer, ByVal OLD_RKSV_Beleg_Id As Object, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean + Try + + ' MsgBox("0: ") + Dim cashbox As String = kasse.rksv_KassaGuid '"VERAG_GMBH_KASSE_01" "KASSA 001" + + Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient() 'PROBLEM?? + m_com.Endpoint.Address = New System.ServiceModel.EndpointAddress("http://ymgk028055.verag.ost.dmn:8733/DSFinVKService?wsdl") + m_com.Open() + ' svcRKSV.DBUserCredentials m_credentials = new svcRKSV.DBUserCredentials(); + 'Dim credentials As New SDL.RKSVServer.DBUserCredentials + + 'credentials.Database = "RKSVWcfDB" + 'credentials.Server = "AVISO\SQLEXPRESS" + + 'credentials.Username = "Admin" + 'credentials.Password = "verag#2" + 'credentials.CashboxID = kasse.rksv_bez + ''"VERAG-SUB-KASSE-ZOLL" + 'credentials.CompanyGUID = CompanyGUID ' "9119d9ae-f549-4a0f-a50f-0500ec7ca059" + + + + 'Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer() 'PROBLEM?? + ' m_com.Url = "http://ymgk028055.verag.ost.dmn:8733/DSFinVKService" + Dim [error] As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.ErrorCode + Dim InitializeLibraryResultSpecified As Boolean + ' Dim [error] = "" 'm_com.InitializeLibrary(tbLicense.Text, "D:\Database\DSFinVK\dsfinvkdb.db3", "Administrator", "test", cashbox) + [error] = m_com.InitializeLibrary("SQLGUIDE01.verag.ost.dmn", "itg_RKSV_DE", "dsfinvk", "dsfinvk#1337", cashbox) '[error], InitializeLibraryResultSpecified) + + ' MsgBox("1: " & [error]) + + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then + If [error].ToString() <> "CASHBOX_ALREADY_MANAGED" Then '--> CASHBOX_ALREADY_MANAGED --> der Fehler darf auftreten, die Cashbox wird Serverseitig initialisert, hier nur der Versuch, falls das nciht geschehen ist... lt. Jan Mika / AITG + MessageBox.Show([error].ToString(), "Error1", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Return False + End If + End If + + 'BelegNr wird von RKSV übernommen + Dim BON_ID As Integer = 0 + If False Then + + Dim BON_IDSpecified = False + Dim GetNextBON_IDResultSpecified = False + [error] = m_com.GetNextBON_ID(cashbox, BON_ID) + ' MsgBox("3: " & [error]) + + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then + MessageBox.Show([error].ToString(), "Error2", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Return False + End If + Else + ' MsgBox(RKSV_Beleg_Id) + BON_ID = RKSV_Beleg_Id + End If + + + 'Dim BON_NR As Integer = 0 + '[error] = m_com.GetNextBON_NR(cashbox, BON_NR) + + 'If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then + ' MessageBox.Show([error].ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + ' Return False + 'End If + + + ' MsgBox("4") + + 'Rechnung beginnen + + + Dim stornoVz = -1 + + + Dim bonkopfBegin As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfBegin = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfBegin + ' Dim bonkopfBegin As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.BonKopfBegin = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.BonKopfBegin() + + bonkopfBegin.Z_KASSE_ID = cashbox + + bonkopfBegin.BEDIENER_ID = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID 'tbBEDIENER_ID.Text + + bonkopfBegin.BEDIENER_NAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'tbBEDIENER_NAME.Text + + bonkopfBegin.BON_ID = BON_ID.ToString() + bonkopfBegin.REF_BON_ID = If(OLD_RKSV_Beleg_Id, "").ToString + + bonkopfBegin.BON_NAME = "" 'tbBON_NAME.Text + + bonkopfBegin.BON_NOTIZ = "" 'tbBON_NOTIZ.Text + + bonkopfBegin.BON_NR = BON_ID + + bonkopfBegin.BON_STORNO = 1 'If(cbBON_STORNO.Checked, "1", "0") + + bonkopfBegin.BON_TYP = "Beleg" 'cmbBON_TYP.SelectedItem.ToString() + + bonkopfBegin.KUNDE_ID = If(BELEG.KundenNr > 0, BELEG.KundenNr, "") 'tbKUNDE_ID.Text + + bonkopfBegin.KUNDE_LAND = If(BELEG.LandKz, "") 'tbKUNDE_LAND.Text + + bonkopfBegin.KUNDE_NAME = If(BELEG.Frachtführer, "") 'tbKUNDE_NAME.Text + + bonkopfBegin.KUNDE_ORT = If(BELEG.Ort, "") 'tbKUNDE_ORT.Text + + bonkopfBegin.KUNDE_PLZ = If(BELEG.PLZ, "") 'tbKUNDE_PLZ.Text + + bonkopfBegin.KUNDE_STRASSE = If(BELEG.Straße, "") ' tbKUNDE_STRASSE.Text + + bonkopfBegin.KUNDE_TYP = "" ' tbKUNDE_TYP.Text + + bonkopfBegin.KUNDE_USTID = If(BELEG.UstIdKz, "") & If(BELEG.UstIdNr, "") ' tbKUNDE_USTID.Text + + bonkopfBegin.TERMINAL_ID = "" 'tbTERMINAL_ID.Text + + Dim transactionNumber As Integer = 0 + Dim transactionNumberSpecified As Boolean + + Dim BeginReceiptResultSpecified As Boolean + [error] = m_com.BeginReceipt(cashbox, bonkopfBegin, transactionNumber) + + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then + MessageBox.Show([error].ToString(), "Error3", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Return False + End If + + ' MsgBox("5 ANZ: " & BELEG.POS.Count) + Dim cntZeile = 1 + Dim GES_BRUTTO As Double = 0 + For Each POS In BELEG.POS + + 'Bonposition hinzufügen + Dim position As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonPosition = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonPosition() + + position.AGENTUR_ID = -1 'Convert.ToInt32(dgvBonPos.Rows[m_dgvCurrentRow].Cells["AGENTUR_ID"].Value) + + position.ARTIKELTEXT = POS.LeistungsBez 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["ARTIKELTEXT"].Value) + + position.ART_NR = POS.LeistungsNr ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["ART_NR"].Value) + + position.BON_ID = Convert.ToString(BON_ID) + + position.EINHEIT = "Stk." ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["EINHEIT"].Value) + + position.FAKTOR = 1 ' Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["FAKTOR"].Value) + + position.GTIN = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GTIN"].Value) + + position.GUTSCHEIN_NR = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GUTSCHEIN_NR"].Value) + + position.GV_NAME = "" ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GV_NAME"].Value) + + position.GV_TYP = "Umsatz" ' Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["GV_TYP"].Value) + + position.INHAUS = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["INHAUS"].Value) + + position.MENGE = POS.Anzahl 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["MENGE"].Value) + + position.POS_TERMINAL_ID = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_TERMINAL_ID"].Value) + + position.POS_ZEILE = cntZeile 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_ZEILE"].Value) + + position.P_STORNO = 0 'Hier kein Storno, das wäre nur wenn eine Pos storniert wird... + + position.STK_BR = POS.Preis 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["STK_BR"].Value) + + position.WARENGR = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["WARENGR"].Value) + + position.WARENGR_ID = "" 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["WARENGR_ID"].Value) + + position.Z_KASSE_ID = cashbox 'Convert.ToString(dgvBonPos.Rows[m_dgvCurrentRow].Cells["Z_KASSE_ID"].Value) + + ' Beträge der Position + + Dim position_vat = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonPosition_Ust() + + position_vat.BON_ID = position.BON_ID + + position_vat.POS_ZEILE = position.POS_ZEILE + + Dim steuersatzID = 1 + Dim steuersatz As Double = SQL.getValueTxtBySql("SELECT [Steuersatz] FROM [tblSteuersätze] where nr='" & BELEG.Steuerschlüssel & "'", "FMZOLL") + Select Case steuersatz + Case 0.19 : steuersatzID = 1 + Case 0.07 : steuersatzID = 2 + Case 0.00 : steuersatzID = 6 + End Select + ' MsgBox(POS.Anzahl) + ' MsgBox(POS.Betrag) + + position_vat.UST_SCHLUESSEL = steuersatzID 'm_com.GetTaxIds(cashbox,) 'Convert.ToInt32(dgvBonPos.Rows[m_dgvCurrentRow].Cells["UST_SCHLUESSEL"].Value) + Dim steuerBetrag = POS.Betrag * position_vat.UST_SCHLUESSEL + position_vat.POS_BRUTTO = POS.Betrag + steuerBetrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_BRUTTO"].Value) + + position_vat.POS_NETTO = POS.Betrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_NETTO"].Value) + + position_vat.POS_UST = steuerBetrag 'Convert.ToDecimal(dgvBonPos.Rows[m_dgvCurrentRow].Cells["POS_UST"].Value) + + position_vat.POS_BRUTTO *= stornoVz + position_vat.POS_NETTO *= stornoVz + position_vat.POS_UST *= stornoVz + + Dim AddPositionToReceiptResultSpecified As Boolean + [error] = m_com.AddPositionToReceipt(cashbox, position, position_vat, transactionNumber) + cntZeile += 1 + GES_BRUTTO += position_vat.POS_BRUTTO + + Next + ' MsgBox("6: " & GES_BRUTTO) + + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then + MessageBox.Show([error].ToString(), "Error4", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Return False + End If + + 'Rechnung abschließen + + Dim bonkopfFinish As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfFinish = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BonKopfFinish() + + bonkopfFinish.Z_KASSE_ID = cashbox + + bonkopfFinish.BON_ID = BON_ID + + + + If Not Decimal.TryParse(GES_BRUTTO, bonkopfFinish.UMS_BRUTTO) Then + bonkopfFinish.UMS_BRUTTO = 0.00 + End If + + + bonkopfFinish.PROCESS_TYPE = "Kassenbeleg-V1" + + bonkopfFinish.payment_currencies = {"EUR"} + + bonkopfFinish.payment_types = {"Bar"} + + bonkopfFinish.payment_per_currency = {GES_BRUTTO} '{0.0} 'BETRAG"!!!!!!!!!!!! + + ' MsgBox("6,1: ") + + Dim FinishReceiptResult As Boolean = True + Dim FinishReceiptResultSpecified As Boolean + [error] = m_com.FinishReceipt(cashbox, bonkopfFinish, transactionNumber) + ' MsgBox("6,2: ") + + If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then + MessageBox.Show([error].ToString(), "Error5", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Return False + End If + ' Kassenabschluss anlegen über alle noch nicht abgeschlossenen Rechnungen zu dieser Kasse + + ' Error = m_com.CreateCashpointClosing(cashbox) + + ' ' DSFinV-K-Export + + ' Int from = 0 + + 'Int to = 10 + + 'Dim ret = m_com.ExportCSVFiles(from, to, tbSelectedFolder.Text, tbZipName.Text, True, True, + + 'true, true, true, true, true, true, + + 'true, true, true, true, + + 'true, true, true, true, true, + + 'true, true, true); + + 'If (ret == ErrorCode.OK) Then + + '{ + + 'MessageBox.Show("Die CSV Dateien wurden im Ordner " + tbSelectedFolder.Text + " angelegt und in die Zip-Datei " + tbZipName.Text + " gepackt.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information); + + '} + + 'Else + + '{ + + 'MessageBox.Show("Beim exportieren der CSV-Dateien ging etwas schief:\r\n" + ret.ToString(), "Error", MessageBoxButtons.OK, MessageBoxIcon.Error); + + '} + ' MsgBox("7") + + Dim transactionNumberRet As String + Dim serialNumber As String + Dim signature As String + Dim transactionStart As Date + Dim transactionFinish As Date + Dim sigCounter As String + Dim transactionStartSpecified As Boolean + Dim transactionFinishSpecified As Boolean + Dim GetLastReceiptValuesResultSpecified As Boolean + ' + [error] = m_com.GetLastReceiptValues(cashbox, transactionNumberRet, serialNumber, signature, transactionStart, transactionFinish, sigCounter) + + ' MsgBox("8") + + Dim qrCode As String = String.Empty + Dim mimeType As String = String.Empty + Dim GetLastReceiptQrCodeResult As Boolean + Dim GetLastReceiptQrCodeResultSpecified As Boolean + [error] = m_com.GetLastReceiptQrCode(cashbox, qrCode, mimeType) + + QR_CodeString = qrCode + LastJWS = signature + + + ' MsgBox("9") + If QR_CodeString.Length > 50 And LastJWS.Length > 50 Then + Return True + End If + Catch ex As Exception + MsgBox("Es ist ein Fehler bei der Signatur aufgetreten (insertRKSV): " & vbNewLine & ex.Message & ex.StackTrace) + End Try + Return False + End Function + + Shared Function stornoRKSV_DE(PERSONAL As cPersonal, BELEG As EABeleg, ByVal kasse As cRKSV_Kasse, ByVal RKSV_Beleg_Id As Integer, ByVal OLD_RKSV_Beleg_Id As Object, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, TEST As Boolean, ByRef answer As String) As Boolean Try ' MsgBox("0: ") @@ -192,6 +512,15 @@ Public Class cRKSV ' Dim [error] = "" 'm_com.InitializeLibrary(tbLicense.Text, "D:\Database\DSFinVK\dsfinvkdb.db3", "Administrator", "test", cashbox) m_com.InitializeLibrary("SQLGUIDE01.verag.ost.dmn", "itg_RKSV_DE", "dsfinvk", "dsfinvk#1337", cashbox, [error], InitializeLibraryResultSpecified) + ' Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.DSFinVKServer() 'PROBLEM?? + ' Dim m_com As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.DSFinVKServerClient() 'PROBLEM?? + + ' m_com.Url = "http://ymgk028055.verag.ost.dmn:8733/DSFinVKService" + 'Dim [error] As VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.ErrorCode + 'Dim InitializeLibraryResultSpecified As Boolean + ' Dim [error] = "" 'm_com.InitializeLibrary(tbLicense.Text, "D:\Database\DSFinVK\dsfinvkdb.db3", "Administrator", "test", cashbox) + m_com.InitializeLibrary("SQLGUIDE01.verag.ost.dmn", "itg_RKSV_DE", "dsfinvk", "dsfinvk#1337", cashbox, [error], InitializeLibraryResultSpecified) + ' MsgBox("1: " & [error]) If [error] <> VERAG_PROG_ALLGEMEIN.DSFinVKService.ErrorCode.OK Then @@ -239,6 +568,7 @@ Public Class cRKSV bonkopfBegin.BEDIENER_NAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME 'tbBEDIENER_NAME.Text bonkopfBegin.BON_ID = BON_ID.ToString() + bonkopfBegin.REF_BON_ID = If(OLD_RKSV_Beleg_Id, "").ToString() bonkopfBegin.BON_NAME = "" 'tbBON_NAME.Text @@ -472,6 +802,7 @@ Public Class cRKSV End Try Return False End Function + Shared Function stornoRKSV(ByVal kasse As cRKSV_Kasse, ByVal belegDat As DateTime, ByVal steuerSchluessel As Integer, ByVal RKSV_Beleg_Id As Integer, ByVal summeBRUTTO As Double, ByRef QR_CodeString As String, ByRef LastJWS As String, ByRef answer As String) As Boolean Try @@ -2416,7 +2747,7 @@ Public Class cRKSV_DE Try ' MsgBox("0: ") - Dim cashbox As String = kasse.rksv_KassaGuid '"VERAG_GMBH_KASSE_01" "KASSA 001" + Dim cashbox As String = kasse.rksv_KassaGuid '"VERAG_GMBH_KASSE_01" "KASSA 001" 'Dim endpoint = New System.ServiceModel.EndpointAddress(getRKSVLink(kasse)) ' Dim m_com As VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient = New VERAG_PROG_ALLGEMEIN.DSFinVKService.DSFinVKServerClient("DSFinVKService", endpoint) '"http://ymgk028055.verag.ost.dmn:8733/DSFinVKService") diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index 697b863a..57c53430 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -119,7 +119,9 @@ End If End If - If IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then + If Not IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) And Not IsNumeric(If(SENDUNG.tblSnd_FrachtkostenNichtEU, "")) Then + txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_FrachtkostenGesamt) + ElseIf IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_FrachtkostenNichtEU) txtFrachtkostenInl._value = CDbl(SENDUNG.tblSnd_Frachtkosten) End If diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index bac621a6..44399c8a 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1,7 +1,7 @@ Imports iTextSharp.text.pdf Imports System.IO Imports System.Drawing.Printing -Imports System.Runtime.InteropServices +Imports System.Runtime.InteropSerausices Imports System.Runtime.Serialization Imports Microsoft.Office.Interop Imports System.Text diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index ab5d1b5c..6448f4d0 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -927,7 +927,7 @@ Public Class frmKassenbuch BELEGTmp = cRKSV.STORNO(BELEGTmp, grund2, True, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung End If - If f.cbxStornoRKSV.Checked Then 'nur RKSV!!!!!!! + If f.cbxStornoRKSV.Checked Then 'nur RKSV!!!!!!! ' BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, Fal) 'Beleg storno und Kassenbuch Gegenbuchung If KASSETmp IsNot Nothing Then KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert! @@ -942,7 +942,7 @@ Public Class frmKassenbuch End If If KASSETmp.rksvDE_aktiv Then Dim PERSONALTmp1 As cPersonal = FMZOLL_SQL.getPersonalById(BELEGTmp.Benutzer) - If Not cRKSV.stornoRKSV_DE(PERSONALTmp1, BELEGTmp, KASSETmp, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, False, answer) Then + If Not cRKSV.stornoRKSV_DE(PERSONALTmp1, BELEGTmp, KASSETmp, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, False, answer) Then MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If @@ -950,13 +950,13 @@ Public Class frmKassenbuch End If End If - If f.cbxStornoBELEG.Checked Then 'nur BELEG!!!!!!! + If f.cbxStornoBELEG.Checked Then 'nur BELEG!!!!!!! BELEGTmp = cRKSV.STORNO_BELEG_ONLY(BELEGTmp, grund2) 'Beleg storno End If - init() - Exit Sub - End If + init() + Exit Sub + End If 'End If 'If BELEGTmp IsNot Nothing Then @@ -978,7 +978,7 @@ Public Class frmKassenbuch If Not BELEGTmp.gebuchtStorno Then 'f.cbxStornoErzwingenAdmin.Checked=stono erzwingen - + Dim OLD_rksv_BelegId = BELEGTmp.rksv_BelegId Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id) BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung ' BELEGTmp = cRKSV.STORNO(BELEGTmp, "") 'Beleg storno und Kassenbuch Gegenbuchung @@ -997,15 +997,15 @@ Public Class frmKassenbuch Dim LastJWS As String = "" Dim answer = "" If KASSETmp.rksv_aktiv Then - If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then + If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then 'FEHLER!! BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) - Exit Sub - End If + Exit Sub End If + End If If KASSETmp.rksvDE_aktiv Then - If Not cRKSV.stornoRKSV_DE(PERSONALTmp, BELEGTmp, KASSETmp, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, False, answer) Then + If Not cRKSV.stornoRKSV_DE(PERSONALTmp, BELEGTmp, KASSETmp, BELEGTmp.rksv_BelegId, OLD_rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, False, answer) Then 'FEHLER!! BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund, KASSETmp.rksv_firma) 'Beleg storno und Kassenbuch Gegenbuchung MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) diff --git a/VERAG_PROG_ALLGEMEIN/App.config b/VERAG_PROG_ALLGEMEIN/App.config index 2205e234..6fbefb4e 100644 --- a/VERAG_PROG_ALLGEMEIN/App.config +++ b/VERAG_PROG_ALLGEMEIN/App.config @@ -90,12 +90,16 @@ + + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb index 4e20e0c9..4f6a870f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSMS.vb @@ -341,7 +341,7 @@ Public Class cSMS Dim sbRequestBody As New Chilkat.StringBuilder json.EmitSb(sbRequestBody) - MsgBox(sbRequestBody.ToString) + 'MsgBox(sbRequestBody.ToString) Dim sbResponseBody As New Chilkat.StringBuilder success = rest.FullRequestSb("POST", "/richcontent/v3/send", sbRequestBody, sbResponseBody) If (success <> True) Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTranslateAuto.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTranslateAuto.vb new file mode 100644 index 00000000..f553819b --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTranslateAuto.vb @@ -0,0 +1,213 @@ +Imports System.Data.SqlClient +Imports System.Drawing +Imports System.Net.NetworkInformation +Imports System.Reflection +Imports System.Windows.Forms + +Public Class cTranslateAuto_LIST + + Public list As New List(Of cTranslateAuto) + Dim trs_progId + + Sub New() + LOAD() + End Sub + + Public Sub LOAD() + Try + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTranslateAuto WHERE [trs_active]=1 ", conn) + 'cmd.Parameters.AddWithValue("@trs_progId", trs_progId) + Dim dr = cmd.ExecuteReader() + While dr.Read + Dim T As New cTranslateAuto + T.trs_id = dr("trs_id") + T.trs_textDE = dr("trs_textDE") + T.trs_sprache = dr("trs_sprache") + T.trs_text = dr("trs_text") + T.trs_active = dr("trs_active") + list.Add(T) + End While + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Shared Sub DoToAllControls(ByVal m_Control As Control, LAN As String, Optional LAN_SRC As String = "DE") + For Each ctrl As Control In m_Control.Controls + If ctrl.Controls.Count > 0 Then + DoToAllControls(ctrl, LAN, LAN_SRC) + End If + 'If ctrl.GetType().Equals(GetType(ToolStrip)) Then + ' For Each item As ToolStripItem In DirectCast(ctrl, ToolStrip).Items + ' MsgBox(item.Name) + ' Next + 'End If + 'MsgBox(ctrl.Name) + + If (TypeOf ctrl Is System.Windows.Forms.Label) Then + DirectCast(ctrl, System.Windows.Forms.Label).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC) + End If + If (TypeOf ctrl Is System.Windows.Forms.Button) Or (TypeOf ctrl Is VERAG_PROG_ALLGEMEIN.FlatButton) Then + DirectCast(ctrl, System.Windows.Forms.Button).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC) + End If + If (TypeOf ctrl Is System.Windows.Forms.TabPage) Then + DirectCast(ctrl, System.Windows.Forms.TabPage).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC) + End If + If (TypeOf ctrl Is System.Windows.Forms.RadioButton) Or (TypeOf ctrl Is VERAG_PROG_ALLGEMEIN.MyRadioButton) Then + DirectCast(ctrl, System.Windows.Forms.RadioButton).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC) + End If + If (TypeOf ctrl Is System.Windows.Forms.GroupBox) Then + DirectCast(ctrl, System.Windows.Forms.GroupBox).Text = VERAG_PROG_ALLGEMEIN.cTranslateAuto._Transle(ctrl.Text, LAN, LAN_SRC) + End If + If (TypeOf ctrl Is System.Windows.Forms.ComboBox) Or (TypeOf ctrl Is VERAG_PROG_ALLGEMEIN.MyComboBox) Then + 'DirectCast(obj, System.Windows.Forms.Label).Text = TXT.trs_text + End If + + Next + End Sub +End Class +Public Class cTranslateAuto + Property trs_id As Integer + Property trs_sprache As String + Property trs_textDE As String + Property trs_text As String + Property trs_active As Boolean = True + + + Public hasEntry = False + + Dim SQL As New SQL + Sub New() + + End Sub + Sub New(trs_id) + Me.trs_id = trs_id + LOAD() + End Sub + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_id", trs_id,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_textDE", trs_textDE)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_sprache", trs_sprache)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_text", trs_text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trs_active", trs_active)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTranslateAuto WHERE trs_id=@trs_id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblTranslateAuto WHERE trs_id=@trs_id AND [trs_active]=1 ", conn) + cmd.Parameters.AddWithValue("@trs_id", trs_id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblTranslateAuto] SET " & str & " WHERE trs_id=@trs_id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblTranslateAuto (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + + End Function + + + + Shared Function _Transle(Text, LAN, Optional SRC_LAN = "") As String + Dim TRS_RSLT = VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE_AUTO.list.Find(Function(x) (x.trs_textDE = Text Or x.trs_text = Text) And x.trs_sprache = LAN) + If TRS_RSLT IsNot Nothing Then + Return TRS_RSLT.trs_text + Else + Dim TextResult = "" + If cDeeplAPI.deepl_Translate(Text, TextResult, LAN, SRC_LAN) Then + Dim TRS As New cTranslateAuto + TRS.trs_text = TextResult + TRS.trs_sprache = LAN + TRS.trs_textDE = Text + TRS.SAVE() + 'MsgBox(Text & " --- " & TextResult) + VERAG_PROG_ALLGEMEIN.cAllgemein.TRANSLATE_AUTO.list.Add(TRS) + Return TextResult + End If + End If + Return Text + + End Function + + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index a5be38c9..749fd2bb 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -67,7 +67,7 @@ Partial Class frmMessenger Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() Me.Panel4 = New System.Windows.Forms.Panel() - Me.lblChatName = New System.Windows.Forms.Label() + Me.lblChatName = New System.Windows.Forms.TextBox() Me.lblOnlineOffline = New System.Windows.Forms.Label() Me.pnl = New System.Windows.Forms.Panel() Me.Button4 = New System.Windows.Forms.Button() @@ -612,11 +612,11 @@ Partial Class frmMessenger ' 'lblChatName ' - Me.lblChatName.AutoSize = True + Me.lblChatName.BorderStyle = System.Windows.Forms.BorderStyle.None Me.lblChatName.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblChatName.Location = New System.Drawing.Point(9, 11) Me.lblChatName.Name = "lblChatName" - Me.lblChatName.Size = New System.Drawing.Size(15, 20) + Me.lblChatName.Size = New System.Drawing.Size(450, 19) Me.lblChatName.TabIndex = 4 Me.lblChatName.Text = "-" ' @@ -1027,7 +1027,7 @@ Partial Class frmMessenger Friend WithEvents pic As PictureBox Friend WithEvents lblOnlineOffline As Label Friend WithEvents Panel3 As Panel - Friend WithEvents lblChatName As Label + Friend WithEvents lblChatName As TextBox Friend WithEvents Panel4 As Panel Friend WithEvents btnTeilnehmer As Button Friend WithEvents PictureBox1 As PictureBox diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDeeplAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDeeplAPI.vb new file mode 100644 index 00000000..31d8d166 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDeeplAPI.vb @@ -0,0 +1,108 @@ +Imports System.Web +Imports System.Web.Routing +Imports iTextSharp.text.xml.simpleparser + +Public Class cDeeplAPI + + 'PROD + Shared API_STRING As String = "https://api-free.deepl.com" + Shared AUTH_KEY As String = "57bad342-00e2-6732-da08-b6733fb09a91:fx" + + + Shared Function deepl_Translate(textTotranslate As String, ByRef textResult As String, targetLAN As String, Optional sourceLAN As String = "DE") As Boolean + textResult = textTotranslate + Dim rest As New Chilkat.Rest + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + ' Connect to the REST server. + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + Dim success As Boolean = rest.Connect(API_STRING, port, bTls, bAutoReconnect) + + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + Return False + End If + + '--------------------------------------------------- + 'See the Online Tool for Generating JSON Creation Code + Dim json As New Chilkat.JsonObject + ' If sourceLAN <> "" Then json.UpdateNumber("source_lang", sourceLAN) + json.UpdateString("target_lang", targetLAN) + json.UpdateString("text", textTotranslate) + 'json.UpdateString("preserve_formatting", 1) + json.UpdateString("auth_key", AUTH_KEY) + + rest.AddHeader("Accept", "application/json") + rest.AddHeader("Content-Type", "application/x-www-form-urlencoded") + ' client.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json")); + 'client.DefaultRequestHeaders.TryAddWithoutValidation("Content-Type", "application/x-www-form-urlencoded"); + + 'rest.AddHeader("Authorization", AUTH_KEY) + ' rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json") + 'rest.AddHeader("Accept", "*/*") + 'rest.AddHeader("User-Agent", "PostmanRuntime/7.29.0") + 'rest.AddHeader("Connection", "keep-alive") + 'rest.AddHeader("Accept-Encoding", "gzip, deflate, br") + 'rest.AddHeader("Cache-Control", "no-cache") + 'rest.AddHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0") + ' rest.AddHeader("Content-Type", "application/x-www-form-urlencoded") + + 'rest.AddHeader("Accept", "*/*") + + + Dim sbRequestBody As New Chilkat.StringBuilder + 'json.EmitSb(sbRequestBody) + 'MsgBox(sbRequestBody.ToString) + + + '--------------------------------------------------- + 'Dim json As New Chilkat.JsonObject + 'Dim successJsonLoad As Boolean = json.Load(" + ' {""source_lang"":DE,""target_lang"":""DE"",""text"":""Hello World"",""preserve_formatting"":""1"",""auth_key"":""57bad342-00e2-6732-da08-b6733fb09a91:fx""} ") + 'If (successJsonLoad <> True) Then + ' MsgBox(json.LastErrorText) + ' Return False + 'End If + 'Dim sbRequestBody As New Chilkat.StringBuilder + 'json.EmitSb(sbRequestBody) + + ' MsgBox("/v2/translate?auth_key=" & AUTH_KEY & "&target_lang=" & targetLAN & "&text=" & HttpUtility.UrlEncode(textTotranslate) & "") + Dim sbResponseBody As New Chilkat.StringBuilder + Dim srch = If(sourceLAN <> "", "&source_lang=" & sourceLAN, "") + success = rest.FullRequestSb("POST", "/v2/translate?auth_key=" & AUTH_KEY & "&target_lang=" & targetLAN & "&text=" & HttpUtility.UrlEncode(textTotranslate) & srch, sbRequestBody, sbResponseBody) + ' success = rest.FullRequestSb("POST", "/v2/translate", sbRequestBody, sbResponseBody) + + ' MsgBox(success) + + If (rest.LastMethodSuccess <> True) Then + Console.WriteLine(rest.LastErrorText) + Return False + End If + + If success Then + Dim respStatusCode As Integer = rest.ResponseStatusCode + 'MsgBox(respStatusCode) + If (respStatusCode = 200) Then + Try + Dim jsonResp = New Chilkat.JsonObject() + jsonResp.LoadSb(sbResponseBody) + If jsonResp.SizeOfArray("translations") > 0 Then + textResult = jsonResp.StringOf("translations[0].text") + ' MsgBox("::::::::: " & jsonResp.StringOf("translations[0].text")) + Return True + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If + + End If + + Return False + End Function + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Arrays.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Arrays.xsd new file mode 100644 index 00000000..940ce065 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Arrays.xsd @@ -0,0 +1,21 @@ + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/DSFinVK.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/DSFinVK.xsd new file mode 100644 index 00000000..8f7dc7cd --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/DSFinVK.xsd @@ -0,0 +1,225 @@ + + + + + + + + + + + + + + + + + + + + + + 100 + + + + + + + 101 + + + + + + + 102 + + + + + + + 103 + + + + + + + 200 + + + + + + + 201 + + + + + + + 202 + + + + + + + 203 + + + + + + + 204 + + + + + + + 10001 + + + + + + + 10100 + + + + + + + 10101 + + + + + + + 10102 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/ItgKsV.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/ItgKsV.xsd new file mode 100644 index 00000000..5ddda746 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/ItgKsV.xsd @@ -0,0 +1,14 @@ + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.svcmap b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.svcmap new file mode 100644 index 00000000..d4d861ba --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.svcmap @@ -0,0 +1,36 @@ + + + + false + true + true + + false + false + false + + + true + Auto + true + true + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.vb b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.vb new file mode 100644 index 00000000..acd8ee00 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/Reference.vb @@ -0,0 +1,2976 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System +Imports System.Runtime.Serialization + +Namespace RKSV_DE_DSFinVKService_2022 + + _ + Public Enum ErrorCode As Integer + + _ + OK = 0 + + _ + FAILED = 1 + + _ + BAD_USERNAME = 2 + + _ + BAD_PASSWORD = 3 + + _ + TSE_NOT_FOUND = 4 + + _ + TSE_INITIALIZATION_FAILED = 5 + + _ + TSE_BEGIN_TRANSACTION_FAILED = 6 + + _ + TSE_FINISH_TRANSACTION_FAILED = 7 + + _ + ARRAY_LENGTH_NOT_EQUAL = 8 + + _ + PARAMETER_ERROR = 9 + + _ + DSFINVKCOM_LICENSE_NOT_VALID = 10 + + _ + KSVCOM_LICENSE_NOT_VALID = 11 + + _ + DATABASE_NO_CONNECTION = 100 + + _ + DATABASE_CONNECTION_NOT_OPENED = 101 + + _ + DATABASE_NOT_SPECIFIED = 102 + + _ + DATABASE_OPERATION_FAILED = 103 + + _ + CASHBOX_NAME_NOT_UNIQUE = 200 + + _ + CASHBOX_IN_USE = 201 + + _ + CASHBOX_NOT_FOUND = 202 + + _ + CASHBOX_NOT_MANAGED = 203 + + _ + CASHBOX_ALREADY_MANAGED = 204 + + _ + ROW_HAS_INVALID_DATA = 10001 + + _ + ROW_BON_ID_NOT_FOUND = 10100 + + _ + ROW_BON_ID_ALREADY_EXISTS = 10101 + + _ + ROW_BON_ID_ALREADY_FINISHED = 10102 + End Enum + + _ + Partial Public Class Kassendaten + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private IVNRField As Integer + + _ + Private KASSE_BASISWAEH_CODEField As String + + _ + Private KASSE_BRANDField As String + + _ + Private KASSE_MODELLField As String + + _ + Private KASSE_SERIENNRField As String + + _ + Private KASSE_SW_BRANDField As String + + _ + Private KASSE_SW_VERSIONField As String + + _ + Private KEINE_UST_ZUORDNUNGField As String + + _ + Private LOC_LANDField As String + + _ + Private LOC_NAMEField As String + + _ + Private LOC_ORTField As String + + _ + Private LOC_PLZField As String + + _ + Private LOC_STRASSEField As String + + _ + Private LOC_USTIDField As String + + _ + Private Z_KASSE_IDField As String + + _ + Private Z_NRField As Long + + _ + Private licenseField As String + + _ + Private tse_bezeichnungField As String + + _ + Private tse_ivnrField As Integer + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property IVNR() As Integer + Get + Return Me.IVNRField + End Get + Set + If (Me.IVNRField.Equals(value) <> true) Then + Me.IVNRField = value + Me.RaisePropertyChanged("IVNR") + End If + End Set + End Property + + _ + Public Property KASSE_BASISWAEH_CODE() As String + Get + Return Me.KASSE_BASISWAEH_CODEField + End Get + Set + If (Object.ReferenceEquals(Me.KASSE_BASISWAEH_CODEField, value) <> true) Then + Me.KASSE_BASISWAEH_CODEField = value + Me.RaisePropertyChanged("KASSE_BASISWAEH_CODE") + End If + End Set + End Property + + _ + Public Property KASSE_BRAND() As String + Get + Return Me.KASSE_BRANDField + End Get + Set + If (Object.ReferenceEquals(Me.KASSE_BRANDField, value) <> true) Then + Me.KASSE_BRANDField = value + Me.RaisePropertyChanged("KASSE_BRAND") + End If + End Set + End Property + + _ + Public Property KASSE_MODELL() As String + Get + Return Me.KASSE_MODELLField + End Get + Set + If (Object.ReferenceEquals(Me.KASSE_MODELLField, value) <> true) Then + Me.KASSE_MODELLField = value + Me.RaisePropertyChanged("KASSE_MODELL") + End If + End Set + End Property + + _ + Public Property KASSE_SERIENNR() As String + Get + Return Me.KASSE_SERIENNRField + End Get + Set + If (Object.ReferenceEquals(Me.KASSE_SERIENNRField, value) <> true) Then + Me.KASSE_SERIENNRField = value + Me.RaisePropertyChanged("KASSE_SERIENNR") + End If + End Set + End Property + + _ + Public Property KASSE_SW_BRAND() As String + Get + Return Me.KASSE_SW_BRANDField + End Get + Set + If (Object.ReferenceEquals(Me.KASSE_SW_BRANDField, value) <> true) Then + Me.KASSE_SW_BRANDField = value + Me.RaisePropertyChanged("KASSE_SW_BRAND") + End If + End Set + End Property + + _ + Public Property KASSE_SW_VERSION() As String + Get + Return Me.KASSE_SW_VERSIONField + End Get + Set + If (Object.ReferenceEquals(Me.KASSE_SW_VERSIONField, value) <> true) Then + Me.KASSE_SW_VERSIONField = value + Me.RaisePropertyChanged("KASSE_SW_VERSION") + End If + End Set + End Property + + _ + Public Property KEINE_UST_ZUORDNUNG() As String + Get + Return Me.KEINE_UST_ZUORDNUNGField + End Get + Set + If (Object.ReferenceEquals(Me.KEINE_UST_ZUORDNUNGField, value) <> true) Then + Me.KEINE_UST_ZUORDNUNGField = value + Me.RaisePropertyChanged("KEINE_UST_ZUORDNUNG") + End If + End Set + End Property + + _ + Public Property LOC_LAND() As String + Get + Return Me.LOC_LANDField + End Get + Set + If (Object.ReferenceEquals(Me.LOC_LANDField, value) <> true) Then + Me.LOC_LANDField = value + Me.RaisePropertyChanged("LOC_LAND") + End If + End Set + End Property + + _ + Public Property LOC_NAME() As String + Get + Return Me.LOC_NAMEField + End Get + Set + If (Object.ReferenceEquals(Me.LOC_NAMEField, value) <> true) Then + Me.LOC_NAMEField = value + Me.RaisePropertyChanged("LOC_NAME") + End If + End Set + End Property + + _ + Public Property LOC_ORT() As String + Get + Return Me.LOC_ORTField + End Get + Set + If (Object.ReferenceEquals(Me.LOC_ORTField, value) <> true) Then + Me.LOC_ORTField = value + Me.RaisePropertyChanged("LOC_ORT") + End If + End Set + End Property + + _ + Public Property LOC_PLZ() As String + Get + Return Me.LOC_PLZField + End Get + Set + If (Object.ReferenceEquals(Me.LOC_PLZField, value) <> true) Then + Me.LOC_PLZField = value + Me.RaisePropertyChanged("LOC_PLZ") + End If + End Set + End Property + + _ + Public Property LOC_STRASSE() As String + Get + Return Me.LOC_STRASSEField + End Get + Set + If (Object.ReferenceEquals(Me.LOC_STRASSEField, value) <> true) Then + Me.LOC_STRASSEField = value + Me.RaisePropertyChanged("LOC_STRASSE") + End If + End Set + End Property + + _ + Public Property LOC_USTID() As String + Get + Return Me.LOC_USTIDField + End Get + Set + If (Object.ReferenceEquals(Me.LOC_USTIDField, value) <> true) Then + Me.LOC_USTIDField = value + Me.RaisePropertyChanged("LOC_USTID") + End If + End Set + End Property + + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.Z_KASSE_IDField + End Get + Set + If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then + Me.Z_KASSE_IDField = value + Me.RaisePropertyChanged("Z_KASSE_ID") + End If + End Set + End Property + + _ + Public Property Z_NR() As Long + Get + Return Me.Z_NRField + End Get + Set + If (Me.Z_NRField.Equals(value) <> true) Then + Me.Z_NRField = value + Me.RaisePropertyChanged("Z_NR") + End If + End Set + End Property + + _ + Public Property license() As String + Get + Return Me.licenseField + End Get + Set + If (Object.ReferenceEquals(Me.licenseField, value) <> true) Then + Me.licenseField = value + Me.RaisePropertyChanged("license") + End If + End Set + End Property + + _ + Public Property tse_bezeichnung() As String + Get + Return Me.tse_bezeichnungField + End Get + Set + If (Object.ReferenceEquals(Me.tse_bezeichnungField, value) <> true) Then + Me.tse_bezeichnungField = value + Me.RaisePropertyChanged("tse_bezeichnung") + End If + End Set + End Property + + _ + Public Property tse_ivnr() As Integer + Get + Return Me.tse_ivnrField + End Get + Set + If (Me.tse_ivnrField.Equals(value) <> true) Then + Me.tse_ivnrField = value + Me.RaisePropertyChanged("tse_ivnr") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BonKopfBegin + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private BEDIENER_IDField As String + + _ + Private BEDIENER_NAMEField As String + + _ + Private BON_IDField As String + + _ + Private BON_NAMEField As String + + _ + Private BON_NOTIZField As String + + _ + Private BON_NRField As Integer + + _ + Private BON_STARTField As String + + _ + Private BON_STORNOField As String + + _ + Private BON_TYPField As String + + _ + Private KUNDE_IDField As String + + _ + Private KUNDE_LANDField As String + + _ + Private KUNDE_NAMEField As String + + _ + Private KUNDE_ORTField As String + + _ + Private KUNDE_PLZField As String + + _ + Private KUNDE_STRASSEField As String + + _ + Private KUNDE_TYPField As String + + _ + Private KUNDE_USTIDField As String + + _ + Private REF_BON_IDField As String + + _ + Private TERMINAL_IDField As String + + _ + Private Z_KASSE_IDField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property BEDIENER_ID() As String + Get + Return Me.BEDIENER_IDField + End Get + Set + If (Object.ReferenceEquals(Me.BEDIENER_IDField, value) <> true) Then + Me.BEDIENER_IDField = value + Me.RaisePropertyChanged("BEDIENER_ID") + End If + End Set + End Property + + _ + Public Property BEDIENER_NAME() As String + Get + Return Me.BEDIENER_NAMEField + End Get + Set + If (Object.ReferenceEquals(Me.BEDIENER_NAMEField, value) <> true) Then + Me.BEDIENER_NAMEField = value + Me.RaisePropertyChanged("BEDIENER_NAME") + End If + End Set + End Property + + _ + Public Property BON_ID() As String + Get + Return Me.BON_IDField + End Get + Set + If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then + Me.BON_IDField = value + Me.RaisePropertyChanged("BON_ID") + End If + End Set + End Property + + _ + Public Property BON_NAME() As String + Get + Return Me.BON_NAMEField + End Get + Set + If (Object.ReferenceEquals(Me.BON_NAMEField, value) <> true) Then + Me.BON_NAMEField = value + Me.RaisePropertyChanged("BON_NAME") + End If + End Set + End Property + + _ + Public Property BON_NOTIZ() As String + Get + Return Me.BON_NOTIZField + End Get + Set + If (Object.ReferenceEquals(Me.BON_NOTIZField, value) <> true) Then + Me.BON_NOTIZField = value + Me.RaisePropertyChanged("BON_NOTIZ") + End If + End Set + End Property + + _ + Public Property BON_NR() As Integer + Get + Return Me.BON_NRField + End Get + Set + If (Me.BON_NRField.Equals(value) <> true) Then + Me.BON_NRField = value + Me.RaisePropertyChanged("BON_NR") + End If + End Set + End Property + + _ + Public Property BON_START() As String + Get + Return Me.BON_STARTField + End Get + Set + If (Object.ReferenceEquals(Me.BON_STARTField, value) <> true) Then + Me.BON_STARTField = value + Me.RaisePropertyChanged("BON_START") + End If + End Set + End Property + + _ + Public Property BON_STORNO() As String + Get + Return Me.BON_STORNOField + End Get + Set + If (Object.ReferenceEquals(Me.BON_STORNOField, value) <> true) Then + Me.BON_STORNOField = value + Me.RaisePropertyChanged("BON_STORNO") + End If + End Set + End Property + + _ + Public Property BON_TYP() As String + Get + Return Me.BON_TYPField + End Get + Set + If (Object.ReferenceEquals(Me.BON_TYPField, value) <> true) Then + Me.BON_TYPField = value + Me.RaisePropertyChanged("BON_TYP") + End If + End Set + End Property + + _ + Public Property KUNDE_ID() As String + Get + Return Me.KUNDE_IDField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_IDField, value) <> true) Then + Me.KUNDE_IDField = value + Me.RaisePropertyChanged("KUNDE_ID") + End If + End Set + End Property + + _ + Public Property KUNDE_LAND() As String + Get + Return Me.KUNDE_LANDField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_LANDField, value) <> true) Then + Me.KUNDE_LANDField = value + Me.RaisePropertyChanged("KUNDE_LAND") + End If + End Set + End Property + + _ + Public Property KUNDE_NAME() As String + Get + Return Me.KUNDE_NAMEField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_NAMEField, value) <> true) Then + Me.KUNDE_NAMEField = value + Me.RaisePropertyChanged("KUNDE_NAME") + End If + End Set + End Property + + _ + Public Property KUNDE_ORT() As String + Get + Return Me.KUNDE_ORTField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_ORTField, value) <> true) Then + Me.KUNDE_ORTField = value + Me.RaisePropertyChanged("KUNDE_ORT") + End If + End Set + End Property + + _ + Public Property KUNDE_PLZ() As String + Get + Return Me.KUNDE_PLZField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_PLZField, value) <> true) Then + Me.KUNDE_PLZField = value + Me.RaisePropertyChanged("KUNDE_PLZ") + End If + End Set + End Property + + _ + Public Property KUNDE_STRASSE() As String + Get + Return Me.KUNDE_STRASSEField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_STRASSEField, value) <> true) Then + Me.KUNDE_STRASSEField = value + Me.RaisePropertyChanged("KUNDE_STRASSE") + End If + End Set + End Property + + _ + Public Property KUNDE_TYP() As String + Get + Return Me.KUNDE_TYPField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_TYPField, value) <> true) Then + Me.KUNDE_TYPField = value + Me.RaisePropertyChanged("KUNDE_TYP") + End If + End Set + End Property + + _ + Public Property KUNDE_USTID() As String + Get + Return Me.KUNDE_USTIDField + End Get + Set + If (Object.ReferenceEquals(Me.KUNDE_USTIDField, value) <> true) Then + Me.KUNDE_USTIDField = value + Me.RaisePropertyChanged("KUNDE_USTID") + End If + End Set + End Property + + _ + Public Property REF_BON_ID() As String + Get + Return Me.REF_BON_IDField + End Get + Set + If (Object.ReferenceEquals(Me.REF_BON_IDField, value) <> true) Then + Me.REF_BON_IDField = value + Me.RaisePropertyChanged("REF_BON_ID") + End If + End Set + End Property + + _ + Public Property TERMINAL_ID() As String + Get + Return Me.TERMINAL_IDField + End Get + Set + If (Object.ReferenceEquals(Me.TERMINAL_IDField, value) <> true) Then + Me.TERMINAL_IDField = value + Me.RaisePropertyChanged("TERMINAL_ID") + End If + End Set + End Property + + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.Z_KASSE_IDField + End Get + Set + If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then + Me.Z_KASSE_IDField = value + Me.RaisePropertyChanged("Z_KASSE_ID") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BonKopfFinish + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private BON_ENDEField As String + + _ + Private BON_IDField As String + + _ + Private PROCESS_TYPEField As String + + _ + Private UMS_BRUTTOField As Decimal + + _ + Private Z_KASSE_IDField As String + + _ + Private payment_currenciesField() As String + + _ + Private payment_per_currencyField() As Decimal + + _ + Private payment_typesField() As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property BON_ENDE() As String + Get + Return Me.BON_ENDEField + End Get + Set + If (Object.ReferenceEquals(Me.BON_ENDEField, value) <> true) Then + Me.BON_ENDEField = value + Me.RaisePropertyChanged("BON_ENDE") + End If + End Set + End Property + + _ + Public Property BON_ID() As String + Get + Return Me.BON_IDField + End Get + Set + If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then + Me.BON_IDField = value + Me.RaisePropertyChanged("BON_ID") + End If + End Set + End Property + + _ + Public Property PROCESS_TYPE() As String + Get + Return Me.PROCESS_TYPEField + End Get + Set + If (Object.ReferenceEquals(Me.PROCESS_TYPEField, value) <> true) Then + Me.PROCESS_TYPEField = value + Me.RaisePropertyChanged("PROCESS_TYPE") + End If + End Set + End Property + + _ + Public Property UMS_BRUTTO() As Decimal + Get + Return Me.UMS_BRUTTOField + End Get + Set + If (Me.UMS_BRUTTOField.Equals(value) <> true) Then + Me.UMS_BRUTTOField = value + Me.RaisePropertyChanged("UMS_BRUTTO") + End If + End Set + End Property + + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.Z_KASSE_IDField + End Get + Set + If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then + Me.Z_KASSE_IDField = value + Me.RaisePropertyChanged("Z_KASSE_ID") + End If + End Set + End Property + + _ + Public Property payment_currencies() As String() + Get + Return Me.payment_currenciesField + End Get + Set + If (Object.ReferenceEquals(Me.payment_currenciesField, value) <> true) Then + Me.payment_currenciesField = value + Me.RaisePropertyChanged("payment_currencies") + End If + End Set + End Property + + _ + Public Property payment_per_currency() As Decimal() + Get + Return Me.payment_per_currencyField + End Get + Set + If (Object.ReferenceEquals(Me.payment_per_currencyField, value) <> true) Then + Me.payment_per_currencyField = value + Me.RaisePropertyChanged("payment_per_currency") + End If + End Set + End Property + + _ + Public Property payment_types() As String() + Get + Return Me.payment_typesField + End Get + Set + If (Object.ReferenceEquals(Me.payment_typesField, value) <> true) Then + Me.payment_typesField = value + Me.RaisePropertyChanged("payment_types") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BonPosition + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private AGENTUR_IDField As Integer + + _ + Private ARTIKELTEXTField As String + + _ + Private ART_NRField As String + + _ + Private BON_IDField As String + + _ + Private EINHEITField As String + + _ + Private FAKTORField As Decimal + + _ + Private GTINField As String + + _ + Private GUTSCHEIN_NRField As String + + _ + Private GV_NAMEField As String + + _ + Private GV_TYPField As String + + _ + Private INHAUSField As String + + _ + Private MENGEField As Decimal + + _ + Private POS_TERMINAL_IDField As String + + _ + Private POS_ZEILEField As String + + _ + Private P_STORNOField As String + + _ + Private STK_BRField As Decimal + + _ + Private WARENGRField As String + + _ + Private WARENGR_IDField As String + + _ + Private Z_KASSE_IDField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property AGENTUR_ID() As Integer + Get + Return Me.AGENTUR_IDField + End Get + Set + If (Me.AGENTUR_IDField.Equals(value) <> true) Then + Me.AGENTUR_IDField = value + Me.RaisePropertyChanged("AGENTUR_ID") + End If + End Set + End Property + + _ + Public Property ARTIKELTEXT() As String + Get + Return Me.ARTIKELTEXTField + End Get + Set + If (Object.ReferenceEquals(Me.ARTIKELTEXTField, value) <> true) Then + Me.ARTIKELTEXTField = value + Me.RaisePropertyChanged("ARTIKELTEXT") + End If + End Set + End Property + + _ + Public Property ART_NR() As String + Get + Return Me.ART_NRField + End Get + Set + If (Object.ReferenceEquals(Me.ART_NRField, value) <> true) Then + Me.ART_NRField = value + Me.RaisePropertyChanged("ART_NR") + End If + End Set + End Property + + _ + Public Property BON_ID() As String + Get + Return Me.BON_IDField + End Get + Set + If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then + Me.BON_IDField = value + Me.RaisePropertyChanged("BON_ID") + End If + End Set + End Property + + _ + Public Property EINHEIT() As String + Get + Return Me.EINHEITField + End Get + Set + If (Object.ReferenceEquals(Me.EINHEITField, value) <> true) Then + Me.EINHEITField = value + Me.RaisePropertyChanged("EINHEIT") + End If + End Set + End Property + + _ + Public Property FAKTOR() As Decimal + Get + Return Me.FAKTORField + End Get + Set + If (Me.FAKTORField.Equals(value) <> true) Then + Me.FAKTORField = value + Me.RaisePropertyChanged("FAKTOR") + End If + End Set + End Property + + _ + Public Property GTIN() As String + Get + Return Me.GTINField + End Get + Set + If (Object.ReferenceEquals(Me.GTINField, value) <> true) Then + Me.GTINField = value + Me.RaisePropertyChanged("GTIN") + End If + End Set + End Property + + _ + Public Property GUTSCHEIN_NR() As String + Get + Return Me.GUTSCHEIN_NRField + End Get + Set + If (Object.ReferenceEquals(Me.GUTSCHEIN_NRField, value) <> true) Then + Me.GUTSCHEIN_NRField = value + Me.RaisePropertyChanged("GUTSCHEIN_NR") + End If + End Set + End Property + + _ + Public Property GV_NAME() As String + Get + Return Me.GV_NAMEField + End Get + Set + If (Object.ReferenceEquals(Me.GV_NAMEField, value) <> true) Then + Me.GV_NAMEField = value + Me.RaisePropertyChanged("GV_NAME") + End If + End Set + End Property + + _ + Public Property GV_TYP() As String + Get + Return Me.GV_TYPField + End Get + Set + If (Object.ReferenceEquals(Me.GV_TYPField, value) <> true) Then + Me.GV_TYPField = value + Me.RaisePropertyChanged("GV_TYP") + End If + End Set + End Property + + _ + Public Property INHAUS() As String + Get + Return Me.INHAUSField + End Get + Set + If (Object.ReferenceEquals(Me.INHAUSField, value) <> true) Then + Me.INHAUSField = value + Me.RaisePropertyChanged("INHAUS") + End If + End Set + End Property + + _ + Public Property MENGE() As Decimal + Get + Return Me.MENGEField + End Get + Set + If (Me.MENGEField.Equals(value) <> true) Then + Me.MENGEField = value + Me.RaisePropertyChanged("MENGE") + End If + End Set + End Property + + _ + Public Property POS_TERMINAL_ID() As String + Get + Return Me.POS_TERMINAL_IDField + End Get + Set + If (Object.ReferenceEquals(Me.POS_TERMINAL_IDField, value) <> true) Then + Me.POS_TERMINAL_IDField = value + Me.RaisePropertyChanged("POS_TERMINAL_ID") + End If + End Set + End Property + + _ + Public Property POS_ZEILE() As String + Get + Return Me.POS_ZEILEField + End Get + Set + If (Object.ReferenceEquals(Me.POS_ZEILEField, value) <> true) Then + Me.POS_ZEILEField = value + Me.RaisePropertyChanged("POS_ZEILE") + End If + End Set + End Property + + _ + Public Property P_STORNO() As String + Get + Return Me.P_STORNOField + End Get + Set + If (Object.ReferenceEquals(Me.P_STORNOField, value) <> true) Then + Me.P_STORNOField = value + Me.RaisePropertyChanged("P_STORNO") + End If + End Set + End Property + + _ + Public Property STK_BR() As Decimal + Get + Return Me.STK_BRField + End Get + Set + If (Me.STK_BRField.Equals(value) <> true) Then + Me.STK_BRField = value + Me.RaisePropertyChanged("STK_BR") + End If + End Set + End Property + + _ + Public Property WARENGR() As String + Get + Return Me.WARENGRField + End Get + Set + If (Object.ReferenceEquals(Me.WARENGRField, value) <> true) Then + Me.WARENGRField = value + Me.RaisePropertyChanged("WARENGR") + End If + End Set + End Property + + _ + Public Property WARENGR_ID() As String + Get + Return Me.WARENGR_IDField + End Get + Set + If (Object.ReferenceEquals(Me.WARENGR_IDField, value) <> true) Then + Me.WARENGR_IDField = value + Me.RaisePropertyChanged("WARENGR_ID") + End If + End Set + End Property + + _ + Public Property Z_KASSE_ID() As String + Get + Return Me.Z_KASSE_IDField + End Get + Set + If (Object.ReferenceEquals(Me.Z_KASSE_IDField, value) <> true) Then + Me.Z_KASSE_IDField = value + Me.RaisePropertyChanged("Z_KASSE_ID") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class BonPosition_Ust + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private BON_IDField As String + + _ + Private POS_BRUTTOField As Decimal + + _ + Private POS_NETTOField As Decimal + + _ + Private POS_USTField As Decimal + + _ + Private POS_ZEILEField As String + + _ + Private UST_SCHLUESSELField As Integer + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property BON_ID() As String + Get + Return Me.BON_IDField + End Get + Set + If (Object.ReferenceEquals(Me.BON_IDField, value) <> true) Then + Me.BON_IDField = value + Me.RaisePropertyChanged("BON_ID") + End If + End Set + End Property + + _ + Public Property POS_BRUTTO() As Decimal + Get + Return Me.POS_BRUTTOField + End Get + Set + If (Me.POS_BRUTTOField.Equals(value) <> true) Then + Me.POS_BRUTTOField = value + Me.RaisePropertyChanged("POS_BRUTTO") + End If + End Set + End Property + + _ + Public Property POS_NETTO() As Decimal + Get + Return Me.POS_NETTOField + End Get + Set + If (Me.POS_NETTOField.Equals(value) <> true) Then + Me.POS_NETTOField = value + Me.RaisePropertyChanged("POS_NETTO") + End If + End Set + End Property + + _ + Public Property POS_UST() As Decimal + Get + Return Me.POS_USTField + End Get + Set + If (Me.POS_USTField.Equals(value) <> true) Then + Me.POS_USTField = value + Me.RaisePropertyChanged("POS_UST") + End If + End Set + End Property + + _ + Public Property POS_ZEILE() As String + Get + Return Me.POS_ZEILEField + End Get + Set + If (Object.ReferenceEquals(Me.POS_ZEILEField, value) <> true) Then + Me.POS_ZEILEField = value + Me.RaisePropertyChanged("POS_ZEILE") + End If + End Set + End Property + + _ + Public Property UST_SCHLUESSEL() As Integer + Get + Return Me.UST_SCHLUESSELField + End Get + Set + If (Me.UST_SCHLUESSELField.Equals(value) <> true) Then + Me.UST_SCHLUESSELField = value + Me.RaisePropertyChanged("UST_SCHLUESSEL") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class TSEData + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private tse_pd_encodingField As String + + _ + Private tse_public_keyField As String + + _ + Private tse_serialField As String + + _ + Private tse_sig_algoField As String + + _ + Private tse_zeitformatField As String + + _ + Private tse_zertifikatField As String + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property tse_pd_encoding() As String + Get + Return Me.tse_pd_encodingField + End Get + Set + If (Object.ReferenceEquals(Me.tse_pd_encodingField, value) <> true) Then + Me.tse_pd_encodingField = value + Me.RaisePropertyChanged("tse_pd_encoding") + End If + End Set + End Property + + _ + Public Property tse_public_key() As String + Get + Return Me.tse_public_keyField + End Get + Set + If (Object.ReferenceEquals(Me.tse_public_keyField, value) <> true) Then + Me.tse_public_keyField = value + Me.RaisePropertyChanged("tse_public_key") + End If + End Set + End Property + + _ + Public Property tse_serial() As String + Get + Return Me.tse_serialField + End Get + Set + If (Object.ReferenceEquals(Me.tse_serialField, value) <> true) Then + Me.tse_serialField = value + Me.RaisePropertyChanged("tse_serial") + End If + End Set + End Property + + _ + Public Property tse_sig_algo() As String + Get + Return Me.tse_sig_algoField + End Get + Set + If (Object.ReferenceEquals(Me.tse_sig_algoField, value) <> true) Then + Me.tse_sig_algoField = value + Me.RaisePropertyChanged("tse_sig_algo") + End If + End Set + End Property + + _ + Public Property tse_zeitformat() As String + Get + Return Me.tse_zeitformatField + End Get + Set + If (Object.ReferenceEquals(Me.tse_zeitformatField, value) <> true) Then + Me.tse_zeitformatField = value + Me.RaisePropertyChanged("tse_zeitformat") + End If + End Set + End Property + + _ + Public Property tse_zertifikat() As String + Get + Return Me.tse_zertifikatField + End Get + Set + If (Object.ReferenceEquals(Me.tse_zertifikatField, value) <> true) Then + Me.tse_zertifikatField = value + Me.RaisePropertyChanged("tse_zertifikat") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Partial Public Class Taxes + Inherits Object + Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged + + _ + Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject + + _ + Private CountField As Integer + + _ + Private UST_BESCHRField() As String + + _ + Private UST_SATZField() As Decimal + + _ + Private UST_SCHLUESSELField() As Integer + + _ + Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData + Get + Return Me.extensionDataField + End Get + Set + Me.extensionDataField = value + End Set + End Property + + _ + Public Property Count() As Integer + Get + Return Me.CountField + End Get + Set + If (Me.CountField.Equals(value) <> true) Then + Me.CountField = value + Me.RaisePropertyChanged("Count") + End If + End Set + End Property + + _ + Public Property UST_BESCHR() As String() + Get + Return Me.UST_BESCHRField + End Get + Set + If (Object.ReferenceEquals(Me.UST_BESCHRField, value) <> true) Then + Me.UST_BESCHRField = value + Me.RaisePropertyChanged("UST_BESCHR") + End If + End Set + End Property + + _ + Public Property UST_SATZ() As Decimal() + Get + Return Me.UST_SATZField + End Get + Set + If (Object.ReferenceEquals(Me.UST_SATZField, value) <> true) Then + Me.UST_SATZField = value + Me.RaisePropertyChanged("UST_SATZ") + End If + End Set + End Property + + _ + Public Property UST_SCHLUESSEL() As Integer() + Get + Return Me.UST_SCHLUESSELField + End Get + Set + If (Object.ReferenceEquals(Me.UST_SCHLUESSELField, value) <> true) Then + Me.UST_SCHLUESSELField = value + Me.RaisePropertyChanged("UST_SCHLUESSEL") + End If + End Set + End Property + + Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged + + Protected Sub RaisePropertyChanged(ByVal propertyName As String) + Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent + If (Not (propertyChanged) Is Nothing) Then + propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName)) + End If + End Sub + End Class + + _ + Public Interface IDSFinVKServer + + _ + Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String + + _ + Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String) + + _ + Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function CleanupLibrary(ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function CleanupLibraryAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function CreateCashbox(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function CreateCashboxAsync(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function GetCashboxes(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As RKSV_DE_DSFinVKService_2022.GetCashboxesResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetCashboxesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetCashboxesResponse) + + _ + Function BeginReceipt(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As RKSV_DE_DSFinVKService_2022.BeginReceiptResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function BeginReceiptAsync(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.BeginReceiptResponse) + + _ + Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function ExportCSVFiles( _ + ByVal Z_KASSE_ID As String, _ + ByVal Z_NR_From As Integer, _ + ByVal Z_NR_To As Integer, _ + ByVal path As String, _ + ByVal zipFileName As String, _ + ByVal exportCashpointclosing As Boolean, _ + ByVal exportLocation As Boolean, _ + ByVal exportCashregister As Boolean, _ + ByVal exportSlaves As Boolean, _ + ByVal exportPa As Boolean, _ + ByVal exportVat As Boolean, _ + ByVal exportTse As Boolean, _ + ByVal exportBusinesscases As Boolean, _ + ByVal exportPayment As Boolean, _ + ByVal exportCashPerCurrency As Boolean, _ + ByVal exportTransactions As Boolean, _ + ByVal exportAllocationGroups As Boolean, _ + ByVal exportTransactionsVat As Boolean, _ + ByVal exportDatapayment As Boolean, _ + ByVal exportLines As Boolean, _ + ByVal exportLinesVat As Boolean, _ + ByVal exportItemamounts As Boolean, _ + ByVal exportSubitems As Boolean, _ + ByVal exportReferences As Boolean, _ + ByVal exportTransactionsTse As Boolean) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function ExportCSVFilesAsync( _ + ByVal Z_KASSE_ID As String, _ + ByVal Z_NR_From As Integer, _ + ByVal Z_NR_To As Integer, _ + ByVal path As String, _ + ByVal zipFileName As String, _ + ByVal exportCashpointclosing As Boolean, _ + ByVal exportLocation As Boolean, _ + ByVal exportCashregister As Boolean, _ + ByVal exportSlaves As Boolean, _ + ByVal exportPa As Boolean, _ + ByVal exportVat As Boolean, _ + ByVal exportTse As Boolean, _ + ByVal exportBusinesscases As Boolean, _ + ByVal exportPayment As Boolean, _ + ByVal exportCashPerCurrency As Boolean, _ + ByVal exportTransactions As Boolean, _ + ByVal exportAllocationGroups As Boolean, _ + ByVal exportTransactionsVat As Boolean, _ + ByVal exportDatapayment As Boolean, _ + ByVal exportLines As Boolean, _ + ByVal exportLinesVat As Boolean, _ + ByVal exportItemamounts As Boolean, _ + ByVal exportSubitems As Boolean, _ + ByVal exportReferences As Boolean, _ + ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function GetAvailableTseList(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetAvailableTseListAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse) + + _ + Function GetDsFinVKValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetDsFinVKValuesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse) + + _ + Function GetDsFinVKValuesForTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetDsFinVKValuesForTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse) + + _ + Function SetupTseForFirstUseTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer + + _ + Function SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) + + _ + Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String + + _ + Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) + + _ + Function GetAvailableClientsTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetAvailableClientsTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse) + + _ + Function IsClientPresentTse(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function IsClientPresentTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse) + + _ + Function GetTaxIds(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetTaxIdsAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse) + + _ + Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function GetLastReceiptValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetLastReceiptValuesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse) + + _ + Function GetLastReceiptQrCode(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetLastReceiptQrCodeAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse) + + _ + Function GetLastReceiptQrCodeContent(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetLastReceiptQrCodeContentAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse) + + _ + Function RegisterNewClientTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Function RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) + + _ + Function GetNextBON_ID(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse + + 'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang mehrere Rückgabewerte aufweist. + _ + Function GetNextBON_IDAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse) + End Interface + + _ + Partial Public Class GetCashboxesRequest + + _ + Public cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten) + MyBase.New + Me.cashBoxes = cashBoxes + End Sub + End Class + + _ + Partial Public Class GetCashboxesResponse + + _ + Public GetCashboxesResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetCashboxesResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten) + MyBase.New + Me.GetCashboxesResult = GetCashboxesResult + Me.cashBoxes = cashBoxes + End Sub + End Class + + _ + Partial Public Class BeginReceiptRequest + + _ + Public cashboxName As String + + _ + Public bonkopfBegin As RKSV_DE_DSFinVKService_2022.BonKopfBegin + + _ + Public transactionNumber As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal cashboxName As String, ByVal bonkopfBegin As RKSV_DE_DSFinVKService_2022.BonKopfBegin, ByVal transactionNumber As Integer) + MyBase.New + Me.cashboxName = cashboxName + Me.bonkopfBegin = bonkopfBegin + Me.transactionNumber = transactionNumber + End Sub + End Class + + _ + Partial Public Class BeginReceiptResponse + + _ + Public BeginReceiptResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public transactionNumber As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal BeginReceiptResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal transactionNumber As Integer) + MyBase.New + Me.BeginReceiptResult = BeginReceiptResult + Me.transactionNumber = transactionNumber + End Sub + End Class + + _ + Partial Public Class GetAvailableTseListRequest + + _ + Public startDriveLetter As String + + _ + Public endDriveLetter As String + + _ + Public tseDriveLetterList() As String + + _ + Public tseSerialList() As String + + _ + Public count As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer) + MyBase.New + Me.startDriveLetter = startDriveLetter + Me.endDriveLetter = endDriveLetter + Me.tseDriveLetterList = tseDriveLetterList + Me.tseSerialList = tseSerialList + Me.count = count + End Sub + End Class + + _ + Partial Public Class GetAvailableTseListResponse + + _ + Public GetAvailableTseListResult As Integer + + _ + Public tseDriveLetterList() As String + + _ + Public tseSerialList() As String + + _ + Public count As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableTseListResult As Integer, ByVal tseDriveLetterList() As String, ByVal tseSerialList() As String, ByVal count As Integer) + MyBase.New + Me.GetAvailableTseListResult = GetAvailableTseListResult + Me.tseDriveLetterList = tseDriveLetterList + Me.tseSerialList = tseSerialList + Me.count = count + End Sub + End Class + + _ + Partial Public Class GetDsFinVKValuesRequest + + _ + Public Z_KASSE_ID As String + + _ + Public tse_serial As String + + _ + Public tse_sig_algo As String + + _ + Public tse_zeitformat As String + + _ + Public tse_pd_encoding As String + + _ + Public tse_public_key As String + + _ + Public tse_zertifikat As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.tse_serial = tse_serial + Me.tse_sig_algo = tse_sig_algo + Me.tse_zeitformat = tse_zeitformat + Me.tse_pd_encoding = tse_pd_encoding + Me.tse_public_key = tse_public_key + Me.tse_zertifikat = tse_zertifikat + End Sub + End Class + + _ + Partial Public Class GetDsFinVKValuesResponse + + _ + Public GetDsFinVKValuesResult As Integer + + _ + Public tse_serial As String + + _ + Public tse_sig_algo As String + + _ + Public tse_zeitformat As String + + _ + Public tse_pd_encoding As String + + _ + Public tse_public_key As String + + _ + Public tse_zertifikat As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDsFinVKValuesResult As Integer, ByVal tse_serial As String, ByVal tse_sig_algo As String, ByVal tse_zeitformat As String, ByVal tse_pd_encoding As String, ByVal tse_public_key As String, ByVal tse_zertifikat As String) + MyBase.New + Me.GetDsFinVKValuesResult = GetDsFinVKValuesResult + Me.tse_serial = tse_serial + Me.tse_sig_algo = tse_sig_algo + Me.tse_zeitformat = tse_zeitformat + Me.tse_pd_encoding = tse_pd_encoding + Me.tse_public_key = tse_public_key + Me.tse_zertifikat = tse_zertifikat + End Sub + End Class + + _ + Partial Public Class GetDsFinVKValuesForTseRequest + + _ + Public Z_KASSE_ID As String + + _ + Public driveLetter As String + + _ + Public tseData As RKSV_DE_DSFinVKService_2022.TSEData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal tseData As RKSV_DE_DSFinVKService_2022.TSEData) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.driveLetter = driveLetter + Me.tseData = tseData + End Sub + End Class + + _ + Partial Public Class GetDsFinVKValuesForTseResponse + + _ + Public GetDsFinVKValuesForTseResult As Integer + + _ + Public tseData As RKSV_DE_DSFinVKService_2022.TSEData + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetDsFinVKValuesForTseResult As Integer, ByVal tseData As RKSV_DE_DSFinVKService_2022.TSEData) + MyBase.New + Me.GetDsFinVKValuesForTseResult = GetDsFinVKValuesForTseResult + Me.tseData = tseData + End Sub + End Class + + _ + Partial Public Class GetAvailableClientsTseRequest + + _ + Public Z_KASSE_ID As String + + _ + Public driveLetter As String + + _ + Public clientIds() As String + + _ + Public count As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientIds() As String, ByVal count As Integer) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.driveLetter = driveLetter + Me.clientIds = clientIds + Me.count = count + End Sub + End Class + + _ + Partial Public Class GetAvailableClientsTseResponse + + _ + Public GetAvailableClientsTseResult As Integer + + _ + Public clientIds() As String + + _ + Public count As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetAvailableClientsTseResult As Integer, ByVal clientIds() As String, ByVal count As Integer) + MyBase.New + Me.GetAvailableClientsTseResult = GetAvailableClientsTseResult + Me.clientIds = clientIds + Me.count = count + End Sub + End Class + + _ + Partial Public Class IsClientPresentTseRequest + + _ + Public Z_KASSE_ID As String + + _ + Public driveLetter As String + + _ + Public clientId As String + + _ + Public result As Boolean + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByVal result As Boolean) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.driveLetter = driveLetter + Me.clientId = clientId + Me.result = result + End Sub + End Class + + _ + Partial Public Class IsClientPresentTseResponse + + _ + Public IsClientPresentTseResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public result As Boolean + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal IsClientPresentTseResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal result As Boolean) + MyBase.New + Me.IsClientPresentTseResult = IsClientPresentTseResult + Me.result = result + End Sub + End Class + + _ + Partial Public Class GetTaxIdsRequest + + _ + Public Z_KASSE_ID As String + + _ + Public taxes As RKSV_DE_DSFinVKService_2022.Taxes + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal taxes As RKSV_DE_DSFinVKService_2022.Taxes) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.taxes = taxes + End Sub + End Class + + _ + Partial Public Class GetTaxIdsResponse + + _ + Public GetTaxIdsResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public taxes As RKSV_DE_DSFinVKService_2022.Taxes + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetTaxIdsResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal taxes As RKSV_DE_DSFinVKService_2022.Taxes) + MyBase.New + Me.GetTaxIdsResult = GetTaxIdsResult + Me.taxes = taxes + End Sub + End Class + + _ + Partial Public Class GetLastReceiptValuesRequest + + _ + Public Z_KASSE_ID As String + + _ + Public transactionNumber As String + + _ + Public serialNumber As String + + _ + Public signature As String + + _ + Public transactionStart As Date + + _ + Public transactionFinish As Date + + _ + Public sigCounter As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.transactionNumber = transactionNumber + Me.serialNumber = serialNumber + Me.signature = signature + Me.transactionStart = transactionStart + Me.transactionFinish = transactionFinish + Me.sigCounter = sigCounter + End Sub + End Class + + _ + Partial Public Class GetLastReceiptValuesResponse + + _ + Public GetLastReceiptValuesResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public transactionNumber As String + + _ + Public serialNumber As String + + _ + Public signature As String + + _ + Public transactionStart As Date + + _ + Public transactionFinish As Date + + _ + Public sigCounter As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetLastReceiptValuesResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal transactionNumber As String, ByVal serialNumber As String, ByVal signature As String, ByVal transactionStart As Date, ByVal transactionFinish As Date, ByVal sigCounter As String) + MyBase.New + Me.GetLastReceiptValuesResult = GetLastReceiptValuesResult + Me.transactionNumber = transactionNumber + Me.serialNumber = serialNumber + Me.signature = signature + Me.transactionStart = transactionStart + Me.transactionFinish = transactionFinish + Me.sigCounter = sigCounter + End Sub + End Class + + _ + Partial Public Class GetLastReceiptQrCodeRequest + + _ + Public Z_KASSE_ID As String + + _ + Public qrCode As String + + _ + Public mimeType As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal qrCode As String, ByVal mimeType As String) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.qrCode = qrCode + Me.mimeType = mimeType + End Sub + End Class + + _ + Partial Public Class GetLastReceiptQrCodeResponse + + _ + Public GetLastReceiptQrCodeResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public qrCode As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetLastReceiptQrCodeResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal qrCode As String) + MyBase.New + Me.GetLastReceiptQrCodeResult = GetLastReceiptQrCodeResult + Me.qrCode = qrCode + End Sub + End Class + + _ + Partial Public Class GetLastReceiptQrCodeContentRequest + + _ + Public Z_KASSE_ID As String + + _ + Public qrCodeContent As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal qrCodeContent As String) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.qrCodeContent = qrCodeContent + End Sub + End Class + + _ + Partial Public Class GetLastReceiptQrCodeContentResponse + + _ + Public GetLastReceiptQrCodeContentResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public qrCodeContent As String + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetLastReceiptQrCodeContentResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal qrCodeContent As String) + MyBase.New + Me.GetLastReceiptQrCodeContentResult = GetLastReceiptQrCodeContentResult + Me.qrCodeContent = qrCodeContent + End Sub + End Class + + _ + Partial Public Class GetNextBON_IDRequest + + _ + Public Z_KASSE_ID As String + + _ + Public BON_ID As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal Z_KASSE_ID As String, ByVal BON_ID As Integer) + MyBase.New + Me.Z_KASSE_ID = Z_KASSE_ID + Me.BON_ID = BON_ID + End Sub + End Class + + _ + Partial Public Class GetNextBON_IDResponse + + _ + Public GetNextBON_IDResult As RKSV_DE_DSFinVKService_2022.ErrorCode + + _ + Public BON_ID As Integer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal GetNextBON_IDResult As RKSV_DE_DSFinVKService_2022.ErrorCode, ByVal BON_ID As Integer) + MyBase.New + Me.GetNextBON_IDResult = GetNextBON_IDResult + Me.BON_ID = BON_ID + End Sub + End Class + + _ + Public Interface IDSFinVKServerChannel + Inherits RKSV_DE_DSFinVKService_2022.IDSFinVKServer, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class DSFinVKServerClient + Inherits System.ServiceModel.ClientBase(Of RKSV_DE_DSFinVKService_2022.IDSFinVKServer) + Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + Public Function GetMachineCode(ByVal isDemoLicense As Boolean, ByVal clientId As String) As String Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetMachineCode + Return MyBase.Channel.GetMachineCode(isDemoLicense, clientId) + End Function + + Public Function GetMachineCodeAsync(ByVal isDemoLicense As Boolean, ByVal clientId As String) As System.Threading.Tasks.Task(Of String) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetMachineCodeAsync + Return MyBase.Channel.GetMachineCodeAsync(isDemoLicense, clientId) + End Function + + Public Function InitializeLibrary(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.InitializeLibrary + Return MyBase.Channel.InitializeLibrary(server, database, username, password, Z_KASSE_ID) + End Function + + Public Function InitializeLibraryAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String, ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.InitializeLibraryAsync + Return MyBase.Channel.InitializeLibraryAsync(server, database, username, password, Z_KASSE_ID) + End Function + + Public Function CleanupLibrary(ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CleanupLibrary + Return MyBase.Channel.CleanupLibrary(Z_KASSE_ID) + End Function + + Public Function CleanupLibraryAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CleanupLibraryAsync + Return MyBase.Channel.CleanupLibraryAsync(Z_KASSE_ID) + End Function + + Public Function CreateDatabase(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateDatabase + Return MyBase.Channel.CreateDatabase(server, database, username, password) + End Function + + Public Function CreateDatabaseAsync(ByVal server As String, ByVal database As String, ByVal username As String, ByVal password As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateDatabaseAsync + Return MyBase.Channel.CreateDatabaseAsync(server, database, username, password) + End Function + + Public Function CreateCashbox(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateCashbox + Return MyBase.Channel.CreateCashbox(cashbox) + End Function + + Public Function CreateCashboxAsync(ByVal cashbox As RKSV_DE_DSFinVKService_2022.Kassendaten) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateCashboxAsync + Return MyBase.Channel.CreateCashboxAsync(cashbox) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetCashboxes(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As RKSV_DE_DSFinVKService_2022.GetCashboxesResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetCashboxes + Return MyBase.Channel.GetCashboxes(request) + End Function + + Public Function GetCashboxes(ByRef cashBoxes() As RKSV_DE_DSFinVKService_2022.Kassendaten) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest = New RKSV_DE_DSFinVKService_2022.GetCashboxesRequest() + inValue.cashBoxes = cashBoxes + Dim retVal As RKSV_DE_DSFinVKService_2022.GetCashboxesResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetCashboxes(inValue) + cashBoxes = retVal.cashBoxes + Return retVal.GetCashboxesResult + End Function + + Public Function GetCashboxesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetCashboxesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetCashboxesResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetCashboxesAsync + Return MyBase.Channel.GetCashboxesAsync(request) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_BeginReceipt(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As RKSV_DE_DSFinVKService_2022.BeginReceiptResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.BeginReceipt + Return MyBase.Channel.BeginReceipt(request) + End Function + + Public Function BeginReceipt(ByVal cashboxName As String, ByVal bonkopfBegin As RKSV_DE_DSFinVKService_2022.BonKopfBegin, ByRef transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest = New RKSV_DE_DSFinVKService_2022.BeginReceiptRequest() + inValue.cashboxName = cashboxName + inValue.bonkopfBegin = bonkopfBegin + inValue.transactionNumber = transactionNumber + Dim retVal As RKSV_DE_DSFinVKService_2022.BeginReceiptResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).BeginReceipt(inValue) + transactionNumber = retVal.transactionNumber + Return retVal.BeginReceiptResult + End Function + + Public Function BeginReceiptAsync(ByVal request As RKSV_DE_DSFinVKService_2022.BeginReceiptRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.BeginReceiptResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.BeginReceiptAsync + Return MyBase.Channel.BeginReceiptAsync(request) + End Function + + Public Function UpdateReceipt(ByVal cashboxName As String, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.UpdateReceipt + Return MyBase.Channel.UpdateReceipt(cashboxName, transactionNumber) + End Function + + Public Function UpdateReceiptAsync(ByVal cashboxName As String, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.UpdateReceiptAsync + Return MyBase.Channel.UpdateReceiptAsync(cashboxName, transactionNumber) + End Function + + Public Function FinishReceipt(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.FinishReceipt + Return MyBase.Channel.FinishReceipt(cashboxName, bonkopfFinish, transactionNumber) + End Function + + Public Function FinishReceiptAsync(ByVal cashboxName As String, ByVal bonkopfFinish As RKSV_DE_DSFinVKService_2022.BonKopfFinish, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.FinishReceiptAsync + Return MyBase.Channel.FinishReceiptAsync(cashboxName, bonkopfFinish, transactionNumber) + End Function + + Public Function AddPositionToReceipt(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.AddPositionToReceipt + Return MyBase.Channel.AddPositionToReceipt(cashboxName, position, position_vat, transactionNumber) + End Function + + Public Function AddPositionToReceiptAsync(ByVal cashboxName As String, ByVal position As RKSV_DE_DSFinVKService_2022.BonPosition, ByVal position_vat As RKSV_DE_DSFinVKService_2022.BonPosition_Ust, ByVal transactionNumber As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.AddPositionToReceiptAsync + Return MyBase.Channel.AddPositionToReceiptAsync(cashboxName, position, position_vat, transactionNumber) + End Function + + Public Function ExportFull(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportFull + Return MyBase.Channel.ExportFull(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName) + End Function + + Public Function ExportFullAsync(ByVal Z_KASSE_ID As String, ByVal Z_NR_From As Integer, ByVal Z_NR_To As Integer, ByVal path As String, ByVal zipFileName As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportFullAsync + Return MyBase.Channel.ExportFullAsync(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName) + End Function + + Public Function ExportDateToDate(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportDateToDate + Return MyBase.Channel.ExportDateToDate(cashboxName, dtFrom, dtTo) + End Function + + Public Function ExportDateToDateAsync(ByVal cashboxName As String, ByVal dtFrom As Date, ByVal dtTo As Date) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportDateToDateAsync + Return MyBase.Channel.ExportDateToDateAsync(cashboxName, dtFrom, dtTo) + End Function + + Public Function ExportNumberToNumber(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportNumberToNumber + Return MyBase.Channel.ExportNumberToNumber(cashboxName, numberFrom, numberTo) + End Function + + Public Function ExportNumberToNumberAsync(ByVal cashboxName As String, ByVal numberFrom As Integer, ByVal numberTo As Integer) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportNumberToNumberAsync + Return MyBase.Channel.ExportNumberToNumberAsync(cashboxName, numberFrom, numberTo) + End Function + + Public Function ExportCSVFiles( _ + ByVal Z_KASSE_ID As String, _ + ByVal Z_NR_From As Integer, _ + ByVal Z_NR_To As Integer, _ + ByVal path As String, _ + ByVal zipFileName As String, _ + ByVal exportCashpointclosing As Boolean, _ + ByVal exportLocation As Boolean, _ + ByVal exportCashregister As Boolean, _ + ByVal exportSlaves As Boolean, _ + ByVal exportPa As Boolean, _ + ByVal exportVat As Boolean, _ + ByVal exportTse As Boolean, _ + ByVal exportBusinesscases As Boolean, _ + ByVal exportPayment As Boolean, _ + ByVal exportCashPerCurrency As Boolean, _ + ByVal exportTransactions As Boolean, _ + ByVal exportAllocationGroups As Boolean, _ + ByVal exportTransactionsVat As Boolean, _ + ByVal exportDatapayment As Boolean, _ + ByVal exportLines As Boolean, _ + ByVal exportLinesVat As Boolean, _ + ByVal exportItemamounts As Boolean, _ + ByVal exportSubitems As Boolean, _ + ByVal exportReferences As Boolean, _ + ByVal exportTransactionsTse As Boolean) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportCSVFiles + Return MyBase.Channel.ExportCSVFiles(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName, exportCashpointclosing, exportLocation, exportCashregister, exportSlaves, exportPa, exportVat, exportTse, exportBusinesscases, exportPayment, exportCashPerCurrency, exportTransactions, exportAllocationGroups, exportTransactionsVat, exportDatapayment, exportLines, exportLinesVat, exportItemamounts, exportSubitems, exportReferences, exportTransactionsTse) + End Function + + Public Function ExportCSVFilesAsync( _ + ByVal Z_KASSE_ID As String, _ + ByVal Z_NR_From As Integer, _ + ByVal Z_NR_To As Integer, _ + ByVal path As String, _ + ByVal zipFileName As String, _ + ByVal exportCashpointclosing As Boolean, _ + ByVal exportLocation As Boolean, _ + ByVal exportCashregister As Boolean, _ + ByVal exportSlaves As Boolean, _ + ByVal exportPa As Boolean, _ + ByVal exportVat As Boolean, _ + ByVal exportTse As Boolean, _ + ByVal exportBusinesscases As Boolean, _ + ByVal exportPayment As Boolean, _ + ByVal exportCashPerCurrency As Boolean, _ + ByVal exportTransactions As Boolean, _ + ByVal exportAllocationGroups As Boolean, _ + ByVal exportTransactionsVat As Boolean, _ + ByVal exportDatapayment As Boolean, _ + ByVal exportLines As Boolean, _ + ByVal exportLinesVat As Boolean, _ + ByVal exportItemamounts As Boolean, _ + ByVal exportSubitems As Boolean, _ + ByVal exportReferences As Boolean, _ + ByVal exportTransactionsTse As Boolean) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.ExportCSVFilesAsync + Return MyBase.Channel.ExportCSVFilesAsync(Z_KASSE_ID, Z_NR_From, Z_NR_To, path, zipFileName, exportCashpointclosing, exportLocation, exportCashregister, exportSlaves, exportPa, exportVat, exportTse, exportBusinesscases, exportPayment, exportCashPerCurrency, exportTransactions, exportAllocationGroups, exportTransactionsVat, exportDatapayment, exportLines, exportLinesVat, exportItemamounts, exportSubitems, exportReferences, exportTransactionsTse) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetAvailableTseList(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetAvailableTseList + Return MyBase.Channel.GetAvailableTseList(request) + End Function + + Public Function GetAvailableTseList(ByVal startDriveLetter As String, ByVal endDriveLetter As String, ByRef tseDriveLetterList() As String, ByRef tseSerialList() As String, ByRef count As Integer) As Integer + Dim inValue As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest = New RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest() + inValue.startDriveLetter = startDriveLetter + inValue.endDriveLetter = endDriveLetter + inValue.tseDriveLetterList = tseDriveLetterList + inValue.tseSerialList = tseSerialList + inValue.count = count + Dim retVal As RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetAvailableTseList(inValue) + tseDriveLetterList = retVal.tseDriveLetterList + tseSerialList = retVal.tseSerialList + count = retVal.count + Return retVal.GetAvailableTseListResult + End Function + + Public Function GetAvailableTseListAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableTseListRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetAvailableTseListAsync + Return MyBase.Channel.GetAvailableTseListAsync(request) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetDsFinVKValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetDsFinVKValues + Return MyBase.Channel.GetDsFinVKValues(request) + End Function + + Public Function GetDsFinVKValues(ByVal Z_KASSE_ID As String, ByRef tse_serial As String, ByRef tse_sig_algo As String, ByRef tse_zeitformat As String, ByRef tse_pd_encoding As String, ByRef tse_public_key As String, ByRef tse_zertifikat As String) As Integer + Dim inValue As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest = New RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.tse_serial = tse_serial + inValue.tse_sig_algo = tse_sig_algo + inValue.tse_zeitformat = tse_zeitformat + inValue.tse_pd_encoding = tse_pd_encoding + inValue.tse_public_key = tse_public_key + inValue.tse_zertifikat = tse_zertifikat + Dim retVal As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetDsFinVKValues(inValue) + tse_serial = retVal.tse_serial + tse_sig_algo = retVal.tse_sig_algo + tse_zeitformat = retVal.tse_zeitformat + tse_pd_encoding = retVal.tse_pd_encoding + tse_public_key = retVal.tse_public_key + tse_zertifikat = retVal.tse_zertifikat + Return retVal.GetDsFinVKValuesResult + End Function + + Public Function GetDsFinVKValuesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetDsFinVKValuesAsync + Return MyBase.Channel.GetDsFinVKValuesAsync(request) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetDsFinVKValuesForTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetDsFinVKValuesForTse + Return MyBase.Channel.GetDsFinVKValuesForTse(request) + End Function + + Public Function GetDsFinVKValuesForTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef tseData As RKSV_DE_DSFinVKService_2022.TSEData) As Integer + Dim inValue As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest = New RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.driveLetter = driveLetter + inValue.tseData = tseData + Dim retVal As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetDsFinVKValuesForTse(inValue) + tseData = retVal.tseData + Return retVal.GetDsFinVKValuesForTseResult + End Function + + Public Function GetDsFinVKValuesForTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetDsFinVKValuesForTseAsync + Return MyBase.Channel.GetDsFinVKValuesForTseAsync(request) + End Function + + Public Function SetupTseForFirstUseTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As Integer Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.SetupTseForFirstUseTse + Return MyBase.Channel.SetupTseForFirstUseTse(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) + End Function + + Public Function SetupTseForFirstUseTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal admin_puk As String, ByVal admin_pin As String, ByVal timeadmin_pin As String, ByVal clientId As String) As System.Threading.Tasks.Task(Of Integer) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.SetupTseForFirstUseTseAsync + Return MyBase.Channel.SetupTseForFirstUseTseAsync(Z_KASSE_ID, driveLetter, admin_puk, admin_pin, timeadmin_pin, clientId) + End Function + + Public Function StringifyTseErrorCode(ByVal tseErrorCode As Integer) As String Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.StringifyTseErrorCode + Return MyBase.Channel.StringifyTseErrorCode(tseErrorCode) + End Function + + Public Function StringifyTseErrorCodeAsync(ByVal tseErrorCode As Integer) As System.Threading.Tasks.Task(Of String) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.StringifyTseErrorCodeAsync + Return MyBase.Channel.StringifyTseErrorCodeAsync(tseErrorCode) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetAvailableClientsTse(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetAvailableClientsTse + Return MyBase.Channel.GetAvailableClientsTse(request) + End Function + + Public Function GetAvailableClientsTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByRef clientIds() As String, ByRef count As Integer) As Integer + Dim inValue As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest = New RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.driveLetter = driveLetter + inValue.clientIds = clientIds + inValue.count = count + Dim retVal As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetAvailableClientsTse(inValue) + clientIds = retVal.clientIds + count = retVal.count + Return retVal.GetAvailableClientsTseResult + End Function + + Public Function GetAvailableClientsTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetAvailableClientsTseAsync + Return MyBase.Channel.GetAvailableClientsTseAsync(request) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_IsClientPresentTse(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.IsClientPresentTse + Return MyBase.Channel.IsClientPresentTse(request) + End Function + + Public Function IsClientPresentTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal clientId As String, ByRef result As Boolean) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest = New RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.driveLetter = driveLetter + inValue.clientId = clientId + inValue.result = result + Dim retVal As RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).IsClientPresentTse(inValue) + result = retVal.result + Return retVal.IsClientPresentTseResult + End Function + + Public Function IsClientPresentTseAsync(ByVal request As RKSV_DE_DSFinVKService_2022.IsClientPresentTseRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.IsClientPresentTseAsync + Return MyBase.Channel.IsClientPresentTseAsync(request) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetTaxIds(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetTaxIds + Return MyBase.Channel.GetTaxIds(request) + End Function + + Public Function GetTaxIds(ByVal Z_KASSE_ID As String, ByRef taxes As RKSV_DE_DSFinVKService_2022.Taxes) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest = New RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.taxes = taxes + Dim retVal As RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetTaxIds(inValue) + taxes = retVal.taxes + Return retVal.GetTaxIdsResult + End Function + + Public Function GetTaxIdsAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetTaxIdsRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetTaxIdsAsync + Return MyBase.Channel.GetTaxIdsAsync(request) + End Function + + Public Function CreateCashpointClosing(ByVal Z_KASSE_ID As String) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateCashpointClosing + Return MyBase.Channel.CreateCashpointClosing(Z_KASSE_ID) + End Function + + Public Function CreateCashpointClosingAsync(ByVal Z_KASSE_ID As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.CreateCashpointClosingAsync + Return MyBase.Channel.CreateCashpointClosingAsync(Z_KASSE_ID) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetLastReceiptValues(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptValues + Return MyBase.Channel.GetLastReceiptValues(request) + End Function + + Public Function GetLastReceiptValues(ByVal Z_KASSE_ID As String, ByRef transactionNumber As String, ByRef serialNumber As String, ByRef signature As String, ByRef transactionStart As Date, ByRef transactionFinish As Date, ByRef sigCounter As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest = New RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.transactionNumber = transactionNumber + inValue.serialNumber = serialNumber + inValue.signature = signature + inValue.transactionStart = transactionStart + inValue.transactionFinish = transactionFinish + inValue.sigCounter = sigCounter + Dim retVal As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetLastReceiptValues(inValue) + transactionNumber = retVal.transactionNumber + serialNumber = retVal.serialNumber + signature = retVal.signature + transactionStart = retVal.transactionStart + transactionFinish = retVal.transactionFinish + sigCounter = retVal.sigCounter + Return retVal.GetLastReceiptValuesResult + End Function + + Public Function GetLastReceiptValuesAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptValuesAsync + Return MyBase.Channel.GetLastReceiptValuesAsync(request) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetLastReceiptQrCode(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptQrCode + Return MyBase.Channel.GetLastReceiptQrCode(request) + End Function + + Public Function GetLastReceiptQrCode(ByVal Z_KASSE_ID As String, ByRef qrCode As String, ByVal mimeType As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest = New RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.qrCode = qrCode + inValue.mimeType = mimeType + Dim retVal As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetLastReceiptQrCode(inValue) + qrCode = retVal.qrCode + Return retVal.GetLastReceiptQrCodeResult + End Function + + Public Function GetLastReceiptQrCodeAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptQrCodeAsync + Return MyBase.Channel.GetLastReceiptQrCodeAsync(request) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetLastReceiptQrCodeContent(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptQrCodeContent + Return MyBase.Channel.GetLastReceiptQrCodeContent(request) + End Function + + Public Function GetLastReceiptQrCodeContent(ByVal Z_KASSE_ID As String, ByRef qrCodeContent As String) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest = New RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.qrCodeContent = qrCodeContent + Dim retVal As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetLastReceiptQrCodeContent(inValue) + qrCodeContent = retVal.qrCodeContent + Return retVal.GetLastReceiptQrCodeContentResult + End Function + + Public Function GetLastReceiptQrCodeContentAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetLastReceiptQrCodeContentAsync + Return MyBase.Channel.GetLastReceiptQrCodeContentAsync(request) + End Function + + Public Function RegisterNewClientTse(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As RKSV_DE_DSFinVKService_2022.ErrorCode Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.RegisterNewClientTse + Return MyBase.Channel.RegisterNewClientTse(Z_KASSE_ID, driveLetter, newClientId) + End Function + + Public Function RegisterNewClientTseAsync(ByVal Z_KASSE_ID As String, ByVal driveLetter As String, ByVal newClientId As String) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.ErrorCode) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.RegisterNewClientTseAsync + Return MyBase.Channel.RegisterNewClientTseAsync(Z_KASSE_ID, driveLetter, newClientId) + End Function + + _ + Function RKSV_DE_DSFinVKService_2022_IDSFinVKServer_GetNextBON_ID(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetNextBON_ID + Return MyBase.Channel.GetNextBON_ID(request) + End Function + + Public Function GetNextBON_ID(ByVal Z_KASSE_ID As String, ByRef BON_ID As Integer) As RKSV_DE_DSFinVKService_2022.ErrorCode + Dim inValue As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest = New RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest() + inValue.Z_KASSE_ID = Z_KASSE_ID + inValue.BON_ID = BON_ID + Dim retVal As RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse = CType(Me,RKSV_DE_DSFinVKService_2022.IDSFinVKServer).GetNextBON_ID(inValue) + BON_ID = retVal.BON_ID + Return retVal.GetNextBON_IDResult + End Function + + Public Function GetNextBON_IDAsync(ByVal request As RKSV_DE_DSFinVKService_2022.GetNextBON_IDRequest) As System.Threading.Tasks.Task(Of RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse) Implements RKSV_DE_DSFinVKService_2022.IDSFinVKServer.GetNextBON_IDAsync + Return MyBase.Channel.GetNextBON_IDAsync(request) + End Function + End Class +End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BeginReceiptResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BeginReceiptResponse.datasource new file mode 100644 index 00000000..fc3ff6a6 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BeginReceiptResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.BeginReceiptResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.ErrorCode.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.ErrorCode.datasource new file mode 100644 index 00000000..62533653 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.ErrorCode.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.ErrorCode, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse.datasource new file mode 100644 index 00000000..650fe66d --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableClientsTseResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse.datasource new file mode 100644 index 00000000..232a50d1 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetAvailableTseListResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetCashboxesResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetCashboxesResponse.datasource new file mode 100644 index 00000000..8a071742 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetCashboxesResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetCashboxesResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse.datasource new file mode 100644 index 00000000..6cadd73d --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesForTseResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse.datasource new file mode 100644 index 00000000..1444d671 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetDsFinVKValuesResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse.datasource new file mode 100644 index 00000000..7b72d24b --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeContentResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse.datasource new file mode 100644 index 00000000..72ef313e --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptQrCodeResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse.datasource new file mode 100644 index 00000000..49a31e3a --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetLastReceiptValuesResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse.datasource new file mode 100644 index 00000000..6b6e9742 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetNextBON_IDResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse.datasource new file mode 100644 index 00000000..35d4f049 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.GetTaxIdsResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse.datasource new file mode 100644 index 00000000..7757d2c7 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.IsClientPresentTseResponse, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Kassendaten.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Kassendaten.datasource new file mode 100644 index 00000000..f54b0371 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Kassendaten.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Kassendaten, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.TSEData.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.TSEData.datasource new file mode 100644 index 00000000..3ff5cd6a --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.TSEData.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.TSEData, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Taxes.datasource b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Taxes.datasource new file mode 100644 index 00000000..c0cd00f5 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Taxes.datasource @@ -0,0 +1,10 @@ + + + + VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService_2022.Taxes, Service References.RKSV_DE_DSFinVKService_2022.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration.svcinfo b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration.svcinfo new file mode 100644 index 00000000..80356dd8 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration.svcinfo @@ -0,0 +1,10 @@ + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration91.svcinfo b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration91.svcinfo new file mode 100644 index 00000000..a8f64059 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/configuration91.svcinfo @@ -0,0 +1,201 @@ + + + + + + + BasicHttpBinding_IDSFinVKServer + + + + + + + + + + + + + + + + + + + + + StrongWildcard + + + + + + 65536 + + + + + + + + + System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + System.Text.UTF8Encoding + + + Buffered + + + + + + Text + + + System.ServiceModel.Configuration.BasicHttpSecurityElement + + + None + + + System.ServiceModel.Configuration.HttpTransportSecurityElement + + + None + + + None + + + System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement + + + Never + + + TransportSelected + + + (Sammlung) + + + + + + System.ServiceModel.Configuration.BasicHttpMessageSecurityElement + + + UserName + + + Default + + + + + + + + + http://localhost:8733/DSFinVKService + + + + + + basicHttpBinding + + + BasicHttpBinding_IDSFinVKServer + + + RKSV_DE_DSFinVKService_2022.IDSFinVKServer + + + System.ServiceModel.Configuration.AddressHeaderCollectionElement + + + <Header /> + + + System.ServiceModel.Configuration.IdentityElement + + + System.ServiceModel.Configuration.UserPrincipalNameElement + + + + + + System.ServiceModel.Configuration.ServicePrincipalNameElement + + + + + + System.ServiceModel.Configuration.DnsElement + + + + + + System.ServiceModel.Configuration.RsaElement + + + + + + System.ServiceModel.Configuration.CertificateElement + + + + + + System.ServiceModel.Configuration.CertificateReferenceElement + + + My + + + LocalMachine + + + FindBySubjectDistinguishedName + + + + + + False + + + BasicHttpBinding_IDSFinVKServer + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.wsdl b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.wsdl new file mode 100644 index 00000000..29c494e9 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.wsdl @@ -0,0 +1,554 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.xsd new file mode 100644 index 00000000..49d6de5c --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service.xsd @@ -0,0 +1,507 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service1.xsd b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service1.xsd new file mode 100644 index 00000000..b4d5ff0f --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Service References/RKSV_DE_DSFinVKService_2022/service1.xsd @@ -0,0 +1,42 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index a115abff..f35ca2bf 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -363,6 +363,7 @@ + @@ -563,6 +564,7 @@ + @@ -602,6 +604,11 @@ True Reference.svcmap + + True + True + Reference.svcmap + True True @@ -861,6 +868,70 @@ Reference.svcmap + + Designer + + + Designer + + + Designer + + + + Designer + + + Designer + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + + + Reference.svcmap + MSDiscoCodeGenerator Reference.vb @@ -1177,6 +1248,7 @@ + @@ -1196,6 +1268,18 @@ + + + + + + + + + WCF Proxy Generator + Reference.vb + +