EORI_Antrag

2023-10-12 17:08:51 +02:00
parent 4b9b9f1ddc
commit 83c2286789
6 changed files with 643 additions and 54 deletions
--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -130,6 +130,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.AnDakosyÜbertragenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AufschubEORIBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.SYSKAÜbertragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mneBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnlTop = New System.Windows.Forms.Panel()
        Me.cbx = New System.Windows.Forms.CheckBox()
@@ -147,7 +148,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.mneBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.tabZolltarife.SuspendLayout()
        Me.tabKundendaten.SuspendLayout()
@@ -1104,7 +1105,7 @@ Partial Class frmKundenUebersichtZOLL
        'mneFormulare
        '
        Me.mneFormulare.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.mneFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10, Me.ToolStripMenuItem14, Me.ToolStripMenuItem16, Me.ToolStripMenuItem17, Me.ToolStripMenuItem19})
+        Me.mneFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10, Me.ToolStripMenuItem14, Me.ToolStripMenuItem16, Me.ToolStripMenuItem17, Me.ToolStripMenuItem19, Me.EORIAntragToolStripMenuItem})
        Me.mneFormulare.Enabled = False
        Me.mneFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.mneFormulare.ForeColor = System.Drawing.Color.White
@@ -1287,6 +1288,20 @@ Partial Class frmKundenUebersichtZOLL
        Me.SYSKAÜbertragToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
        Me.SYSKAÜbertragToolStripMenuItem.Text = "SYSKA übertragen"
        '
+        'mneBearbeiten
+        '
+        Me.mneBearbeiten.Enabled = False
+        Me.mneBearbeiten.ForeColor = System.Drawing.Color.White
+        Me.mneBearbeiten.Image = Global.SDL.My.Resources.Resources.stift1
+        Me.mneBearbeiten.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.mneBearbeiten.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
+        Me.mneBearbeiten.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
+        Me.mneBearbeiten.Name = "mneBearbeiten"
+        Me.mneBearbeiten.Size = New System.Drawing.Size(107, 44)
+        Me.mneBearbeiten.Text = "Bearbeiten"
+        Me.mneBearbeiten.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.mneBearbeiten.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        '
        'ToolStripMenuItem1
        '
        Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
@@ -1454,19 +1469,11 @@ Partial Class frmKundenUebersichtZOLL
        Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'mneBearbeiten
+        'EORIAntragToolStripMenuItem
        '
-        Me.mneBearbeiten.Enabled = False
-        Me.mneBearbeiten.ForeColor = System.Drawing.Color.White
-        Me.mneBearbeiten.Image = Global.SDL.My.Resources.Resources.stift1
-        Me.mneBearbeiten.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.mneBearbeiten.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
-        Me.mneBearbeiten.Margin = New System.Windows.Forms.Padding(0, 5, 0, 0)
-        Me.mneBearbeiten.Name = "mneBearbeiten"
-        Me.mneBearbeiten.Size = New System.Drawing.Size(107, 44)
-        Me.mneBearbeiten.Text = "Bearbeiten"
-        Me.mneBearbeiten.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.mneBearbeiten.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.EORIAntragToolStripMenuItem.Name = "EORIAntragToolStripMenuItem"
+        Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
+        Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
        '
        'frmKundenUebersichtZOLL
        '
@@ -1636,4 +1643,5 @@ Partial Class frmKundenUebersichtZOLL
    Friend WithEvents tbFiskaluebersicht As TabPage
    Friend WithEvents UsrcntlFiskaluebersicht1 As usrcntlFiskaluebersicht
    Friend WithEvents mneBearbeiten As ToolStripMenuItem
+    Friend WithEvents EORIAntragToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/SDL/kunden/frmKundenUebersichtZOLL.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.vb
@@ -1416,7 +1416,9 @@ Public Class frmKundenUebersichtZOLL
        btnRgPdf.Enabled = (dgvRg.SelectedRows.Count > 0)
    End Sub

-
+    Private Sub EORIAntragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIAntragToolStripMenuItem.Click
+        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.EORI_Antrag, kdNr, {})
+    End Sub
 End Class


--- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
+++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
@@ -259,6 +259,8 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.Label33 = New System.Windows.Forms.Label()
        Me.Label84 = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Label100 = New System.Windows.Forms.Label()
+        Me.txtAdresseZusatz = New System.Windows.Forms.TextBox()
        Me.cbxUIDMehrfachverwendung = New System.Windows.Forms.CheckBox()
        Me.btnCreditsafe = New System.Windows.Forms.Button()
        Me.Button13 = New System.Windows.Forms.Button()
@@ -334,8 +336,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.txtAdresseZusatz = New System.Windows.Forms.TextBox()
-        Me.Label100 = New System.Windows.Forms.Label()
        Me.tbcntrDetails.SuspendLayout()
        Me.tbAbfertigung.SuspendLayout()
        Me.tbcntrAbf.SuspendLayout()
@@ -3595,6 +3595,25 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Firma"
        '
+        'Label100
+        '
+        Me.Label100.AutoSize = True
+        Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label100.Location = New System.Drawing.Point(8, 88)
+        Me.Label100.Name = "Label100"
+        Me.Label100.Size = New System.Drawing.Size(77, 13)
+        Me.Label100.TabIndex = 27
+        Me.Label100.Text = "Adress-Zusatz:"
+        '
+        'txtAdresseZusatz
+        '
+        Me.txtAdresseZusatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAdresseZusatz.Location = New System.Drawing.Point(110, 84)
+        Me.txtAdresseZusatz.MaxLength = 50
+        Me.txtAdresseZusatz.Name = "txtAdresseZusatz"
+        Me.txtAdresseZusatz.Size = New System.Drawing.Size(334, 20)
+        Me.txtAdresseZusatz.TabIndex = 26
+        '
        'cbxUIDMehrfachverwendung
        '
        Me.cbxUIDMehrfachverwendung.AutoSize = True
@@ -4486,25 +4505,6 @@ Partial Class usrcntlKundeBearbeitenFull
        Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'txtAdresseZusatz
-        '
-        Me.txtAdresseZusatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAdresseZusatz.Location = New System.Drawing.Point(110, 84)
-        Me.txtAdresseZusatz.MaxLength = 50
-        Me.txtAdresseZusatz.Name = "txtAdresseZusatz"
-        Me.txtAdresseZusatz.Size = New System.Drawing.Size(334, 20)
-        Me.txtAdresseZusatz.TabIndex = 26
-        '
-        'Label100
-        '
-        Me.Label100.AutoSize = True
-        Me.Label100.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label100.Location = New System.Drawing.Point(8, 88)
-        Me.Label100.Name = "Label100"
-        Me.Label100.Size = New System.Drawing.Size(77, 13)
-        Me.Label100.TabIndex = 27
-        Me.Label100.Text = "Adress-Zusatz:"
-        '
        'usrcntlKundeBearbeitenFull
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)