DatenvearbeitungMDM

2025-09-03 11:53:11 +02:00
parent f107ed499b
commit 9cf92b0308
3 changed files with 219 additions and 184 deletions
--- a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb
@@ -56,6 +56,7 @@ Partial Class frmMDMDatenverarbetiung
        Me.Button10 = New System.Windows.Forms.Button()
        Me.btnRechenwertesetzen = New System.Windows.Forms.Button()
        Me.lblTTRSum = New System.Windows.Forms.Label()
+        Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblProzPruef = New System.Windows.Forms.Label()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.pic = New System.Windows.Forms.PictureBox()
@@ -63,6 +64,7 @@ Partial Class frmMDMDatenverarbetiung
        Me.Button1 = New System.Windows.Forms.Button()
        Me.btnKunde = New System.Windows.Forms.Button()
        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbx = New System.Windows.Forms.CheckBox()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.cbxKopie = New System.Windows.Forms.CheckBox()
@@ -74,15 +76,14 @@ Partial Class frmMDMDatenverarbetiung
        Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
        Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxIDSmitVerag = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.Panel5.SuspendLayout()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -100,6 +101,7 @@ Partial Class frmMDMDatenverarbetiung
        '
        'pnl
        '
+        Me.pnl.Controls.Add(Me.cbxIDSmitVerag)
        Me.pnl.Controls.Add(Me.Panel5)
        Me.pnl.Controls.Add(Me.PictureBox5)
        Me.pnl.Controls.Add(Me.cbxBelegeerstellt)
@@ -159,7 +161,7 @@ Partial Class frmMDMDatenverarbetiung
        Me.cbxBelegeerstellt.AutoSize = True
        Me.cbxBelegeerstellt.Checked = True
        Me.cbxBelegeerstellt.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxBelegeerstellt.Location = New System.Drawing.Point(654, 75)
+        Me.cbxBelegeerstellt.Location = New System.Drawing.Point(663, 75)
        Me.cbxBelegeerstellt.Name = "cbxBelegeerstellt"
        Me.cbxBelegeerstellt.Size = New System.Drawing.Size(86, 17)
        Me.cbxBelegeerstellt.TabIndex = 53
@@ -172,7 +174,7 @@ Partial Class frmMDMDatenverarbetiung
        Me.cbxASFINAGAbgerechnet.AutoSize = True
        Me.cbxASFINAGAbgerechnet.Checked = True
        Me.cbxASFINAGAbgerechnet.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxASFINAGAbgerechnet.Location = New System.Drawing.Point(746, 75)
+        Me.cbxASFINAGAbgerechnet.Location = New System.Drawing.Point(755, 75)
        Me.cbxASFINAGAbgerechnet.Name = "cbxASFINAGAbgerechnet"
        Me.cbxASFINAGAbgerechnet.Size = New System.Drawing.Size(144, 17)
        Me.cbxASFINAGAbgerechnet.TabIndex = 52
@@ -456,6 +458,32 @@ Partial Class frmMDMDatenverarbetiung
        Me.lblTTRSum.Text = "Prüfsumme TTR:"
        Me.lblTTRSum.Visible = False
        '
+        'txtTTRSum
+        '
+        Me.txtTTRSum._DateTimeOnly = False
+        Me.txtTTRSum._numbersOnly = False
+        Me.txtTTRSum._numbersOnlyKommastellen = ""
+        Me.txtTTRSum._numbersOnlyTrennzeichen = True
+        Me.txtTTRSum._Prozent = False
+        Me.txtTTRSum._ShortDateNew = False
+        Me.txtTTRSum._ShortDateOnly = False
+        Me.txtTTRSum._TimeOnly = False
+        Me.txtTTRSum._TimeOnly_Seconds = False
+        Me.txtTTRSum._value = ""
+        Me.txtTTRSum._Waehrung = False
+        Me.txtTTRSum._WaehrungZeichen = True
+        Me.txtTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtTTRSum.ForeColor = System.Drawing.Color.Black
+        Me.txtTTRSum.Location = New System.Drawing.Point(1051, 124)
+        Me.txtTTRSum.MaxLineLength = -1
+        Me.txtTTRSum.MaxLines_Warning = ""
+        Me.txtTTRSum.MaxLines_Warning_Label = Nothing
+        Me.txtTTRSum.Name = "txtTTRSum"
+        Me.txtTTRSum.Size = New System.Drawing.Size(100, 20)
+        Me.txtTTRSum.TabIndex = 51
+        Me.txtTTRSum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.txtTTRSum.Visible = False
+        '
        'lblProzPruef
        '
        Me.lblProzPruef.Location = New System.Drawing.Point(63, 97)
@@ -532,6 +560,31 @@ Partial Class frmMDMDatenverarbetiung
        Me.Label4.TabIndex = 44
        Me.Label4.Text = "Prüfsumme brutto:"
        '
+        'txtPruefsummeBrutto
+        '
+        Me.txtPruefsummeBrutto._DateTimeOnly = False
+        Me.txtPruefsummeBrutto._numbersOnly = False
+        Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
+        Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True
+        Me.txtPruefsummeBrutto._Prozent = False
+        Me.txtPruefsummeBrutto._ShortDateNew = False
+        Me.txtPruefsummeBrutto._ShortDateOnly = False
+        Me.txtPruefsummeBrutto._TimeOnly = False
+        Me.txtPruefsummeBrutto._TimeOnly_Seconds = False
+        Me.txtPruefsummeBrutto._value = ""
+        Me.txtPruefsummeBrutto._Waehrung = False
+        Me.txtPruefsummeBrutto._WaehrungZeichen = True
+        Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
+        Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 101)
+        Me.txtPruefsummeBrutto.MaxLineLength = -1
+        Me.txtPruefsummeBrutto.MaxLines_Warning = ""
+        Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
+        Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
+        Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
+        Me.txtPruefsummeBrutto.TabIndex = 43
+        Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'cbx
        '
        Me.cbx.AutoSize = True
@@ -642,6 +695,31 @@ Partial Class frmMDMDatenverarbetiung
        Me.Label3.TabIndex = 38
        Me.Label3.Text = "Prüfsumme netto:"
        '
+        'txtPruefsummeNetto
+        '
+        Me.txtPruefsummeNetto._DateTimeOnly = False
+        Me.txtPruefsummeNetto._numbersOnly = False
+        Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
+        Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True
+        Me.txtPruefsummeNetto._Prozent = False
+        Me.txtPruefsummeNetto._ShortDateNew = False
+        Me.txtPruefsummeNetto._ShortDateOnly = False
+        Me.txtPruefsummeNetto._TimeOnly = False
+        Me.txtPruefsummeNetto._TimeOnly_Seconds = False
+        Me.txtPruefsummeNetto._value = ""
+        Me.txtPruefsummeNetto._Waehrung = False
+        Me.txtPruefsummeNetto._WaehrungZeichen = True
+        Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
+        Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 75)
+        Me.txtPruefsummeNetto.MaxLineLength = -1
+        Me.txtPruefsummeNetto.MaxLines_Warning = ""
+        Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
+        Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
+        Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
+        Me.txtPruefsummeNetto.TabIndex = 37
+        Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'Label2
        '
        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -652,6 +730,31 @@ Partial Class frmMDMDatenverarbetiung
        Me.Label2.TabIndex = 36
        Me.Label2.Text = "Anzahl:"
        '
+        'txtAnzahl
+        '
+        Me.txtAnzahl._DateTimeOnly = False
+        Me.txtAnzahl._numbersOnly = False
+        Me.txtAnzahl._numbersOnlyKommastellen = ""
+        Me.txtAnzahl._numbersOnlyTrennzeichen = True
+        Me.txtAnzahl._Prozent = False
+        Me.txtAnzahl._ShortDateNew = False
+        Me.txtAnzahl._ShortDateOnly = False
+        Me.txtAnzahl._TimeOnly = False
+        Me.txtAnzahl._TimeOnly_Seconds = False
+        Me.txtAnzahl._value = ""
+        Me.txtAnzahl._Waehrung = False
+        Me.txtAnzahl._WaehrungZeichen = True
+        Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
+        Me.txtAnzahl.Location = New System.Drawing.Point(1051, 48)
+        Me.txtAnzahl.MaxLineLength = -1
+        Me.txtAnzahl.MaxLines_Warning = ""
+        Me.txtAnzahl.MaxLines_Warning_Label = Nothing
+        Me.txtAnzahl.Name = "txtAnzahl"
+        Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
+        Me.txtAnzahl.TabIndex = 35
+        Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -694,106 +797,18 @@ Partial Class frmMDMDatenverarbetiung
        Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 547)
        Me.MyDatagridview1.TabIndex = 0
        '
-        'txtTTRSum
+        'cbxIDSmitVerag
        '
-        Me.txtTTRSum._DateTimeOnly = False
-        Me.txtTTRSum._numbersOnly = False
-        Me.txtTTRSum._numbersOnlyKommastellen = ""
-        Me.txtTTRSum._numbersOnlyTrennzeichen = True
-        Me.txtTTRSum._Prozent = False
-        Me.txtTTRSum._ShortDateNew = False
-        Me.txtTTRSum._ShortDateOnly = False
-        Me.txtTTRSum._TimeOnly = False
-        Me.txtTTRSum._TimeOnly_Seconds = False
-        Me.txtTTRSum._value = ""
-        Me.txtTTRSum._Waehrung = False
-        Me.txtTTRSum._WaehrungZeichen = True
-        Me.txtTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtTTRSum.ForeColor = System.Drawing.Color.Black
-        Me.txtTTRSum.Location = New System.Drawing.Point(1051, 124)
-        Me.txtTTRSum.MaxLineLength = -1
-        Me.txtTTRSum.MaxLines_Warning = ""
-        Me.txtTTRSum.MaxLines_Warning_Label = Nothing
-        Me.txtTTRSum.Name = "txtTTRSum"
-        Me.txtTTRSum.Size = New System.Drawing.Size(100, 20)
-        Me.txtTTRSum.TabIndex = 51
-        Me.txtTTRSum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.txtTTRSum.Visible = False
-        '
-        'txtPruefsummeBrutto
-        '
-        Me.txtPruefsummeBrutto._DateTimeOnly = False
-        Me.txtPruefsummeBrutto._numbersOnly = False
-        Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
-        Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True
-        Me.txtPruefsummeBrutto._Prozent = False
-        Me.txtPruefsummeBrutto._ShortDateNew = False
-        Me.txtPruefsummeBrutto._ShortDateOnly = False
-        Me.txtPruefsummeBrutto._TimeOnly = False
-        Me.txtPruefsummeBrutto._TimeOnly_Seconds = False
-        Me.txtPruefsummeBrutto._value = ""
-        Me.txtPruefsummeBrutto._Waehrung = False
-        Me.txtPruefsummeBrutto._WaehrungZeichen = True
-        Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
-        Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 101)
-        Me.txtPruefsummeBrutto.MaxLineLength = -1
-        Me.txtPruefsummeBrutto.MaxLines_Warning = ""
-        Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
-        Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
-        Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
-        Me.txtPruefsummeBrutto.TabIndex = 43
-        Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'txtPruefsummeNetto
-        '
-        Me.txtPruefsummeNetto._DateTimeOnly = False
-        Me.txtPruefsummeNetto._numbersOnly = False
-        Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
-        Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True
-        Me.txtPruefsummeNetto._Prozent = False
-        Me.txtPruefsummeNetto._ShortDateNew = False
-        Me.txtPruefsummeNetto._ShortDateOnly = False
-        Me.txtPruefsummeNetto._TimeOnly = False
-        Me.txtPruefsummeNetto._TimeOnly_Seconds = False
-        Me.txtPruefsummeNetto._value = ""
-        Me.txtPruefsummeNetto._Waehrung = False
-        Me.txtPruefsummeNetto._WaehrungZeichen = True
-        Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
-        Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 75)
-        Me.txtPruefsummeNetto.MaxLineLength = -1
-        Me.txtPruefsummeNetto.MaxLines_Warning = ""
-        Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
-        Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
-        Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
-        Me.txtPruefsummeNetto.TabIndex = 37
-        Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'txtAnzahl
-        '
-        Me.txtAnzahl._DateTimeOnly = False
-        Me.txtAnzahl._numbersOnly = False
-        Me.txtAnzahl._numbersOnlyKommastellen = ""
-        Me.txtAnzahl._numbersOnlyTrennzeichen = True
-        Me.txtAnzahl._Prozent = False
-        Me.txtAnzahl._ShortDateNew = False
-        Me.txtAnzahl._ShortDateOnly = False
-        Me.txtAnzahl._TimeOnly = False
-        Me.txtAnzahl._TimeOnly_Seconds = False
-        Me.txtAnzahl._value = ""
-        Me.txtAnzahl._Waehrung = False
-        Me.txtAnzahl._WaehrungZeichen = True
-        Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
-        Me.txtAnzahl.Location = New System.Drawing.Point(1051, 48)
-        Me.txtAnzahl.MaxLineLength = -1
-        Me.txtAnzahl.MaxLines_Warning = ""
-        Me.txtAnzahl.MaxLines_Warning_Label = Nothing
-        Me.txtAnzahl.Name = "txtAnzahl"
-        Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
-        Me.txtAnzahl.TabIndex = 35
-        Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.cbxIDSmitVerag.AutoSize = True
+        Me.cbxIDSmitVerag.Checked = True
+        Me.cbxIDSmitVerag.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxIDSmitVerag.Location = New System.Drawing.Point(504, 74)
+        Me.cbxIDSmitVerag.Name = "cbxIDSmitVerag"
+        Me.cbxIDSmitVerag.Size = New System.Drawing.Size(153, 17)
+        Me.cbxIDSmitVerag.TabIndex = 131
+        Me.cbxIDSmitVerag.Text = "Daten mit Verag/Verag360"
+        Me.cbxIDSmitVerag.UseVisualStyleBackColor = True
+        Me.cbxIDSmitVerag.Visible = False
        '
        'frmMDMDatenverarbetiung
        '
@@ -889,4 +904,5 @@ Partial Class frmMDMDatenverarbetiung
    Friend WithEvents Button10 As Button
    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
    Friend WithEvents cbxKopie As CheckBox
+    Friend WithEvents cbxIDSmitVerag As CheckBox
 End Class
--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.vb
@@ -1,6 +1,7 @@
 Imports System.Data.OleDb
 Imports System.IO
 Imports com.sun.xml.internal.rngom
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports itextsharp.text.pdf
 Imports MDM_Worker
 Imports VERAG_PROG_ALLGEMEIN
@@ -115,6 +116,10 @@ Public Class frmMDMDatenverarbetiung
                    End If
                End If
            Case "IDS"
+                If cbxIDSmitVerag.Checked Then
+                    MsgBox("Abrechnung ohne VERAG/VERAG360 !")
+                    Exit Sub
+                End If
                showIDSContextMenu()
            Case "MSE"
                Dim mseParam As New cMSEAPI(LIEFERANT)
@@ -875,7 +880,7 @@ Public Class frmMDMDatenverarbetiung
                              left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode And Kunde.KdNrAlt = 0
                              left join tbl_IDS_Kunden_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode
                              left join tbl_IDS_Produkte as prod on prod.ProductTypeCode = trans.ProductTypeCode
-                              where cast(trans.YearMonthDay as Date) =  '" & DateTimePicker2.Text & "' and isnull(trans.charged,0) = 0 AND trans.[UStVAn_ID] is null and Kunde.KdNrVERAG not in (756150, 711104) ", "FMZOLL")
+                              where cast(trans.YearMonthDay as Date) =  '" & DateTimePicker2.Text & "' and isnull(trans.charged,0) = 0 AND trans.[UStVAn_ID] is null " & IIf(cbxIDSmitVerag.Checked, " ", "and Kunde.KdNrVERAG not in (756150, 711104) "), "FMZOLL")

            .LOAD()

@@ -915,7 +920,15 @@ Public Class frmMDMDatenverarbetiung
            Dim sumTr As Double = 0
            For Each r As DataGridViewRow In .Rows
                sumGes += If(IsNumeric(r.Cells("Gesamtbetrag").Value), CDbl(r.Cells("Gesamtbetrag").Value), 0)
-                sumTr += If(IsNumeric(r.Cells("Liter").Value), CDbl(r.Cells("Liter").Value), 0)
+
+                If (IsNumeric(r.Cells("Liter").Value)) Then
+                    sumTr += CDbl(r.Cells("Liter").Value)
+                Else
+                    sumTr += 0
+                End If
+
+
+
                sumFee += If(IsNumeric(r.Cells("Net").Value), CDbl(r.Cells("Net").Value), 0)
            Next

@@ -1013,6 +1026,7 @@ Public Class frmMDMDatenverarbetiung
        Panel4.Visible = False
        Panel5.Visible = False
        cbxKopie.Visible = False
+        cbxIDSmitVerag.Visible = False


        Select Case Me.LIEFERANT
@@ -1038,6 +1052,7 @@ Public Class frmMDMDatenverarbetiung
                c.Dock = DockStyle.Fill
                pnlIDS.Visible = True
                cbxKopie.Visible = True
+                cbxIDSmitVerag.Visible = True

            Case "MSE"
                Panel5.Visible = True
@@ -4826,4 +4841,8 @@ RabattBerechnen:


    End Function
+
+    Private Sub cbxIDSmitVerag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxIDSmitVerag.CheckedChanged
+        initDgv_IDS()
+    End Sub
 End Class