UID-Pruefung, etc.

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.7.5")>
-<Assembly: AssemblyFileVersion("1.4.7.5")>
+<Assembly: AssemblyVersion("1.4.7.6")>
+<Assembly: AssemblyFileVersion("1.4.7.6")>

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

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') " &
@@ -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

VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb

@@ -33,6 +33,8 @@ Public Class cUIDPruefung
     Property uid_adr5 As Object = Nothing
     Property uid_adr6 As Object = Nothing
 
+    Property uid_pruefungstool As Object = Nothing
+
 
     Shared SQL As New SQL
 
@@ -68,6 +70,8 @@ Public Class cUIDPruefung
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr4", uid_adr4))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr5", uid_adr5))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr6", uid_adr6))
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_pruefungstool", uid_pruefungstool))
         Return list
     End Function
 
@@ -198,7 +202,7 @@ Public Class cUIDPruefung
                 Case "EUROPE"
 
                     For Each r As DataRow In dt.Rows
-                        Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr)
+                        Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr, ART)
                         If UID_TMP IsNot Nothing Then
                             If UID_TMP.uid_valid Then
                                 r("Ergebnis") = "OK"
@@ -293,7 +297,7 @@ Public Class cUIDPruefung
     End Function
 
 
-    Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True) As cUIDPruefung
+    Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Art = "") As cUIDPruefung
 
         Dim AD As New cAdressen(ba_KundenNr)
         If AD IsNot Nothing Then
@@ -370,7 +374,7 @@ Public Class cUIDPruefung
                         UID_TMP.uid_UstIdNr = AD.UstIdNr
                         UID_TMP.uid_stufe = 1
                         UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG")
-
+                        UID_TMP.uid_pruefungstool = Art.ToString
                         UID_TMP.uid_abfrageUid = requesterCountryCode & requesterVatNumber
                         '  UID.uid_firma =
                         ' UID.uid_strasse))

VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb

@@ -169,6 +169,8 @@ Public Class cFinanzOnlineWebService
 
                         UID_TMP.uid_stufe = Stufe
 
+                        UID_TMP.uid_pruefungstool = "FINANZONLINE"
+
                         UID_TMP.SAVE()
 
                         If multiUID Then
@@ -203,7 +205,7 @@ Public Class cFinanzOnlineWebService
                                     UID_TMP_new.uid_adr6 = adrz6
 
                                     UID_TMP_new.uid_stufe = Stufe
-
+                                    UID_TMP.uid_pruefungstool = "FINANZONLINE"
                                     UID_TMP_new.SAVE()
 
                                     If (UID_TMP.uid_valid) Then 'OK