From ca741f8184b2d63778bfc83110416d2fea077664 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 2 Aug 2024 16:19:05 +0200 Subject: [PATCH] UTA, MDM, MSE, Datenarchiv --- UID/usrCntlDatenarchiv.vb | 17 + initATLASAufschubkonten/cUTA.vb | 167 ++++--- .../frmNachrichtenVerarbeitung_MDM_divers.vb | 26 +- .../frmStartOptions.Designer.vb | 419 ++++++++++++++---- initATLASAufschubkonten/frmStartOptions.vb | 339 +++++++++++++- 5 files changed, 775 insertions(+), 193 deletions(-) diff --git a/UID/usrCntlDatenarchiv.vb b/UID/usrCntlDatenarchiv.vb index ee17bec..aa1f480 100644 --- a/UID/usrCntlDatenarchiv.vb +++ b/UID/usrCntlDatenarchiv.vb @@ -76,6 +76,23 @@ Public Class usrCntlDatenarchiv VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + DatenarchivBind = New cEasyBinding(BIND_DB) + + + Dim sqlstr As String = "" + Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + + + DatenarchivBind.initBinding("SELECT " & TopMax & " [Param_name],[Param_value], [Param_system] FROM " & table & " WHERE 1 = 1 " & getDatenarchivwhere(), table) + + DataGridView.DataSource = DatenarchivBind.bindingdataTable + + Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "Param_system") + + For Each d As DataRow In distinctDT.Rows + If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0)) + Next + Me.usrCntlDatenarchiv_Load(sender, e) End Sub diff --git a/initATLASAufschubkonten/cUTA.vb b/initATLASAufschubkonten/cUTA.vb index fdc3486..db5e75b 100644 --- a/initATLASAufschubkonten/cUTA.vb +++ b/initATLASAufschubkonten/cUTA.vb @@ -22,7 +22,7 @@ Public Class cUTA 'Einträge in tblUTALeistungen machen, wenn Fakturierwarenart und Lieferland noch nicht in der Tabelle enthalten sind. Dim query = "INSERT INTO tblUTALeistungen (Fakturierwarenart, Lieferland, VERAG_OffertenNr, VERAG_LeistungsNr ) - Select Case tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr + Select tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr From tblUTAImport INNER Join tblUTAFakturierwarenarten On tblUTAImport.Fakturierwarenart = tblUTAFakturierwarenarten.Fakturierwarenart Group By tblUTAImport.Fakturierwarenart, tblUTAImport.Lieferland, tblUTAFakturierwarenarten.VERAG_OffertenNr, tblUTAFakturierwarenarten.VERAG_LeistungsNr HAVING((((SELECT tblUTALeistungen.Fakturierwarenart FROM tblUTALeistungen WHERE tblUTALeistungen.Fakturierwarenart=tblUTAImport.Fakturierwarenart And tblUTALeistungen.Lieferland=tblUTAImport.Lieferland)) Is Null))" @@ -35,8 +35,8 @@ Public Class cUTA Property Übertragungsnummer As Integer Property ErstellDatumUhrzeit As DateTime - Property Absender_ID As Integer - Property Empfänger_ID As Integer + Property Absender_ID As Object = Nothing + Property Empfänger_ID As Object = Nothing Property Filler_Feld_5 As Object = Nothing Property Abrechnungsnummer As Object = Nothing Property DTF_Format As Object = Nothing @@ -243,8 +243,8 @@ Public Class cUTA Property Steuerliches_Lieferland As String Property Steuerliche_Produktgruppe As String Property Leistungsort_verlagerbar As Char - Property archiviertDatum As Object - Property archiv As Boolean = False + Property abgerechnetDatum As Object + Property abgerechnet As Boolean = False Public hasEntry = False @@ -345,8 +345,8 @@ Public Class cUTA list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliches_Lieferland", Steuerliches_Lieferland)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Steuerliche_Produktgruppe", Steuerliche_Produktgruppe)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Leistungsort_verlagerbar", Leistungsort_verlagerbar)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnetDatum", abgerechnetDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnet", abgerechnet)) Return list End Function @@ -441,92 +441,92 @@ Public Class cUTA Property ErstellDatumUhrzeit As DateTime Property Übertragungsnummer As Integer Property Übertragungsposition As Integer - Property Abrechnungsnummer As Double + Property Abrechnungsnummer As Object Property Datum_für_Lieferungen_und_Leistungen_bis As DateTime Property Rechnungsempfänger_Kundennummer As Integer Property Abrechnungsdatum As DateTime Property Kundennummer As Integer - Property Kartennummer As String + Property Kartennummer As Object Property Belegdatum As DateTime - Property Akzeptanzstellennummer As Double - Property Standort_der_Akzeptanzstelle As String - Property Lieferland As String - Property Belegnummer_des_Lieferanten As String - Property Kilometerstand As Double - Property Fakturierwarenart As String - Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Char - Property Menge As Double - Property SB_BT As Char - Property Umsatzsteuerprozentsatz As Double - Property Lieferlandwährung_ISO As String - Property Einzelpreis_Netto_in_Lieferlandwährung As Double - Property Einzelpreis_Brutto_in_Lieferlandwährung As Double - Property ÜbertragEinzelpreis_Netto_in_Lieferlandwährungungsposition As Double - Property Betrag_Service_in_Lieferlandwährung As Double - Property Betrag_Nachlass_in_Lieferlandwährung As Double - Property Gesamtbetrag_Netto_in_Lieferlandwährung As Double - Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Double - Property Darstellwährung_ISO As String - Property Betrag_Service_in_Darstellwährung As Double - Property Betrag_Nachlass_in_Darstellwährung As Double - Property Gesamtbetrag_Netto_in_Darstellwährung As Double - Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Double - Property Gesamtbetrag_Brutto_in_Darstellwährung As Double - Property Prägetext_i_d_R_KFZ_Kennzeichen As String - Property Kunden_Kostenstelle_1 As String - Property Kartentyp As String - Property Filler_Feld_35 As Char - Property Filler_Feld_36 As String - Property KZ_Autobahn As Char - Property INFO_Feld As String - Property KFZ_Kennzeichen As String - Property Filler_Feld_40 As Char - Property Buchungsart As Char - Property Buchungsgrund As Char - Property Filler_Feld_43 As Char - Property Informationsbeleg As Char - Property Belegherkunft As Char - Property Filler_Feld_46 As String - Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double - Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Double + Property Akzeptanzstellennummer As Object + Property Standort_der_Akzeptanzstelle As Object + Property Lieferland As Object + Property Belegnummer_des_Lieferanten As Object + Property Kilometerstand As Object + Property Fakturierwarenart As Object + Property Vorzeichen_Statusfeld_für_alle_Beträge_und_Mengen As Object + Property Menge As Object + Property SB_BT As Object + Property Umsatzsteuerprozentsatz As Object + Property Lieferlandwährung_ISO As Object + Property Einzelpreis_Netto_in_Lieferlandwährung As Object + Property Einzelpreis_Brutto_in_Lieferlandwährung As Object + Property ÜbertragEinzelpreis_Netto_in_Lieferlandwährungungsposition As Object + Property Betrag_Service_in_Lieferlandwährung As Object + Property Betrag_Nachlass_in_Lieferlandwährung As Object + Property Gesamtbetrag_Netto_in_Lieferlandwährung As Object + Property Gesamtbetrag_Brutto_in_Lieferlandwährung As Object + Property Darstellwährung_ISO As Object + Property Betrag_Service_in_Darstellwährung As Object + Property Betrag_Nachlass_in_Darstellwährung As Object + Property Gesamtbetrag_Netto_in_Darstellwährung As Object + Property Gesamtbetrag_Umsatzsteuer_in_Darstellwährung As Object + Property Gesamtbetrag_Brutto_in_Darstellwährung As Object + Property Prägetext_i_d_R_KFZ_Kennzeichen As Object + Property Kunden_Kostenstelle_1 As Object + Property Kartentyp As Object + Property Filler_Feld_35 As Object + Property Filler_Feld_36 As Object + Property KZ_Autobahn As Object + Property INFO_Feld As Object + Property KFZ_Kennzeichen As Object + Property Filler_Feld_40 As Object + Property Buchungsart As Object + Property Buchungsgrund As Object + Property Filler_Feld_43 As Object + Property Informationsbeleg As Object + Property Belegherkunft As Object + Property Filler_Feld_46 As Object + Property Einzelpreis_Brutto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object + Property Einzelpreis_Netto_in_Lieferlandwährung_mit_4_Nachkommastellen As Object Property Rechnungsdatum As DateTime - Property Umsatzsteuerprozentsatz_informativ As Double - Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Double - Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Double - Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Double + Property Umsatzsteuerprozentsatz_informativ As Object + Property Betrag_Nachlass_in_Lieferlandwährung_Umsatzsteuer_informativ As Object + Property Betrag_Service_in_Lieferlandwährung_Umsatzsteuer_informativ As Object + Property Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ As Object Property Fälligkeitsdatum As DateTime Property Zahlungsziel_in_Tagen As Integer - Property Zahlungsart As String - Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As String + Property Zahlungsart As Object + Property TC_Rechnungsnummer_gegenüber_dem_Nutzer As Object Property TC_Rechnungsdatum As DateTime - Property Zahlungszielgruppe As String - Property Kunden_Kostenstelle_2 As String - Property Lieferzeit As String - Property Fremdkartennummer As String - Property OnBoardUnitID As String - Property KFZ_Kennzeichen_komprimiert As String - Property Kartenkategorie As String - Property Rechnungsnummer_pro_Lieferland As Double - Property Autobahnauffahrt As String - Property Autobahnausfahrt As String + Property Zahlungszielgruppe As Object + Property Kunden_Kostenstelle_2 As Object + Property Lieferzeit As Object + Property Fremdkartennummer As Object + Property OnBoardUnitID As Object + Property KFZ_Kennzeichen_komprimiert As Object + Property Kartenkategorie As Object + Property Rechnungsnummer_pro_Lieferland As Object + Property Autobahnauffahrt As Object + Property Autobahnausfahrt As Object Property Rabattschlüssel_der_französischen_Autobahngesellschaften As Integer - Property Nummer_Belastungsanzeige As Double - Property Betreuungsstelle As String - Property Filler_Feld_72 As String - Property Akzeptanz_Medium As String - Property Steuerkategorie As String - Property UTA_Beleg_ID As String - Property UTA_Normalbeleg_ID As String + Property Nummer_Belastungsanzeige As Object + Property Betreuungsstelle As Object + Property Filler_Feld_72 As Object + Property Akzeptanz_Medium As Object + Property Steuerkategorie As Object + Property UTA_Beleg_ID As Object + Property UTA_Normalbeleg_ID As Object Property Gebühren_Bescheinigung_von As DateTime Property Gebühren_Bescheinigung_bis As DateTime - Property Herausgeber_Nutzer_Nummer As String - Property Maßeinheit As String - Property Land_der_Akzeptanzstelle As String - Property Postleitzahl_der_Akzeptanzstelle As String - Property Steuerliches_Lieferland As String - Property Steuerliche_Produktgruppe As String - Property Leistungsort_verlagerbar As Char - Property UStVAn_ID As String + Property Herausgeber_Nutzer_Nummer As Object + Property Maßeinheit As Object + Property Land_der_Akzeptanzstelle As Object + Property Postleitzahl_der_Akzeptanzstelle As Object + Property Steuerliches_Lieferland As Object + Property Steuerliche_Produktgruppe As Object + Property Leistungsort_verlagerbar As Object + Property UStVAn_ID As Object Public hasEntry = False @@ -726,7 +726,7 @@ Public Class cUTA Property ErstellDatumUhrzeit As DateTime Property Übertragungsnummer As Integer Property Anzahl_Sätze As Integer - Property Checksumme As Double + Property Checksumme As Object = Nothing Public hasEntry = False @@ -1099,7 +1099,6 @@ Public Class cUTA .SAVE() - Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID) clfArchiv.Übertragungsnummer = .Übertragungsnummer clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit @@ -1196,7 +1195,7 @@ Public Class cUTA If curChecksumme < 0 Then curChecksumme = 0 - curChecksumme End If - If Trim(Mid(strZeile, 16, 18) / 100) <> curChecksumme Then + If Trim(Mid(strZeile, 16, 18) / 100) <> Math.Round(curChecksumme, 2) Then MsgBox("Checksumme: " & Trim(Mid(strZeile, 16, 18) / 100) & vbCrLf & "Prüfsumme: " & curChecksumme & vbCrLf & "Datei kann wegen Prüfsummenfehler nicht verarbeitet werden") 'Return False End If diff --git a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb index ae5c950..623790c 100644 --- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb +++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb @@ -13,6 +13,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim allowClose = False Dim deleteFilesAfterDownload = False + Dim renameFilesAfterDownload = False Dim rmc As New cRMC Dim uta As New cUTA Dim programName As String @@ -27,13 +28,14 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub - Sub New(programName As String, allowClose As Boolean, deleteFilesAfterDownload As Boolean) 'autostart + Sub New(programName As String, allowClose As Boolean, deleteFilesAfterDownload As Boolean, renameFilesAfterDownload As Boolean) 'autostart ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.programName = programName Me.allowClose = allowClose Me.deleteFilesAfterDownload = deleteFilesAfterDownload + Me.renameFilesAfterDownload = renameFilesAfterDownload ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub @@ -100,7 +102,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If programName.Contains("RMC") Then DownloadFtpDirectory(rmc.API_STRING & "/", New NetworkCredential(rmc.API.Rows(0).Item("api_user").ToString, rmc.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload) ElseIf programName.Contains("UTA") Then - DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & Now.Year) + DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, deleteFilesAfterDownload, "/TRX/" & Now.Year, renameFilesAfterDownload) ElseIf programName.Contains("IDS") Then 'DownloadSFtpDirectory(uta.API_STRING, New NetworkCredential(uta.API.Rows(0).Item("api_user").ToString, uta.API.Rows(0).Item("api_password").ToString), "", cnt, False, "/TRX/" & Now.Year) End If @@ -212,7 +214,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers 'End If Next End Sub - Function DownloadSFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean, Path As String) As Integer + Function DownloadSFtpDirectory(url As String, credentials As NetworkCredential, localPath As String, ByRef cnt As Integer, deleteAfterDownload As Boolean, Path As String, renameAfterDownload As Boolean) As Integer Dim ConnectionInfo As New ConnectionInfo(url, "22", credentials.UserName, New PasswordAuthenticationMethod(credentials.UserName, credentials.Password)) @@ -224,7 +226,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers Dim targetFile As SftpFile For Each file As SftpFile In files - If file.IsRegularFile AndAlso file.Name.ToLower.Contains(".uta") AndAlso file.Length > 0 Then + If file.IsRegularFile AndAlso file.Name.ToLower.EndsWith(".uta") AndAlso file.Length > 0 AndAlso IIf(renameAfterDownload, Not file.Name.ToLower.StartsWith("_"), True) Then Dim remoteFileName = "/" & file.Name Dim filePath = uta.VERARBEITUNG_PFAD & If(IO.File.Exists(uta.VERARBEITUNG_PFAD & file.Name), Name.Replace(".UTA", "_") & Now.ToString("yyMMdd_HHmmss.fff") & ".UTA", file.Name) @@ -235,6 +237,13 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers client.DownloadFile(Path + remoteFileName, downloadedFile) If IO.File.Exists(filePath) AndAlso deleteAfterDownload Then client.DeleteFile(Path + remoteFileName) 'Datei nach erfolgreichem Herunterladen vom Server löschen + + If IO.File.Exists(filePath) AndAlso Not deleteAfterDownload And renameAfterDownload Then + + Dim remoteFileNameRenamed = "/_" & file.Name + client.RenameFile(Path + remoteFileName, Path + remoteFileNameRenamed) 'verarbeitete Datei kennzeichnen mit beginnenden "_" + End If + downloadedFile.Dispose() @@ -333,6 +342,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers 'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren! 'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen! + If fi.Name.ToString.StartsWith("invoice_") Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "RMC", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d)) @@ -381,6 +391,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers If Not found Then If readUTA(d) <> "" Then found = True + End If If found Then cntDatenEingelesen += 1 @@ -574,7 +585,12 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers RMC.rmc_betragNetto = SQL.isleernothing(currentRow(9)) RMC.rmc_betragMWST = SQL.isleernothing(currentRow(10)) RMC.rmc_betragBrutto = SQL.isleernothing(currentRow(11)) - RMC.rmc_waehrung = SQL.isleernothing(currentRow(12)) + + Dim waherung = SQL.isleernothing(currentRow(12)) + If waherung IsNot Nothing Then + RMC.rmc_waehrung = IIf(waherung.ToString.Length > 3, waherung.ToString.Substring(0, 3), waherung) + End If + RMC.rmc_euroBrutto = SQL.isleernothing(currentRow(13)) RMC.rmc_pdfFileName = "invoice_" & RMC.rmc_kdNr & "_" & filenr & "_" & RMC.rmc_sammelReNr & IIf(fileType = "netto", "_nto_e_verag.pdf", "_bto_e_verag.pdf") diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index cd4962e..43457be 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -169,6 +169,26 @@ Partial Class frmStartOptions Me.LinkLabel30 = New System.Windows.Forms.LinkLabel() Me.Label11 = New System.Windows.Forms.Label() Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.LinkLabel61 = New System.Windows.Forms.LinkLabel() + Me.Label40 = New System.Windows.Forms.Label() + Me.txtTransactionID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.LinkLabel59 = New System.Windows.Forms.LinkLabel() + Me.Label39 = New System.Windows.Forms.Label() + Me.Label38 = New System.Windows.Forms.Label() + Me.Label37 = New System.Windows.Forms.Label() + Me.LinkLabel58 = New System.Windows.Forms.LinkLabel() + Me.txtBatchNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.LinkLabel57 = New System.Windows.Forms.LinkLabel() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.LinkLabel56 = New System.Windows.Forms.LinkLabel() + Me.datVon = New System.Windows.Forms.DateTimePicker() + Me.LinkLabel55 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel54 = New System.Windows.Forms.LinkLabel() + Me.TextBox2 = New System.Windows.Forms.TextBox() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.cbxDateienlöschenUTA = New System.Windows.Forms.CheckBox() + Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() Me.LinkLabel53 = New System.Windows.Forms.LinkLabel() Me.Label36 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() @@ -176,7 +196,6 @@ Partial Class frmStartOptions Me.Label33 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() - Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.LinkLabel52 = New System.Windows.Forms.LinkLabel() Me.Label30 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() @@ -196,6 +215,7 @@ Partial Class frmStartOptions Me.LinkLabel43 = New System.Windows.Forms.LinkLabel() Me.LinkLabel44 = New System.Windows.Forms.LinkLabel() Me.Label24 = New System.Windows.Forms.Label() + Me.cbxRMC = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtTBLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtTWLNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox() @@ -223,10 +243,6 @@ Partial Class frmStartOptions Me.lblRoutineManager = New System.Windows.Forms.Label() Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button21 = New System.Windows.Forms.Button() - Me.cbxDateienlöschenRMC = New System.Windows.Forms.CheckBox() - Me.cbxDateienlöschenUTA = New System.Windows.Forms.CheckBox() - Me.TextBox1 = New System.Windows.Forms.TextBox() - Me.TextBox2 = New System.Windows.Forms.TextBox() Me.pnl.SuspendLayout() CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit() @@ -2129,6 +2145,22 @@ Partial Class frmStartOptions ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.LinkLabel61) + Me.TabPage4.Controls.Add(Me.Label40) + Me.TabPage4.Controls.Add(Me.txtTransactionID) + Me.TabPage4.Controls.Add(Me.LinkLabel59) + Me.TabPage4.Controls.Add(Me.Label39) + Me.TabPage4.Controls.Add(Me.Label38) + Me.TabPage4.Controls.Add(Me.Label37) + Me.TabPage4.Controls.Add(Me.LinkLabel58) + Me.TabPage4.Controls.Add(Me.txtBatchNr) + Me.TabPage4.Controls.Add(Me.LinkLabel57) + Me.TabPage4.Controls.Add(Me.DateTimePicker2) + Me.TabPage4.Controls.Add(Me.DateTimePicker1) + Me.TabPage4.Controls.Add(Me.LinkLabel56) + Me.TabPage4.Controls.Add(Me.datVon) + Me.TabPage4.Controls.Add(Me.LinkLabel55) + Me.TabPage4.Controls.Add(Me.LinkLabel54) Me.TabPage4.Controls.Add(Me.TextBox2) Me.TabPage4.Controls.Add(Me.TextBox1) Me.TabPage4.Controls.Add(Me.cbxDateienlöschenUTA) @@ -2140,7 +2172,6 @@ Partial Class frmStartOptions Me.TabPage4.Controls.Add(Me.Label33) Me.TabPage4.Controls.Add(Me.Label32) Me.TabPage4.Controls.Add(Me.Label31) - Me.TabPage4.Controls.Add(Me.cbxRMC) Me.TabPage4.Controls.Add(Me.LinkLabel52) Me.TabPage4.Controls.Add(Me.Label30) Me.TabPage4.Controls.Add(Me.Label29) @@ -2160,6 +2191,7 @@ Partial Class frmStartOptions Me.TabPage4.Controls.Add(Me.LinkLabel43) Me.TabPage4.Controls.Add(Me.LinkLabel44) Me.TabPage4.Controls.Add(Me.Label24) + Me.TabPage4.Controls.Add(Me.cbxRMC) Me.TabPage4.Controls.Add(Me.txtTBLNr) Me.TabPage4.Controls.Add(Me.txtTWLNr) Me.TabPage4.Location = New System.Drawing.Point(4, 22) @@ -2169,11 +2201,250 @@ Partial Class frmStartOptions Me.TabPage4.Text = "VERAG 360" Me.TabPage4.UseVisualStyleBackColor = True ' + 'LinkLabel61 + ' + Me.LinkLabel61.AutoSize = True + Me.LinkLabel61.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel61.Location = New System.Drawing.Point(658, 272) + Me.LinkLabel61.Name = "LinkLabel61" + Me.LinkLabel61.Size = New System.Drawing.Size(158, 13) + Me.LinkLabel61.TabIndex = 118 + Me.LinkLabel61.TabStop = True + Me.LinkLabel61.Text = "fehlende Transaktionen abrufen" + ' + 'Label40 + ' + Me.Label40.AutoSize = True + Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label40.Location = New System.Drawing.Point(658, 155) + Me.Label40.Name = "Label40" + Me.Label40.Size = New System.Drawing.Size(20, 13) + Me.Label40.TabIndex = 116 + Me.Label40.Text = "ID" + ' + 'txtTransactionID + ' + Me.txtTransactionID._DateTimeOnly = False + Me.txtTransactionID._numbersOnly = True + Me.txtTransactionID._numbersOnlyKommastellen = "" + Me.txtTransactionID._numbersOnlyTrennzeichen = False + Me.txtTransactionID._Prozent = False + Me.txtTransactionID._ShortDateNew = False + Me.txtTransactionID._ShortDateOnly = False + Me.txtTransactionID._TimeOnly = False + Me.txtTransactionID._TimeOnly_Seconds = False + Me.txtTransactionID._value = "" + Me.txtTransactionID._Waehrung = False + Me.txtTransactionID._WaehrungZeichen = True + Me.txtTransactionID.BackColor = System.Drawing.SystemColors.Window + Me.txtTransactionID.ForeColor = System.Drawing.Color.Black + Me.txtTransactionID.Location = New System.Drawing.Point(691, 152) + Me.txtTransactionID.MaxLength = 10 + Me.txtTransactionID.MaxLineLength = -1 + Me.txtTransactionID.MaxLines_Warning = "" + Me.txtTransactionID.MaxLines_Warning_Label = Nothing + Me.txtTransactionID.Name = "txtTransactionID" + Me.txtTransactionID.Size = New System.Drawing.Size(85, 20) + Me.txtTransactionID.TabIndex = 115 + Me.txtTransactionID.Text = "1001723285" + Me.txtTransactionID.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'LinkLabel59 + ' + Me.LinkLabel59.AutoSize = True + Me.LinkLabel59.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel59.Location = New System.Drawing.Point(670, 175) + Me.LinkLabel59.Name = "LinkLabel59" + Me.LinkLabel59.Size = New System.Drawing.Size(149, 13) + Me.LinkLabel59.TabIndex = 114 + Me.LinkLabel59.TabStop = True + Me.LinkLabel59.Text = "Transaktionen von ID abrufen" + ' + 'Label39 + ' + Me.Label39.AutoSize = True + Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label39.Location = New System.Drawing.Point(657, 218) + Me.Label39.Name = "Label39" + Me.Label39.Size = New System.Drawing.Size(28, 13) + Me.Label39.TabIndex = 113 + Me.Label39.Text = "von" + ' + 'Label38 + ' + Me.Label38.AutoSize = True + Me.Label38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label38.Location = New System.Drawing.Point(649, 336) + Me.Label38.Name = "Label38" + Me.Label38.Size = New System.Drawing.Size(23, 13) + Me.Label38.TabIndex = 112 + Me.Label38.Text = "bis" + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.Location = New System.Drawing.Point(649, 317) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(28, 13) + Me.Label37.TabIndex = 111 + Me.Label37.Text = "von" + ' + 'LinkLabel58 + ' + Me.LinkLabel58.AutoSize = True + Me.LinkLabel58.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel58.Location = New System.Drawing.Point(663, 76) + Me.LinkLabel58.Name = "LinkLabel58" + Me.LinkLabel58.Size = New System.Drawing.Size(126, 13) + Me.LinkLabel58.TabIndex = 110 + Me.LinkLabel58.TabStop = True + Me.LinkLabel58.Text = "Neueste Kunden abrufen" + ' + 'txtBatchNr + ' + Me.txtBatchNr._DateTimeOnly = False + Me.txtBatchNr._numbersOnly = True + Me.txtBatchNr._numbersOnlyKommastellen = "" + Me.txtBatchNr._numbersOnlyTrennzeichen = False + Me.txtBatchNr._Prozent = False + Me.txtBatchNr._ShortDateNew = False + Me.txtBatchNr._ShortDateOnly = False + Me.txtBatchNr._TimeOnly = False + Me.txtBatchNr._TimeOnly_Seconds = False + Me.txtBatchNr._value = "" + Me.txtBatchNr._Waehrung = False + Me.txtBatchNr._WaehrungZeichen = True + Me.txtBatchNr.BackColor = System.Drawing.SystemColors.Window + Me.txtBatchNr.ForeColor = System.Drawing.Color.Black + Me.txtBatchNr.Location = New System.Drawing.Point(666, 102) + Me.txtBatchNr.MaxLength = 3 + Me.txtBatchNr.MaxLineLength = -1 + Me.txtBatchNr.MaxLines_Warning = "" + Me.txtBatchNr.MaxLines_Warning_Label = Nothing + Me.txtBatchNr.Name = "txtBatchNr" + Me.txtBatchNr.Size = New System.Drawing.Size(30, 20) + Me.txtBatchNr.TabIndex = 109 + Me.txtBatchNr.Text = "0" + Me.txtBatchNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'LinkLabel57 + ' + Me.LinkLabel57.AutoSize = True + Me.LinkLabel57.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel57.Location = New System.Drawing.Point(663, 125) + Me.LinkLabel57.Name = "LinkLabel57" + Me.LinkLabel57.Size = New System.Drawing.Size(166, 13) + Me.LinkLabel57.TabIndex = 108 + Me.LinkLabel57.TabStop = True + Me.LinkLabel57.Text = "Transaktionen von Batch abrufen" + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DateTimePicker2.Location = New System.Drawing.Point(684, 330) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.Size = New System.Drawing.Size(85, 20) + Me.DateTimePicker2.TabIndex = 107 + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.DateTimePicker1.Location = New System.Drawing.Point(684, 311) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.Size = New System.Drawing.Size(85, 20) + Me.DateTimePicker1.TabIndex = 106 + ' + 'LinkLabel56 + ' + Me.LinkLabel56.AutoSize = True + Me.LinkLabel56.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel56.Location = New System.Drawing.Point(649, 353) + Me.LinkLabel56.Name = "LinkLabel56" + Me.LinkLabel56.Size = New System.Drawing.Size(114, 13) + Me.LinkLabel56.TabIndex = 105 + Me.LinkLabel56.TabStop = True + Me.LinkLabel56.Text = "Transaktionen abrufen" + ' + 'datVon + ' + Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.datVon.Location = New System.Drawing.Point(691, 218) + Me.datVon.Name = "datVon" + Me.datVon.Size = New System.Drawing.Size(85, 20) + Me.datVon.TabIndex = 104 + ' + 'LinkLabel55 + ' + Me.LinkLabel55.AutoSize = True + Me.LinkLabel55.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel55.Location = New System.Drawing.Point(658, 246) + Me.LinkLabel55.Name = "LinkLabel55" + Me.LinkLabel55.Size = New System.Drawing.Size(108, 13) + Me.LinkLabel55.TabIndex = 103 + Me.LinkLabel55.TabStop = True + Me.LinkLabel55.Text = "Rechnungen abrufen" + ' + 'LinkLabel54 + ' + Me.LinkLabel54.AutoSize = True + Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel54.Location = New System.Drawing.Point(663, 59) + Me.LinkLabel54.Name = "LinkLabel54" + Me.LinkLabel54.Size = New System.Drawing.Size(157, 13) + Me.LinkLabel54.TabIndex = 102 + Me.LinkLabel54.TabStop = True + Me.LinkLabel54.Text = "Neueste Transaktionen abrufen" + ' + 'TextBox2 + ' + Me.TextBox2.BackColor = System.Drawing.SystemColors.Menu + Me.TextBox2.Location = New System.Drawing.Point(263, 81) + Me.TextBox2.Multiline = True + Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Size = New System.Drawing.Size(72, 55) + Me.TextBox2.TabIndex = 101 + Me.TextBox2.Text = "Dateien nach Import von FTP löschen" + ' + 'TextBox1 + ' + Me.TextBox1.BackColor = System.Drawing.SystemColors.Menu + Me.TextBox1.Location = New System.Drawing.Point(425, 51) + Me.TextBox1.Multiline = True + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Size = New System.Drawing.Size(89, 51) + Me.TextBox1.TabIndex = 100 + Me.TextBox1.Text = "Dateien nach Import von FTP umbenennen" + ' + 'cbxDateienlöschenUTA + ' + Me.cbxDateienlöschenUTA.AutoSize = True + Me.cbxDateienlöschenUTA.Checked = True + Me.cbxDateienlöschenUTA.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxDateienlöschenUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxDateienlöschenUTA.Location = New System.Drawing.Point(404, 65) + Me.cbxDateienlöschenUTA.Name = "cbxDateienlöschenUTA" + Me.cbxDateienlöschenUTA.Size = New System.Drawing.Size(15, 14) + Me.cbxDateienlöschenUTA.TabIndex = 99 + Me.cbxDateienlöschenUTA.UseVisualStyleBackColor = True + ' + 'cbxDateienlöschenRMC + ' + Me.cbxDateienlöschenRMC.AutoSize = True + Me.cbxDateienlöschenRMC.Checked = True + Me.cbxDateienlöschenRMC.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxDateienlöschenRMC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxDateienlöschenRMC.Location = New System.Drawing.Point(241, 105) + Me.cbxDateienlöschenRMC.Name = "cbxDateienlöschenRMC" + Me.cbxDateienlöschenRMC.Size = New System.Drawing.Size(15, 14) + Me.cbxDateienlöschenRMC.TabIndex = 98 + Me.cbxDateienlöschenRMC.UseVisualStyleBackColor = True + ' 'LinkLabel53 ' Me.LinkLabel53.AutoSize = True Me.LinkLabel53.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel53.Location = New System.Drawing.Point(432, 161) + Me.LinkLabel53.Location = New System.Drawing.Point(416, 109) Me.LinkLabel53.Name = "LinkLabel53" Me.LinkLabel53.Size = New System.Drawing.Size(82, 13) Me.LinkLabel53.TabIndex = 97 @@ -2184,7 +2455,7 @@ Partial Class frmStartOptions ' Me.Label36.AutoSize = True Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label36.Location = New System.Drawing.Point(709, 87) + Me.Label36.Location = New System.Drawing.Point(663, 35) Me.Label36.Name = "Label36" Me.Label36.Size = New System.Drawing.Size(42, 13) Me.Label36.TabIndex = 96 @@ -2194,7 +2465,7 @@ Partial Class frmStartOptions ' Me.Label35.AutoSize = True Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label35.Location = New System.Drawing.Point(564, 87) + Me.Label35.Location = New System.Drawing.Point(549, 35) Me.Label35.Name = "Label35" Me.Label35.Size = New System.Drawing.Size(42, 13) Me.Label35.TabIndex = 95 @@ -2204,7 +2475,7 @@ Partial Class frmStartOptions ' Me.Label34.AutoSize = True Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label34.Location = New System.Drawing.Point(417, 87) + Me.Label34.Location = New System.Drawing.Point(401, 35) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(42, 13) Me.Label34.TabIndex = 94 @@ -2215,7 +2486,7 @@ Partial Class frmStartOptions Me.Label33.AutoSize = True Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label33.ForeColor = System.Drawing.Color.Red - Me.Label33.Location = New System.Drawing.Point(709, 61) + Me.Label33.Location = New System.Drawing.Point(663, 9) Me.Label33.Name = "Label33" Me.Label33.Size = New System.Drawing.Size(39, 16) Me.Label33.TabIndex = 93 @@ -2226,7 +2497,7 @@ Partial Class frmStartOptions Me.Label32.AutoSize = True Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label32.ForeColor = System.Drawing.Color.Red - Me.Label32.Location = New System.Drawing.Point(564, 61) + Me.Label32.Location = New System.Drawing.Point(549, 9) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(32, 16) Me.Label32.TabIndex = 92 @@ -2237,28 +2508,17 @@ Partial Class frmStartOptions Me.Label31.AutoSize = True Me.Label31.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label31.ForeColor = System.Drawing.Color.Red - Me.Label31.Location = New System.Drawing.Point(417, 61) + Me.Label31.Location = New System.Drawing.Point(401, 9) Me.Label31.Name = "Label31" Me.Label31.Size = New System.Drawing.Size(38, 16) Me.Label31.TabIndex = 91 Me.Label31.Text = "UTA" ' - 'cbxRMC - ' - Me.cbxRMC._allowedValuesFreiText = Nothing - Me.cbxRMC._allowFreiText = False - Me.cbxRMC._value = "" - Me.cbxRMC.FormattingEnabled = True - Me.cbxRMC.Location = New System.Drawing.Point(241, 177) - Me.cbxRMC.Name = "cbxRMC" - Me.cbxRMC.Size = New System.Drawing.Size(80, 21) - Me.cbxRMC.TabIndex = 90 - ' 'LinkLabel52 ' Me.LinkLabel52.AutoSize = True Me.LinkLabel52.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel52.Location = New System.Drawing.Point(238, 161) + Me.LinkLabel52.Location = New System.Drawing.Point(238, 152) Me.LinkLabel52.Name = "LinkLabel52" Me.LinkLabel52.Size = New System.Drawing.Size(109, 13) Me.LinkLabel52.TabIndex = 84 @@ -2269,7 +2529,7 @@ Partial Class frmStartOptions ' Me.Label30.AutoSize = True Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label30.Location = New System.Drawing.Point(238, 87) + Me.Label30.Location = New System.Drawing.Point(238, 65) Me.Label30.Name = "Label30" Me.Label30.Size = New System.Drawing.Size(42, 13) Me.Label30.TabIndex = 83 @@ -2280,7 +2540,7 @@ Partial Class frmStartOptions Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label29.ForeColor = System.Drawing.Color.Red - Me.Label29.Location = New System.Drawing.Point(238, 61) + Me.Label29.Location = New System.Drawing.Point(238, 39) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(40, 16) Me.Label29.TabIndex = 82 @@ -2291,7 +2551,7 @@ Partial Class frmStartOptions Me.Label28.AutoSize = True Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label28.ForeColor = System.Drawing.Color.Red - Me.Label28.Location = New System.Drawing.Point(18, 61) + Me.Label28.Location = New System.Drawing.Point(18, 39) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(72, 16) Me.Label28.TabIndex = 81 @@ -2301,7 +2561,7 @@ Partial Class frmStartOptions ' Me.LinkLabel49.AutoSize = True Me.LinkLabel49.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel49.Location = New System.Drawing.Point(16, 294) + Me.LinkLabel49.Location = New System.Drawing.Point(16, 272) Me.LinkLabel49.Name = "LinkLabel49" Me.LinkLabel49.Size = New System.Drawing.Size(136, 13) Me.LinkLabel49.TabIndex = 80 @@ -2311,7 +2571,7 @@ Partial Class frmStartOptions 'Label25 ' Me.Label25.AutoSize = True - Me.Label25.Location = New System.Drawing.Point(165, 224) + Me.Label25.Location = New System.Drawing.Point(165, 202) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(32, 13) Me.Label25.TabIndex = 78 @@ -2323,7 +2583,7 @@ Partial Class frmStartOptions Me.cbxTestFTP.Checked = True Me.cbxTestFTP.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxTestFTP.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxTestFTP.Location = New System.Drawing.Point(19, 31) + Me.cbxTestFTP.Location = New System.Drawing.Point(145, 10) Me.cbxTestFTP.Name = "cbxTestFTP" Me.cbxTestFTP.Size = New System.Drawing.Size(123, 17) Me.cbxTestFTP.TabIndex = 77 @@ -2347,7 +2607,7 @@ Partial Class frmStartOptions ' Me.PictureBox21.BackgroundImage = CType(resources.GetObject("PictureBox21.BackgroundImage"), System.Drawing.Image) Me.PictureBox21.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox21.Location = New System.Drawing.Point(98, 161) + Me.PictureBox21.Location = New System.Drawing.Point(98, 139) Me.PictureBox21.Name = "PictureBox21" Me.PictureBox21.Size = New System.Drawing.Size(18, 18) Me.PictureBox21.TabIndex = 40 @@ -2358,7 +2618,7 @@ Partial Class frmStartOptions ' Me.LinkLabel47.AutoSize = True Me.LinkLabel47.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel47.Location = New System.Drawing.Point(16, 161) + Me.LinkLabel47.Location = New System.Drawing.Point(16, 139) Me.LinkLabel47.Name = "LinkLabel47" Me.LinkLabel47.Size = New System.Drawing.Size(84, 13) Me.LinkLabel47.TabIndex = 39 @@ -2369,7 +2629,7 @@ Partial Class frmStartOptions ' Me.LinkLabel46.AutoSize = True Me.LinkLabel46.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel46.Location = New System.Drawing.Point(16, 182) + Me.LinkLabel46.Location = New System.Drawing.Point(16, 160) Me.LinkLabel46.Name = "LinkLabel46" Me.LinkLabel46.Size = New System.Drawing.Size(120, 13) Me.LinkLabel46.TabIndex = 38 @@ -2380,7 +2640,7 @@ Partial Class frmStartOptions ' Me.PictureBox19.BackgroundImage = CType(resources.GetObject("PictureBox19.BackgroundImage"), System.Drawing.Image) Me.PictureBox19.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox19.Location = New System.Drawing.Point(118, 268) + Me.PictureBox19.Location = New System.Drawing.Point(118, 246) Me.PictureBox19.Name = "PictureBox19" Me.PictureBox19.Size = New System.Drawing.Size(18, 18) Me.PictureBox19.TabIndex = 37 @@ -2391,7 +2651,7 @@ Partial Class frmStartOptions ' Me.PictureBox18.BackgroundImage = CType(resources.GetObject("PictureBox18.BackgroundImage"), System.Drawing.Image) Me.PictureBox18.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox18.Location = New System.Drawing.Point(118, 238) + Me.PictureBox18.Location = New System.Drawing.Point(118, 216) Me.PictureBox18.Name = "PictureBox18" Me.PictureBox18.Size = New System.Drawing.Size(18, 18) Me.PictureBox18.TabIndex = 36 @@ -2402,7 +2662,7 @@ Partial Class frmStartOptions ' Me.LinkLabel41.AutoSize = True Me.LinkLabel41.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel41.Location = New System.Drawing.Point(16, 268) + Me.LinkLabel41.Location = New System.Drawing.Point(16, 246) Me.LinkLabel41.Name = "LinkLabel41" Me.LinkLabel41.Size = New System.Drawing.Size(94, 13) Me.LinkLabel41.TabIndex = 35 @@ -2413,7 +2673,7 @@ Partial Class frmStartOptions ' Me.LinkLabel42.AutoSize = True Me.LinkLabel42.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel42.Location = New System.Drawing.Point(16, 243) + Me.LinkLabel42.Location = New System.Drawing.Point(16, 221) Me.LinkLabel42.Name = "LinkLabel42" Me.LinkLabel42.Size = New System.Drawing.Size(99, 13) Me.LinkLabel42.TabIndex = 34 @@ -2423,7 +2683,7 @@ Partial Class frmStartOptions 'Label23 ' Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(16, 216) + Me.Label23.Location = New System.Drawing.Point(16, 194) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(111, 19) Me.Label23.TabIndex = 33 @@ -2433,7 +2693,7 @@ Partial Class frmStartOptions ' Me.LinkLabel43.AutoSize = True Me.LinkLabel43.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel43.Location = New System.Drawing.Point(16, 111) + Me.LinkLabel43.Location = New System.Drawing.Point(16, 89) Me.LinkLabel43.Name = "LinkLabel43" Me.LinkLabel43.Size = New System.Drawing.Size(114, 13) Me.LinkLabel43.TabIndex = 32 @@ -2444,7 +2704,7 @@ Partial Class frmStartOptions ' Me.LinkLabel44.AutoSize = True Me.LinkLabel44.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel44.Location = New System.Drawing.Point(16, 136) + Me.LinkLabel44.Location = New System.Drawing.Point(16, 114) Me.LinkLabel44.Name = "LinkLabel44" Me.LinkLabel44.Size = New System.Drawing.Size(138, 13) Me.LinkLabel44.TabIndex = 31 @@ -2455,12 +2715,23 @@ Partial Class frmStartOptions ' Me.Label24.AutoSize = True Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label24.Location = New System.Drawing.Point(16, 87) + Me.Label24.Location = New System.Drawing.Point(16, 65) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(42, 13) Me.Label24.TabIndex = 30 Me.Label24.Text = "Import" ' + 'cbxRMC + ' + Me.cbxRMC._allowedValuesFreiText = Nothing + Me.cbxRMC._allowFreiText = False + Me.cbxRMC._value = "" + Me.cbxRMC.FormattingEnabled = True + Me.cbxRMC.Location = New System.Drawing.Point(241, 168) + Me.cbxRMC.Name = "cbxRMC" + Me.cbxRMC.Size = New System.Drawing.Size(80, 21) + Me.cbxRMC.TabIndex = 90 + ' 'txtTBLNr ' Me.txtTBLNr._DateTimeOnly = False @@ -2476,7 +2747,7 @@ Partial Class frmStartOptions Me.txtTBLNr._Waehrung = False Me.txtTBLNr._WaehrungZeichen = True Me.txtTBLNr.ForeColor = System.Drawing.Color.Red - Me.txtTBLNr.Location = New System.Drawing.Point(165, 268) + Me.txtTBLNr.Location = New System.Drawing.Point(165, 246) Me.txtTBLNr.MaxLineLength = -1 Me.txtTBLNr.MaxLines_Warning = "" Me.txtTBLNr.MaxLines_Warning_Label = Nothing @@ -2500,7 +2771,7 @@ Partial Class frmStartOptions Me.txtTWLNr._Waehrung = False Me.txtTWLNr._WaehrungZeichen = True Me.txtTWLNr.ForeColor = System.Drawing.Color.Red - Me.txtTWLNr.Location = New System.Drawing.Point(165, 240) + Me.txtTWLNr.Location = New System.Drawing.Point(165, 218) Me.txtTWLNr.MaxLineLength = -1 Me.txtTWLNr.MaxLines_Warning = "" Me.txtTWLNr.MaxLines_Warning_Label = Nothing @@ -2815,50 +3086,6 @@ Partial Class frmStartOptions Me.Button21.Text = "AAS Sendung 24h" Me.Button21.UseVisualStyleBackColor = True ' - 'cbxDateienlöschenRMC - ' - Me.cbxDateienlöschenRMC.AutoSize = True - Me.cbxDateienlöschenRMC.Checked = True - Me.cbxDateienlöschenRMC.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxDateienlöschenRMC.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxDateienlöschenRMC.Location = New System.Drawing.Point(241, 127) - Me.cbxDateienlöschenRMC.Name = "cbxDateienlöschenRMC" - Me.cbxDateienlöschenRMC.Size = New System.Drawing.Size(15, 14) - Me.cbxDateienlöschenRMC.TabIndex = 98 - Me.cbxDateienlöschenRMC.UseVisualStyleBackColor = True - ' - 'cbxDateienlöschenUTA - ' - Me.cbxDateienlöschenUTA.AutoSize = True - Me.cbxDateienlöschenUTA.Checked = True - Me.cbxDateienlöschenUTA.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxDateienlöschenUTA.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxDateienlöschenUTA.Location = New System.Drawing.Point(420, 127) - Me.cbxDateienlöschenUTA.Name = "cbxDateienlöschenUTA" - Me.cbxDateienlöschenUTA.Size = New System.Drawing.Size(15, 14) - Me.cbxDateienlöschenUTA.TabIndex = 99 - Me.cbxDateienlöschenUTA.UseVisualStyleBackColor = True - ' - 'TextBox1 - ' - Me.TextBox1.BackColor = System.Drawing.SystemColors.Menu - Me.TextBox1.Location = New System.Drawing.Point(441, 103) - Me.TextBox1.Multiline = True - Me.TextBox1.Name = "TextBox1" - Me.TextBox1.Size = New System.Drawing.Size(73, 55) - Me.TextBox1.TabIndex = 100 - Me.TextBox1.Text = "Dateien nach Import von FTP löschen" - ' - 'TextBox2 - ' - Me.TextBox2.BackColor = System.Drawing.SystemColors.Menu - Me.TextBox2.Location = New System.Drawing.Point(263, 103) - Me.TextBox2.Multiline = True - Me.TextBox2.Name = "TextBox2" - Me.TextBox2.Size = New System.Drawing.Size(72, 55) - Me.TextBox2.TabIndex = 101 - Me.TextBox2.Text = "Dateien nach Import von FTP löschen" - ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3116,4 +3343,20 @@ Partial Class frmStartOptions Friend WithEvents cbxDateienlöschenUTA As CheckBox Friend WithEvents TextBox2 As TextBox Friend WithEvents TextBox1 As TextBox + Friend WithEvents LinkLabel54 As LinkLabel + Friend WithEvents LinkLabel55 As LinkLabel + Friend WithEvents datVon As DateTimePicker + Friend WithEvents LinkLabel56 As LinkLabel + Friend WithEvents DateTimePicker2 As DateTimePicker + Friend WithEvents DateTimePicker1 As DateTimePicker + Friend WithEvents txtBatchNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents LinkLabel57 As LinkLabel + Friend WithEvents LinkLabel58 As LinkLabel + Friend WithEvents Label40 As Label + Friend WithEvents txtTransactionID As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents LinkLabel59 As LinkLabel + Friend WithEvents Label39 As Label + Friend WithEvents Label38 As Label + Friend WithEvents Label37 As Label + Friend WithEvents LinkLabel61 As LinkLabel End Class diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 022ff07..dbdc6d4 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -6,7 +6,7 @@ Imports System.Text Imports System.Xml Imports DocumentFormat.OpenXml.Drawing.Diagrams - +Imports DocumentFormat.OpenXml.Presentation Imports DocumentFormat.OpenXml.Wordprocessing Imports iTextSharp.text.pdf.qrcode.Version Imports Org.BouncyCastle.Asn1.Pkcs @@ -101,7 +101,7 @@ Public Class frmStartOptions 'doIDSPlatts() 'Exit Sub - 'PARAM = "AMBAR_VERAG_BUCHUNGEN" + 'PARAM = "AMBAR_VERAG_BUCHUNGEN_CS" 'Standart-Errorverhalten ist MAIL VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL If PARAM <> "" Then @@ -979,18 +979,18 @@ Public Class frmStartOptions Else API.UPDTAE_ERR() End If + End If + Case "AVM" + If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then + betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr) + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then + API.UPDTAE_OK() + insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) + Else + API.UPDTAE_ERR() End If - Case "AVM" - If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then - betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr) - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then - API.UPDTAE_OK() - insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) - Else - API.UPDTAE_ERR() - End If - End If - End Select + End If + End Select End If End If @@ -3723,7 +3723,6 @@ Public Class frmStartOptions End If Case "buchungenAMBAR" - VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "AG"), True) VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, "CS"), True) End Select @@ -4271,6 +4270,7 @@ Public Class frmStartOptions If tbcntr.SelectedIndex = 3 Then checkTBLandTWLNr() + getLatestBatchNrMSE() End If @@ -4294,9 +4294,18 @@ Public Class frmStartOptions End Sub + Private Sub getLatestBatchNrMSE() + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + txtBatchNr.Text = CInt(SQL.getValueTxtBySql("SELECT max([batch_seq_nr]) FROM [VERAG].[dbo].[tblMSETransactions] ", "FMZOLL",,, 0)) + + End Sub + Private Sub cbxTestsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged If tbcntr.SelectedIndex = 3 Then checkTBLandTWLNr() + getLatestBatchNrMSE() End If End Sub @@ -4385,7 +4394,7 @@ Public Class frmStartOptions Me.Visible = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked If cbxRMC._value = "" Then Exit Sub - Dim f As New frmNachrichtenVerarbeitung_MDM_divers(cbxRMC._value, False, cbxDateienlöschenRMC.Checked) + Dim f As New frmNachrichtenVerarbeitung_MDM_divers(cbxRMC._value, False, cbxDateienlöschenRMC.Checked, False) f.ShowDialog() Me.Visible = True End Sub @@ -4393,8 +4402,306 @@ Public Class frmStartOptions Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked Me.Visible = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked - Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, cbxDateienlöschenUTA.Checked) + Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked) f.ShowDialog() Me.Visible = True End Sub + + Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + Dim mse As New cMSEAPI("MSE") + Dim fehler As String = "" + Dim token = mse.createJWT(fehler) + Dim dt As New DataTable + If fehler <> "" Then + MsgBox(fehler) + Else + Dim totalPages = 0 + Dim batchrequestNr = 0 + + fehler = mse.getNewestTransactions(token, dt, batchrequestNr, totalPages, 0) + + If fehler <> "" Then + MsgBox(fehler) + Exit Sub + End If + + If totalPages > 1 Then + + For i = 2 To totalPages + If dt.Rows.Count > 0 Then dt.Clear() + fehler = mse.getTransactionsFromBatchNrAndPage(token, dt, batchrequestNr, totalPages, i) + + If fehler <> "" Then + MsgBox(fehler) + Exit Sub + End If + + i = i + 1 + Next + + + + End If + + + End If + + Me.Visible = True + End Sub + + Private Sub LinkLabel55_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel55.LinkClicked + + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + Dim mse As New cMSEAPI("MSE") + Dim fehler As String = "" + Dim token = mse.createJWT(fehler) + Dim transactions As New DataTable + Dim invoice As New DataTable + + If fehler <> "" Then + MsgBox(fehler) + Else + fehler = mse.getInvoices(token, invoice, datVon.Value, datVon.Value) + If fehler <> "" Then + MsgBox(fehler) + Exit Sub + End If + + If invoice IsNot Nothing And invoice.Columns.Contains("invoice_id") AndAlso invoice.Rows.Count > 0 Then + + Dim dvInvoice As New DataView(invoice) + Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"}) + + For Each r As DataRow In distinctInv.Rows + Dim totalPages = 0 + Dim batchrequestNr = 0 + fehler = mse.getSettlementsFromInvoiceID(token, transactions, r("invoice_id"), batchrequestNr, totalPages, 0) + If fehler <> "" Then + MsgBox(fehler) + Exit Sub + End If + If totalPages > 1 Then + + For i = 2 To totalPages + If transactions.Rows.Count > 0 Then transactions.Clear() + fehler = mse.getSettlementsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i) + + If fehler <> "" Then + MsgBox(fehler) + Exit Sub + End If + Next + + End If + Next + + End If + + + End If + + Me.Visible = True + + End Sub + + Private Sub LinkLabel56_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel56.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + Dim mse As New cMSEAPI("MSE") + Dim fehler As String = "" + Dim token = mse.createJWT(fehler) + Dim transactions As New DataTable + Dim invoice As New DataTable + + If fehler <> "" Then + MsgBox(fehler) + Else + + Dim totalPages = 0 + Dim batchrequestNr = 0 + + fehler = mse.getTransactionsFromToDate(token, transactions, DateTimePicker1.Value, DateTimePicker2.Value, batchrequestNr, totalPages, 0) + If fehler <> "" Then + MsgBox(fehler) + Me.Visible = True + Exit Sub + End If + + + If totalPages > 1 Then + + For i = 2 To totalPages + If transactions.Rows.Count > 0 Then transactions.Clear() + fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i) + + If fehler <> "" Then + MsgBox(fehler) + Me.Visible = True + Exit Sub + End If + Next + + + + End If + + End If + + Me.Visible = True + End Sub + + Private Sub LinkLabel57_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel57.LinkClicked + + + If Not IsNumeric(txtBatchNr.Text) Then Exit Sub + If CInt(txtBatchNr.Text) < 1 AndAlso CInt(txtBatchNr.Text) > 100 Then Exit Sub + + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + Dim mse As New cMSEAPI("MSE") + Dim fehler As String = "" + Dim token = mse.createJWT(fehler) + Dim transactions As New DataTable + Dim invoice As New DataTable + + If fehler <> "" Then + MsgBox(fehler) + Else + + Dim totalPages = 1 + Dim batchrequestNr = CInt(txtBatchNr.Text) + + fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, 0) + If fehler <> "" Then + MsgBox(fehler) + Me.Visible = True + Exit Sub + End If + + + If totalPages > 1 Then + + For i = 2 To totalPages + If transactions.Rows.Count > 0 Then transactions.Rows.Clear() + fehler = mse.getTransactionsFromBatchNrAndPage(token, transactions, batchrequestNr, totalPages, i) + If fehler <> "" Then + MsgBox(fehler) + Me.Visible = True + Exit Sub + End If + Next + + + + End If + + MsgBox("DONE") + + End If + + Me.Visible = True + + End Sub + + Private Sub LinkLabel58_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel58.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + Dim mse As New cMSEAPI("MSE") + Dim fehler As String = "" + Dim token = mse.createJWT(fehler) + Dim dt As New DataTable + If fehler <> "" Then + MsgBox(fehler) + Else + Dim totalPages = 0 + Dim batchrequestNr = 0 + + fehler = mse.getCustomers(token, dt) + + If fehler <> "" Then + MsgBox(fehler) + Me.Visible = True + Exit Sub + End If + + + End If + + + Me.Visible = True + End Sub + + Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked + + + + If sender Is LinkLabel59 Then + If Not IsNumeric(txtTransactionID.Text) Then + MsgBox("ID muss 10stellige Nr sein!") + Exit Sub + End If + If CInt(txtTransactionID.Text) < 100000000 AndAlso CInt(txtTransactionID.Text) > 199999999 Then + MsgBox("falsche ID") + Exit Sub + End If + + End If + + + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim mse As New cMSEAPI("MSE") + Dim fehler As String = "" + Dim token = mse.createJWT(fehler) + Dim transactions As New DataTable + Dim invoice As New DataTable + + If fehler <> "" Then + MsgBox(fehler) + Else + + + Dim dtTransactionID = New DataTable + + If sender Is LinkLabel59 Then + dtTransactionID.Columns.Add("transaction_id", GetType(String)) + Dim R As DataRow = dtTransactionID.NewRow + R("transaction_id") = txtTransactionID.Text + dtTransactionID.Rows.Add(R) + + Else + + dtTransactionID = SQL.loadDgvBySql("select [transaction_id] FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & datVon.Value & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL") + If dtTransactionID.Rows.Count = 0 Then + MsgBox("Zu diesem Rechnungsdatum gibt es keine Rechnung!") + Me.Visible = True + Exit Sub + End If + + If Not vbYes = MsgBox("Möchten Sie die " & dtTransactionID.Rows.Count & " fehlenden Transaktionen nachladen?" & vbNewLine & "Dieser Vorgang dauert je nach Anzahl der Transaktionen etwas.", vbYesNoCancel) Then + Me.Visible = True + Exit Sub + End If + + + End If + + + + fehler = mse.getTransactionsFromTransactionID(token, transactions, dtTransactionID) + If fehler <> "" Then + MsgBox(fehler) + Me.Visible = True + Exit Sub + End If + + End If + + Me.Visible = True + End Sub + End Class \ No newline at end of file