UTA, MDM, MSE, Datenarchiv

2024-08-02 16:19:05 +02:00
parent 20ed7a8730
commit ca741f8184
5 changed files with 775 additions and 193 deletions
--- 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
--- 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
--- 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")

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