EORI Antrag Hinweis, Aufschubkontenabgleich verbessert

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb

@@ -22,6 +22,7 @@ Partial Class usrcntlEORI_Antrag
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlEORI_Antrag))
         Me.lblText = New System.Windows.Forms.Label()
         Me.pic = New System.Windows.Forms.PictureBox()
         Me.btnDown = New System.Windows.Forms.Button()
@@ -66,6 +67,8 @@ Partial Class usrcntlEORI_Antrag
         Me.gebDatum = New System.Windows.Forms.DateTimePicker()
         Me.linkBMF = New System.Windows.Forms.LinkLabel()
         Me.cbxGebDatu = New System.Windows.Forms.CheckBox()
+        Me.txtEORIInfo = New System.Windows.Forms.TextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -675,12 +678,37 @@ Partial Class usrcntlEORI_Antrag
         Me.cbxGebDatu.UseVisualStyleBackColor = True
         Me.cbxGebDatu.Visible = False
         '
+        'txtEORIInfo
+        '
+        Me.txtEORIInfo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtEORIInfo.Location = New System.Drawing.Point(815, 83)
+        Me.txtEORIInfo.Multiline = True
+        Me.txtEORIInfo.Name = "txtEORIInfo"
+        Me.txtEORIInfo.ReadOnly = True
+        Me.txtEORIInfo.Size = New System.Drawing.Size(161, 121)
+        Me.txtEORIInfo.TabIndex = 75
+        Me.txtEORIInfo.Text = resources.GetString("txtEORIInfo.Text")
+        '
+        'Label15
+        '
+        Me.Label15.AutoSize = True
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label15.ForeColor = System.Drawing.Color.Red
+        Me.Label15.Location = New System.Drawing.Point(815, 62)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(76, 20)
+        Me.Label15.TabIndex = 76
+        Me.Label15.Text = "Achtung"
+        '
         'usrcntlEORI_Antrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.Label15)
+        Me.Controls.Add(Me.txtEORIInfo)
         Me.Controls.Add(Me.cbxGebDatu)
         Me.Controls.Add(Me.linkBMF)
         Me.Controls.Add(Me.gebDatum)
@@ -776,4 +804,6 @@ Partial Class usrcntlEORI_Antrag
     Friend WithEvents gebDatum As DateTimePicker
     Friend WithEvents linkBMF As LinkLabel
     Friend WithEvents cbxGebDatu As CheckBox
+    Friend WithEvents txtEORIInfo As TextBox
+    Friend WithEvents Label15 As Label
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.resx

@@ -117,4 +117,14 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <data name="txtEORIInfo.Text" xml:space="preserve">
+    <value>Ab 1.10.2026 EORI-Nummer-Beantragung nur mehr über das Zoll-Portal möglich! Formularversion 0870 wird nur in Ausnahmefällen akzeptiert.
+Sowohl Firmen als auch Privatpersonen benötigen eine gültige ELSTER-Login-Option (zB: Zertifikatsdatei).
+
+Link Zoll-Portal: https://www.zoll-portal.de/
+Link Elster: https://www.elster.de/eportal/start
+
+
+</value>
+  </data>
 </root>

SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb

@@ -24,12 +24,12 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
     Private Sub InitializeComponent()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.cbxExcel = New System.Windows.Forms.CheckBox()
         Me.cbx = New System.Windows.Forms.CheckBox()
         Me.lnlCnt = New System.Windows.Forms.Label()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.lblErr = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.cbxExcel = New System.Windows.Forms.CheckBox()
         Me.GroupBox2.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -40,9 +40,9 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
         Me.Label8.Location = New System.Drawing.Point(3, 0)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(102, 17)
+        Me.Label8.Size = New System.Drawing.Size(223, 17)
         Me.Label8.TabIndex = 16
-        Me.Label8.Text = "Abgabenliste"
+        Me.Label8.Text = "Abgabenlistenabgleich TRIER"
         '
         'GroupBox2
         '
@@ -58,6 +58,16 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         Me.GroupBox2.TabIndex = 15
         Me.GroupBox2.TabStop = False
         '
+        'cbxExcel
+        '
+        Me.cbxExcel.AutoSize = True
+        Me.cbxExcel.Location = New System.Drawing.Point(148, 76)
+        Me.cbxExcel.Name = "cbxExcel"
+        Me.cbxExcel.Size = New System.Drawing.Size(126, 17)
+        Me.cbxExcel.TabIndex = 36
+        Me.cbxExcel.Text = "als EXCEL ausgeben"
+        Me.cbxExcel.UseVisualStyleBackColor = True
+        '
         'cbx
         '
         Me.cbx.AutoSize = True
@@ -111,16 +121,6 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         Me.Label14.TabIndex = 5
         Me.Label14.Text = "Prüft die ausgewähle Liste der Abgaben von Trier mit den fakturierten Datensätzen" &
     " ab." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bei Differenz wird der Eintrag angezeigt."
-        '
-        'cbxExcel
-        '
-        Me.cbxExcel.AutoSize = True
-        Me.cbxExcel.Location = New System.Drawing.Point(148, 76)
-        Me.cbxExcel.Name = "cbxExcel"
-        Me.cbxExcel.Size = New System.Drawing.Size(126, 17)
-        Me.cbxExcel.TabIndex = 36
-        Me.cbxExcel.Text = "als EXCEL ausgeben"
-        Me.cbxExcel.UseVisualStyleBackColor = True
         '
         'usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         '

SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb

@@ -36,6 +36,16 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
 
             If fd.ShowDialog = DialogResult.OK Then
 
+
+                Dim dt_Dateneinlesung As New DataTable
+                dt_Dateneinlesung.Columns.Add("Datum")
+                dt_Dateneinlesung.Columns.Add("MRN")
+                dt_Dateneinlesung.Columns.Add("ATC")
+                dt_Dateneinlesung.Columns.Add("Betrag")
+                dt_Dateneinlesung.Columns.Add("Zollamt")
+
+
+
                 Dim dt As New DataTable
                 dt.Columns.Add("AKTO")
                 dt.Columns.Add("Faelligkeit")
@@ -71,35 +81,52 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                     End If
 
 
+
                     If line.Length = "79" AndAlso (line.Contains("ATC") Or line.Substring(30, 2).Trim.Contains("DE")) Then
                         Dim zollamt As String = line.Substring(0, 28).Trim
                         Dim atc As String = ""
                         Dim mrn As String = ""
-                        Dim sqlStringWhere = ""
+                        ' Dim sqlStringWhere = ""
                         If line.Contains("ATC") Then
                             atc = line.Substring(28, 25).Trim
-                            sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null  and (left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' or [RechnungsausgangPositionen].[Weitere_Reg_Nr] ='" & atc & "' ) AND [AufschubkontoNr]='" & AKTO & "'"
+                            '    sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null  and (left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' or [RechnungsausgangPositionen].[Weitere_Reg_Nr] ='" & atc & "' ) AND [AufschubkontoNr]='" & AKTO & "'"
                         ElseIf line.Substring(30, 2).Trim.Contains("DE") Then
                             mrn = line.Substring(28, 25).Trim
-                            sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null  and left([RechnungsausgangPositionen].Belegdaten,21)='" & mrn & "' AND [AufschubkontoNr]='" & AKTO & "'"
+                            '   sqlStringWhere = "[Status]<>0 and DruckDatumZeit is not null  and left([RechnungsausgangPositionen].Belegdaten,21)='" & mrn & "' AND [AufschubkontoNr]='" & AKTO & "'"
                         End If
 
                         Dim datum As Date = CDate(line.Substring(53, 10).Trim)
                         Dim betrag As Double = CDbl(line.Substring(63, 16).Trim)
 
+                        Dim vorhandeneZeile As DataRow = dt_Dateneinlesung.AsEnumerable().FirstOrDefault(Function(r) r.Field(Of String)("MRN") = mrn AndAlso mrn <> "" OrElse r.Field(Of String)("ATC") = atc AndAlso atc <> "")
 
-
+                        If vorhandeneZeile IsNot Nothing Then
-                        Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", sqlStringWhere, "FMZOLL", "0"))
+                            vorhandeneZeile("Betrag") = CDbl(vorhandeneZeile("Betrag")) + betrag
-
+                        Else
-                        Dim differenz = fakturiert - betrag
+                            dt_Dateneinlesung.Rows.Add({datum, mrn, atc, betrag, zollamt})
-
-                        If Not cbx.Checked OrElse differenz <> 0 Then
-
-                            erg &= zollamt & " -  " & IIf(atc <> "", atc, mrn) & ":     " & betrag & " | " & differenz & vbNewLine
-                            dt.Rows.Add({AKTO, Faelligkeit, IIf(atc <> "", atc, mrn), datum, zollamt, betrag, fakturiert, differenz})
                         End If
 
                     End If
+
+                Next
+
+                For Each r As DataRow In dt_Dateneinlesung.Rows
+                    Dim SQLWHere = ""
+                    If r.Item("ATC") <> "" Then
+                        SQLWHere = "[Status]<>0 and DruckDatumZeit is not null  and (left([RechnungsausgangPositionen].Belegdaten,21)='" & r.Item("ATC") & "' or [RechnungsausgangPositionen].[Weitere_Reg_Nr] ='" & r.Item("ATC").value & "' ) AND [AufschubkontoNr]='" & AKTO & "'"
+                    ElseIf r.Item("MRN") <> "" Then
+                        SQLWHere = "[Status]<>0 and DruckDatumZeit is not null  and left([RechnungsausgangPositionen].Belegdaten,21)='" & r.Item("MRN") & "' AND [AufschubkontoNr]='" & AKTO & "'"
+                    End If
+
+                    Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", SQLWHere, "FMZOLL", "0"))
+
+                    Dim differenz = fakturiert - r.Item("betrag")
+
+                    If Not cbx.Checked OrElse differenz <> 0 Then
+
+                        erg &= r.Item("Zollamt") & " -  " & IIf(r.Item("ATC") <> "", r.Item("ATC"), r.Item("MRN")) & ":     " & r.Item("Betrag") & " | " & differenz & vbNewLine
+                        dt.Rows.Add({AKTO, Faelligkeit, IIf(r.Item("ATC") <> "", r.Item("ATC"), r.Item("MRN")), r.Item("Datum"), r.Item("Zollamt"), r.Item("Betrag"), fakturiert, differenz})
+                    End If
                     cnt += 1
                     lnlCnt.Text = cnt '& "/" & Flines.Count
                     Me.Refresh()

SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb

@@ -46,9 +46,9 @@ Partial Class usrCntlAuswertungenAufschub_Abgabenliste
         Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
         Me.Label8.Location = New System.Drawing.Point(3, 0)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(102, 17)
+        Me.Label8.Size = New System.Drawing.Size(128, 17)
         Me.Label8.TabIndex = 16
-        Me.Label8.Text = "Abgabenliste"
+        Me.Label8.Text = "Abgabenliste DE"
         '
         'GroupBox2
         '

SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb

@@ -231,8 +231,15 @@ Partial Class usrCntlZOLLAuswertungen
         Me.PictureBox3 = New System.Windows.Forms.PictureBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
+        Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
         Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
         Me.TabPage5 = New System.Windows.Forms.TabPage()
         Me.Label60 = New System.Windows.Forms.Label()
         Me.GroupBox9 = New System.Windows.Forms.GroupBox()
@@ -255,6 +262,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.PictureBox8 = New System.Windows.Forms.PictureBox()
         Me.TabPage6 = New System.Windows.Forms.TabPage()
         Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+        Me.cbxStahlverordnung_SNDdet = New System.Windows.Forms.CheckBox()
         Me.Label105 = New System.Windows.Forms.Label()
         Me.Button26 = New System.Windows.Forms.Button()
         Me.von_stahlverordnung = New System.Windows.Forms.DateTimePicker()
@@ -279,14 +287,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Label104 = New System.Windows.Forms.Label()
         Me.Label97 = New System.Windows.Forms.Label()
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
+        Me.PictureBox14 = New System.Windows.Forms.PictureBox()
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
-        Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
-        Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
-        Me.cbxStahlverordnung_SNDdet = New System.Windows.Forms.CheckBox()
         Me.GroupBox1.SuspendLayout()
         Me.grpDurmaz.SuspendLayout()
         CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -333,6 +334,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.GroupBox6.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.pnl.SuspendLayout()
+        CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'Label3
@@ -1332,7 +1334,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.tbcntr.Location = New System.Drawing.Point(0, 57)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(1041, 1829)
+        Me.tbcntr.Size = New System.Drawing.Size(1007, 1829)
         Me.tbcntr.TabIndex = 22
         '
         'TabPage1
@@ -1375,7 +1377,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1033, 1803)
+        Me.TabPage1.Size = New System.Drawing.Size(999, 1803)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Bürgschaften"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -2572,11 +2574,28 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(1050, 1803)
+        Me.TabPage2.Size = New System.Drawing.Size(1016, 1803)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Kunden"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
+        'UsrCntlAuswertungenUIDPruefung1
+        '
+        Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
+        Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
+        Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
+        Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
+        Me.UsrCntlAuswertungenUIDPruefung1.Visible = False
+        '
+        'UsrCntlAuswertungenKunden_Auftragsrueckgang1
+        '
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(708, 235)
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
+        '
         'TabPage3
         '
         Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenEV_Veranlagungen1)
@@ -2585,22 +2604,63 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(1050, 1803)
+        Me.TabPage3.Size = New System.Drawing.Size(1016, 1803)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'UsrCntlAuswertungenEV_Veranlagungen1
+        '
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
+        Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
+        '
+        'UsrCntlAuswertungenFiskal_IntrastatMeldung1
+        '
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
+        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
+        '
+        'UsrCntlAuswertungenFiskalvertretung_42001
+        '
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
+        Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
+        '
         'TabPage4
         '
+        Me.TabPage4.Controls.Add(Me.PictureBox14)
         Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1)
         Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
         Me.TabPage4.Location = New System.Drawing.Point(4, 22)
         Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Size = New System.Drawing.Size(1050, 1803)
+        Me.TabPage4.Size = New System.Drawing.Size(999, 1803)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Aufschubdaten"
         Me.TabPage4.UseVisualStyleBackColor = True
         '
+        'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
+        '
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
+        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
+        '
+        'UsrCntlAuswertungenAufschub_Abgabenliste1
+        '
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
+        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
+        '
         'TabPage5
         '
         Me.TabPage5.Controls.Add(Me.Label60)
@@ -2609,7 +2669,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage5.Location = New System.Drawing.Point(4, 22)
         Me.TabPage5.Name = "TabPage5"
         Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(1050, 1803)
+        Me.TabPage5.Size = New System.Drawing.Size(1016, 1803)
         Me.TabPage5.TabIndex = 4
         Me.TabPage5.Text = "UNISPED"
         Me.TabPage5.UseVisualStyleBackColor = True
@@ -2819,7 +2879,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage6.Controls.Add(Me.Label97)
         Me.TabPage6.Location = New System.Drawing.Point(4, 22)
         Me.TabPage6.Name = "TabPage6"
-        Me.TabPage6.Size = New System.Drawing.Size(1033, 1803)
+        Me.TabPage6.Size = New System.Drawing.Size(999, 1803)
         Me.TabPage6.TabIndex = 5
         Me.TabPage6.Text = "CBAM/Stahlverordnung"
         Me.TabPage6.UseVisualStyleBackColor = True
@@ -2841,6 +2901,16 @@ Partial Class usrCntlZOLLAuswertungen
         Me.GroupBox6.TabIndex = 44
         Me.GroupBox6.TabStop = False
         '
+        'cbxStahlverordnung_SNDdet
+        '
+        Me.cbxStahlverordnung_SNDdet.AutoSize = True
+        Me.cbxStahlverordnung_SNDdet.Location = New System.Drawing.Point(9, 81)
+        Me.cbxStahlverordnung_SNDdet.Name = "cbxStahlverordnung_SNDdet"
+        Me.cbxStahlverordnung_SNDdet.Size = New System.Drawing.Size(126, 17)
+        Me.cbxStahlverordnung_SNDdet.TabIndex = 34
+        Me.cbxStahlverordnung_SNDdet.Text = "mit Sendunggsdetails"
+        Me.cbxStahlverordnung_SNDdet.UseVisualStyleBackColor = True
+        '
         'Label105
         '
         Me.Label105.AutoSize = True
@@ -3021,9 +3091,9 @@ Partial Class usrCntlZOLLAuswertungen
         Me.cbxCBAM_Detaildaten.AutoSize = True
         Me.cbxCBAM_Detaildaten.Location = New System.Drawing.Point(9, 84)
         Me.cbxCBAM_Detaildaten.Name = "cbxCBAM_Detaildaten"
-        Me.cbxCBAM_Detaildaten.Size = New System.Drawing.Size(126, 17)
+        Me.cbxCBAM_Detaildaten.Size = New System.Drawing.Size(120, 17)
         Me.cbxCBAM_Detaildaten.TabIndex = 29
-        Me.cbxCBAM_Detaildaten.Text = "mit Sendunggsdetails"
+        Me.cbxCBAM_Detaildaten.Text = "mit Sendungsdetails"
         Me.cbxCBAM_Detaildaten.UseVisualStyleBackColor = True
         '
         'Label101
@@ -3098,75 +3168,18 @@ Partial Class usrCntlZOLLAuswertungen
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(1041, 57)
+        Me.pnl.Size = New System.Drawing.Size(1007, 57)
         Me.pnl.TabIndex = 23
         '
-        'UsrCntlAuswertungenUIDPruefung1
+        'PictureBox14
         '
-        Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
+        Me.PictureBox14.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
-        Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
+        Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
+        Me.PictureBox14.Location = New System.Drawing.Point(693, 3)
-        Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
+        Me.PictureBox14.Name = "PictureBox14"
-        Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
+        Me.PictureBox14.Size = New System.Drawing.Size(18, 19)
-        Me.UsrCntlAuswertungenUIDPruefung1.Visible = False
+        Me.PictureBox14.TabIndex = 131
-        '
+        Me.PictureBox14.TabStop = False
-        'UsrCntlAuswertungenKunden_Auftragsrueckgang1
-        '
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(708, 235)
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
-        '
-        'UsrCntlAuswertungenEV_Veranlagungen1
-        '
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
-        Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
-        '
-        'UsrCntlAuswertungenFiskal_IntrastatMeldung1
-        '
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
-        Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
-        '
-        'UsrCntlAuswertungenFiskalvertretung_42001
-        '
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
-        Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
-        '
-        'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
-        '
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
-        Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
-        '
-        'UsrCntlAuswertungenAufschub_Abgabenliste1
-        '
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
-        Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
-        '
-        'cbxStahlverordnung_SNDdet
-        '
-        Me.cbxStahlverordnung_SNDdet.AutoSize = True
-        Me.cbxStahlverordnung_SNDdet.Location = New System.Drawing.Point(9, 81)
-        Me.cbxStahlverordnung_SNDdet.Name = "cbxStahlverordnung_SNDdet"
-        Me.cbxStahlverordnung_SNDdet.Size = New System.Drawing.Size(126, 17)
-        Me.cbxStahlverordnung_SNDdet.TabIndex = 34
-        Me.cbxStahlverordnung_SNDdet.Text = "mit Sendunggsdetails"
-        Me.cbxStahlverordnung_SNDdet.UseVisualStyleBackColor = True
         '
         'usrCntlZOLLAuswertungen
         '
@@ -3177,7 +3190,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Controls.Add(Me.tbcntr)
         Me.Controls.Add(Me.pnl)
         Me.Name = "usrCntlZOLLAuswertungen"
-        Me.Size = New System.Drawing.Size(1041, 1174)
+        Me.Size = New System.Drawing.Size(1007, 1174)
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
         Me.grpDurmaz.ResumeLayout(False)
@@ -3244,6 +3257,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.GroupBox2.PerformLayout()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
+        CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -3512,4 +3526,5 @@ Partial Class usrCntlZOLLAuswertungen
     Friend WithEvents GroupBox6 As GroupBox
     Friend WithEvents GroupBox2 As GroupBox
     Friend WithEvents cbxStahlverordnung_SNDdet As CheckBox
+    Friend WithEvents PictureBox14 As PictureBox
 End Class

SDL/zoll/usrCntlZOLLAuswertungen.vb

@@ -1392,6 +1392,15 @@ Public Class usrCntlZOLLAuswertungen
         End If
     End Sub
 
+    Private Sub UsrCntlAuswertungenAufschub_Abgabenliste1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenAufschub_Abgabenliste1.Load
+
+    End Sub
+
+    Private Sub PictureBox14_Click(sender As Object, e As EventArgs) Handles PictureBox14.Click
+        Dim webAddress As String = "https://wiki.verag.ag/de/software/aviso/howtos/Auswertungen#aufschubsdatenprüfung"
+        Process.Start(webAddress)
+    End Sub
+
 
 
 

VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb

@@ -36,12 +36,12 @@ Public Class frmDatumsabfrage
 
 
 
-    Public Datum As Date = CDate(Now.ToShortDateString)
+    Public Datum As Date = CDate(Now)
     Public exceptedCountries As String
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Label1.Text = ""
 
-        If onlypastDate And CDate(dtp_date.Value) > CDate(Now.ToShortDateString) Then
+        If onlypastDate AndAlso CDate(dtp_date.Value) > CDate(Now) Then
             Label1.Text = "Muss heute oder früher sein!"
             Me.DialogResult = DialogResult.None
             Exit Sub
@@ -60,7 +60,7 @@ Public Class frmDatumsabfrage
     End Sub
 
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
-        Datum = CDate(Now.ToShortDateString)
+        Datum = CDate(Now)
 
         If panelLaender Then
             exceptedCountries = getValues()