fremdrechnungen, etc.

2026-08-12 11:13:54 +02:00
parent b3bfac9c55
commit 34e5df70a4
8 changed files with 298 additions and 130 deletions
--- a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb
+++ b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb
@@ -22,6 +22,7 @@ Partial Class usrcntlFremdrechnungen
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.PDFHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -35,14 +36,14 @@ Partial Class usrcntlFremdrechnungen
        Me.btnVERAGCardNew = New System.Windows.Forms.Button()
        Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
        Me.btnSDL_RMC = New System.Windows.Forms.Button()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.RechnungsanhangHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.RechnungsanhangloeschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.lblmissingPDFs = New System.Windows.Forms.Label()
+        Me.lblmissingInvoices_new = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
-        Me.lblCountMissingInvoices = New System.Windows.Forms.Label()
+        Me.lblCountMissingPDFs = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
@@ -50,8 +51,6 @@ Partial Class usrcntlFremdrechnungen
        Me.lblCountOrigRechnungen = New System.Windows.Forms.Label()
        Me.cbxTest = New System.Windows.Forms.CheckBox()
        Me.Label7 = New System.Windows.Forms.Label()
-        Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.lblSumBto = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
@@ -70,9 +69,13 @@ Partial Class usrcntlFremdrechnungen
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
-        Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
-        Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.pc_missingInvoices = New System.Windows.Forms.PictureBox()
+        Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.FlowLayoutPanel.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -81,9 +84,10 @@ Partial Class usrcntlFremdrechnungen
        Me.SplitContainer1.Panel1.SuspendLayout()
        Me.SplitContainer1.Panel2.SuspendLayout()
        Me.SplitContainer1.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        CType(Me.pc_missingInvoices, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.Panel4.SuspendLayout()
        Me.SuspendLayout()
        '
        'PDFHochladenToolStripMenuItem
@@ -301,9 +305,10 @@ Partial Class usrcntlFremdrechnungen
        Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel1.Controls.Add(Me.lblmissingPDFs)
+        Me.Panel1.Controls.Add(Me.pc_missingInvoices)
+        Me.Panel1.Controls.Add(Me.lblmissingInvoices_new)
        Me.Panel1.Controls.Add(Me.Label10)
-        Me.Panel1.Controls.Add(Me.lblCountMissingInvoices)
+        Me.Panel1.Controls.Add(Me.lblCountMissingPDFs)
        Me.Panel1.Controls.Add(Me.Label1)
        Me.Panel1.Controls.Add(Me.Label2)
        Me.Panel1.Controls.Add(Me.Label9)
@@ -335,49 +340,49 @@ Partial Class usrcntlFremdrechnungen
        Me.Panel1.Size = New System.Drawing.Size(260, 907)
        Me.Panel1.TabIndex = 23
        '
-        'lblmissingPDFs
+        'lblmissingInvoices_new
        '
-        Me.lblmissingPDFs.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblmissingPDFs.BackColor = System.Drawing.Color.White
-        Me.lblmissingPDFs.Location = New System.Drawing.Point(173, 88)
-        Me.lblmissingPDFs.Name = "lblmissingPDFs"
-        Me.lblmissingPDFs.RightToLeft = System.Windows.Forms.RightToLeft.Yes
-        Me.lblmissingPDFs.Size = New System.Drawing.Size(74, 13)
-        Me.lblmissingPDFs.TabIndex = 69
-        Me.lblmissingPDFs.Text = "0"
-        Me.lblmissingPDFs.TextAlign = System.Drawing.ContentAlignment.TopRight
-        Me.lblmissingPDFs.Visible = False
+        Me.lblmissingInvoices_new.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblmissingInvoices_new.BackColor = System.Drawing.Color.White
+        Me.lblmissingInvoices_new.Location = New System.Drawing.Point(173, 88)
+        Me.lblmissingInvoices_new.Name = "lblmissingInvoices_new"
+        Me.lblmissingInvoices_new.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblmissingInvoices_new.Size = New System.Drawing.Size(74, 13)
+        Me.lblmissingInvoices_new.TabIndex = 69
+        Me.lblmissingInvoices_new.Text = "0"
+        Me.lblmissingInvoices_new.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblmissingInvoices_new.Visible = False
        '
        'Label10
        '
        Me.Label10.AutoSize = True
        Me.Label10.Location = New System.Drawing.Point(4, 88)
        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(80, 13)
+        Me.Label10.Size = New System.Drawing.Size(116, 13)
        Me.Label10.TabIndex = 68
-        Me.Label10.Text = "fehlende PDFs:"
+        Me.Label10.Text = "fehlende Rechnungen:"
        Me.Label10.Visible = False
        '
-        'lblCountMissingInvoices
+        'lblCountMissingPDFs
        '
-        Me.lblCountMissingInvoices.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblCountMissingInvoices.BackColor = System.Drawing.Color.White
-        Me.lblCountMissingInvoices.Location = New System.Drawing.Point(173, 66)
-        Me.lblCountMissingInvoices.Name = "lblCountMissingInvoices"
-        Me.lblCountMissingInvoices.RightToLeft = System.Windows.Forms.RightToLeft.Yes
-        Me.lblCountMissingInvoices.Size = New System.Drawing.Size(74, 13)
-        Me.lblCountMissingInvoices.TabIndex = 67
-        Me.lblCountMissingInvoices.Text = "0"
-        Me.lblCountMissingInvoices.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblCountMissingPDFs.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblCountMissingPDFs.BackColor = System.Drawing.Color.White
+        Me.lblCountMissingPDFs.Location = New System.Drawing.Point(173, 66)
+        Me.lblCountMissingPDFs.Name = "lblCountMissingPDFs"
+        Me.lblCountMissingPDFs.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblCountMissingPDFs.Size = New System.Drawing.Size(48, 13)
+        Me.lblCountMissingPDFs.TabIndex = 67
+        Me.lblCountMissingPDFs.Text = "0"
+        Me.lblCountMissingPDFs.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(3, 66)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(116, 13)
+        Me.Label1.Size = New System.Drawing.Size(80, 13)
        Me.Label1.TabIndex = 66
-        Me.Label1.Text = "fehlende Rechnungen:"
+        Me.Label1.Text = "fehlende PDFs:"
        '
        'Label2
        '
@@ -438,52 +443,6 @@ Partial Class usrcntlFremdrechnungen
        Me.Label7.TabIndex = 60
        Me.Label7.Text = "-"
        '
-        'txtKundenNrbis
-        '
-        Me.txtKundenNrbis._DateTimeOnly = False
-        Me.txtKundenNrbis._numbersOnly = True
-        Me.txtKundenNrbis._numbersOnlyKommastellen = ""
-        Me.txtKundenNrbis._numbersOnlyTrennzeichen = False
-        Me.txtKundenNrbis._Prozent = False
-        Me.txtKundenNrbis._ShortDateNew = False
-        Me.txtKundenNrbis._ShortDateOnly = False
-        Me.txtKundenNrbis._TimeOnly = False
-        Me.txtKundenNrbis._TimeOnly_Seconds = False
-        Me.txtKundenNrbis._value = ""
-        Me.txtKundenNrbis._Waehrung = False
-        Me.txtKundenNrbis._WaehrungZeichen = False
-        Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
-        Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 190)
-        Me.txtKundenNrbis.MaxLineLength = -1
-        Me.txtKundenNrbis.MaxLines_Warning = ""
-        Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
-        Me.txtKundenNrbis.Name = "txtKundenNrbis"
-        Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20)
-        Me.txtKundenNrbis.TabIndex = 59
-        '
-        'txtKundenNrvon
-        '
-        Me.txtKundenNrvon._DateTimeOnly = False
-        Me.txtKundenNrvon._numbersOnly = True
-        Me.txtKundenNrvon._numbersOnlyKommastellen = ""
-        Me.txtKundenNrvon._numbersOnlyTrennzeichen = False
-        Me.txtKundenNrvon._Prozent = False
-        Me.txtKundenNrvon._ShortDateNew = False
-        Me.txtKundenNrvon._ShortDateOnly = False
-        Me.txtKundenNrvon._TimeOnly = False
-        Me.txtKundenNrvon._TimeOnly_Seconds = False
-        Me.txtKundenNrvon._value = ""
-        Me.txtKundenNrvon._Waehrung = False
-        Me.txtKundenNrvon._WaehrungZeichen = False
-        Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
-        Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 190)
-        Me.txtKundenNrvon.MaxLineLength = -1
-        Me.txtKundenNrvon.MaxLines_Warning = ""
-        Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
-        Me.txtKundenNrvon.Name = "txtKundenNrvon"
-        Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20)
-        Me.txtKundenNrvon.TabIndex = 58
-        '
        'Label6
        '
        Me.Label6.AutoSize = True
@@ -693,6 +652,33 @@ Partial Class usrcntlFremdrechnungen
        Me.SplitContainer1.SplitterDistance = 559
        Me.SplitContainer1.TabIndex = 13
        '
+        'Panel4
+        '
+        Me.Panel4.BackColor = System.Drawing.Color.White
+        Me.Panel4.Controls.Add(Me.FlowLayoutPanel)
+        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel4.Location = New System.Drawing.Point(0, 0)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(1356, 108)
+        Me.Panel4.TabIndex = 11
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
+        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        '
+        'pc_missingInvoices
+        '
+        Me.pc_missingInvoices.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.pc_missingInvoices.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.pc_missingInvoices.Location = New System.Drawing.Point(227, 64)
+        Me.pc_missingInvoices.Name = "pc_missingInvoices"
+        Me.pc_missingInvoices.Size = New System.Drawing.Size(28, 19)
+        Me.pc_missingInvoices.TabIndex = 72
+        Me.pc_missingInvoices.TabStop = False
+        Me.pc_missingInvoices.Visible = False
+        '
        'dgvLFRechnung
        '
        Me.dgvLFRechnung.AKTUALISIERUNGS_INTERVALL = 1000
@@ -728,15 +714,51 @@ Partial Class usrcntlFremdrechnungen
        Me.dgvDetails.Size = New System.Drawing.Size(1352, 228)
        Me.dgvDetails.TabIndex = 30
        '
-        'Panel4
+        'txtKundenNrbis
        '
-        Me.Panel4.BackColor = System.Drawing.Color.White
-        Me.Panel4.Controls.Add(Me.FlowLayoutPanel)
-        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel4.Location = New System.Drawing.Point(0, 0)
-        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1356, 108)
-        Me.Panel4.TabIndex = 11
+        Me.txtKundenNrbis._DateTimeOnly = False
+        Me.txtKundenNrbis._numbersOnly = True
+        Me.txtKundenNrbis._numbersOnlyKommastellen = ""
+        Me.txtKundenNrbis._numbersOnlyTrennzeichen = False
+        Me.txtKundenNrbis._Prozent = False
+        Me.txtKundenNrbis._ShortDateNew = False
+        Me.txtKundenNrbis._ShortDateOnly = False
+        Me.txtKundenNrbis._TimeOnly = False
+        Me.txtKundenNrbis._TimeOnly_Seconds = False
+        Me.txtKundenNrbis._value = ""
+        Me.txtKundenNrbis._Waehrung = False
+        Me.txtKundenNrbis._WaehrungZeichen = False
+        Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
+        Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 190)
+        Me.txtKundenNrbis.MaxLineLength = -1
+        Me.txtKundenNrbis.MaxLines_Warning = ""
+        Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
+        Me.txtKundenNrbis.Name = "txtKundenNrbis"
+        Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20)
+        Me.txtKundenNrbis.TabIndex = 59
+        '
+        'txtKundenNrvon
+        '
+        Me.txtKundenNrvon._DateTimeOnly = False
+        Me.txtKundenNrvon._numbersOnly = True
+        Me.txtKundenNrvon._numbersOnlyKommastellen = ""
+        Me.txtKundenNrvon._numbersOnlyTrennzeichen = False
+        Me.txtKundenNrvon._Prozent = False
+        Me.txtKundenNrvon._ShortDateNew = False
+        Me.txtKundenNrvon._ShortDateOnly = False
+        Me.txtKundenNrvon._TimeOnly = False
+        Me.txtKundenNrvon._TimeOnly_Seconds = False
+        Me.txtKundenNrvon._value = ""
+        Me.txtKundenNrvon._Waehrung = False
+        Me.txtKundenNrvon._WaehrungZeichen = False
+        Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
+        Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 190)
+        Me.txtKundenNrvon.MaxLineLength = -1
+        Me.txtKundenNrvon.MaxLines_Warning = ""
+        Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
+        Me.txtKundenNrvon.Name = "txtKundenNrvon"
+        Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20)
+        Me.txtKundenNrvon.TabIndex = 58
        '
        'usrcntlFremdrechnungen
        '
@@ -756,9 +778,10 @@ Partial Class usrcntlFremdrechnungen
        Me.SplitContainer1.Panel2.ResumeLayout(False)
        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SplitContainer1.ResumeLayout(False)
+        Me.Panel4.ResumeLayout(False)
+        CType(Me.pc_missingInvoices, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.Panel4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
@@ -805,10 +828,12 @@ Partial Class usrcntlFremdrechnungen
    Friend WithEvents Label2 As Label
    Friend WithEvents Label9 As Label
    Friend WithEvents dat_Sum_Bis As DateTimePicker
-    Friend WithEvents lblCountMissingInvoices As Label
+    Friend WithEvents lblCountMissingPDFs As Label
    Friend WithEvents Label1 As Label
    Friend WithEvents RechnungsanhangHochladenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents RechnungsanhangloeschenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents lblmissingPDFs As Label
+    Friend WithEvents lblmissingInvoices_new As Label
    Friend WithEvents Label10 As Label
+    Friend WithEvents pc_missingInvoices As PictureBox
+    Friend WithEvents ImageList1 As ImageList
 End Class
--- a/SDL/mdm/usrcntlFremdrechnungen.resx
+++ b/SDL/mdm/usrcntlFremdrechnungen.resx
@@ -120,4 +120,7 @@
  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
+  <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>173, 17</value>
+  </metadata>
 </root>
--- a/SDL/mdm/usrcntlFremdrechnungen.vb
+++ b/SDL/mdm/usrcntlFremdrechnungen.vb
@@ -1,6 +1,8 @@
 Imports System.IO
 Imports System.Reflection
+Imports com.sun.org.apache.xml.internal.utils
 Imports com.sun.xml.internal.rngom
+Imports DAKOSY_Worker.DEERRE
 Imports MDM_Worker
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
@@ -622,7 +624,8 @@ Public Class usrcntlFremdrechnungen
            missingInvoices += rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text)
            missingInvoices += ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text)
            missingInvoices += mse.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
@@ -643,12 +646,23 @@ Public Class usrcntlFremdrechnungen
            missingInvoices += rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
            missingInvoices += ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
            missingInvoices += mse.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        End If
    End Sub

+    Private Sub enableMissingPDFInvoicesButton(missingInvoices As Integer)
+
+        If missingInvoices > 0 And Not aktLieferant = "ALLE" Then
+            pc_missingInvoices.Visible = True
+        Else
+            pc_missingInvoices.Visible = False
+        End If
+
+    End Sub
+
    Private Sub btnSDL_IDS_Click(sender As Object, e As EventArgs) Handles btnSDL_IDS.Click
        'SET_SDL("IDS")

@@ -660,7 +674,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = ids.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
@@ -671,7 +686,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = ids.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices
        End If

@@ -690,7 +706,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = uta.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
@@ -701,7 +718,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = uta.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        End If
@@ -733,7 +751,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
@@ -744,7 +763,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        End If
@@ -763,7 +783,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = MSE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
@@ -774,7 +795,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = MSE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        End If
@@ -832,7 +854,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
@@ -843,7 +866,8 @@ Public Class usrcntlFremdrechnungen
            countbtcNotSet = btcNotSet

            Dim missingInvoices As Integer = rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
-            lblCountMissingInvoices.Text = missingInvoices
+            enableMissingPDFInvoicesButton(missingInvoices)
+            lblCountMissingPDFs.Text = missingInvoices
            countMissingInvoices = missingInvoices

        End If
@@ -1846,9 +1870,9 @@ Public Class usrcntlFremdrechnungen
            End If


-                ContextMenuStrip1.Show(Cursor.Position)
+            ContextMenuStrip1.Show(Cursor.Position)

-            End If
+        End If



@@ -1926,7 +1950,7 @@ Public Class usrcntlFremdrechnungen


                        Else
-                                If Not RMC.hasEntry Then MsgBox("Es konnte kein Eintrag gefunden werden") : Exit Sub
+                            If Not RMC.hasEntry Then MsgBox("Es konnte kein Eintrag gefunden werden") : Exit Sub
                            If RMC.rmc_daId_InvAtt Is Nothing Then MsgBox("Eintrag besitzt keinen Rechnungsanhang!") : Exit Sub

                        End If
@@ -1940,5 +1964,92 @@ Public Class usrcntlFremdrechnungen
        End Select
    End Sub

+    Private Sub pc_missingInvoices_Click(sender As Object, e As EventArgs) Handles pc_missingInvoices.Click

+        Dim SQLString = ""
+        Dim dt As New DataTable
+        Select Case aktLieferant
+            Case "UTA"
+
+                Dim uta As cUTA
+
+                If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
+                    'SET_SDL("UTA", txtKundenNrvon.Text, txtKundenNrbis.Text)
+                    uta.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text, True, dt)
+                ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
+
+                    'SET_SDL("UTA")
+                    uta.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,,,, True, dt)
+
+
+                End If
+
+            Case "RMC"
+
+                Dim rmc As cRMC
+                If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
+                    'SET_SDL("RMC", txtKundenNrvon.Text, txtKundenNrbis.Text)
+                    rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text, True, dt)
+
+
+                ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
+                    'SET_SDL("RMC")
+                    rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,,,, True, dt)
+
+
+                End If
+
+
+            Case "MSE"
+
+                Dim MSE As cMSEAPI
+
+                If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
+                    'SET_SDL("MSE", txtKundenNrvon.Text, txtKundenNrbis.Text)
+                    MSE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text, True, dt)
+
+                ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
+
+                    'SET_SDL("MSE")
+                    MSE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,,,, True, dt)
+
+                End If
+
+            Case "PLOSE"
+
+                Dim ploseRE As cPLOSE_Inv_Data
+                If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
+                    ' SET_SDL("PLOSE", txtKundenNrvon.Text, txtKundenNrbis.Text)
+                    ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text, True, dt)
+
+
+                ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
+                    'SET_SD
+                    ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,,,, True, dt)
+
+
+                End If
+
+            Case "IDS"
+
+                Dim ids As New cIDS
+                If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
+                    ' SET_SDL("IDS", txtKundenNrvon.Text, txtKundenNrbis.Text)
+                    ids.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text, True, dt)
+
+
+                ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
+
+                    'SET_SDL("IDS")
+                    ids.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,,,, True, dt)
+
+                End If
+
+        End Select
+
+        If dt.Rows.Count > 0 Then
+            cProgramFunctions.genExcelFromDT_NEW(dt,,,,,,,,, True)
+        End If
+
+    End Sub
 End Class