UID-Pruefung, etc.

2025-10-24 17:01:01 +02:00
parent 7ceceb4a29
commit 4e6e44e72e
5 changed files with 296 additions and 86 deletions
--- a/SDL/buchhaltung/usrCntlBH.Designer.vb
+++ b/SDL/buchhaltung/usrCntlBH.Designer.vb
@@ -26,10 +26,15 @@ Partial Class usrCntlBH
        Me.pnl = New System.Windows.Forms.Panel()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
+        Me.Label52 = New System.Windows.Forms.Label()
+        Me.btnZNBverrechnen = New System.Windows.Forms.Button()
        Me.Label51 = New System.Windows.Forms.Label()
+        Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label49 = New System.Windows.Forms.Label()
        Me.btnZinsbelastung = New System.Windows.Forms.Button()
+        Me.Button13 = New System.Windows.Forms.Button()
        Me.txtZinssatz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label()
        Me.Label45 = New System.Windows.Forms.Label()
        Me.Label48 = New System.Windows.Forms.Label()
        Me.txtKdNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -42,12 +47,8 @@ Partial Class usrCntlBH
        Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label42 = New System.Windows.Forms.Label()
        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
-        Me.btnZNBverrechnen = New System.Windows.Forms.Button()
-        Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label43 = New System.Windows.Forms.Label()
-        Me.Button13 = New System.Windows.Forms.Button()
        Me.Button12 = New System.Windows.Forms.Button()
-        Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label()
        Me.Label34 = New System.Windows.Forms.Label()
        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
        Me.Label36 = New System.Windows.Forms.Label()
@@ -146,7 +147,16 @@ Partial Class usrCntlBH
        Me.Label30 = New System.Windows.Forms.Label()
        Me.Label29 = New System.Windows.Forms.Label()
        Me.Button7 = New System.Windows.Forms.Button()
-        Me.Label52 = New System.Windows.Forms.Label()
+        Me.Label53 = New System.Windows.Forms.Label()
+        Me.GroupBox12 = New System.Windows.Forms.GroupBox()
+        Me.Label54 = New System.Windows.Forms.Label()
+        Me.Button14 = New System.Windows.Forms.Button()
+        Me.Label55 = New System.Windows.Forms.Label()
+        Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label56 = New System.Windows.Forms.Label()
+        Me.txtUID_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtUID_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbx_nur_ungueltige = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        Me.GroupBox11.SuspendLayout()
@@ -165,6 +175,7 @@ Partial Class usrCntlBH
        Me.TabPage5.SuspendLayout()
        Me.GroupBox9.SuspendLayout()
        Me.GroupBox6.SuspendLayout()
+        Me.GroupBox12.SuspendLayout()
        Me.SuspendLayout()
        '
        'Label6
@@ -190,6 +201,8 @@ Partial Class usrCntlBH
        'TabPage1
        '
        Me.TabPage1.AutoScroll = True
+        Me.TabPage1.Controls.Add(Me.Label53)
+        Me.TabPage1.Controls.Add(Me.GroupBox12)
        Me.TabPage1.Controls.Add(Me.GroupBox11)
        Me.TabPage1.Controls.Add(Me.Label42)
        Me.TabPage1.Controls.Add(Me.GroupBox10)
@@ -241,6 +254,29 @@ Partial Class usrCntlBH
        Me.GroupBox11.TabIndex = 35
        Me.GroupBox11.TabStop = False
        '
+        'Label52
+        '
+        Me.Label52.AutoSize = True
+        Me.Label52.Location = New System.Drawing.Point(554, 46)
+        Me.Label52.Name = "Label52"
+        Me.Label52.Size = New System.Drawing.Size(138, 13)
+        Me.Label52.TabIndex = 41
+        Me.Label52.Text = "*wenn nicht im Kd hinterlegt"
+        '
+        'btnZNBverrechnen
+        '
+        Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.btnZNBverrechnen.Enabled = False
+        Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnZNBverrechnen.Location = New System.Drawing.Point(743, 39)
+        Me.btnZNBverrechnen.Name = "btnZNBverrechnen"
+        Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26)
+        Me.btnZNBverrechnen.TabIndex = 40
+        Me.btnZNBverrechnen.Text = "verrechnen"
+        Me.btnZNBverrechnen.UseVisualStyleBackColor = True
+        '
        'Label51
        '
        Me.Label51.AutoSize = True
@@ -252,6 +288,32 @@ Partial Class usrCntlBH
        Me.Label51.TabIndex = 36
        Me.Label51.Text = "Zinsnachberechnung"
        '
+        'txtnichtabrechneteKunden
+        '
+        Me.txtnichtabrechneteKunden._DateTimeOnly = False
+        Me.txtnichtabrechneteKunden._numbersOnly = False
+        Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = ""
+        Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True
+        Me.txtnichtabrechneteKunden._Prozent = False
+        Me.txtnichtabrechneteKunden._ShortDateNew = False
+        Me.txtnichtabrechneteKunden._ShortDateOnly = False
+        Me.txtnichtabrechneteKunden._TimeOnly = False
+        Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False
+        Me.txtnichtabrechneteKunden._value = "0"
+        Me.txtnichtabrechneteKunden._Waehrung = False
+        Me.txtnichtabrechneteKunden._WaehrungZeichen = True
+        Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black
+        Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(698, 16)
+        Me.txtnichtabrechneteKunden.MaxLineLength = -1
+        Me.txtnichtabrechneteKunden.MaxLines_Warning = ""
+        Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing
+        Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden"
+        Me.txtnichtabrechneteKunden.ReadOnly = True
+        Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20)
+        Me.txtnichtabrechneteKunden.TabIndex = 39
+        Me.txtnichtabrechneteKunden.Text = "0"
+        Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'Label49
        '
        Me.Label49.AutoSize = True
@@ -274,6 +336,19 @@ Partial Class usrCntlBH
        Me.btnZinsbelastung.Text = "Zinsbelastung erstellen"
        Me.btnZinsbelastung.UseVisualStyleBackColor = True
        '
+        'Button13
+        '
+        Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
+        Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button13.Location = New System.Drawing.Point(743, 10)
+        Me.Button13.Name = "Button13"
+        Me.Button13.Size = New System.Drawing.Size(98, 26)
+        Me.Button13.TabIndex = 38
+        Me.Button13.Text = "Übersicht"
+        Me.Button13.UseVisualStyleBackColor = True
+        '
        'txtZinssatz
        '
        Me.txtZinssatz._DateTimeOnly = False
@@ -298,6 +373,15 @@ Partial Class usrCntlBH
        Me.txtZinssatz.TabIndex = 31
        Me.txtZinssatz.Text = "9.5"
        '
+        'lblnichtabgerechneteZNB
+        '
+        Me.lblnichtabgerechneteZNB.AutoSize = True
+        Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(554, 19)
+        Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB"
+        Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13)
+        Me.lblnichtabgerechneteZNB.TabIndex = 37
+        Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:"
+        '
        'Label45
        '
        Me.Label45.AutoSize = True
@@ -482,46 +566,6 @@ Partial Class usrCntlBH
        Me.GroupBox10.TabIndex = 18
        Me.GroupBox10.TabStop = False
        '
-        'btnZNBverrechnen
-        '
-        Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
-        Me.btnZNBverrechnen.Enabled = False
-        Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnZNBverrechnen.Location = New System.Drawing.Point(743, 39)
-        Me.btnZNBverrechnen.Name = "btnZNBverrechnen"
-        Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26)
-        Me.btnZNBverrechnen.TabIndex = 40
-        Me.btnZNBverrechnen.Text = "verrechnen"
-        Me.btnZNBverrechnen.UseVisualStyleBackColor = True
-        '
-        'txtnichtabrechneteKunden
-        '
-        Me.txtnichtabrechneteKunden._DateTimeOnly = False
-        Me.txtnichtabrechneteKunden._numbersOnly = False
-        Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = ""
-        Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True
-        Me.txtnichtabrechneteKunden._Prozent = False
-        Me.txtnichtabrechneteKunden._ShortDateNew = False
-        Me.txtnichtabrechneteKunden._ShortDateOnly = False
-        Me.txtnichtabrechneteKunden._TimeOnly = False
-        Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False
-        Me.txtnichtabrechneteKunden._value = "0"
-        Me.txtnichtabrechneteKunden._Waehrung = False
-        Me.txtnichtabrechneteKunden._WaehrungZeichen = True
-        Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black
-        Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(698, 16)
-        Me.txtnichtabrechneteKunden.MaxLineLength = -1
-        Me.txtnichtabrechneteKunden.MaxLines_Warning = ""
-        Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing
-        Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden"
-        Me.txtnichtabrechneteKunden.ReadOnly = True
-        Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20)
-        Me.txtnichtabrechneteKunden.TabIndex = 39
-        Me.txtnichtabrechneteKunden.Text = "0"
-        Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'Label43
        '
        Me.Label43.AutoSize = True
@@ -531,19 +575,6 @@ Partial Class usrCntlBH
        Me.Label43.TabIndex = 2
        Me.Label43.Text = "Sachkontenzuweisung für Syska."
        '
-        'Button13
-        '
-        Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
-        Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button13.Location = New System.Drawing.Point(743, 10)
-        Me.Button13.Name = "Button13"
-        Me.Button13.Size = New System.Drawing.Size(98, 26)
-        Me.Button13.TabIndex = 38
-        Me.Button13.Text = "Übersicht"
-        Me.Button13.UseVisualStyleBackColor = True
-        '
        'Button12
        '
        Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
@@ -557,15 +588,6 @@ Partial Class usrCntlBH
        Me.Button12.Text = "Sachkonten"
        Me.Button12.UseVisualStyleBackColor = True
        '
-        'lblnichtabgerechneteZNB
-        '
-        Me.lblnichtabgerechneteZNB.AutoSize = True
-        Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(554, 19)
-        Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB"
-        Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13)
-        Me.lblnichtabgerechneteZNB.TabIndex = 37
-        Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:"
-        '
        'Label34
        '
        Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -646,7 +668,7 @@ Partial Class usrCntlBH
        Me.GroupBox7.Controls.Add(Me.Button6)
        Me.GroupBox7.Location = New System.Drawing.Point(6, 116)
        Me.GroupBox7.Name = "GroupBox7"
-        Me.GroupBox7.Size = New System.Drawing.Size(847, 69)
+        Me.GroupBox7.Size = New System.Drawing.Size(369, 69)
        Me.GroupBox7.TabIndex = 13
        Me.GroupBox7.TabStop = False
        '
@@ -654,7 +676,7 @@ Partial Class usrCntlBH
        '
        Me.Label33.Location = New System.Drawing.Point(145, 30)
        Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(327, 17)
+        Me.Label33.Size = New System.Drawing.Size(224, 17)
        Me.Label33.TabIndex = 3
        Me.Label33.Text = "Mahnsystem gekoppelt mit der FIBU (Syska)"
        '
@@ -1821,14 +1843,145 @@ Partial Class usrCntlBH
        Me.Button7.Text = "Importieren"
        Me.Button7.UseVisualStyleBackColor = True
        '
-        'Label52
+        'Label53
        '
-        Me.Label52.AutoSize = True
-        Me.Label52.Location = New System.Drawing.Point(554, 46)
-        Me.Label52.Name = "Label52"
-        Me.Label52.Size = New System.Drawing.Size(138, 13)
-        Me.Label52.TabIndex = 41
-        Me.Label52.Text = "*wenn nicht im Kd hinterlegt"
+        Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label53.Location = New System.Drawing.Point(479, 104)
+        Me.Label53.Name = "Label53"
+        Me.Label53.Size = New System.Drawing.Size(298, 18)
+        Me.Label53.TabIndex = 36
+        Me.Label53.Text = "UID PRÜFUNGEN"
+        '
+        'GroupBox12
+        '
+        Me.GroupBox12.Controls.Add(Me.cbx_nur_ungueltige)
+        Me.GroupBox12.Controls.Add(Me.txtUID_Jahr)
+        Me.GroupBox12.Controls.Add(Me.txtUID_Monat)
+        Me.GroupBox12.Controls.Add(Me.Label56)
+        Me.GroupBox12.Controls.Add(Me.Label55)
+        Me.GroupBox12.Controls.Add(Me.Label54)
+        Me.GroupBox12.Controls.Add(Me.cbxFirmaUID)
+        Me.GroupBox12.Controls.Add(Me.Button14)
+        Me.GroupBox12.Location = New System.Drawing.Point(478, 116)
+        Me.GroupBox12.Name = "GroupBox12"
+        Me.GroupBox12.Size = New System.Drawing.Size(374, 77)
+        Me.GroupBox12.TabIndex = 37
+        Me.GroupBox12.TabStop = False
+        '
+        'Label54
+        '
+        Me.Label54.Location = New System.Drawing.Point(133, 8)
+        Me.Label54.Name = "Label54"
+        Me.Label54.Size = New System.Drawing.Size(224, 17)
+        Me.Label54.TabIndex = 3
+        Me.Label54.Text = "alle UID-Prüfungen"
+        '
+        'Button14
+        '
+        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button14.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button14.Location = New System.Drawing.Point(6, 12)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(88, 49)
+        Me.Button14.TabIndex = 1
+        Me.Button14.Text = "Excel"
+        Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button14.UseVisualStyleBackColor = True
+        '
+        'Label55
+        '
+        Me.Label55.AutoSize = True
+        Me.Label55.Location = New System.Drawing.Point(133, 53)
+        Me.Label55.Name = "Label55"
+        Me.Label55.Size = New System.Drawing.Size(35, 13)
+        Me.Label55.TabIndex = 32
+        Me.Label55.Text = "Firma:"
+        '
+        'cbxFirmaUID
+        '
+        Me.cbxFirmaUID._allowedValuesFreiText = Nothing
+        Me.cbxFirmaUID._allowFreiText = False
+        Me.cbxFirmaUID._value = ""
+        Me.cbxFirmaUID.FormattingEnabled = True
+        Me.cbxFirmaUID.Location = New System.Drawing.Point(174, 49)
+        Me.cbxFirmaUID.Name = "cbxFirmaUID"
+        Me.cbxFirmaUID.Size = New System.Drawing.Size(125, 21)
+        Me.cbxFirmaUID.TabIndex = 31
+        '
+        'Label56
+        '
+        Me.Label56.AutoSize = True
+        Me.Label56.Location = New System.Drawing.Point(133, 31)
+        Me.Label56.Name = "Label56"
+        Me.Label56.Size = New System.Drawing.Size(62, 13)
+        Me.Label56.TabIndex = 33
+        Me.Label56.Text = "Monat/Jahr"
+        '
+        'txtUID_Monat
+        '
+        Me.txtUID_Monat._DateTimeOnly = False
+        Me.txtUID_Monat._numbersOnly = True
+        Me.txtUID_Monat._numbersOnlyKommastellen = ""
+        Me.txtUID_Monat._numbersOnlyTrennzeichen = False
+        Me.txtUID_Monat._Prozent = False
+        Me.txtUID_Monat._ShortDateNew = False
+        Me.txtUID_Monat._ShortDateOnly = False
+        Me.txtUID_Monat._TimeOnly = False
+        Me.txtUID_Monat._TimeOnly_Seconds = False
+        Me.txtUID_Monat._value = ""
+        Me.txtUID_Monat._Waehrung = False
+        Me.txtUID_Monat._WaehrungZeichen = False
+        Me.txtUID_Monat.ForeColor = System.Drawing.Color.Black
+        Me.txtUID_Monat.Location = New System.Drawing.Point(201, 28)
+        Me.txtUID_Monat.MaxLength = 2
+        Me.txtUID_Monat.MaxLineLength = -1
+        Me.txtUID_Monat.MaxLines_Warning = ""
+        Me.txtUID_Monat.MaxLines_Warning_Label = Nothing
+        Me.txtUID_Monat.Name = "txtUID_Monat"
+        Me.txtUID_Monat.Size = New System.Drawing.Size(24, 20)
+        Me.txtUID_Monat.TabIndex = 21
+        Me.txtUID_Monat.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtUID_Jahr
+        '
+        Me.txtUID_Jahr._DateTimeOnly = False
+        Me.txtUID_Jahr._numbersOnly = True
+        Me.txtUID_Jahr._numbersOnlyKommastellen = ""
+        Me.txtUID_Jahr._numbersOnlyTrennzeichen = False
+        Me.txtUID_Jahr._Prozent = False
+        Me.txtUID_Jahr._ShortDateNew = False
+        Me.txtUID_Jahr._ShortDateOnly = False
+        Me.txtUID_Jahr._TimeOnly = False
+        Me.txtUID_Jahr._TimeOnly_Seconds = False
+        Me.txtUID_Jahr._value = ""
+        Me.txtUID_Jahr._Waehrung = False
+        Me.txtUID_Jahr._WaehrungZeichen = False
+        Me.txtUID_Jahr.ForeColor = System.Drawing.Color.Black
+        Me.txtUID_Jahr.Location = New System.Drawing.Point(235, 28)
+        Me.txtUID_Jahr.MaxLength = 4
+        Me.txtUID_Jahr.MaxLineLength = -1
+        Me.txtUID_Jahr.MaxLines_Warning = ""
+        Me.txtUID_Jahr.MaxLines_Warning_Label = Nothing
+        Me.txtUID_Jahr.Name = "txtUID_Jahr"
+        Me.txtUID_Jahr.Size = New System.Drawing.Size(64, 20)
+        Me.txtUID_Jahr.TabIndex = 34
+        Me.txtUID_Jahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'cbx_nur_ungueltige
+        '
+        Me.cbx_nur_ungueltige.AutoSize = True
+        Me.cbx_nur_ungueltige.Checked = True
+        Me.cbx_nur_ungueltige.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbx_nur_ungueltige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbx_nur_ungueltige.Location = New System.Drawing.Point(259, 9)
+        Me.cbx_nur_ungueltige.Name = "cbx_nur_ungueltige"
+        Me.cbx_nur_ungueltige.Size = New System.Drawing.Size(87, 17)
+        Me.cbx_nur_ungueltige.TabIndex = 29
+        Me.cbx_nur_ungueltige.Text = "nur ungültige"
+        Me.cbx_nur_ungueltige.UseVisualStyleBackColor = True
        '
        'usrCntlBH
        '
@@ -1873,6 +2026,8 @@ Partial Class usrCntlBH
        Me.GroupBox9.PerformLayout()
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox6.PerformLayout()
+        Me.GroupBox12.ResumeLayout(False)
+        Me.GroupBox12.PerformLayout()
        Me.ResumeLayout(False)

    End Sub
@@ -2001,4 +2156,14 @@ Partial Class usrCntlBH
    Friend WithEvents txtnichtabrechneteKunden As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents btnZNBverrechnen As Button
    Friend WithEvents Label52 As Label
+    Friend WithEvents Label53 As Label
+    Friend WithEvents GroupBox12 As GroupBox
+    Friend WithEvents txtUID_Jahr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtUID_Monat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label56 As Label
+    Friend WithEvents Label55 As Label
+    Friend WithEvents Label54 As Label
+    Friend WithEvents cbxFirmaUID As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button14 As Button
+    Friend WithEvents cbx_nur_ungueltige As CheckBox
 End Class
--- a/SDL/buchhaltung/usrCntlBH.vb
+++ b/SDL/buchhaltung/usrCntlBH.vb
@@ -1,5 +1,7 @@
 Imports System.Globalization
 Imports System.Text
+Imports System.Windows.Media.Animation
+Imports com.sun.crypto.provider
 Imports com.sun.xml.internal.rngom
 Imports GrapeCity.ActiveReports.ReportsCore.Tools
 Imports VERAG_PROG_ALLGEMEIN
@@ -28,11 +30,15 @@ Public Class usrCntlBH
    Private Sub usrCntlBH_Load(sender As Object, e As EventArgs) Handles Me.Load
        'MyComboBox1.fillWithSQL(" SELECT tblUStVAntrag.UStVAn_LandKz,tblUStVAntrag.UStVAn_LandKz FROM tblUStVAntrag GROUP BY tblUStVAntrag.UStVAn_LandKz HAVING (((tblUStVAntrag.UStVAn_LandKz) Is Not Null)) ", False, "FMZOLL", True)

-
-
        cboAbfVerbFirma.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True)
        cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)

+        cbxFirmaUID.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True)
+        cbxFirmaUID.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+
+        txtUID_Jahr.Text = Now().Year
+        txtUID_Monat.Text = Now().Month
+
        MyComboBox1.fillWithSQL("  SELECT Währungstabelle.LandKz, [Länderverzeichnis für die Außenhandelsstatistik].LandKz  + ' - ' + [Länderverzeichnis für die Außenhandelsstatistik].LandBez   AS LandKzISO2 " &
         " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel " &
         " where [Länderverzeichnis für die Außenhandelsstatistik].LandKz IN ('DE','AT','BA','BE','BG','FR','HR','MK','MD','ME','NL','RO','CH','SK','SI','RS','TR','HU') " &
@@ -926,7 +932,7 @@ Public Class usrCntlBH



-            End If
+        End If
    End Sub

    Function gen_SPEDBUCH_ByKdNr(KdNr As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Optional abrechnugsdatum As Date = Nothing, Optional Vermerk As String = "")
@@ -1223,7 +1229,7 @@ Public Class usrCntlBH
            End If


-                If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then
+            If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then


                For Each R In dt_Main.Rows
@@ -1263,5 +1269,38 @@ Public Class usrCntlBH

    End Sub

+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click

+        Try
+
+
+
+            If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then
+
+                If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then
+
+                    Dim SQL_UID As String = "SELECT [uid_KundenNr] as KdNr , Adressen.[Name 1],[uid_UstIdKz] as UstIdKz,[uid_UstIdNr] as UstIdnr, case when [uid_valid] = 1 then 'GUELTIG' else 'UNGUELTIG' end as Ergebnis, cast([uid_Datum] as date) as Pruefdatum,Convert(varchar(8), [uid_Datum], 108) As Pruefzeit, [firma] as Firma, cast(Adressen.UstIdGeprüft as date) as [letzte Prüfung], uid_pruefungstool as Quelle, uid_Sachbearbeiter as Sachbearbeiter
+                                        FROM [VERAG].[dbo].[tblUIDPruefung] inner join Adressen on Adressen.AdressenNr = [uid_KundenNr] 
+                                        where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And [firma] = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "")
+
+                    Me.Cursor = Cursors.WaitCursor
+                    Dim dt_UID As DataTable = SQL.loadDgvBySql(SQL_UID, "FMZOLL")
+                    If dt_UID.Rows.Count > 0 Then
+                        cProgramFunctions.genExcelFromDT_NEW(dt_UID,,,,,, True)
+                        Me.Cursor = Cursors.Default
+                    Else
+                        MsgBox("keine Daten für den ausgewählten Zeitraum!")
+                        Me.Cursor = Cursors.Default
+                    End If
+
+                End If
+
+            End If
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+    End Sub
 End Class