edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EORI Antrag Hinweis, Aufschubkontenabgleich verbessert

Browse Source
This commit is contained in:
d.breimaier
2026-09-30 11:17:17 +02:00
parent ff67d788f6
commit 461b55422f
8 changed files with 205 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb generated
View File

@@ -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

10
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.resx
View File

@@ -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>

26
SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb generated
View File

@@ -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
'

45
SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
View File

@@ -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,34 +81,51 @@ 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
vorhandeneZeile("Betrag") = CDbl(vorhandeneZeile("Betrag")) + betrag
Else
dt_Dateneinlesung.Rows.Add({datum, mrn, atc, betrag, zollamt})
End If
Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", sqlStringWhere, "FMZOLL", "0"))
End If
Dim differenz = fakturiert - betrag
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 &= zollamt & " - " & IIf(atc <> "", atc, mrn) & ": " & betrag & " | " & differenz & vbNewLine
dt.Rows.Add({AKTO, Faelligkeit, IIf(atc <> "", atc, mrn), datum, zollamt, betrag, fakturiert, differenz})
End If
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

4
SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb generated
View File

@@ -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
'

183
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -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.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.PictureBox14 = New System.Windows.Forms.PictureBox()
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.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
'
'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
Me.PictureBox14.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox14.Location = New System.Drawing.Point(693, 3)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(18, 19)
Me.PictureBox14.TabIndex = 131
Me.PictureBox14.TabStop = False
'
'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

9
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -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

6
VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb
View File

@@ -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()