auotm. Vermerk (inkl löschen der UID-Nr und setzen des Steuerschlüssels) bei ungültiger UID-Nr.

2023-04-04 13:05:48 +02:00
parent a8009c8d87
commit 72d84139a7
3 changed files with 133 additions and 47 deletions
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -22,7 +22,6 @@ Partial Class frmStartOptions
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions))
        Me.pnl = New System.Windows.Forms.Panel()
        Me.cbxDatevTest = New System.Windows.Forms.CheckBox()
@@ -126,7 +125,7 @@ Partial Class frmStartOptions
        Me.Label7 = New System.Windows.Forms.Label()
        Me.LinkLabel27 = New System.Windows.Forms.LinkLabel()
        Me.Label6 = New System.Windows.Forms.Label()
-        Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -136,6 +135,9 @@ Partial Class frmStartOptions
        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.LinkLabel39 = New System.Windows.Forms.LinkLabel()
+        Me.LinkLabel40 = New System.Windows.Forms.LinkLabel()
+        Me.Label22 = New System.Windows.Forms.Label()
        Me.LinkLabel34 = New System.Windows.Forms.LinkLabel()
        Me.LinkLabel35 = New System.Windows.Forms.LinkLabel()
        Me.Label17 = New System.Windows.Forms.Label()
@@ -168,9 +170,7 @@ Partial Class frmStartOptions
        Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel()
        Me.lblRoutineManager = New System.Windows.Forms.Label()
        Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.LinkLabel39 = New System.Windows.Forms.LinkLabel()
-        Me.LinkLabel40 = New System.Windows.Forms.LinkLabel()
-        Me.Label22 = New System.Windows.Forms.Label()
+        Me.cbxVermerk = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tbcntr.SuspendLayout()
@@ -202,6 +202,7 @@ Partial Class frmStartOptions
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cbxVermerk)
        Me.pnl.Controls.Add(Me.cbxDatevTest)
        Me.pnl.Controls.Add(Me.cbxDatevOpen)
        Me.pnl.Controls.Add(Me.cbxDatevBuchungen)
@@ -1678,6 +1679,37 @@ Partial Class frmStartOptions
        Me.TabPage3.Text = "Partner-Systeme"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
+        'LinkLabel39
+        '
+        Me.LinkLabel39.AutoSize = True
+        Me.LinkLabel39.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel39.Location = New System.Drawing.Point(11, 267)
+        Me.LinkLabel39.Name = "LinkLabel39"
+        Me.LinkLabel39.Size = New System.Drawing.Size(180, 13)
+        Me.LinkLabel39.TabIndex = 32
+        Me.LinkLabel39.TabStop = True
+        Me.LinkLabel39.Text = "Eingangsnachrichten abrufen PROD"
+        '
+        'LinkLabel40
+        '
+        Me.LinkLabel40.AutoSize = True
+        Me.LinkLabel40.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.LinkLabel40.Location = New System.Drawing.Point(11, 242)
+        Me.LinkLabel40.Name = "LinkLabel40"
+        Me.LinkLabel40.Size = New System.Drawing.Size(177, 13)
+        Me.LinkLabel40.TabIndex = 31
+        Me.LinkLabel40.TabStop = True
+        Me.LinkLabel40.Text = "Eingangsnachrichten abrufen TEST"
+        '
+        'Label22
+        '
+        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label22.Location = New System.Drawing.Point(11, 215)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(296, 16)
+        Me.Label22.TabIndex = 30
+        Me.Label22.Text = "ATEZ Nachrichtenverarbeitung (NCTS TR):"
+        '
        'LinkLabel34
        '
        Me.LinkLabel34.AutoSize = True
@@ -2056,36 +2088,15 @@ Partial Class frmStartOptions
        Me.txtGJ_UNISPED.Size = New System.Drawing.Size(53, 20)
        Me.txtGJ_UNISPED.TabIndex = 68
        '
-        'LinkLabel39
+        'cbxVermerk
        '
-        Me.LinkLabel39.AutoSize = True
-        Me.LinkLabel39.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel39.Location = New System.Drawing.Point(11, 267)
-        Me.LinkLabel39.Name = "LinkLabel39"
-        Me.LinkLabel39.Size = New System.Drawing.Size(180, 13)
-        Me.LinkLabel39.TabIndex = 32
-        Me.LinkLabel39.TabStop = True
-        Me.LinkLabel39.Text = "Eingangsnachrichten abrufen PROD"
-        '
-        'LinkLabel40
-        '
-        Me.LinkLabel40.AutoSize = True
-        Me.LinkLabel40.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.LinkLabel40.Location = New System.Drawing.Point(11, 242)
-        Me.LinkLabel40.Name = "LinkLabel40"
-        Me.LinkLabel40.Size = New System.Drawing.Size(177, 13)
-        Me.LinkLabel40.TabIndex = 31
-        Me.LinkLabel40.TabStop = True
-        Me.LinkLabel40.Text = "Eingangsnachrichten abrufen TEST"
-        '
-        'Label22
-        '
-        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label22.Location = New System.Drawing.Point(11, 215)
-        Me.Label22.Name = "Label22"
-        Me.Label22.Size = New System.Drawing.Size(296, 16)
-        Me.Label22.TabIndex = 30
-        Me.Label22.Text = "ATEZ Nachrichtenverarbeitung (NCTS TR):"
+        Me.cbxVermerk.AutoSize = True
+        Me.cbxVermerk.Location = New System.Drawing.Point(151, 178)
+        Me.cbxVermerk.Name = "cbxVermerk"
+        Me.cbxVermerk.Size = New System.Drawing.Size(100, 17)
+        Me.cbxVermerk.TabIndex = 76
+        Me.cbxVermerk.Text = "autom. Vermerk"
+        Me.cbxVermerk.UseVisualStyleBackColor = True
        '
        'frmStartOptions
        '
@@ -2279,4 +2290,5 @@ Partial Class frmStartOptions
    Friend WithEvents LinkLabel39 As LinkLabel
    Friend WithEvents LinkLabel40 As LinkLabel
    Friend WithEvents Label22 As Label
+    Friend WithEvents cbxVermerk As CheckBox
 End Class