cDatenbank, StartOptions, etc.

initATLASAufschubkonten/frmStartOptions.vb

@@ -5460,7 +5460,10 @@ Public Class frmStartOptions
             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"})
+                ' Dim distinctInv As DataTable = dvInvoice.ToTable(True, New String() {"invoice_id"})
+
+                Dim distinctInv As DataTable = (New SQL).loadDgvBySql("select distinct(invoice_id) FROM [VERAG].[dbo].[tblMSEInvoices] where  invoice_date = '2026-03-15' and invoice_id is not null ", "FMZOLL")
+
 
                 For Each r As DataRow In distinctInv.Rows
                     Dim totalPages = 0
@@ -7738,4 +7741,15 @@ repeatRequest:
     Private Sub Button32_Click(sender As Object, e As EventArgs) Handles btnEZOLL_1month.Click
         txtEZOLLAnhDat._value = Now().AddMonths(-1).ToShortDateString
     End Sub
+
+    Private Sub LinkLabel25_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel25.LinkClicked
+
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
+        Dim f As New frmNachrichtenVerarbeitung_MDM_divers("MSE", False, False, cbxIDSUmbenenen.Checked, True)
+        f.year = txtIDSYear.Text
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
+
 End Class