frmHauotfensterNew

Aviso/AktenErfassung/frmEintragSammelakt.designer.vb

@@ -0,0 +1,532 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmEintragSammelakt
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    '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(frmEintragSammelakt))
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.lblErfAm = New System.Windows.Forms.Label()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.txtInfo = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.lblLkwKennzeichen = New System.Windows.Forms.Label()
+        Me.txtÄnderungen = New System.Windows.Forms.TextBox()
+        Me.lblAenderungen = New System.Windows.Forms.Label()
+        Me.dtpDatum = New System.Windows.Forms.DateTimePicker()
+        Me.txtLKW_Nr = New System.Windows.Forms.TextBox()
+        Me.lblStatus = New System.Windows.Forms.Label()
+        Me.lblStatus2 = New System.Windows.Forms.Label()
+        Me.lblAktenuebersicht = New System.Windows.Forms.Label()
+        Me.grpAviso = New System.Windows.Forms.GroupBox()
+        Me.lblErr_Kunde = New System.Windows.Forms.Label()
+        Me.lblErr_Aktentyp = New System.Windows.Forms.Label()
+        Me.lblErr_LKW = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.kdAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btnAuftraggeber = New System.Windows.Forms.Button()
+        Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblErrErfasstDat = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.grpAviso.SuspendLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnOK
+        '
+        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnOK.Location = New System.Drawing.Point(21, 489)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(271, 45)
+        Me.btnOK.TabIndex = 24
+        Me.btnOK.Text = "OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'lblErfAm
+        '
+        Me.lblErfAm.AutoSize = True
+        Me.lblErfAm.Location = New System.Drawing.Point(220, 12)
+        Me.lblErfAm.Name = "lblErfAm"
+        Me.lblErfAm.Size = New System.Drawing.Size(59, 13)
+        Me.lblErfAm.TabIndex = 2
+        Me.lblErfAm.Text = "Erfasst am:"
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAbbruch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnAbbruch.Location = New System.Drawing.Point(298, 489)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(111, 45)
+        Me.btnAbbruch.TabIndex = 27
+        Me.btnAbbruch.Text = "Abbruch"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'txtInfo
+        '
+        Me.txtInfo.AcceptsReturn = True
+        Me.txtInfo.Location = New System.Drawing.Point(424, 356)
+        Me.txtInfo.MaxLength = 240
+        Me.txtInfo.Multiline = True
+        Me.txtInfo.Name = "txtInfo"
+        Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtInfo.Size = New System.Drawing.Size(360, 75)
+        Me.txtInfo.TabIndex = 25
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(421, 340)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(25, 13)
+        Me.Label3.TabIndex = 21
+        Me.Label3.Text = "Info"
+        '
+        'lblLkwKennzeichen
+        '
+        Me.lblLkwKennzeichen.AutoSize = True
+        Me.lblLkwKennzeichen.Location = New System.Drawing.Point(6, 77)
+        Me.lblLkwKennzeichen.Name = "lblLkwKennzeichen"
+        Me.lblLkwKennzeichen.Size = New System.Drawing.Size(96, 13)
+        Me.lblLkwKennzeichen.TabIndex = 11
+        Me.lblLkwKennzeichen.Text = "Aktenbezeichnung"
+        '
+        'txtÄnderungen
+        '
+        Me.txtÄnderungen.AcceptsReturn = True
+        Me.txtÄnderungen.BackColor = System.Drawing.SystemColors.Info
+        Me.txtÄnderungen.ForeColor = System.Drawing.SystemColors.InfoText
+        Me.txtÄnderungen.Location = New System.Drawing.Point(424, 466)
+        Me.txtÄnderungen.MaxLength = 0
+        Me.txtÄnderungen.Multiline = True
+        Me.txtÄnderungen.Name = "txtÄnderungen"
+        Me.txtÄnderungen.ReadOnly = True
+        Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtÄnderungen.Size = New System.Drawing.Size(360, 68)
+        Me.txtÄnderungen.TabIndex = 13
+        Me.txtÄnderungen.TabStop = False
+        '
+        'lblAenderungen
+        '
+        Me.lblAenderungen.AutoSize = True
+        Me.lblAenderungen.Location = New System.Drawing.Point(421, 450)
+        Me.lblAenderungen.Name = "lblAenderungen"
+        Me.lblAenderungen.Size = New System.Drawing.Size(65, 13)
+        Me.lblAenderungen.TabIndex = 12
+        Me.lblAenderungen.Text = "Änderungen"
+        '
+        'dtpDatum
+        '
+        Me.dtpDatum.CustomFormat = "dd.MM.yyyy HH:mm"
+        Me.dtpDatum.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.dtpDatum.Location = New System.Drawing.Point(285, 7)
+        Me.dtpDatum.Name = "dtpDatum"
+        Me.dtpDatum.Size = New System.Drawing.Size(130, 20)
+        Me.dtpDatum.TabIndex = 0
+        '
+        'txtLKW_Nr
+        '
+        Me.txtLKW_Nr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtLKW_Nr.Location = New System.Drawing.Point(108, 69)
+        Me.txtLKW_Nr.MaxLength = 30
+        Me.txtLKW_Nr.Name = "txtLKW_Nr"
+        Me.txtLKW_Nr.Size = New System.Drawing.Size(289, 26)
+        Me.txtLKW_Nr.TabIndex = 15
+        '
+        'lblStatus
+        '
+        Me.lblStatus.BackColor = System.Drawing.Color.LemonChiffon
+        Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblStatus.ForeColor = System.Drawing.Color.Green
+        Me.lblStatus.Location = New System.Drawing.Point(516, 7)
+        Me.lblStatus.Name = "lblStatus"
+        Me.lblStatus.Size = New System.Drawing.Size(268, 20)
+        Me.lblStatus.TabIndex = 4
+        Me.lblStatus.Text = "freigegeben"
+        '
+        'lblStatus2
+        '
+        Me.lblStatus2.AutoSize = True
+        Me.lblStatus2.Location = New System.Drawing.Point(430, 12)
+        Me.lblStatus2.Name = "lblStatus2"
+        Me.lblStatus2.Size = New System.Drawing.Size(80, 13)
+        Me.lblStatus2.TabIndex = 3
+        Me.lblStatus2.Text = "aktueller Status"
+        '
+        'lblAktenuebersicht
+        '
+        Me.lblAktenuebersicht.AutoSize = True
+        Me.lblAktenuebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAktenuebersicht.Location = New System.Drawing.Point(12, 11)
+        Me.lblAktenuebersicht.Name = "lblAktenuebersicht"
+        Me.lblAktenuebersicht.Size = New System.Drawing.Size(130, 20)
+        Me.lblAktenuebersicht.TabIndex = 1
+        Me.lblAktenuebersicht.Text = "Aktenübersicht"
+        '
+        'grpAviso
+        '
+        Me.grpAviso.Controls.Add(Me.lblErr_Kunde)
+        Me.grpAviso.Controls.Add(Me.lblErr_Aktentyp)
+        Me.grpAviso.Controls.Add(Me.lblErr_LKW)
+        Me.grpAviso.Controls.Add(Me.Label5)
+        Me.grpAviso.Controls.Add(Me.Label4)
+        Me.grpAviso.Controls.Add(Me.Label1)
+        Me.grpAviso.Controls.Add(Me.MyComboBox1)
+        Me.grpAviso.Controls.Add(Me.PictureBox1)
+        Me.grpAviso.Controls.Add(Me.kdAuftraggeber)
+        Me.grpAviso.Controls.Add(Me.dgvAnhaenge)
+        Me.grpAviso.Controls.Add(Me.txtLKW_Nr)
+        Me.grpAviso.Controls.Add(Me.btnAuftraggeber)
+        Me.grpAviso.Controls.Add(Me.lblLkwKennzeichen)
+        Me.grpAviso.Location = New System.Drawing.Point(12, 49)
+        Me.grpAviso.Name = "grpAviso"
+        Me.grpAviso.Size = New System.Drawing.Size(403, 434)
+        Me.grpAviso.TabIndex = 7
+        Me.grpAviso.TabStop = False
+        Me.grpAviso.Text = "CBAM"
+        '
+        'lblErr_Kunde
+        '
+        Me.lblErr_Kunde.AutoSize = True
+        Me.lblErr_Kunde.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Kunde.Location = New System.Drawing.Point(105, 124)
+        Me.lblErr_Kunde.Name = "lblErr_Kunde"
+        Me.lblErr_Kunde.Size = New System.Drawing.Size(130, 13)
+        Me.lblErr_Kunde.TabIndex = 61
+        Me.lblErr_Kunde.Text = "Kunde darf nicht leer sein!"
+        Me.lblErr_Kunde.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_Kunde.Visible = False
+        '
+        'lblErr_Aktentyp
+        '
+        Me.lblErr_Aktentyp.AutoSize = True
+        Me.lblErr_Aktentyp.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_Aktentyp.Location = New System.Drawing.Point(105, 13)
+        Me.lblErr_Aktentyp.Name = "lblErr_Aktentyp"
+        Me.lblErr_Aktentyp.Size = New System.Drawing.Size(141, 13)
+        Me.lblErr_Aktentyp.TabIndex = 60
+        Me.lblErr_Aktentyp.Text = "Aktentyp darf nicht leer sein!"
+        Me.lblErr_Aktentyp.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_Aktentyp.Visible = False
+        '
+        'lblErr_LKW
+        '
+        Me.lblErr_LKW.AutoSize = True
+        Me.lblErr_LKW.ForeColor = System.Drawing.Color.Red
+        Me.lblErr_LKW.Location = New System.Drawing.Point(105, 58)
+        Me.lblErr_LKW.Name = "lblErr_LKW"
+        Me.lblErr_LKW.Size = New System.Drawing.Size(188, 13)
+        Me.lblErr_LKW.TabIndex = 54
+        Me.lblErr_LKW.Text = "Aktenbezeichnung darf nicht leer sein!"
+        Me.lblErr_LKW.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErr_LKW.Visible = False
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(6, 132)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(53, 13)
+        Me.Label5.TabIndex = 59
+        Me.Label5.Text = "Anhänge:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(6, 35)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(59, 13)
+        Me.Label4.TabIndex = 58
+        Me.Label4.Text = "Akten-Typ:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(6, 104)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(41, 13)
+        Me.Label1.TabIndex = 57
+        Me.Label1.Text = "Kunde:"
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(108, 27)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(198, 28)
+        Me.MyComboBox1.TabIndex = 56
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.cbam_s
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(312, 9)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(85, 58)
+        Me.PictureBox1.TabIndex = 48
+        Me.PictureBox1.TabStop = False
+        '
+        'kdAuftraggeber
+        '
+        Me.kdAuftraggeber._AlleFirmenCLUSTER = False
+        Me.kdAuftraggeber._AllowSetValue = True
+        Me.kdAuftraggeber._autoSizeGross = False
+        Me.kdAuftraggeber._display_Name1 = False
+        Me.kdAuftraggeber._displayAVISO_Email = True
+        Me.kdAuftraggeber._displayFullName = False
+        Me.kdAuftraggeber._displayWoelflKd = False
+        Me.kdAuftraggeber._hideIfListEmpty = True
+        Me.kdAuftraggeber._loadKdData = False
+        Me.kdAuftraggeber._searchName1 = True
+        Me.kdAuftraggeber._UseFIRMA = ""
+        Me.kdAuftraggeber._ValueKdAndName = True
+        Me.kdAuftraggeber.dgvpos = "LEFT"
+        Me.kdAuftraggeber.KdName = ""
+        Me.kdAuftraggeber.KdNr = "-1"
+        Me.kdAuftraggeber.kdNrField = Nothing
+        Me.kdAuftraggeber.KdNrNullInt = Nothing
+        Me.kdAuftraggeber.Location = New System.Drawing.Point(108, 101)
+        Me.kdAuftraggeber.Name = "kdAuftraggeber"
+        Me.kdAuftraggeber.nurAktive = False
+        Me.kdAuftraggeber.searchActive = True
+        Me.kdAuftraggeber.Size = New System.Drawing.Size(258, 20)
+        Me.kdAuftraggeber.TabIndex = 42
+        Me.kdAuftraggeber.TIMER_SEARCH = True
+        Me.kdAuftraggeber.usrcntl = Nothing
+        '
+        'dgvAnhaenge
+        '
+        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhaenge.AllowUserToAddRows = False
+        Me.dgvAnhaenge.AllowUserToDeleteRows = False
+        Me.dgvAnhaenge.AllowUserToResizeColumns = False
+        Me.dgvAnhaenge.AllowUserToResizeRows = False
+        Me.dgvAnhaenge.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
+        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhaenge.ColumnHeadersVisible = False
+        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName, Me.clmnPfad})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(9, 148)
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.ReadOnly = True
+        Me.dgvAnhaenge.RowHeadersVisible = False
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(388, 286)
+        Me.dgvAnhaenge.TabIndex = 17
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'clmnPfad
+        '
+        Me.clmnPfad.HeaderText = "Pfad"
+        Me.clmnPfad.Name = "clmnPfad"
+        Me.clmnPfad.ReadOnly = True
+        Me.clmnPfad.Visible = False
+        '
+        'btnAuftraggeber
+        '
+        Me.btnAuftraggeber.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAuftraggeber.Enabled = False
+        Me.btnAuftraggeber.FlatAppearance.BorderSize = 0
+        Me.btnAuftraggeber.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAuftraggeber.Image = CType(resources.GetObject("btnAuftraggeber.Image"), System.Drawing.Image)
+        Me.btnAuftraggeber.Location = New System.Drawing.Point(372, 97)
+        Me.btnAuftraggeber.Name = "btnAuftraggeber"
+        Me.btnAuftraggeber.Size = New System.Drawing.Size(25, 24)
+        Me.btnAuftraggeber.TabIndex = 43
+        Me.btnAuftraggeber.TabStop = False
+        Me.btnAuftraggeber.Tag = "Kunde hinzufügen"
+        Me.btnAuftraggeber.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnAuftraggeber.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
+        Me.btnAuftraggeber.UseVisualStyleBackColor = True
+        '
+        'lblErrFmZollKdNr
+        '
+        Me.lblErrFmZollKdNr.AutoSize = True
+        Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red
+        Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 372)
+        Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr"
+        Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26)
+        Me.lblErrFmZollKdNr.TabIndex = 26
+        Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!"
+        Me.lblErrFmZollKdNr.Visible = False
+        '
+        'Button3
+        '
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button3.Location = New System.Drawing.Point(424, 49)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(359, 37)
+        Me.Button3.TabIndex = 11
+        Me.Button3.Text = "Weiter zu den Unterakten"
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(285, 28)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(130, 21)
+        Me.cboFirma.TabIndex = 6
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(220, 31)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(43, 13)
+        Me.Label2.TabIndex = 5
+        Me.Label2.Text = "FIRMA:"
+        '
+        'lblErrErfasstDat
+        '
+        Me.lblErrErfasstDat.AutoSize = True
+        Me.lblErrErfasstDat.ForeColor = System.Drawing.Color.Red
+        Me.lblErrErfasstDat.Location = New System.Drawing.Point(139, 5)
+        Me.lblErrErfasstDat.Name = "lblErrErfasstDat"
+        Me.lblErrErfasstDat.Size = New System.Drawing.Size(85, 26)
+        Me.lblErrErfasstDat.TabIndex = 52
+        Me.lblErrErfasstDat.Text = "Darf nicht in der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zukunft liegen!"
+        Me.lblErrErfasstDat.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.lblErrErfasstDat.Visible = False
+        '
+        'Label12
+        '
+        Me.Label12.BackColor = System.Drawing.Color.Transparent
+        Me.Label12.Location = New System.Drawing.Point(421, 432)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(372, 18)
+        Me.Label12.TabIndex = 29
+        Me.Label12.Text = "Achtung: im Feld Info nur allgemeine Infos erfassen. "
+        '
+        'Panel1
+        '
+        Me.Panel1.Location = New System.Drawing.Point(424, 92)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(358, 245)
+        Me.Panel1.TabIndex = 53
+        '
+        'frmEintragAvisoCBAM
+        '
+        Me.AcceptButton = Me.btnOK
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(792, 564)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cboFirma)
+        Me.Controls.Add(Me.Button3)
+        Me.Controls.Add(Me.grpAviso)
+        Me.Controls.Add(Me.lblAktenuebersicht)
+        Me.Controls.Add(Me.lblStatus)
+        Me.Controls.Add(Me.lblStatus2)
+        Me.Controls.Add(Me.lblErfAm)
+        Me.Controls.Add(Me.txtÄnderungen)
+        Me.Controls.Add(Me.dtpDatum)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.lblAenderungen)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.txtInfo)
+        Me.Controls.Add(Me.lblErrFmZollKdNr)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.lblErrErfasstDat)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.KeyPreview = True
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmEintragAvisoCBAM"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Sammelaktakt erfassen/bearbeiten"
+        Me.grpAviso.ResumeLayout(False)
+        Me.grpAviso.PerformLayout()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents lblErfAm As System.Windows.Forms.Label
+    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+    Friend WithEvents txtInfo As System.Windows.Forms.TextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents lblLkwKennzeichen As System.Windows.Forms.Label
+    Friend WithEvents txtÄnderungen As System.Windows.Forms.TextBox
+    Friend WithEvents lblAenderungen As System.Windows.Forms.Label
+    Friend WithEvents txtLKW_Nr As System.Windows.Forms.TextBox
+    Friend WithEvents txtDatum As System.Windows.Forms.TextBox
+    Friend WithEvents lblStatus As System.Windows.Forms.Label
+    Friend WithEvents lblStatus2 As System.Windows.Forms.Label
+    Friend WithEvents dtpDatum As System.Windows.Forms.DateTimePicker
+    Friend WithEvents lblAktenuebersicht As System.Windows.Forms.Label
+    Friend WithEvents grpAviso As System.Windows.Forms.GroupBox
+    Friend WithEvents lblErrFmZollKdNr As System.Windows.Forms.Label
+    Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents btnAuftraggeber As System.Windows.Forms.Button
+    Friend WithEvents kdAuftraggeber As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents clmnPfad As DataGridViewTextBoxColumn
+    Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents lblErrErfasstDat As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents lblErr_Kunde As Label
+    Friend WithEvents lblErr_Aktentyp As Label
+    Friend WithEvents lblErr_LKW As Label
+End Class

Aviso/AktenErfassung/frmEintragSammelakt.vb

@@ -0,0 +1,597 @@
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
+
+Public Class frmEintragSammelakt
+    '   Public frmHilf As frmMain
+
+    Dim Firmen As New cFirmenDAL
+    Dim AvisoDAL As New cAvisoDAL
+    Dim myAviso As New cAviso
+    Dim AVISOFUNC As New AvisoStatusFunctions
+    Dim ADMIN As New cADMIN
+    Dim hÄnderung As Boolean = False
+    Dim Neuanlage As Boolean = False
+    Public EingangsDatum As Date = CDate("01.01.1990")
+
+    Dim hStatus As Integer
+    Dim showSendungsdetails As Boolean = False
+    Dim hAdresse As String = ""
+    Dim hCC As String = ""
+    Public aktiv As Boolean = False
+
+    Public ATT As List(Of String)
+    Dim PROG As New cProgramFunctions
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
+    Public Sub New()
+        InitializeComponent()
+        Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
+    End Sub
+
+
+
+    Private Sub frmEintragAviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
+        'Escape händisch abfangen und auf Abbruch-Taste legen
+        If e.KeyCode = Keys.Escape Then
+            btnAbbruch.PerformClick()
+        End If
+        If e.KeyCode = Keys.Return Then
+            e.Handled = True
+        End If
+    End Sub
+
+    Sub initAttachment()
+        If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub
+        dgvAnhaenge.Rows.Clear()
+        If ATT.Count = 0 Then
+            '    btnSaveAttachments.Enabled = False
+        Else
+            dgvAnhaenge.Visible = True
+
+            For Each a In ATT
+                Dim display = a
+                If a.Contains("\") Then
+                    Dim sp = a.Split("\")
+                    display = sp(sp.Count - 1)
+                End If
+                dgvAnhaenge.Rows.Add({display, a})
+            Next
+        End If
+        dgvAnhaenge.ClearSelection()
+    End Sub
+
+
+    Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
+        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+        '    MsgBox("Keine Berechtigung!")
+        '    Me.Close()
+        'End If
+
+
+        Me.CenterToParent()
+        btnOK.Enabled = False
+        kdAuftraggeber.initKdBox(Me)
+
+        MyComboBox1.Items.Clear()
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM", "CBAM"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUDR", "EUDR"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FGAS", "FGAS"))
+        MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLLBERATUNG", "COMPLIANCE"))
+        MyComboBox1.changeItem("")
+
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            ATILLA_NEUERAKTENDECKEL = True
+        End If
+
+        ' SDL.cProgramFunctions.initDrucker(cboPrinter)
+
+
+        cboFirma.Items.Clear()
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
+        cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
+        cboFirma.changeItem(FIRMA_TMP)
+        cboFirma.Enabled = False
+
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
+            cboFirma.Enabled = True
+        End If
+
+
+
+        AddHandler kdAuftraggeber.PropertyChanged, Sub()
+                                                       If kdAuftraggeber.KdNr_value > 0 Then
+                                                           btnAuftraggeber.Enabled = True
+                                                       Else
+                                                           btnAuftraggeber.Enabled = False
+                                                       End If
+                                                   End Sub
+
+
+
+        btnOK.Enabled = True
+
+
+
+        Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
+
+        If cGlobal.Aktive_ID = 0 Then
+            'es erfolgt eine Neuanlage
+            Neuanlage = True
+            Me.Text = "Neuanlage LKW-Aviso"
+            dtpDatum.Value = Now
+            If Not bearb Then dtpDatum.Enabled = False
+
+            txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
+            lblStatus.Text = "Neuanlage"
+
+            kdAuftraggeber.Text = ""
+
+
+        Else
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+                Me.Close()
+            End If
+
+
+            Me.Text = "Änderung LKW-Aviso"
+            'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
+
+            'txtInfo.Visible = False
+            'Label3.Visible = False
+            ''ausgewählter Datensatz wird geladen
+            'Button3.Visible = False
+
+            myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
+
+            'Werte(zuweisen)
+            dtpDatum.Value = myAviso.Datum
+            If Not bearb Then dtpDatum.Enabled = False
+
+            If myAviso.Auftraggeber_KdNr > 0 Then
+                kdAuftraggeber.KdNr = myAviso.Auftraggeber_KdNr
+            Else
+                kdAuftraggeber.Text = myAviso.Auftraggeber
+            End If
+
+            txtInfo.Text = myAviso.Info.Trim
+            txtLKW_Nr.Text = myAviso.LKW_Nr
+
+
+            txtÄnderungen.Text = myAviso.Änderungen.Trim
+
+            hStatus = myAviso.Status
+
+            If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
+
+            'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
+
+            'Status anzeigen
+
+            Select Case hStatus
+                Case cGlobal.Status_Ankunft
+                    lblStatus.Text = "Ankunft"
+                    If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
+                    lblStatus.ForeColor = Color.Blue
+                Case cGlobal.Status_Erfasst
+                    lblStatus.Text = "erfasst"
+                    lblStatus.ForeColor = Color.Red
+                Case cGlobal.Status_Freigegeben
+                    lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
+                    lblStatus.ForeColor = Color.Green
+                    btnOK.Enabled = bearb
+                Case cGlobal.Status_NichtEingetroffen
+                    lblStatus.Text = "LKW nicht eingetroffen"
+                    lblStatus.ForeColor = Color.DarkGray
+                    btnOK.Enabled = bearb
+                Case cGlobal.Status_Vorbereitet
+                    lblStatus.Text = "Vorbereitet"
+                    lblStatus.ForeColor = Color.Brown
+                    btnOK.Enabled = bearb
+                Case cGlobal.Status_Vorgeschrieben
+                    lblStatus.Text = "Vorgeschrieben"
+                    lblStatus.ForeColor = Color.Purple
+                    btnOK.Enabled = bearb
+                Case Else
+                    lblStatus.Text = ""
+            End Select
+            lblStatus.Text = " " & lblStatus.Text & " "   'für bessere farbliche Hervorhebung
+            cboFirma.changeItem("")
+            cboFirma.changeItem(myAviso.FIRMA)
+
+
+
+
+        End If
+
+        If bearb Then Me.Text += " (Verwaltung)"
+
+        hÄnderung = False
+
+        dtpDatum.Enabled = bearb   'nur Administrator darf Erfassungsdatum ändern/bearbeiten
+        'If Neuanlage Then
+        '    dtpAvisoEingangDatum.Value = Now.Date
+        '    dtpAvisoEingangZeit.Value = LeerDatum
+        'Else
+        '    dtpAvisoEingangDatum.Enabled = bearb
+        '    dtpAvisoEingangZeit.Enabled = bearb
+        'End If
+
+
+        initAttachment()
+
+    End Sub
+
+    Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
+        If e.KeyCode = Keys.Delete Then
+
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
+                    ATT.RemoveAt(row.Index)
+                Next
+
+                'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
+                initAttachment()
+            End If
+        End If
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
+        Me.Close()
+    End Sub
+
+    Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtLKW_Nr.GotFocus
+        CType(sender, TextBox).SelectAll()
+    End Sub
+
+    Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
+        Try
+
+
+            If Not aktiv Then Exit Sub
+
+
+            lblErrErfasstDat.Visible = False
+            lblErr_Aktentyp.Visible = False
+            lblErr_Kunde.Visible = False
+            lblErr_LKW.Visible = False
+
+            If FIRMA_TMP = "VERIMEX" Then
+                If cboFirma._value = "" Then
+                    MsgBox("Firma auswählen!", vbInformation)
+                    cboFirma.Focus()
+                    Exit Sub
+
+                End If
+            End If
+
+
+            If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then
+                lblErrErfasstDat.Visible = True
+                dtpDatum.Focus()
+                Exit Sub
+            End If
+
+            If MyComboBox1._value.Trim = "" Then
+                ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
+                lblErr_Aktentyp.Visible = True
+                MyComboBox1.Focus()
+                Exit Sub
+            End If
+
+            If txtLKW_Nr.Text.Trim = "" Then
+                ' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
+                lblErr_LKW.Visible = True
+                txtLKW_Nr.Focus()
+                Exit Sub
+            End If
+
+            If kdAuftraggeber.KdNr_value <= 0 Then
+                lblErr_Kunde.Visible = True
+                kdAuftraggeber.Focus()
+                Exit Sub
+            End If
+
+
+
+            If Neuanlage Then
+                'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
+                Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
+                If hLKWCheck2 <> "" Then
+                    Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                           "Aviso-Eintrag")
+                    If antwort = vbNo Then
+                        Exit Sub
+                    End If
+                End If
+
+                If hLKWCheck2 = "" Then
+                    'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
+                    Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
+                    If hLKWCheck <> "" Then
+                        Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                               "Aviso-Eintrag")
+                        If antwort = vbNo Then
+                            Exit Sub
+                        End If
+                    End If
+                End If
+
+            End If
+
+
+
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim aendart As String = ""
+            Dim aendText As String = ""
+
+            'Werte zuweisen
+            myAviso.Telefonisch = ""
+            myAviso.Datum = dtpDatum.Value
+            myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")
+
+
+            If kdAuftraggeber.KdNr_value > 0 Then
+                myAviso.Auftraggeber = IIf(kdAuftraggeber.KdName <> "", kdAuftraggeber.KdName, kdAuftraggeber.Text)
+                myAviso.Auftraggeber_KdNr = kdAuftraggeber.KdNr_value
+            Else
+                myAviso.Auftraggeber = kdAuftraggeber.Text
+                myAviso.Auftraggeber_KdNr = -1
+            End If
+
+            If myAviso.Auftraggeber.Length > 50 Then myAviso.Auftraggeber = myAviso.Auftraggeber.Substring(0, 50)
+
+            myAviso.Frächter = myAviso.Auftraggeber
+            myAviso.Frächter_KdNr = myAviso.Auftraggeber_KdNr
+
+
+            myAviso.Grenzstelle = ""
+            myAviso.Info = ""
+
+            If Neuanlage Then
+                myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
+                myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+            End If
+
+            If Neuanlage Then
+                myAviso.Änderungen = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+                aendart = "Neuanlage"
+                aendText = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+
+            Else
+                myAviso.Änderungen = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen
+                aendart = "Änderung per Eingabefenster"
+                aendText = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
+            End If
+
+            Dim DatAnkunftNow = AVISOFUNC.getAnkunftDateNow()
+
+
+            myAviso.Status = cGlobal.Status_Ankunft
+
+
+            myAviso.Status = cGlobal.Status_Erfasst
+            myAviso.Ankunft = LeerDatum
+            myAviso.Freigabe = LeerDatum
+            myAviso.Vorbereitet = LeerDatum
+            myAviso.Vorgeschrieben = LeerDatum
+            myAviso.Dauer = 0
+
+
+
+
+            myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
+            myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
+
+
+
+
+            Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
+
+
+            myAviso.AvisoID = tmpId
+            AvisoDAL.addAenderung(tmpId, aendart, aendText)
+
+
+            'Infotext als Vermerk:
+            If txtInfo.Text.Trim <> "" Then
+                If txtInfo.Text.Length <= 80 Then
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Trim, 46)
+                ElseIf txtInfo.Text.Length <= 160 Then
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
+                ElseIf txtInfo.Text.Length <= 240 Then
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
+                    AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(160, 80), 46)
+                End If
+            End If
+
+            Me.Cursor = Cursors.Default
+            'Jetzt wird Fenster geschlossen
+            Me.Close()
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+            frmHauptfenster.setAktDetails(tmpId, showSendungsdetails)
+            If showSendungsdetails Then
+
+            End If
+
+        Catch ex As Exception
+            Me.Cursor = Cursors.Default
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+
+
+
+    ''threadsicherer Aufruf
+    'Delegate Sub setCboEntryCallback(i As String)
+    'Private Sub setCboEntry(i As String)
+    '    Try
+    '        If Me.InvokeRequired Then
+    '            Dim d As New setCboEntryCallback(AddressOf setCboEntry)
+    '            Me.Invoke(d, New Object() {i})
+    '        Else
+    '            cboPrinter.Items.Add(i)
+    '        End If
+
+    '    Catch ex As Exception
+
+    '    End Try
+    'End Sub
+
+    ''threadsicherer Aufruf
+    'Delegate Sub setCboSelectedCallback(standardDrucker As String)
+    'Private Sub setCboSelected(standardDrucker As String)
+    '    If Me.InvokeRequired Then
+    '        Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
+    '        Me.Invoke(d, New Object() {standardDrucker})
+    '    Else
+    '        Dim found As Boolean = False
+    '        '  For Each i In cboPrinter.Items
+    '        'If i.ToString.ToUpper.Contains("TALLY") Then
+    '        'found = True
+    '        ' cboPrinter.SelectedItem = i : Exit For
+    '        ' End If
+    '        '   Next
+
+    '        If found = False Then 'Falls kein TALLY, Standarddrucker
+    '            cboPrinter.SelectedIndex = 0
+    '            For Each i In cboPrinter.Items
+    '                If i.ToString = standardDrucker Then
+    '                    cboPrinter.SelectedItem = i
+    '                    Exit For
+    '                End If
+    '            Next
+    '        End If
+    '    End If
+
+    'End Sub
+
+
+
+
+    Private Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String) As String
+        If hText = "" Then
+            Platzhalter_ersetzen = hText
+            Exit Function
+        End If
+
+        'hier werden alle möglichen Platzhalter ersetzt
+        hText = hText.Replace("%LKW%", hLKW)
+        If hGrenzstelle <> "" Then
+            Dim Standorte As New cStandorteDAL
+            Dim Standort As New cStandort
+            Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
+            If Not IsNothing(Standort) Then
+                hGrenzstelle = Standort.Standort_Text.Trim
+            End If
+        End If
+        hText = hText.Replace("%Standort%", hGrenzstelle)
+        hText = hText.Replace("%Uhrzeit%", Format(Now, "HH:mm"))
+        hText = hText.Replace("&", "und")
+
+        Platzhalter_ersetzen = hText
+    End Function
+
+
+
+    Private Sub txtLKW_Nr_TextChanged(sender As Object, e As EventArgs) Handles txtLKW_Nr.Leave
+        txtLKW_Nr.Text = txtLKW_Nr.Text.ToUpper
+    End Sub
+
+
+
+    Private Sub frmEintragAviso_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        'dtpAvisoEingangZeit.Focus()
+        aktiv = True
+        'If EingangsDatum > CDate("01.01.1990") Then
+        '    dtpAvisoEingangDatum.Value = EingangsDatum
+        '    dtpAvisoEingangZeit.Value = EingangsDatum
+        'End If
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
+    End Sub
+
+
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If StartFromOUTLOOK Then
+            MsgBox("Diese Funktion ist im Outlook Addin nicht verfügbar!")
+            Exit Sub
+        End If
+        ' Me.showSendungsdetails = True
+        btnOK.PerformClick()
+
+
+        'If dgvSendungen.SelectedRows.Count > 0 Then
+        'sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+        'End If
+        If myAviso.AvisoID > 0 Then
+
+            If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then
+                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
+                frmSendungsdetails.ShowDialog(frmGrayOut)
+
+
+                frmGrayOut.Close()
+            Else
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID)
+            End If
+
+
+        End If
+        'initDgvSendungen()
+    End Sub
+
+
+
+    Private Sub btnAuftraggeber_Click(sender As Object, e As EventArgs) Handles btnAuftraggeber.Click
+        If kdAuftraggeber.KdNr > 0 Then
+            Me.Cursor = Cursors.WaitCursor
+            AVISOFUNC.showKd(kdAuftraggeber.KdNr)
+            Me.Cursor = Cursors.Default
+        End If
+    End Sub
+
+
+    Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick
+        Try
+            If dgvAnhaenge.SelectedRows.Count > 0 Then
+                If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then
+                    Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value)
+                End If
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
+        Select Case MyComboBox1._value
+            Case "CBAM"
+                PictureBox1.BackgroundImage = My.Resources.cbam_s
+            Case "EUDR"
+                PictureBox1.BackgroundImage = My.Resources.eudr
+            Case "FGAS"
+                PictureBox1.BackgroundImage = My.Resources.fgas_s
+            Case "COMPLIANCE"
+                PictureBox1.BackgroundImage = My.Resources.compliance_s
+            Case Else
+                PictureBox1.BackgroundImage = Nothing
+        End Select
+
+    End Sub
+End Class

Aviso/AktenErfassung/usrCntlHauptakt_CBAM.Designer.vb

@@ -0,0 +1,37 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class usrCntlHauptakt_CBAM
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.SuspendLayout()
+        '
+        'usrCntlHauptakt_CBAM
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Name = "usrCntlHauptakt_CBAM"
+        Me.Size = New System.Drawing.Size(358, 245)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+End Class

Aviso/AktenErfassung/usrCntlHauptakt_CBAM.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Aviso/AktenErfassung/usrCntlHauptakt_CBAM.vb

@@ -0,0 +1,3 @@
+Public Class usrCntlHauptakt_CBAM
+
+End Class

Aviso/Aviso.vbproj

@@ -559,6 +559,12 @@
     <Compile Include="ADMIN\frmZuordnungKd.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="AktenErfassung\usrCntlHauptakt_CBAM.Designer.vb">
+      <DependentUpon>usrCntlHauptakt_CBAM.vb</DependentUpon>
+    </Compile>
+    <Compile Include="AktenErfassung\usrCntlHauptakt_CBAM.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Anhänge\frmAddSendnung.Designer.vb">
       <DependentUpon>frmAddSendnung.vb</DependentUpon>
     </Compile>
@@ -797,6 +803,12 @@
     <Compile Include="frmATZollEingereichtSetzen.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="AktenErfassung\frmEintragSammelakt.designer.vb">
+      <DependentUpon>frmEintragSammelakt.vb</DependentUpon>
+    </Compile>
+    <Compile Include="AktenErfassung\frmEintragSammelakt.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmEintragTvNew.Designer.vb">
       <DependentUpon>frmEintragTvNew.vb</DependentUpon>
     </Compile>
@@ -989,16 +1001,16 @@
     <Compile Include="frmDruck.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmEintragAviso.designer.vb">
+    <Compile Include="AktenErfassung\frmEintragAviso.designer.vb">
       <DependentUpon>frmEintragAviso.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmEintragAviso.vb">
+    <Compile Include="AktenErfassung\frmEintragAviso.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmEintragAvisoInfo.designer.vb">
+    <Compile Include="AktenErfassung\frmEintragAvisoInfo.designer.vb">
       <DependentUpon>frmEintragAvisoInfo.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmEintragAvisoInfo.vb">
+    <Compile Include="AktenErfassung\frmEintragAvisoInfo.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="frmEintragKW.designer.vb">
@@ -1006,6 +1018,7 @@
     </Compile>
     <Compile Include="frmEintragKW.vb">
       <SubType>Form</SubType>
+      <Generator>v</Generator>
     </Compile>
     <Compile Include="frmEintragOptionen.designer.vb">
       <DependentUpon>frmEintragOptionen.vb</DependentUpon>
@@ -1258,6 +1271,12 @@
     <Compile Include="usrcntlFrachtkostenberechnung.vb">
       <SubType>UserControl</SubType>
     </Compile>
+    <Compile Include="usrCntlHauptfenster_Suche_AVISO.Designer.vb">
+      <DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
+    </Compile>
+    <Compile Include="usrCntlHauptfenster_Suche_AVISO.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
       <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
     </Compile>
@@ -1312,6 +1331,9 @@
     <EmbeddedResource Include="ADMIN\frmZuordnungKd.resx">
       <DependentUpon>frmZuordnungKd.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="AktenErfassung\usrCntlHauptakt_CBAM.resx">
+      <DependentUpon>usrCntlHauptakt_CBAM.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Anhänge\frmAddSendnung.resx">
       <DependentUpon>frmAddSendnung.vb</DependentUpon>
     </EmbeddedResource>
@@ -1415,6 +1437,9 @@
     <EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
       <DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="AktenErfassung\frmEintragSammelakt.resx">
+      <DependentUpon>frmEintragSammelakt.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmEintragTvNew.resx">
       <DependentUpon>frmEintragTvNew.vb</DependentUpon>
     </EmbeddedResource>
@@ -1514,10 +1539,10 @@
     <EmbeddedResource Include="frmDruck.resx">
       <DependentUpon>frmDruck.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmEintragAviso.resx">
+    <EmbeddedResource Include="AktenErfassung\frmEintragAviso.resx">
       <DependentUpon>frmEintragAviso.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmEintragAvisoInfo.resx">
+    <EmbeddedResource Include="AktenErfassung\frmEintragAvisoInfo.resx">
       <DependentUpon>frmEintragAvisoInfo.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmEintragKW.resx">
@@ -1648,6 +1673,9 @@
     <EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
       <DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="usrCntlHauptfenster_Suche_AVISO.resx">
+      <DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
       <DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
     </EmbeddedResource>
@@ -1783,6 +1811,7 @@
   <ItemGroup>
     <Content Include="aviso.ico" />
     <Content Include="My Project\aktAlt.jpg" />
+    <None Include="Resources\zollberatung_s.png" />
     <None Include="Resources\ZwAbEinfuegen.png" />
     <None Include="Resources\unisped_aeo_DE.jpg" />
     <None Include="Resources\Unisped_DE_logo.jpg" />
@@ -1837,6 +1866,10 @@
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
     <None Include="Resources\Declarant.png" />
+    <None Include="Resources\cbam_s.png" />
+    <None Include="Resources\compliance_s.png" />
+    <None Include="Resources\eudr.png" />
+    <None Include="Resources\fgas_s.png" />
     <Content Include="Resources\FO.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.0.0")>
+<Assembly: AssemblyVersion("4.2.0.3")>
-<Assembly: AssemblyFileVersion("4.2.0.0")>
+<Assembly: AssemblyFileVersion("4.2.0.3")>

Aviso/My Project/Resources.Designer.vb

@@ -458,6 +458,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property cbam_s() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("cbam_s", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -468,6 +478,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property compliance_s() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("compliance_s", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -648,6 +668,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property eudr() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("eudr", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -688,6 +718,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property fgas_s() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("fgas_s", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -2024,6 +2064,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property zollberatung_s() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("zollberatung_s", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Aviso/My Project/Resources.resx

@@ -118,9 +118,15 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -193,18 +199,21 @@
   <data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="qr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -241,15 +250,15 @@
   <data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="rhenus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\rhenus.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -298,6 +307,9 @@
   <data name="vorauszahlung11" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -328,8 +340,8 @@
   <data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="qr" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -358,9 +370,6 @@
   <data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -388,6 +397,12 @@
   <data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -409,6 +424,9 @@
   <data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
+  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -421,9 +439,6 @@
   <data name="fragezeichen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="zoll_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zoll_mm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -433,9 +448,6 @@
   <data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -448,6 +460,9 @@
   <data name="vorauszahlung2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -466,6 +481,9 @@
   <data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -493,15 +511,9 @@
   <data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -556,29 +568,29 @@
   <data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Declarant" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="qr" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -619,8 +631,8 @@
   <data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -649,23 +661,23 @@
   <data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="word1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -673,11 +685,14 @@
   <data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="asdadasda5sd" xml:space="preserve">
+    <value />
+  </data>
   <data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -691,19 +706,19 @@
   <data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="qr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="asdadasda5sd" xml:space="preserve">
+  <data name="compliance_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value />
+    <value>..\Resources\compliance_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Declarant" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="eudr" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\eudr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="fgas_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\fgas_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="zollberatung_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Aviso/frmHauptfenster.Designer.vb

@@ -79,6 +79,7 @@ Partial Class frmHauptfenster
         Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AnhangsartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.SpireLizenzPrüfenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
         Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -115,6 +116,7 @@ Partial Class frmHauptfenster
         Me.GesendeteSMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MRNBarcodedruckToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.NewsletterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
         Me.tool_BRGXLS = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
@@ -299,7 +301,6 @@ Partial Class frmHauptfenster
         Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
         Me.pic = New System.Windows.Forms.PictureBox()
         Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
-        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -412,12 +413,12 @@ Partial Class frmHauptfenster
         Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlLeft = New System.Windows.Forms.Panel()
-        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.Panel7 = New System.Windows.Forms.Panel()
         Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
-        Me.NewsletterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Button9 = New System.Windows.Forms.Button()
-        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
+        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.pnlDetailsRechts.SuspendLayout()
@@ -753,6 +754,12 @@ Partial Class frmHauptfenster
         Me.SpireLizenzPrüfenToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
         Me.SpireLizenzPrüfenToolStripMenuItem.Text = "Spire-Lizenz prüfen"
         '
+        'UNBescheinigungAusTFEinlesenToolStripMenuItem
+        '
+        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Name = "UNBescheinigungAusTFEinlesenToolStripMenuItem"
+        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
+        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen"
+        '
         'ToolStripSeparator4
         '
         Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -979,6 +986,12 @@ Partial Class frmHauptfenster
         Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
         '
+        'NewsletterToolStripMenuItem
+        '
+        Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem"
+        Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.NewsletterToolStripMenuItem.Text = "Newsletter"
+        '
         'ToolStripSeparator12
         '
         Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
@@ -1127,13 +1140,6 @@ Partial Class frmHauptfenster
         '
         Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
         Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem"
-        Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
-        Me.VerträgeToolStripMenuItem.Text = "Verträge"
-        '
-        'VerträgeToolStripMenuItem
-        '
-        Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
-        Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem"
         Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
         Me.VerträgeToolStripMenuItem.Text = "Verträge"
         '
@@ -2464,6 +2470,7 @@ Partial Class frmHauptfenster
         '
         'pnlLinksOben
         '
+        Me.pnlLinksOben.Controls.Add(Me.Button9)
         Me.pnlLinksOben.Controls.Add(Me.Label22)
         Me.pnlLinksOben.Controls.Add(Me.btnE_Aviso)
         Me.pnlLinksOben.Controls.Add(Me.btnNeu)
@@ -2591,15 +2598,6 @@ Partial Class frmHauptfenster
         Me.SplitContainer3.SplitterDistance = 99
         Me.SplitContainer3.TabIndex = 3
         '
-        'UsrCntlBenachrichtigungen1
-        '
-        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
-        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(99, 300)
-        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
-        '
         'pnl
         '
         Me.pnl.Controls.Add(Me.Button10)
@@ -3956,15 +3954,6 @@ Partial Class frmHauptfenster
         Me.pnlLeft.TabIndex = 88
         Me.pnlLeft.Visible = False
         '
-        'UsrCntlBenachrichtigungen2
-        '
-        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
-        Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
-        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243)
-        Me.UsrCntlBenachrichtigungen2.TabIndex = 1
-        '
         'Panel5
         '
         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
@@ -3993,15 +3982,40 @@ Partial Class frmHauptfenster
         Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
         Me.UsrCntlTestsystem1.TabIndex = 8
         '
-        'NewsletterToolStripMenuItem
+        'Button9
-        'UNBescheinigungAusTFEinlesenToolStripMenuItem
         '
-        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Name = "UNBescheinigungAusTFEinlesenToolStripMenuItem"
+        Me.Button9.ContextMenuStrip = Me.cntxtAtilla
-        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
+        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen"
+        Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem"
+        Me.Button9.ForeColor = System.Drawing.Color.Black
-        Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
+        Me.Button9.Image = CType(resources.GetObject("Button9.Image"), System.Drawing.Image)
-        Me.NewsletterToolStripMenuItem.Text = "Newsletter"
+        Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button9.Location = New System.Drawing.Point(127, 4)
+        Me.Button9.MaximumSize = New System.Drawing.Size(121, 34)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(40, 34)
+        Me.Button9.TabIndex = 12
+        Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button9.UseVisualStyleBackColor = True
+        Me.Button9.Visible = False
+        '
+        'UsrCntlBenachrichtigungen1
+        '
+        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
+        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(99, 300)
+        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
+        '
+        'UsrCntlBenachrichtigungen2
+        '
+        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
+        Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
+        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243)
+        Me.UsrCntlBenachrichtigungen2.TabIndex = 1
         '
         'frmHauptfenster
         '
@@ -4464,4 +4478,5 @@ Partial Class frmHauptfenster
     Friend WithEvents VerträgeToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents NewsletterToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents UNBescheinigungAusTFEinlesenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Button9 As Button
 End Class

Aviso/frmHauptfenster.resx

@@ -187,6 +187,14 @@
   <metadata name="cntxtAtilla.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1158, 17</value>
   </metadata>
+  <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
+        BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
+        zULyAAAAAElFTkSuQmCC
+</value>
+  </data>
   <data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m

Aviso/frmHauptfenster.vb

@@ -255,6 +255,7 @@ Public Class frmHauptfenster
             If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
                 StartPipeListener()
             End If
+            Button9.Visible = True 'CBAM..
         End If
 
         'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
@@ -5296,4 +5297,26 @@ ELSE_ATILLA:
         Dim f As New SDL.frmNewsletter
         f.Show(Me)
     End Sub
+
+    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
+        Try
+
+            Me.Cursor = Cursors.WaitCursor
+            gridAviso.ClearSelection()
+            gridMyAviso.ClearSelection()
+            Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+            Dim f As New frmEintragSammelakt
+
+            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
+            If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
+                f.ShowDialog(frmGrayOut)
+            End If
+            frmGrayOut.Close()
+            btnRefresh.PerformClick() 'Aviso_anzeigen("")
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class

Aviso/frmHauptfensterNew.resx

@@ -167,9 +167,6 @@
   <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>364, 17</value>
   </metadata>
-  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>560, 17</value>
-  </metadata>
   <data name="btnZertifikate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt
@@ -203,9 +200,6 @@
         zULyAAAAAElFTkSuQmCC
 </value>
   </data>
-  <metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>453, 17</value>
-  </metadata>
   <data name="Button8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -249,6 +243,12 @@
         sDvNfNUAAAAASUVORK5CYII=
 </value>
   </data>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>560, 17</value>
+  </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>560, 17</value>
+  </metadata>
   <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>659, 17</value>
   </metadata>
@@ -283,14 +283,14 @@
   <metadata name="ColorDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1400, 17</value>
   </metadata>
-  <metadata name="ctxtFarben.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
-  </metadata>
   <metadata name="cntVerag.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="UidAbfrageService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>126, 56</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>25</value>
+    <value>113</value>
   </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

Aviso/frmLogin.vb

@@ -41,6 +41,17 @@ Public Class frmLogin
             End If
             e.Handled = True
         End If
+        If e.Modifiers = Keys.Control And e.KeyCode = Keys.N Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = Not VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then
+                Panel1.BackColor = Color.GreenYellow
+                Panel1.ForeColor = Color.White
+            Else
+                Panel1.BackColor = Color.White
+                Panel1.ForeColor = Color.FromArgb(0, 54, 128)
+            End If
+            e.Handled = True
+        End If
         If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
             Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
             lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor

Aviso/frmSendungsdetailsNEU.vb

@@ -469,6 +469,8 @@ Public Class frmSendungsdetailsNEU
             FlowLayoutPanel.Visible = False
         End If
 
+
+
         Try
 
             Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -509,6 +511,17 @@ Public Class frmSendungsdetailsNEU
 
             VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN
 
+
+            If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then
+                If vbYes = MsgBox("Der Sammelakt enthält keine Sendungen, möchten Sie die erste Sendung anlegen?", vbYesNoCancel) Then
+                    ADD_SND(False)
+                Else
+                    Me.Close()
+                    Exit Sub
+                End If
+            End If
+
+
             Dim sbWhere = ""
             Dim QSwhere = ""
 
@@ -1179,6 +1192,23 @@ Public Class frmSendungsdetailsNEU
         'b_add.Font.FontFamily, 14, FontStyle.Bold)
         b_add.BackColor = Color.LightGray()
         AddHandler b_add.Click, Sub(send As Object, ev As EventArgs)
+                                    ADD_SND()
+
+                                End Sub
+        FlowLayoutPanel.Controls.Add(b_add)
+        b_add.Visible = True
+
+        '  FlowLayoutPanel.Visible = True
+        '  Me.ResumeLayout(False)
+
+        changeSelectedButton()
+        FlowLayoutPanel.ResumeLayout(True)
+        '   Panel3.Height = FlowLayoutPanel.Height
+
+    End Sub
+
+
+    Public Sub ADD_SND(Optional initAfter = True)
         If AVISO.Abgeschlossen Then Exit Sub
         '  Dim currentHisId = 0
         '  Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try
@@ -1204,8 +1234,13 @@ Public Class frmSendungsdetailsNEU
         End Select
 
 
+        If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then 'Wenn noch keine Senungenen, nciht speichern
+            If Not SAVE_ME() Then Exit Sub 'Speichern, sonst abbruch
+        End If
+
+
         ' loadDataInLIST()
-                                    If SAVE_ME() Then 'aktuelle Änderungen sichern
+        'If SAVE_ME() Then 'aktuelle Änderungen sichern
         ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
 
         Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
@@ -1214,24 +1249,11 @@ Public Class frmSendungsdetailsNEU
             NEW_SND.SAVE(False) 'Insert neue Sendung
             VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
             ' initDataBinding()
-                                        LAST_SENDUNG(False) 'letzte Sendung
+            If initAfter Then LAST_SENDUNG(False) 'letzte Sendung
             initButtons()
-                                    End If
+        'End If
 
     End Sub
-        FlowLayoutPanel.Controls.Add(b_add)
-        b_add.Visible = True
-
-        '  FlowLayoutPanel.Visible = True
-        '  Me.ResumeLayout(False)
-
-        changeSelectedButton()
-        FlowLayoutPanel.ResumeLayout(True)
-        '   Panel3.Height = FlowLayoutPanel.Height
-
-    End Sub
-
-
     Public Sub Duplicate(index)
         ' loadDataInLIST()
         SAVE_ME()

Aviso/usrCntlHauptfenster_Suche_AVISO.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="ctxtFarben.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>126, 56</value>
+  </metadata>
+</root>