From 461b55422f75e1976989c9933ede27182663ff47 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 30 Sep 2026 11:17:17 +0200 Subject: [PATCH] EORI Antrag Hinweis, Aufschubkontenabgleich verbessert --- .../usrcntlEORI_Antrag.Designer.vb | 30 +++ .../usrcntlEORI_Antrag.resx | 10 + ...Aufschub_AbgabenKontrolleTRIER.Designer.vb | 26 +-- ...wertungenAufschub_AbgabenKontrolleTRIER.vb | 51 +++-- ...wertungenAufschub_Abgabenliste.Designer.vb | 4 +- SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb | 183 ++++++++++-------- SDL/zoll/usrCntlZOLLAuswertungen.vb | 9 + VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb | 6 +- 8 files changed, 205 insertions(+), 114 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb index 75e6f3e7..fcbeef4b 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.Designer.vb +++ b/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. 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.resx index 1af7de15..9ad69390 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.resx +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEORI_Antrag.resx @@ -117,4 +117,14 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 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 + + + + \ No newline at end of file diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb index 102f3ea6..58933883 100644 --- a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb +++ b/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 ' diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb index dfa18a0d..458f614a 100644 --- a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb +++ b/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 <> "") - - Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", sqlStringWhere, "FMZOLL", "0")) - - Dim differenz = fakturiert - 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}) + If vorhandeneZeile IsNot Nothing Then + vorhandeneZeile("Betrag") = CDbl(vorhandeneZeile("Betrag")) + betrag + Else + dt_Dateneinlesung.Rows.Add({datum, mrn, atc, betrag, zollamt}) 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() diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb b/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb index 416f7a81..7799b21c 100644 --- a/SDL/zoll/usrCntlAuswertungenAufschub_Abgabenliste.Designer.vb +++ b/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 ' diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index d297a090..f8d2fe0f 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/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.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 diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index c77d31f9..f66c5cd3 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/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 + diff --git a/VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb b/VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb index b8892d5c..0d7e4950 100644 --- a/VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.vb +++ b/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()