UID-Pruefung, etc.

2026-05-28 15:50:25 +02:00
parent 301a7bff2a
commit a0ea2cf6e0
7 changed files with 183 additions and 143 deletions
--- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
+++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
@@ -1604,7 +1604,7 @@ Public Class cDakosyNCTSOut004



-    Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Optional DY_Mitarbeiter As String = "") As Boolean
+    Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Art As String, Optional DY_Mitarbeiter As String = "") As Boolean
        Try

            Dim Interface_VERSION = "004"
@@ -1614,10 +1614,10 @@ Public Class cDakosyNCTSOut004

            'Transaktion:
            XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp
-            XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, "NCTS") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
+            XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, Art) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
            XML.Transaktion.IODatumZeit = Now
            XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz
-            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, "NCTS") '"SUW"
+            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, Art) '"SUW"
            XML.Transaktion.Version = Interface_VERSION
            ' XML.Transaktion.IODivision3 = "DUR"
            XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp
--- a/DAKOSY_Worker/cDakosyFunftions.vb
+++ b/DAKOSY_Worker/cDakosyFunftions.vb
@@ -68,7 +68,7 @@ Public Class cDakosyFunftions
                    Return "AMBWO"
                Case "VERAG"
                    Select Case PROCEDURE ' Wenn EZA,... -> Alles über Suben
-                        Case "EZA", "AA", "AES"
+                        Case "EZA", "AA", "AES", "T1", "T2"
                            Return "SUB"
                        Case Else '  -->  NCTS
                            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
--- a/initATLASAufschubkonten/cWorker_AES_EXG.vb
+++ b/initATLASAufschubkonten/cWorker_AES_EXG.vb
@@ -181,7 +181,7 @@ Public Class cWorker_AES_EXG
                                                    End If
                                                    Dim saveFile = ""

-                                                    If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath) Then
+                                                    If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath, "NCTS") Then

                                                        If saveFile <> "" Then

@@ -196,7 +196,7 @@ Public Class cWorker_AES_EXG
                                                    If NCTS_OUT.SAVE_ALL() Then

                                                        Dim saveFile = ""
-                                                        If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath) Then
+                                                        If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, "CREATE", Application.StartupPath, "NCTS") Then
                                                            If saveFile <> "" Then

                                                                If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, NCTS_OUT.ncts_ObjectName, DY_ANM.dy_Id, NCTS_OUT.ncts_firma) Then
--- a/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
+++ b/initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
@@ -395,12 +395,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                    Select Case invEndung
                                        Case "SP" : country = "ES" 'SPANIEN
                                        Case "DA" : country = "DK" 'DÄNEMARK
-                                        Case "P1" : country = "PL" 'Portugal
-
-                                            'Case "RO" : country = "RO" 'RUMÄNIEN
-                                            'Case "PL" : country = "PL" 'POLEN
-                                            'Case "LV" : country = "LV" 'LETTLAND
-
+                                        'Case "P1" : country = "PL" 'POLEN
+                                        Case "FT" : country = "PT" 'PORTUGAL
                                        Case Else
                                            country = invEndung

--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -395,6 +395,7 @@ Partial Class frmStartOptions
        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.LinkLabel54 = New System.Windows.Forms.LinkLabel()
        Me.pnl.SuspendLayout()
        CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -452,6 +453,7 @@ Partial Class frmStartOptions
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.LinkLabel54)
        Me.pnl.Controls.Add(Me.Button32)
        Me.pnl.Controls.Add(Me.btnEZOLL_1month)
        Me.pnl.Controls.Add(Me.btnEZOLL_7days)
@@ -636,7 +638,7 @@ Partial Class frmStartOptions
        'cbxUpdateFIBU
        '
        Me.cbxUpdateFIBU.AutoSize = True
-        Me.cbxUpdateFIBU.Location = New System.Drawing.Point(18, 139)
+        Me.cbxUpdateFIBU.Location = New System.Drawing.Point(18, 118)
        Me.cbxUpdateFIBU.Name = "cbxUpdateFIBU"
        Me.cbxUpdateFIBU.Size = New System.Drawing.Size(121, 17)
        Me.cbxUpdateFIBU.TabIndex = 140
@@ -648,7 +650,7 @@ Partial Class frmStartOptions
        Me.cbxUseUIDFinanzOnline.AutoSize = True
        Me.cbxUseUIDFinanzOnline.Checked = True
        Me.cbxUseUIDFinanzOnline.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxUseUIDFinanzOnline.Location = New System.Drawing.Point(18, 118)
+        Me.cbxUseUIDFinanzOnline.Location = New System.Drawing.Point(18, 97)
        Me.cbxUseUIDFinanzOnline.Name = "cbxUseUIDFinanzOnline"
        Me.cbxUseUIDFinanzOnline.Size = New System.Drawing.Size(131, 17)
        Me.cbxUseUIDFinanzOnline.TabIndex = 139
@@ -657,7 +659,7 @@ Partial Class frmStartOptions
        '
        'txtMRNPrefix
        '
-        Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 48)
+        Me.txtMRNPrefix.Location = New System.Drawing.Point(1036, 31)
        Me.txtMRNPrefix.Name = "txtMRNPrefix"
        Me.txtMRNPrefix.Size = New System.Drawing.Size(43, 20)
        Me.txtMRNPrefix.TabIndex = 138
@@ -667,7 +669,7 @@ Partial Class frmStartOptions
        '
        Me.ATCNRinRE.AutoSize = True
        Me.ATCNRinRE.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.ATCNRinRE.Location = New System.Drawing.Point(842, 51)
+        Me.ATCNRinRE.Location = New System.Drawing.Point(842, 34)
        Me.ATCNRinRE.Name = "ATCNRinRE"
        Me.ATCNRinRE.Size = New System.Drawing.Size(188, 13)
        Me.ATCNRinRE.TabIndex = 137
@@ -678,7 +680,7 @@ Partial Class frmStartOptions
        '
        Me.PictureBox24.BackgroundImage = CType(resources.GetObject("PictureBox24.BackgroundImage"), System.Drawing.Image)
        Me.PictureBox24.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox24.Location = New System.Drawing.Point(782, 46)
+        Me.PictureBox24.Location = New System.Drawing.Point(782, 29)
        Me.PictureBox24.Name = "PictureBox24"
        Me.PictureBox24.Size = New System.Drawing.Size(18, 18)
        Me.PictureBox24.TabIndex = 92
@@ -701,7 +703,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel63.AutoSize = True
        Me.LinkLabel63.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel63.Location = New System.Drawing.Point(668, 51)
+        Me.LinkLabel63.Location = New System.Drawing.Point(668, 34)
        Me.LinkLabel63.Name = "LinkLabel63"
        Me.LinkLabel63.Size = New System.Drawing.Size(100, 13)
        Me.LinkLabel63.TabIndex = 91
@@ -767,7 +769,7 @@ Partial Class frmStartOptions
        Me.cbxVermerk.AutoSize = True
        Me.cbxVermerk.Checked = True
        Me.cbxVermerk.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxVermerk.Location = New System.Drawing.Point(151, 202)
+        Me.cbxVermerk.Location = New System.Drawing.Point(151, 181)
        Me.cbxVermerk.Name = "cbxVermerk"
        Me.cbxVermerk.Size = New System.Drawing.Size(100, 17)
        Me.cbxVermerk.TabIndex = 76
@@ -891,7 +893,7 @@ Partial Class frmStartOptions
        'Label19
        '
        Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(205, 179)
+        Me.Label19.Location = New System.Drawing.Point(205, 158)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(67, 13)
        Me.Label19.TabIndex = 65
@@ -900,7 +902,7 @@ Partial Class frmStartOptions
        'Label18
        '
        Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(206, 159)
+        Me.Label18.Location = New System.Drawing.Point(206, 138)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(27, 13)
        Me.Label18.TabIndex = 64
@@ -910,7 +912,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel36.AutoSize = True
        Me.LinkLabel36.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel36.Location = New System.Drawing.Point(15, 213)
+        Me.LinkLabel36.Location = New System.Drawing.Point(15, 192)
        Me.LinkLabel36.Name = "LinkLabel36"
        Me.LinkLabel36.Size = New System.Drawing.Size(117, 13)
        Me.LinkLabel36.TabIndex = 62
@@ -1049,7 +1051,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel33.AutoSize = True
        Me.LinkLabel33.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel33.Location = New System.Drawing.Point(15, 194)
+        Me.LinkLabel33.Location = New System.Drawing.Point(15, 173)
        Me.LinkLabel33.Name = "LinkLabel33"
        Me.LinkLabel33.Size = New System.Drawing.Size(107, 13)
        Me.LinkLabel33.TabIndex = 47
@@ -1072,7 +1074,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel32.AutoSize = True
        Me.LinkLabel32.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel32.Location = New System.Drawing.Point(15, 176)
+        Me.LinkLabel32.Location = New System.Drawing.Point(15, 155)
        Me.LinkLabel32.Name = "LinkLabel32"
        Me.LinkLabel32.Size = New System.Drawing.Size(95, 13)
        Me.LinkLabel32.TabIndex = 45
@@ -4248,7 +4250,7 @@ Partial Class frmStartOptions
        '
        Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image)
        Me.PictureBox12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox12.Location = New System.Drawing.Point(127, 154)
+        Me.PictureBox12.Location = New System.Drawing.Point(127, 133)
        Me.PictureBox12.Name = "PictureBox12"
        Me.PictureBox12.Size = New System.Drawing.Size(18, 18)
        Me.PictureBox12.TabIndex = 37
@@ -4259,7 +4261,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel20.AutoSize = True
        Me.LinkLabel20.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel20.Location = New System.Drawing.Point(15, 159)
+        Me.LinkLabel20.Location = New System.Drawing.Point(15, 138)
        Me.LinkLabel20.Name = "LinkLabel20"
        Me.LinkLabel20.Size = New System.Drawing.Size(106, 13)
        Me.LinkLabel20.TabIndex = 10
@@ -4270,7 +4272,7 @@ Partial Class frmStartOptions
        '
        Me.PictureBox11.BackgroundImage = CType(resources.GetObject("PictureBox11.BackgroundImage"), System.Drawing.Image)
        Me.PictureBox11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox11.Location = New System.Drawing.Point(620, 94)
+        Me.PictureBox11.Location = New System.Drawing.Point(620, 77)
        Me.PictureBox11.Name = "PictureBox11"
        Me.PictureBox11.Size = New System.Drawing.Size(18, 18)
        Me.PictureBox11.TabIndex = 35
@@ -4281,7 +4283,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel19.AutoSize = True
        Me.LinkLabel19.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel19.Location = New System.Drawing.Point(479, 99)
+        Me.LinkLabel19.Location = New System.Drawing.Point(479, 82)
        Me.LinkLabel19.Name = "LinkLabel19"
        Me.LinkLabel19.Size = New System.Drawing.Size(129, 13)
        Me.LinkLabel19.TabIndex = 9
@@ -4292,7 +4294,7 @@ Partial Class frmStartOptions
        '
        Me.PictureBox10.BackgroundImage = CType(resources.GetObject("PictureBox10.BackgroundImage"), System.Drawing.Image)
        Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox10.Location = New System.Drawing.Point(620, 73)
+        Me.PictureBox10.Location = New System.Drawing.Point(620, 56)
        Me.PictureBox10.Name = "PictureBox10"
        Me.PictureBox10.Size = New System.Drawing.Size(18, 18)
        Me.PictureBox10.TabIndex = 33
@@ -4303,7 +4305,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel18.AutoSize = True
        Me.LinkLabel18.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel18.Location = New System.Drawing.Point(479, 78)
+        Me.LinkLabel18.Location = New System.Drawing.Point(479, 61)
        Me.LinkLabel18.Name = "LinkLabel18"
        Me.LinkLabel18.Size = New System.Drawing.Size(106, 13)
        Me.LinkLabel18.TabIndex = 7
@@ -4314,7 +4316,7 @@ Partial Class frmStartOptions
        '
        Me.PictureBox9.BackgroundImage = CType(resources.GetObject("PictureBox9.BackgroundImage"), System.Drawing.Image)
        Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox9.Location = New System.Drawing.Point(620, 46)
+        Me.PictureBox9.Location = New System.Drawing.Point(620, 29)
        Me.PictureBox9.Name = "PictureBox9"
        Me.PictureBox9.Size = New System.Drawing.Size(18, 18)
        Me.PictureBox9.TabIndex = 31
@@ -4325,7 +4327,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel17.AutoSize = True
        Me.LinkLabel17.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel17.Location = New System.Drawing.Point(479, 51)
+        Me.LinkLabel17.Location = New System.Drawing.Point(479, 34)
        Me.LinkLabel17.Name = "LinkLabel17"
        Me.LinkLabel17.Size = New System.Drawing.Size(107, 13)
        Me.LinkLabel17.TabIndex = 4
@@ -4335,7 +4337,7 @@ Partial Class frmStartOptions
        'cbxHistory
        '
        Me.cbxHistory.AutoSize = True
-        Me.cbxHistory.Location = New System.Drawing.Point(18, 95)
+        Me.cbxHistory.Location = New System.Drawing.Point(18, 78)
        Me.cbxHistory.Name = "cbxHistory"
        Me.cbxHistory.Size = New System.Drawing.Size(58, 17)
        Me.cbxHistory.TabIndex = 8
@@ -4362,7 +4364,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel2.AutoSize = True
        Me.LinkLabel2.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel2.Location = New System.Drawing.Point(299, 78)
+        Me.LinkLabel2.Location = New System.Drawing.Point(299, 61)
        Me.LinkLabel2.Name = "LinkLabel2"
        Me.LinkLabel2.Size = New System.Drawing.Size(133, 13)
        Me.LinkLabel2.TabIndex = 6
@@ -4373,7 +4375,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel1.AutoSize = True
        Me.LinkLabel1.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel1.Location = New System.Drawing.Point(15, 78)
+        Me.LinkLabel1.Location = New System.Drawing.Point(15, 61)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(182, 13)
        Me.LinkLabel1.TabIndex = 5
@@ -4384,7 +4386,7 @@ Partial Class frmStartOptions
        '
        Me.LinkLabel3.AutoSize = True
        Me.LinkLabel3.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel3.Location = New System.Drawing.Point(299, 51)
+        Me.LinkLabel3.Location = New System.Drawing.Point(299, 34)
        Me.LinkLabel3.Name = "LinkLabel3"
        Me.LinkLabel3.Size = New System.Drawing.Size(128, 13)
        Me.LinkLabel3.TabIndex = 3
@@ -4395,7 +4397,7 @@ Partial Class frmStartOptions
        '
        Me.lklAufschubkontenATLASEZOLL.AutoSize = True
        Me.lklAufschubkontenATLASEZOLL.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.lklAufschubkontenATLASEZOLL.Location = New System.Drawing.Point(15, 51)
+        Me.lklAufschubkontenATLASEZOLL.Location = New System.Drawing.Point(15, 34)
        Me.lklAufschubkontenATLASEZOLL.Name = "lklAufschubkontenATLASEZOLL"
        Me.lklAufschubkontenATLASEZOLL.Size = New System.Drawing.Size(177, 13)
        Me.lklAufschubkontenATLASEZOLL.TabIndex = 2
@@ -4462,7 +4464,7 @@ Partial Class frmStartOptions
        Me.MyTextBox2._Waehrung = False
        Me.MyTextBox2._WaehrungZeichen = True
        Me.MyTextBox2.ForeColor = System.Drawing.Color.Red
-        Me.MyTextBox2.Location = New System.Drawing.Point(151, 176)
+        Me.MyTextBox2.Location = New System.Drawing.Point(151, 155)
        Me.MyTextBox2.MaxLineLength = -1
        Me.MyTextBox2.MaxLines_Warning = ""
        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
@@ -5237,7 +5239,7 @@ Partial Class frmStartOptions
        Me.MyTextBox1._Waehrung = False
        Me.MyTextBox1._WaehrungZeichen = True
        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox1.Location = New System.Drawing.Point(151, 156)
+        Me.MyTextBox1.Location = New System.Drawing.Point(151, 135)
        Me.MyTextBox1.MaxLineLength = -1
        Me.MyTextBox1.MaxLines_Warning = ""
        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
@@ -5277,6 +5279,17 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
+        'LinkLabel54
+        '
+        Me.LinkLabel54.AutoSize = True
+        Me.LinkLabel54.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel54.Location = New System.Drawing.Point(15, 214)
+        Me.LinkLabel54.Name = "LinkLabel54"
+        Me.LinkLabel54.Size = New System.Drawing.Size(124, 13)
+        Me.LinkLabel54.TabIndex = 150
+        Me.LinkLabel54.TabStop = True
+        Me.LinkLabel54.Text = "UID-Prüfung VERAG360"
+        '
        'frmStartOptions
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5731,4 +5744,5 @@ Partial Class frmStartOptions
    Friend WithEvents MyTextBox5 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Button31 As Button
    Friend WithEvents Button32 As Button
+    Friend WithEvents LinkLabel54 As LinkLabel
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.resx
+++ b/initATLASAufschubkonten/frmStartOptions.resx
@@ -236,6 +236,102 @@
        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="PictureBox26.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -646,9 +742,6 @@
        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
  </data>
-  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
  <data name="PictureBox18.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
@@ -769,102 +862,12 @@
        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
  </data>
-  <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
-</value>
-  </data>
+  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -3399,7 +3399,10 @@ Public Class frmStartOptions

    Function getUID_Pruefung(maxAnz As Integer, Optional finanzOnline As Boolean = True, Optional veroegerungMs As Integer = 1000) As Boolean

-        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
+
+        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 19)
+        getUID_Pruefung(maxAnz, "VERAG 360 GmbH", "UID Prüfung VERAG-360", Empfaenger, "",,, True, finanzOnline, veroegerungMs, True)
+        Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 1)
        getUID_Pruefung(maxAnz, "VERAG", "UID Prüfung VERAG", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs, True)
        Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 20)
        getUID_Pruefung(maxAnz, "IMEX", "UID Prüfung IMEX", Empfaenger, "al@verag.ag",,, True, finanzOnline, veroegerungMs)
@@ -7983,7 +7986,7 @@ repeatRequest:

        Dim dt As DataTable = SQL.loadDgvBySql("select *  from (

-                        select ADR.AdressenNr, ADR.[Name 1],KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR
+                        select ADR.AdressenNr, ADR.[Name 1],F.FilialenNr,KK.kkd_kkaBez, ISNULL(KK.kkd_Email,'') as kkd_email ,isnull(KK.kkd_EmailCC,'') as kkd_EmailCC , isnull(KK.kkd_EmailBCC,'') as kkd_EmailBCC, F.Firma from Adressen ADR
                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
                       INNER JOIN tblKundenKontakt KK on KK.kkd_KundenNr = K.KundenNr
@@ -7991,14 +7994,14 @@ repeatRequest:
                       
                       UNION
                       
-                        select ADR.AdressenNr, ADR.[Name 1] ,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma  from Adressen ADR
+                        select ADR.AdressenNr, ADR.[Name 1] ,F.FilialenNr,'Standard',isnull(ADR.[E-Mail],''), isnull(ADR.[E-Mail2],''),'', F.Firma  from Adressen ADR
                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
                        where isnull(ADR.Auswahl,'A') = 'A' and (ADR.[E-Mail] is not null or ADR.[E-Mail2] is not null)
                       
                        UNION
                       
-                       select ADR.AdressenNr, ADR.[Name 1] ,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma  from Adressen ADR
+                       select ADR.AdressenNr, ADR.[Name 1] ,F.FilialenNr,'Statusmails',isnull(BEN.eb_EMail,''), '','', F.Firma  from Adressen ADR
                       inner join Kunden K on K.KundenNr = ADR.AdressenNr
                       inner join Filialen F On  F.FilialenNr=K.FilialenNr 
                       INNER JOIN  tblEmailBenachrichtigung BEN on BEN.eb_KundenNr = K.KundenNr
@@ -8011,6 +8014,7 @@ repeatRequest:
        dt_wrongEmails.Columns.Add("KdNr", GetType(String))
        dt_wrongEmails.Columns.Add("Art", GetType(String))
        dt_wrongEmails.Columns.Add("Name", GetType(String))
+        dt_wrongEmails.Columns.Add("FilialenNr", GetType(Integer))
        dt_wrongEmails.Columns.Add("Firma", GetType(String))
        dt_wrongEmails.Columns.Add("fehlerhafteMail", GetType(String))
        dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
@@ -8021,6 +8025,7 @@ repeatRequest:
        Dim dtAMBAR As DataTable = dt_wrongEmails.Clone()
        Dim dtUNISPED As DataTable = dt_wrongEmails.Clone()
        Dim dtFRONTOFFICE As DataTable = dt_wrongEmails.Clone()
+        Dim dtVERAG360 As DataTable = dt_wrongEmails.Clone()

        'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
        Dim yearstocheck As Integer = CustomersWithInvoiceWithingYears
@@ -8042,6 +8047,7 @@ repeatRequest:
                        Dim ROW As DataRow = dt_wrongEmails.NewRow
                        ROW("KdNr") = r.Item("AdressenNr")
                        ROW("Art") = r.Item("kkd_kkaBez")
+                        ROW("FilialenNr") = r.Item("FilialenNr")
                        ROW("Name") = r.Item("Name 1")
                        ROW("Firma") = r.Item("Firma")
                        ROW("fehlerhafteMail") = fehlerhafteMail
@@ -8051,7 +8057,11 @@ repeatRequest:

                        Select Case ROW("Firma").ToString()
                            Case "VERAG"
-                                dtVerag.ImportRow(ROW)
+                                If ROW("FilialenNr") = 8001 Then
+                                    dtVERAG360.ImportRow(ROW)
+                                Else
+                                    dtVerag.ImportRow(ROW)
+                                End If
                            Case "IMEX"
                                dtIMEX.ImportRow(ROW)
                            Case "AMBAR"
@@ -8132,6 +8142,16 @@ repeatRequest:
                        End If
                    End If

+                    If dtVERAG360.Rows.Count > 0 Then
+                        Dim empfaneger = cMitarbeiter.GetEMailRecipientForEmailNotification("EMail-Check", 19)
+                        If empfaneger <> "" Then
+                            Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtVERAG360,,,,, False,,, True)
+                            Dim anhenge As New List(Of String)
+                            anhenge.Add(path)
+                            VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaneger, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & Betreff & " VERAG360", MailText,, True, False,,, anhenge)
+                        End If
+                    End If
+
                End If

            End If
@@ -8470,4 +8490,11 @@ repeatRequest:

        checkZugferd(sendNotificationEmails)
    End Sub
+
+    Private Sub LinkLabel54_LinkClicked_2(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim Empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("UID-Prüfung", 19)
+        Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG 360 GmbH", "UID Prüfung VERAG 360", Empfaenger, "",, MyTextBox2._value, cbxVermerk.Checked, cbxUseUIDFinanzOnline.Checked)
+        showPic(bool, PictureBox12)
+    End Sub
 End Class