neu

2022-07-08 08:11:33 +02:00
parent a4ad6cc8c8
commit 505b2800c5
96 changed files with 4969 additions and 8465 deletions
--- a/Aviso/Anhänge/frmAddSendnung.Designer.vb
+++ b/Aviso/Anhänge/frmAddSendnung.Designer.vb
@@ -44,6 +44,9 @@ Partial Class frmAddSendnung
        Me.picWarnEmpfaenger = New System.Windows.Forms.PictureBox()
        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.lblWW = New System.Windows.Forms.Label()
+        Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        CType(Me.picWarnAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picWarnEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -58,7 +61,7 @@ Partial Class frmAddSendnung
        Me.cboAbfertigungsart.FormattingEnabled = True
        Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
        Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(335, 24)
+        Me.cboAbfertigungsart.Size = New System.Drawing.Size(425, 24)
        Me.cboAbfertigungsart.TabIndex = 1
        '
        'Label1
@@ -83,6 +86,7 @@ Partial Class frmAddSendnung
        Me.txtEmpfaenger._displayWoelflKd = False
        Me.txtEmpfaenger._hideIfListEmpty = True
        Me.txtEmpfaenger._loadKdData = True
+        Me.txtEmpfaenger._UseFIRMA = ""
        Me.txtEmpfaenger._ValueKdAndName = True
        Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
        Me.txtEmpfaenger.dgvpos = "LEFT"
@@ -91,12 +95,13 @@ Partial Class frmAddSendnung
        Me.txtEmpfaenger.KdNr = "-1"
        Me.txtEmpfaenger.kdNrField = Nothing
        Me.txtEmpfaenger.KdNrNullInt = Nothing
-        Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 131)
+        Me.txtEmpfaenger.Location = New System.Drawing.Point(15, 131)
        Me.txtEmpfaenger.Name = "txtEmpfaenger"
        Me.txtEmpfaenger.nurAktive = True
        Me.txtEmpfaenger.searchActive = True
-        Me.txtEmpfaenger.Size = New System.Drawing.Size(315, 23)
-        Me.txtEmpfaenger.TabIndex = 5
+        Me.txtEmpfaenger.Size = New System.Drawing.Size(378, 23)
+        Me.txtEmpfaenger.TabIndex = 7
+        Me.txtEmpfaenger.TIMER_SEARCH = True
        Me.txtEmpfaenger.usrcntl = Nothing
        '
        'txtGewicht
@@ -108,6 +113,7 @@ Partial Class frmAddSendnung
        Me.txtGewicht._ShortDateNew = False
        Me.txtGewicht._ShortDateOnly = False
        Me.txtGewicht._TimeOnly = False
+        Me.txtGewicht._TimeOnly_Seconds = False
        Me.txtGewicht._value = ""
        Me.txtGewicht._Waehrung = False
        Me.txtGewicht._WaehrungZeichen = True
@@ -118,7 +124,7 @@ Partial Class frmAddSendnung
        Me.txtGewicht.MaxLines_Warning_Label = Nothing
        Me.txtGewicht.Name = "txtGewicht"
        Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
-        Me.txtGewicht.TabIndex = 11
+        Me.txtGewicht.TabIndex = 13
        Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Label19
@@ -127,7 +133,7 @@ Partial Class frmAddSendnung
        Me.Label19.Location = New System.Drawing.Point(9, 164)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(100, 13)
-        Me.Label19.TabIndex = 6
+        Me.Label19.TabIndex = 8
        Me.Label19.Text = "Warenbezeichnung"
        '
        'Label17
@@ -136,7 +142,7 @@ Partial Class frmAddSendnung
        Me.Label17.Location = New System.Drawing.Point(10, 215)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(73, 13)
-        Me.Label17.TabIndex = 8
+        Me.Label17.TabIndex = 10
        Me.Label17.Text = "Colli/Gewicht:"
        '
        'txtColli
@@ -148,7 +154,8 @@ Partial Class frmAddSendnung
        Me.txtColli._ShortDateNew = False
        Me.txtColli._ShortDateOnly = False
        Me.txtColli._TimeOnly = False
-        Me.txtColli._value = Nothing
+        Me.txtColli._TimeOnly_Seconds = False
+        Me.txtColli._value = ""
        Me.txtColli._Waehrung = False
        Me.txtColli._WaehrungZeichen = True
        Me.txtColli.ForeColor = System.Drawing.Color.Black
@@ -158,7 +165,7 @@ Partial Class frmAddSendnung
        Me.txtColli.MaxLines_Warning_Label = Nothing
        Me.txtColli.Name = "txtColli"
        Me.txtColli.Size = New System.Drawing.Size(46, 20)
-        Me.txtColli.TabIndex = 9
+        Me.txtColli.TabIndex = 11
        Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'rtbWarenbezeichnung
@@ -168,8 +175,8 @@ Partial Class frmAddSendnung
        Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 180)
        Me.rtbWarenbezeichnung.MaxLength = 500
        Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
-        Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
-        Me.rtbWarenbezeichnung.TabIndex = 7
+        Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(425, 32)
+        Me.rtbWarenbezeichnung.TabIndex = 9
        Me.rtbWarenbezeichnung.Text = ""
        '
        'Label23
@@ -178,7 +185,7 @@ Partial Class frmAddSendnung
        Me.Label23.Location = New System.Drawing.Point(129, 215)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(23, 13)
-        Me.Label23.TabIndex = 10
+        Me.Label23.TabIndex = 12
        Me.Label23.Text = "Pk."
        '
        'Label2
@@ -188,17 +195,17 @@ Partial Class frmAddSendnung
        Me.Label2.Location = New System.Drawing.Point(10, 111)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(81, 17)
-        Me.Label2.TabIndex = 4
+        Me.Label2.TabIndex = 5
        Me.Label2.Text = "Empfänger:"
        '
        'btn
        '
-        Me.btn.DialogResult = DialogResult.OK
+        Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btn.Location = New System.Drawing.Point(12, 244)
        Me.btn.Name = "btn"
-        Me.btn.Size = New System.Drawing.Size(359, 52)
-        Me.btn.TabIndex = 12
+        Me.btn.Size = New System.Drawing.Size(425, 52)
+        Me.btn.TabIndex = 17
        Me.btn.Text = "OK"
        Me.btn.UseVisualStyleBackColor = True
        '
@@ -223,6 +230,7 @@ Partial Class frmAddSendnung
        Me.txtAbsender._displayWoelflKd = False
        Me.txtAbsender._hideIfListEmpty = True
        Me.txtAbsender._loadKdData = True
+        Me.txtAbsender._UseFIRMA = ""
        Me.txtAbsender._ValueKdAndName = True
        Me.txtAbsender.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
        Me.txtAbsender.dgvpos = "LEFT"
@@ -231,12 +239,13 @@ Partial Class frmAddSendnung
        Me.txtAbsender.KdNr = "-1"
        Me.txtAbsender.kdNrField = Nothing
        Me.txtAbsender.KdNrNullInt = Nothing
-        Me.txtAbsender.Location = New System.Drawing.Point(12, 85)
+        Me.txtAbsender.Location = New System.Drawing.Point(15, 85)
        Me.txtAbsender.Name = "txtAbsender"
        Me.txtAbsender.nurAktive = True
        Me.txtAbsender.searchActive = True
-        Me.txtAbsender.Size = New System.Drawing.Size(315, 23)
-        Me.txtAbsender.TabIndex = 3
+        Me.txtAbsender.Size = New System.Drawing.Size(378, 23)
+        Me.txtAbsender.TabIndex = 4
+        Me.txtAbsender.TIMER_SEARCH = True
        Me.txtAbsender.usrcntl = Nothing
        '
        'FlatButton4
@@ -247,10 +256,10 @@ Partial Class frmAddSendnung
        Me.FlatButton4.FlatAppearance.BorderSize = 0
        Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.FlatButton4.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton4.Location = New System.Drawing.Point(325, 130)
+        Me.FlatButton4.Location = New System.Drawing.Point(391, 130)
        Me.FlatButton4.Name = "FlatButton4"
        Me.FlatButton4.Size = New System.Drawing.Size(25, 25)
-        Me.FlatButton4.TabIndex = 89
+        Me.FlatButton4.TabIndex = 6
        Me.FlatButton4.TabStop = False
        Me.FlatButton4.UseVisualStyleBackColor = True
        '
@@ -262,10 +271,10 @@ Partial Class frmAddSendnung
        Me.FlatButton1.FlatAppearance.BorderSize = 0
        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton1.Location = New System.Drawing.Point(325, 84)
+        Me.FlatButton1.Location = New System.Drawing.Point(391, 84)
        Me.FlatButton1.Name = "FlatButton1"
        Me.FlatButton1.Size = New System.Drawing.Size(25, 25)
-        Me.FlatButton1.TabIndex = 88
+        Me.FlatButton1.TabIndex = 3
        Me.FlatButton1.TabStop = False
        Me.FlatButton1.UseVisualStyleBackColor = True
        '
@@ -273,7 +282,7 @@ Partial Class frmAddSendnung
        '
        Me.picWarnAbsender.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
        Me.picWarnAbsender.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picWarnAbsender.Location = New System.Drawing.Point(351, 85)
+        Me.picWarnAbsender.Location = New System.Drawing.Point(417, 85)
        Me.picWarnAbsender.Name = "picWarnAbsender"
        Me.picWarnAbsender.Size = New System.Drawing.Size(20, 23)
        Me.picWarnAbsender.TabIndex = 86
@@ -284,7 +293,7 @@ Partial Class frmAddSendnung
        '
        Me.picWarnEmpfaenger.BackgroundImage = Global.AVISO.My.Resources.Resources.warning2
        Me.picWarnEmpfaenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picWarnEmpfaenger.Location = New System.Drawing.Point(351, 131)
+        Me.picWarnEmpfaenger.Location = New System.Drawing.Point(417, 131)
        Me.picWarnEmpfaenger.Name = "picWarnEmpfaenger"
        Me.picWarnEmpfaenger.Size = New System.Drawing.Size(20, 23)
        Me.picWarnEmpfaenger.TabIndex = 87
@@ -299,8 +308,8 @@ Partial Class frmAddSendnung
        Me.RichTextBox1.MaxLength = 500
        Me.RichTextBox1.Name = "RichTextBox1"
        Me.RichTextBox1.ReadOnly = True
-        Me.RichTextBox1.Size = New System.Drawing.Size(359, 102)
-        Me.RichTextBox1.TabIndex = 90
+        Me.RichTextBox1.Size = New System.Drawing.Size(425, 102)
+        Me.RichTextBox1.TabIndex = 19
        Me.RichTextBox1.Text = ""
        '
        'Label4
@@ -309,15 +318,75 @@ Partial Class frmAddSendnung
        Me.Label4.Location = New System.Drawing.Point(12, 311)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(184, 13)
-        Me.Label4.TabIndex = 91
+        Me.Label4.TabIndex = 18
        Me.Label4.Text = "Besonderheiten (aktives Kundenfeld):"
        '
+        'txtWarenwertWaehrung
+        '
+        Me.txtWarenwertWaehrung._allowFreitext = False
+        Me.txtWarenwertWaehrung._AllowSetValue = False
+        Me.txtWarenwertWaehrung._allowSpaceAsSplitter = False
+        Me.txtWarenwertWaehrung._autoSizeGross = False
+        Me.txtWarenwertWaehrung._hideIfListEmpty = True
+        Me.txtWarenwertWaehrung._value = ""
+        Me.txtWarenwertWaehrung.conn_art = "FMZOLL"
+        Me.txtWarenwertWaehrung.dgvpos = "LEFT"
+        Me.txtWarenwertWaehrung.DISPLAY_PARAM = Nothing
+        Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing
+        Me.txtWarenwertWaehrung.key_visible = False
+        Me.txtWarenwertWaehrung.KEYPARAM = Nothing
+        Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(397, 212)
+        Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung"
+        Me.txtWarenwertWaehrung.searchActive = True
+        Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20)
+        Me.txtWarenwertWaehrung.SQL_ORDER_BY = Nothing
+        Me.txtWarenwertWaehrung.SQL_SELECT = Nothing
+        Me.txtWarenwertWaehrung.SQL_WHERE = Nothing
+        Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing
+        Me.txtWarenwertWaehrung.TabIndex = 16
+        Me.txtWarenwertWaehrung.usrcntl = Nothing
+        '
+        'lblWW
+        '
+        Me.lblWW.AutoSize = True
+        Me.lblWW.Location = New System.Drawing.Point(218, 215)
+        Me.lblWW.Name = "lblWW"
+        Me.lblWW.Size = New System.Drawing.Size(62, 13)
+        Me.lblWW.TabIndex = 14
+        Me.lblWW.Text = "Warenwert:"
+        '
+        'txtWarenwert
+        '
+        Me.txtWarenwert._DateTimeOnly = False
+        Me.txtWarenwert._numbersOnly = True
+        Me.txtWarenwert._numbersOnlyKommastellen = ""
+        Me.txtWarenwert._Prozent = False
+        Me.txtWarenwert._ShortDateNew = False
+        Me.txtWarenwert._ShortDateOnly = False
+        Me.txtWarenwert._TimeOnly = False
+        Me.txtWarenwert._TimeOnly_Seconds = False
+        Me.txtWarenwert._value = ""
+        Me.txtWarenwert._Waehrung = False
+        Me.txtWarenwert._WaehrungZeichen = True
+        Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
+        Me.txtWarenwert.Location = New System.Drawing.Point(289, 212)
+        Me.txtWarenwert.MaxLineLength = -1
+        Me.txtWarenwert.MaxLines_Warning = ""
+        Me.txtWarenwert.MaxLines_Warning_Label = Nothing
+        Me.txtWarenwert.Name = "txtWarenwert"
+        Me.txtWarenwert.Size = New System.Drawing.Size(109, 20)
+        Me.txtWarenwert.TabIndex = 15
+        Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
        'frmAddSendnung
        '
        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(389, 441)
+        Me.ClientSize = New System.Drawing.Size(449, 441)
+        Me.Controls.Add(Me.txtWarenwertWaehrung)
+        Me.Controls.Add(Me.lblWW)
+        Me.Controls.Add(Me.txtWarenwert)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.RichTextBox1)
        Me.Controls.Add(Me.picWarnEmpfaenger)
@@ -368,4 +437,7 @@ Partial Class frmAddSendnung
    Friend WithEvents picWarnEmpfaenger As PictureBox
    Friend WithEvents RichTextBox1 As RichTextBox
    Friend WithEvents Label4 As Label
+    Friend WithEvents txtWarenwertWaehrung As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents lblWW As Label
+    Friend WithEvents txtWarenwert As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/Aviso/Anhänge/frmAddSendnung.vb
+++ b/Aviso/Anhänge/frmAddSendnung.vb
@@ -32,6 +32,8 @@
        txtAbsender.usrcntlWIDTH = 360
        txtAbsender.usrcntlHEIGHT = 100

+        txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
+
        AddHandler txtEmpfaenger.PropertyChanged, Sub()
                                                      FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
                                                      initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
@@ -60,6 +62,8 @@

            txtColli.Text = If(Sendung.tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
            txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
+            txtWarenwert.Text = If(Sendung.tblSnd_Warenwert, "")
+            txtWarenwertWaehrung.SET_VALUE(If(Sendung.tblSnd_WarenwertWaehrung, ""))
            rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")

        End If
@@ -73,7 +77,7 @@
            txtColli.Text = txtColli.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
            txtGewicht.Text = txtGewicht.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
            If txtColli.Text <> "" And Not IsNumeric(txtColli.Text) Then MsgBox("Colli: Falsches Format") : Exit Sub
-            If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("f Gewicht: Falsches Format") : Exit Sub
+            If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("Gewicht: Falsches Format") : Exit Sub

            If Sendung Is Nothing Then
                Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
@@ -88,6 +92,9 @@
            Sendung.tblSnd_Gewicht = ""
            If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text)
            If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text)
+            If txtWarenwert._value <> "" Then Sendung.tblSnd_Warenwert = CDbl(txtWarenwert._value)
+            If txtWarenwertWaehrung._value <> "" Then Sendung.tblSnd_WarenwertWaehrung = txtWarenwertWaehrung._value
+

            Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text

--- a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
@@ -26,8 +26,6 @@ Partial Class frmSendungAnhangImport
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
        Me.lbl = New System.Windows.Forms.Label()
        Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
-        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
-        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
        Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
        Me.lblSendungen = New System.Windows.Forms.Label()
        Me.lblImport = New System.Windows.Forms.Label()
@@ -70,6 +68,9 @@ Partial Class frmSendungAnhangImport
        Me.lblEmpfaenger = New System.Windows.Forms.Label()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Button17 = New System.Windows.Forms.Button()
+        Me.lblRgPreis = New System.Windows.Forms.Label()
+        Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
+        Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
        Me.flpnlAviso.SuspendLayout()
        Me.pnlAnfuegen.SuspendLayout()
        Me.cntxt.SuspendLayout()
@@ -100,36 +101,6 @@ Partial Class frmSendungAnhangImport
        Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
        Me.flpnlAviso.TabIndex = 7
        '
-        'UsrCntlSendungAnhangElement1
-        '
-        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
-        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
-        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
-        '
-        'UsrCntlSendungAnhangElement2
-        '
-        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
-        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
-        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
-        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
-        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
-        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
-        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
-        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
-        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
-        '
        'flpnlSendungen
        '
        Me.flpnlSendungen.AllowDrop = True
@@ -220,6 +191,7 @@ Partial Class frmSendungAnhangImport
        Me.txtBezeichnung._ShortDateNew = False
        Me.txtBezeichnung._ShortDateOnly = False
        Me.txtBezeichnung._TimeOnly = False
+        Me.txtBezeichnung._TimeOnly_Seconds = False
        Me.txtBezeichnung._value = ""
        Me.txtBezeichnung._Waehrung = False
        Me.txtBezeichnung._WaehrungZeichen = True
@@ -274,6 +246,7 @@ Partial Class frmSendungAnhangImport
        Me.txtDateiname._ShortDateNew = False
        Me.txtDateiname._ShortDateOnly = False
        Me.txtDateiname._TimeOnly = False
+        Me.txtDateiname._TimeOnly_Seconds = False
        Me.txtDateiname._value = ""
        Me.txtDateiname._Waehrung = False
        Me.txtDateiname._WaehrungZeichen = True
@@ -305,6 +278,7 @@ Partial Class frmSendungAnhangImport
        Me.MyTextBox2._ShortDateNew = False
        Me.MyTextBox2._ShortDateOnly = False
        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
        Me.MyTextBox2._value = ""
        Me.MyTextBox2._Waehrung = False
        Me.MyTextBox2._WaehrungZeichen = True
@@ -370,6 +344,7 @@ Partial Class frmSendungAnhangImport
        Me.txtSeiten._ShortDateNew = False
        Me.txtSeiten._ShortDateOnly = False
        Me.txtSeiten._TimeOnly = False
+        Me.txtSeiten._TimeOnly_Seconds = False
        Me.txtSeiten._value = ""
        Me.txtSeiten._Waehrung = False
        Me.txtSeiten._WaehrungZeichen = True
@@ -555,9 +530,9 @@ Partial Class frmSendungAnhangImport
        '
        Me.lblSendungsdetails.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblSendungsdetails.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 99)
+        Me.lblSendungsdetails.Location = New System.Drawing.Point(1077, 98)
        Me.lblSendungsdetails.Name = "lblSendungsdetails"
-        Me.lblSendungsdetails.Size = New System.Drawing.Size(223, 17)
+        Me.lblSendungsdetails.Size = New System.Drawing.Size(157, 21)
        Me.lblSendungsdetails.TabIndex = 13
        Me.lblSendungsdetails.Text = "-"
        '
@@ -627,6 +602,47 @@ Partial Class frmSendungAnhangImport
        Me.Button17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button17.UseVisualStyleBackColor = True
        '
+        'lblRgPreis
+        '
+        Me.lblRgPreis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblRgPreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblRgPreis.Location = New System.Drawing.Point(1196, 98)
+        Me.lblRgPreis.Name = "lblRgPreis"
+        Me.lblRgPreis.Size = New System.Drawing.Size(107, 21)
+        Me.lblRgPreis.TabIndex = 19
+        Me.lblRgPreis.Text = "-"
+        Me.lblRgPreis.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'UsrCntlSendungAnhangElement1
+        '
+        Me.UsrCntlSendungAnhangElement1.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement1.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement1.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement1.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlSendungAnhangElement1.Name = "UsrCntlSendungAnhangElement1"
+        Me.UsrCntlSendungAnhangElement1.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement1.TabIndex = 0
+        '
+        'UsrCntlSendungAnhangElement2
+        '
+        Me.UsrCntlSendungAnhangElement2.ACTIVE = False
+        Me.UsrCntlSendungAnhangElement2.BackColor = System.Drawing.Color.White
+        Me.UsrCntlSendungAnhangElement2.FILE_ANHID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_DOCID = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_NAME = "False"
+        Me.UsrCntlSendungAnhangElement2.FILE_PAGES = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_PATH = Nothing
+        Me.UsrCntlSendungAnhangElement2.FILE_TYPE = Nothing
+        Me.UsrCntlSendungAnhangElement2.Location = New System.Drawing.Point(3, 73)
+        Me.UsrCntlSendungAnhangElement2.Name = "UsrCntlSendungAnhangElement2"
+        Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
+        Me.UsrCntlSendungAnhangElement2.TabIndex = 1
+        '
        'frmSendungAnhangImport
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -653,6 +669,7 @@ Partial Class frmSendungAnhangImport
        Me.Controls.Add(Me.lbl)
        Me.Controls.Add(Me.pnl)
        Me.Controls.Add(Me.lblEmpfaenger)
+        Me.Controls.Add(Me.lblRgPreis)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.KeyPreview = True
        Me.Name = "frmSendungAnhangImport"
@@ -714,4 +731,5 @@ Partial Class frmSendungAnhangImport
    Friend WithEvents Panel1 As Panel
    Friend WithEvents Button17 As Button
    Friend WithEvents cbxAlternativePDFAnsicht As CheckBox
+    Friend WithEvents lblRgPreis As Label
 End Class
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -1164,6 +1164,12 @@ Public Class frmSendungAnhangImport
            Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
            If If(SND.tblSnd_Colli, "") <> "" Then lblSendungsdetails.Text = SND.tblSnd_Colli & " Pk"
            If If(SND.tblSnd_Gewicht, "") <> "" Then lblSendungsdetails.Text &= If(lblSendungsdetails.Text <> "", ";  ", "") & CDbl(SND.tblSnd_Gewicht.Replace(" ", "").Replace(Chr(160), "")).ToString("N1") & " kg"
+            If If(SND.tblSnd_Gewicht, "") <> "" Then
+                lblRgPreis.Text = (CDbl(SND.tblSnd_Warenwert).ToString("N2") & " " & If(SND.tblSnd_WarenwertWaehrung, "")).trim
+            Else
+                lblRgPreis.Text = ""
+            End If
+
            lblWarenbeichnung.Text = If(SND.tblSnd_Warenbezeichnung, "")
            lblAbsender.Text = If(SND.tblSnd_Absender, "")
            lblEmpfaenger.Text = If(SND.tblSnd_Empfaenger, "")
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -402,6 +402,12 @@
    <Compile Include="Auswertung\usrctlAuswertung.vb">
      <SubType>UserControl</SubType>
    </Compile>
+    <Compile Include="AvisoReports\rptTEST.Designer.vb">
+      <DependentUpon>rptTEST.vb</DependentUpon>
+    </Compile>
+    <Compile Include="AvisoReports\rptTEST.vb">
+      <SubType>Component</SubType>
+    </Compile>
    <Compile Include="AvisoReports\rptQRAviso.Designer.vb">
      <DependentUpon>rptQRAviso.vb</DependentUpon>
    </Compile>
@@ -982,6 +988,9 @@
    <EmbeddedResource Include="Auswertung\usrctlAuswertung.resx">
      <DependentUpon>usrctlAuswertung.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="AvisoReports\rptTEST.resx">
+      <DependentUpon>rptTEST.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="AvisoReports\rptQRAviso.resx">
      <DependentUpon>rptQRAviso.vb</DependentUpon>
    </EmbeddedResource>
@@ -1259,16 +1268,28 @@
      <CustomToolNamespace>My</CustomToolNamespace>
      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
    </None>
-    <None Include="Resources\ATANAK_Instructions_Export.xlsx">
+    <None Include="Resources\old_ATANAK_Instructions_Export.xlsx">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </None>
-    <None Include="Resources\ATANAK_Instructions_Export_T1.xlsx">
+    <None Include="Resources\DGS_Instructions_Export.xlsx">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </None>
-    <None Include="Resources\ATANAK_Instructions_Import.xlsx">
+    <None Include="Resources\old_ATANAK_Instructions_Export_T1.xlsx">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Include="Resources\DGS_Instructions_Export_T1.xlsx">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Include="Resources\old_ATANAK_Instructions_Import.xlsx">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Include="Resources\DGS_Instructions_Import.xlsx">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </None>
    <None Include="Resources\Instructions_Import.xlsx" />
+    <None Include="Resources\VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL.xlsx">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
    <None Include="Zert_20092019.pfx" />
  </ItemGroup>
  <ItemGroup>
--- a/Aviso/AvisoReports/rptTEST.Designer.vb
+++ b/Aviso/AvisoReports/rptTEST.Designer.vb
@@ -0,0 +1,95 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptTEST
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.txtLKW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Height = 0!
+        Me.Detail.Name = "Detail"
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Height = 0!
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLKW})
+        Me.ReportHeader1.Height = 0.9712601!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'txtLKW
+        '
+        Me.txtLKW.CanGrow = False
+        Me.txtLKW.Height = 0.6240159!
+        Me.txtLKW.Left = -3.72529E-9!
+        Me.txtLKW.Name = "txtLKW"
+        Me.txtLKW.Style = "font-size: 16pt; font-weight: bold; text-align: center; text-justify: auto; verti" &
+    "cal-align: middle; ddo-char-set: 1"
+        Me.txtLKW.Text = "TEST"
+        Me.txtLKW.Top = 0.3472441!
+        Me.txtLKW.Width = 2.604725!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.CanShrink = True
+        Me.ReportFooter1.Height = 0.1775591!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'rptTEST
+        '
+        Me.PageSettings.Margins.Bottom = 0.1968504!
+        Me.PageSettings.Margins.Left = 0.07874016!
+        Me.PageSettings.Margins.Right = 0.07874016!
+        Me.PageSettings.Margins.Top = 0!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 2.673229!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtLKW, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Public WithEvents txtLKW As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/Aviso/AvisoReports/rptTEST.resx
+++ b/Aviso/AvisoReports/rptTEST.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="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>
--- a/Aviso/AvisoReports/rptTEST.vb
+++ b/Aviso/AvisoReports/rptTEST.vb
@@ -0,0 +1,7 @@
+Imports System.Web
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports ThoughtWorks.QRCode.Codec
+
+Public Class rptTEST
+End Class
--- a/Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.Designer.vb
+++ b/Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.Designer.vb
@@ -23,6 +23,7 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.lblDatUhrzeit = New System.Windows.Forms.Label()
@@ -32,7 +33,6 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
        Me.btn = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Button2 = New System.Windows.Forms.Button()
        Me.pnl.SuspendLayout()
        Me.SuspendLayout()
        '
@@ -50,16 +50,32 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
        Me.pnl.Controls.Add(Me.btn)
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(460, 159)
+        Me.pnl.Size = New System.Drawing.Size(690, 245)
        Me.pnl.TabIndex = 0
        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.Red
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button2.ForeColor = System.Drawing.Color.White
+        Me.Button2.Location = New System.Drawing.Point(630, -2)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(58, 48)
+        Me.Button2.TabIndex = 10
+        Me.Button2.Text = "X"
+        Me.Button2.UseVisualStyleBackColor = False
+        '
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(193, 10)
+        Me.Label2.Location = New System.Drawing.Point(290, 15)
+        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(79, 13)
+        Me.Label2.Size = New System.Drawing.Size(116, 20)
        Me.Label2.TabIndex = 4
        Me.Label2.Text = "Datum/Uhrzeit:"
        '
@@ -68,9 +84,10 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
        Me.Button1.BackColor = System.Drawing.Color.SteelBlue
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.ForeColor = System.Drawing.Color.White
-        Me.Button1.Location = New System.Drawing.Point(11, 92)
+        Me.Button1.Location = New System.Drawing.Point(16, 142)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(236, 56)
+        Me.Button1.Size = New System.Drawing.Size(354, 86)
        Me.Button1.TabIndex = 9
        Me.Button1.Text = "OK & Vermerk bestätigen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vorauskasse / Angeforderte Doks erhalten)"
        Me.Button1.UseVisualStyleBackColor = False
@@ -78,9 +95,10 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
        'lblDatUhrzeit
        '
        Me.lblDatUhrzeit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblDatUhrzeit.Location = New System.Drawing.Point(213, 10)
+        Me.lblDatUhrzeit.Location = New System.Drawing.Point(320, 15)
+        Me.lblDatUhrzeit.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.lblDatUhrzeit.Name = "lblDatUhrzeit"
-        Me.lblDatUhrzeit.Size = New System.Drawing.Size(177, 13)
+        Me.lblDatUhrzeit.Size = New System.Drawing.Size(266, 20)
        Me.lblDatUhrzeit.TabIndex = 8
        Me.lblDatUhrzeit.Text = "01.01.2020 10:00"
        Me.lblDatUhrzeit.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -89,18 +107,20 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
        '
        Me.lblArt.AutoSize = True
        Me.lblArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
-        Me.lblArt.Location = New System.Drawing.Point(11, 8)
+        Me.lblArt.Location = New System.Drawing.Point(16, 12)
+        Me.lblArt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.lblArt.Name = "lblArt"
-        Me.lblArt.Size = New System.Drawing.Size(167, 17)
+        Me.lblArt.Size = New System.Drawing.Size(232, 25)
        Me.lblArt.TabIndex = 5
        Me.lblArt.Text = "VERMERK REMINDER"
        '
        'lbl
        '
        Me.lbl.AutoSize = True
-        Me.lbl.Location = New System.Drawing.Point(8, 34)
+        Me.lbl.Location = New System.Drawing.Point(12, 52)
+        Me.lbl.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
        Me.lbl.Name = "lbl"
-        Me.lbl.Size = New System.Drawing.Size(49, 13)
+        Me.lbl.Size = New System.Drawing.Size(73, 20)
        Me.lbl.TabIndex = 2
        Me.lbl.Text = "Vermerk:"
        '
@@ -108,21 +128,24 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
        '
        Me.rtbVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.rtbVermerk.Location = New System.Drawing.Point(11, 50)
+        Me.rtbVermerk.Location = New System.Drawing.Point(16, 77)
+        Me.rtbVermerk.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.rtbVermerk.Name = "rtbVermerk"
        Me.rtbVermerk.ReadOnly = True
-        Me.rtbVermerk.Size = New System.Drawing.Size(436, 36)
+        Me.rtbVermerk.Size = New System.Drawing.Size(653, 53)
        Me.rtbVermerk.TabIndex = 1
        Me.rtbVermerk.Text = ""
        '
        'btn
        '
        Me.btn.BackColor = System.Drawing.Color.SteelBlue
+        Me.btn.DialogResult = System.Windows.Forms.DialogResult.Yes
        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btn.ForeColor = System.Drawing.Color.White
-        Me.btn.Location = New System.Drawing.Point(253, 92)
+        Me.btn.Location = New System.Drawing.Point(380, 142)
+        Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.btn.Name = "btn"
-        Me.btn.Size = New System.Drawing.Size(194, 56)
+        Me.btn.Size = New System.Drawing.Size(291, 86)
        Me.btn.TabIndex = 0
        Me.btn.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Benachrichtigung akzeptieren)"
        Me.btn.UseVisualStyleBackColor = False
@@ -130,34 +153,26 @@ Partial Class frmAvisoBenachrichtigungReminderBestaetigen
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
+        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        Me.DataGridViewTextBoxColumn1.Visible = False
+        Me.DataGridViewTextBoxColumn1.Width = 150
        '
        'DataGridViewTextBoxColumn2
        '
        Me.DataGridViewTextBoxColumn2.HeaderText = "Datei"
+        Me.DataGridViewTextBoxColumn2.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
-        '
-        'Button2
-        '
-        Me.Button2.BackColor = System.Drawing.Color.Red
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button2.ForeColor = System.Drawing.Color.White
-        Me.Button2.Location = New System.Drawing.Point(420, -1)
-        Me.Button2.Name = "Button2"
-        Me.Button2.Size = New System.Drawing.Size(39, 31)
-        Me.Button2.TabIndex = 10
-        Me.Button2.Text = "X"
-        Me.Button2.UseVisualStyleBackColor = False
+        Me.DataGridViewTextBoxColumn2.Width = 150
        '
        'frmAvisoBenachrichtigungReminderBestaetigen
        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(460, 159)
+        Me.ClientSize = New System.Drawing.Size(690, 245)
        Me.Controls.Add(Me.pnl)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.Name = "frmAvisoBenachrichtigungReminderBestaetigen"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Bestätigen"
--- a/Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.vb
+++ b/Aviso/Benachrichtigung/frmAvisoBenachrichtigungReminderBestaetigen.vb
@@ -39,7 +39,8 @@


    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
-        Me.DialogResult = DialogResult.None
+
+        Me.DialogResult = DialogResult.Yes
        Me.Close()
    End Sub

--- a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
+++ b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
@@ -218,10 +218,12 @@
                            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(AB.ab_AvisoID, True)
                            initDgvAvisoBenachrichtigungen(True, Me.Font)
                        Case DialogResult.Cancel
-                            'NIX
-                        Case Else
+                            'NIX 
+                        Case DialogResult.Yes
                            AB.BESTAETIGEN_BENACHRICHTIGUNG()
                            initDgvAvisoBenachrichtigungen(True, Me.Font)
+                        Case Else
+                            'NIX soll eig nicht vorkommen
                    End Select


--- a/Aviso/Classes/cSendungsoptions.vb
+++ b/Aviso/Classes/cSendungsoptions.vb
@@ -440,6 +440,7 @@ Public Class SendungOptions


            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN)
+            rpt.Document.Printer.PrinterName = ""
            rpt.Document.CacheToDisk = False

            'rpt.Document.CacheToDisk = True
@@ -454,9 +455,9 @@ Public Class SendungOptions
            ElseIf art = "PRINT" Or art = "DIALOG" Then

                rpt.Run(False)
-                ' If Printername = "" Then rpt.Dispose() : Exit Sub
                rpt.Document.Printer.PrinterName = Printername
-                rpt.Document.Print((art = "DIALOG" Or Printername = ""), False)
+                ' rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, false)  --> vorher usePrintingThread false...
+                rpt.Document.Print((art = "DIALOG" Or Printername = ""), False, True)
                rpt.Dispose()
                'rpt.Document.Dispose()
                '  rpt.Dispose()
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("3.7.4.5")>
-<Assembly: AssemblyFileVersion("3.7.4.5")>
+<Assembly: AssemblyVersion("3.7.8.4")>
+<Assembly: AssemblyFileVersion("3.7.8.4")>
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -260,32 +260,11 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
        '''</summary>
-        Friend ReadOnly Property ATANAK_Instructions_Export() As Byte()
+        Friend ReadOnly Property asdas2d1a() As String
            Get
-                Dim obj As Object = ResourceManager.GetObject("ATANAK_Instructions_Export", resourceCulture)
-                Return CType(obj,Byte())
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
-        '''</summary>
-        Friend ReadOnly Property ATANAK_Instructions_Export_T1() As Byte()
-            Get
-                Dim obj As Object = ResourceManager.GetObject("ATANAK_Instructions_Export_T1", resourceCulture)
-                Return CType(obj,Byte())
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
-        '''</summary>
-        Friend ReadOnly Property ATANAK_Instructions_Import() As Byte()
-            Get
-                Dim obj As Object = ResourceManager.GetObject("ATANAK_Instructions_Import", resourceCulture)
-                Return CType(obj,Byte())
+                Return ResourceManager.GetString("asdas2d1a", resourceCulture)
            End Get
        End Property
        
@@ -479,6 +458,36 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property DGS_Instructions_Export() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property DGS_Instructions_Export_T1() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Export_T1", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property DGS_Instructions_Import() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("DGS_Instructions_Import", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
@@ -859,6 +868,16 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property lorry_ummelden() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("lorry_ummelden", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
@@ -1615,6 +1634,16 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+        '''</summary>
+        Friend ReadOnly Property VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL() As Byte()
+            Get
+                Dim obj As Object = ResourceManager.GetObject("VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL", resourceCulture)
+                Return CType(obj,Byte())
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -124,8 +124,8 @@
  <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>
-  <data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
+  <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="Telefonliste" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Telefonliste.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -151,6 +151,9 @@
  <data name="tarife" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\tarife.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
  <data name="personCheck_blue_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\personCheck_blue_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -172,8 +175,8 @@
  <data name="weiterleiten" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\weiterleiten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="isd" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\isd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -181,18 +184,21 @@
  <data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\nellenquack.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <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="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="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</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>
@@ -208,8 +214,8 @@
  <data name="del2" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\del2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="cartable_ouvert" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\cartable_ouvert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>F:\Grafik\VERAG\VERAG_Akten\eigAkt\FO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -226,6 +232,9 @@
  <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>
@@ -235,9 +244,6 @@
  <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="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\android-clock_s.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>
@@ -274,6 +280,9 @@
  <data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\searchGG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="android-add-contact" 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>
  <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>
@@ -286,6 +295,9 @@
  <data name="personCheck_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\personCheck_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="cartable_ouvert" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\cartable_ouvert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
  <data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -295,24 +307,24 @@
  <data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="DGS_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\dgs_instructions_export_t1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
  <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <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="vermerkBtn" 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>
+  <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>
  </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 name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
  <data name="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -331,9 +343,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="ATANAK_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ATANAK_Instructions_Export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
  <data name="pdfprint1" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -358,12 +367,6 @@
  <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="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>
-  <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>
@@ -382,14 +385,11 @@
  <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="unisped_aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\unisped_aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <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="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </data>
-  <data name="FO" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>F:\Grafik\VERAG\VERAG_Akten\eigAkt\FO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <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>
  <data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -406,6 +406,9 @@
  <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>
@@ -418,9 +421,6 @@
  <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>
@@ -448,8 +448,8 @@
  <data name="zoll_mmm" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\zoll_mmm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="android-add-contact" 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 name="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -460,14 +460,17 @@
  <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="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>
-  <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>
+  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -481,15 +484,9 @@
  <data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="word" 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>
-  </data>
  <data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
  <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -502,6 +499,9 @@
  <data name="UpdaterVersion" xml:space="preserve">
    <value>6.0</value>
  </data>
+  <data name="DGS_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
  <data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -514,14 +514,14 @@
  <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="_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 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="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="ATANAK_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ATANAK_Instructions_Import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  <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>
@@ -532,6 +532,9 @@
  <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>
  </data>
+  <data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
  <data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -562,6 +565,9 @@
  <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="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>
+  </data>
  <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
@@ -571,8 +577,8 @@
  <data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="word" 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>
  </data>
  <data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -580,8 +586,8 @@
  <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="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 name="vermerkBtn" 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>
  </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>
@@ -589,8 +595,8 @@
  <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="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 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="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>
@@ -604,19 +610,22 @@
  <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="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 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="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\ATANAK_Instructions_Export_T1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  <data name="asdas2d1a" xml:space="preserve">
+    <value />
+  </data>
+  <data name="soenmez" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\soenmez.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <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="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>
+  <data name="lorry_ummelden" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\Diverses\lorry_ummelden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
 </root>
--- a/Project/licenses.licx
+++ b/Project/licenses.licx
@@ -1,2 +1,2 @@
+GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
 GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
-Spire.PdfViewer.Forms.PdfDocumentViewer, Spire.PdfViewer.Forms, Version=4.5.1.3046, Culture=neutral, PublicKeyToken=663f351905198cb3
--- a/Aviso/Resources/DGS_Instructions_Export.xlsx
+++ b/Aviso/Resources/DGS_Instructions_Export.xlsx
--- a/Aviso/Resources/DGS_Instructions_Export_T1.xlsx
+++ b/Aviso/Resources/DGS_Instructions_Export_T1.xlsx
--- a/Aviso/Resources/DGS_Instructions_Import.xlsx
+++ b/Aviso/Resources/DGS_Instructions_Import.xlsx
--- a/Aviso/Resources/VZ
+++ b/Aviso/Resources/VZ
--- a/Aviso/Resources/old_ATANAK_Instructions_Export.xlsx
+++ b/Aviso/Resources/old_ATANAK_Instructions_Export.xlsx
--- a/Aviso/Resources/old_ATANAK_Instructions_Export_T1.xlsx
+++ b/Aviso/Resources/old_ATANAK_Instructions_Export_T1.xlsx
--- a/Aviso/Resources/old_ATANAK_Instructions_Import.xlsx
+++ b/Aviso/Resources/old_ATANAK_Instructions_Import.xlsx
--- a/Aviso/frmAddAktenvermerkShort.Designer.vb
+++ b/Aviso/frmAddAktenvermerkShort.Designer.vb
@@ -22,8 +22,11 @@ Partial Class frmAddAktenvermerkShort
    '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(frmAddAktenvermerkShort))
        Me.pnlAktenVermerk = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.btnLKWumgemeldet = New System.Windows.Forms.Button()
        Me.btnDEZollDIGITAL = New System.Windows.Forms.Button()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Label24 = New System.Windows.Forms.Label()
@@ -61,16 +64,19 @@ Partial Class frmAddAktenvermerkShort
        Me.optKeineAuswahl = New System.Windows.Forms.RadioButton()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.Label16 = New System.Windows.Forms.Label()
-        Me.btnLKWumgemeldet = New System.Windows.Forms.Button()
+        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnlAktenVermerk.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.pnl.SuspendLayout()
+        Me.cntxt.SuspendLayout()
        Me.SuspendLayout()
        '
        'pnlAktenVermerk
        '
        Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
        Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlAktenVermerk.Controls.Add(Me.Button2)
        Me.pnlAktenVermerk.Controls.Add(Me.btnLKWumgemeldet)
        Me.pnlAktenVermerk.Controls.Add(Me.btnDEZollDIGITAL)
        Me.pnlAktenVermerk.Controls.Add(Me.Panel1)
@@ -101,6 +107,33 @@ Partial Class frmAddAktenvermerkShort
        Me.pnlAktenVermerk.Size = New System.Drawing.Size(401, 509)
        Me.pnlAktenVermerk.TabIndex = 0
        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Image = Global.AVISO.My.Resources.Resources.lorry_ummelden
+        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.Button2.Location = New System.Drawing.Point(298, 145)
+        Me.Button2.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(89, 83)
+        Me.Button2.TabIndex = 109
+        Me.Button2.Text = "LKW ummelden..."
+        Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'btnLKWumgemeldet
+        '
+        Me.btnLKWumgemeldet.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnLKWumgemeldet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnLKWumgemeldet.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnLKWumgemeldet.Location = New System.Drawing.Point(11, 282)
+        Me.btnLKWumgemeldet.Name = "btnLKWumgemeldet"
+        Me.btnLKWumgemeldet.Size = New System.Drawing.Size(182, 27)
+        Me.btnLKWumgemeldet.TabIndex = 108
+        Me.btnLKWumgemeldet.Text = "LKW umgemeldet"
+        Me.btnLKWumgemeldet.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnLKWumgemeldet.UseVisualStyleBackColor = True
+        '
        'btnDEZollDIGITAL
        '
        Me.btnDEZollDIGITAL.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -596,18 +629,17 @@ Partial Class frmAddAktenvermerkShort
        Me.Label16.TabIndex = 9
        Me.Label16.Text = "Standzeit"
        '
-        'btnLKWumgemeldet
+        'cntxt
        '
-        Me.btnLKWumgemeldet.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnLKWumgemeldet.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnLKWumgemeldet.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnLKWumgemeldet.Location = New System.Drawing.Point(11, 282)
-        Me.btnLKWumgemeldet.Name = "btnLKWumgemeldet"
-        Me.btnLKWumgemeldet.Size = New System.Drawing.Size(182, 27)
-        Me.btnLKWumgemeldet.TabIndex = 108
-        Me.btnLKWumgemeldet.Text = "LKW umgemeldet"
-        Me.btnLKWumgemeldet.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnLKWumgemeldet.UseVisualStyleBackColor = True
+        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.XXXToolStripMenuItem})
+        Me.cntxt.Name = "cntxt"
+        Me.cntxt.Size = New System.Drawing.Size(96, 26)
+        '
+        'XXXToolStripMenuItem
+        '
+        Me.XXXToolStripMenuItem.Name = "XXXToolStripMenuItem"
+        Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
+        Me.XXXToolStripMenuItem.Text = "XXX"
        '
        'frmAddAktenvermerkShort
        '
@@ -627,6 +659,7 @@ Partial Class frmAddAktenvermerkShort
        Me.Panel1.PerformLayout()
        Me.pnl.ResumeLayout(False)
        Me.pnl.PerformLayout()
+        Me.cntxt.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
@@ -669,4 +702,7 @@ Partial Class frmAddAktenvermerkShort
    Friend WithEvents btnDEZollDIGITAL As Button
    Friend WithEvents Panel1 As Panel
    Friend WithEvents btnLKWumgemeldet As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents cntxt As ContextMenuStrip
+    Friend WithEvents XXXToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmAddAktenvermerkShort.resx
+++ b/Aviso/frmAddAktenvermerkShort.resx
@@ -300,6 +300,9 @@
        qcwnSVEv2t3X/79N9tcQ/7hza3o/qP4eCBK/D1D8L7CPlop4X64pAAAAAElFTkSuQmCC
 </value>
  </data>
+  <metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA
--- a/Aviso/frmAddAktenvermerkShort.vb
+++ b/Aviso/frmAddAktenvermerkShort.vb
@@ -98,6 +98,31 @@ Public Class frmAddAktenvermerkShort
        btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")

        txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
+
+
+
+        cntxt.Items.Clear()
+        Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [AVISO].[dbo].[tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO")
+
+        If dt IsNot Nothing Then
+
+            dt.Rows.Add({"???", "??? - andere"})
+            For Each r As DataRow In dt.Rows
+                Dim it As New ToolStripMenuItem
+                it.Text = r("grz_BezeichnungCBO").ToString
+                it.Tag = r("grz_Grenzstelle").ToString
+                cntxt.Items.Add(it)
+
+                AddHandler it.Click, Sub()
+                                         AvisoStatusFunctions.ummeldenAVISO(myAviso, it.Tag.ToString)
+                                         Me.Close()
+                                     End Sub
+
+
+            Next
+
+        End If
+
    End Sub


@@ -285,4 +310,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
        End Try
    End Sub

+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        cntxt.Show(Cursor.Position)
+    End Sub
 End Class
--- a/Aviso/frmEintragAviso.designer.vb
+++ b/Aviso/frmEintragAviso.designer.vb
@@ -706,6 +706,7 @@ Partial Class frmEintragAviso
        Me.cboGrenzstelle._value = ""
        Me.cboGrenzstelle.BackColor = System.Drawing.Color.White
        Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboGrenzstelle.DropDownWidth = 250
        Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboGrenzstelle.FormattingEnabled = True
@@ -824,6 +825,7 @@ Partial Class frmEintragAviso
        Me.cboTransportmittelart._value = ""
        Me.cboTransportmittelart.BackColor = System.Drawing.Color.White
        Me.cboTransportmittelart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTransportmittelart.DropDownWidth = 160
        Me.cboTransportmittelart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboTransportmittelart.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboTransportmittelart.FormattingEnabled = True
@@ -1173,6 +1175,7 @@ Partial Class frmEintragAviso
        '
        Me.cboImEx.BackColor = System.Drawing.Color.White
        Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboImEx.DropDownWidth = 150
        Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboImEx.FormattingEnabled = True
--- a/Aviso/frmEintragAviso.vb
+++ b/Aviso/frmEintragAviso.vb
@@ -1034,6 +1034,8 @@ Public Class frmEintragAviso
                AvisoStatusFunctions.insertVermerkAllg(tmpId, "ATB-Nr. folgt", 80)
            End If

+            '   Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
+
            Select Case FIRMA_TMP
                Case "ATILLA"
                    Try
@@ -1067,6 +1069,7 @@ Public Class frmEintragAviso
                                    showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
                                Else
                                    Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
+
                                    Dim gesAnzSnd = initSndAnzahl()

                                    For cnt As Integer = anzahlSendungen + 1 To gesAnzSnd
@@ -1074,8 +1077,13 @@ Public Class frmEintragAviso
                                        Dim abfnr_tmp As Object = DBNull.Value

                                        Dim abfArt As Object = DBNull.Value
-                                        getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
-                                        If FIRMA_TMP = "VERIMEX" Then filiale_tmp = 0
+                                        If FIRMA_TMP = "VERIMEX" Then
+                                            filiale_tmp = 0
+                                        Else
+                                            getFilialeAndAbfertNrIMEX(cnt, filiale_tmp, abfnr_tmp, fremd, abfArt)
+                                        End If
+
+
                                        'IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
                                        'AvisoDAL.insertSendungEmpty(tmpId, scnt, filiale_tmp, abfnr_tmp, 0) ' INSERT 
                                        Dim tblSnd_AuftraggeberKdNr As Object = Nothing
@@ -1098,7 +1106,7 @@ Public Class frmEintragAviso
                        End If
                    End If

-                Case Else
+                Case Else 'VERAG
                    Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0

                    'Die Sendungen eintragen:
--- a/Aviso/frmEintragTV.vb
+++ b/Aviso/frmEintragTV.vb
@@ -25,23 +25,33 @@ Public Class frmEintragTV
    Private Sub frmEintragTV_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.CenterToParent()

-        cGlobal.Aktive_ID = 1    'standardmäßig ist der Wert 1
-
-        If cGlobal.Aktive_ID = 0 Then
-            'es erfolgt eine Neuanlage
-            Neuanlage = True
-            Me.Text = "Neuanlage TV-Text"
-        Else
-            Me.Text = "Änderung Text für TV-Anzeige"
-            'ausgewählter Datensatz wird geladen
-            myAvisoTV = AvisoTVDAL.LesenAvisoTV(cGlobal.Aktive_ID, "", "", "")
+        'cGlobal.Aktive_ID = 1    'standardmäßig ist der Wert 1

+        'If cGlobal.Aktive_ID = 0 Then
+        '    'es erfolgt eine Neuanlage
+        '   
+        '    
+        'Else
+        '    Me.Text = "Änderung Text für TV-Anzeige"
+        'ausgewählter Datensatz wird geladen
+        myAvisoTV = AvisoTVDAL.LesenAvisoTV(0, "", VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG, "")
+        If myAvisoTV IsNot Nothing Then
            'Werte(zuweisen)
            txtZeile1.Text = myAvisoTV.FixeZeile1
            txtZeile2.Text = myAvisoTV.FixeZeile2
+            Me.Text = "Änderung Text für TV-Anzeige"
+        Else
+            myAvisoTV = New cAvisoTV
+            myAvisoTV.Standort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+            myAvisoTV.Art = "INFO"
+            'Werte(zuweisen)
+            Neuanlage = True
+            txtZeile1.Text = ""
+            txtZeile2.Text = ""
+            Me.Text = "Neuanlage TV-Text"
        End If

-        hÄnderung = False
+
    End Sub


@@ -92,6 +102,7 @@ Public Class frmEintragTV
        'Änderungen werden gespeichert
        myAvisoTV.FixeZeile1 = txtZeile1.Text.Trim
        myAvisoTV.FixeZeile2 = txtZeile2.Text.Trim
+        myAvisoTV.FixeZeile3 = ""

        AvisoTVDAL.SpeichernAvisoTV(myAvisoTV)

--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -195,7 +195,7 @@ Public Class frmHauptfenster

        cboGrenzstelle.Items.Clear()
        cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
-        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
@@ -209,6 +209,8 @@ Public Class frmHauptfenster
        'cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
        cboGrenzstelle.changeItem("")

+        txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+
        cboImEx.Items.Clear()
        cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboImEx.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMPORT", "IMPORT"))
@@ -219,7 +221,7 @@ Public Class frmHauptfenster

        cboMy_Grenzstelle.Items.Clear()
        cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True,, "ALLE")
-        cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+        cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUB", "SUB"))
        'cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG", "SBG"))
@@ -373,7 +375,7 @@ Public Class frmHauptfenster
            '    MenuStrip1.Items.RemoveAt(1)
            'End While
            'btnGenerelleGestellungen.Visible = False
-            btnSpedBuch.Visible = False
+            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then btnSpedBuch.Visible = False
            btnDienstplan.Visible = True
            'btnNeu.Enabled = False
            ' SplitContainer2.Visible = False
@@ -418,6 +420,9 @@ Public Class frmHauptfenster
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
            lblMitarbeiter.Text += " (" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & ")"
        End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AvisoTV_verwalten", Me) Then
+            AvisoTVToolStripMenuItem.Visible = True
+        End If

        lblGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
        chkFarben = True
@@ -769,7 +774,6 @@ Public Class frmHauptfenster
        End If


-
        Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben,  Freigabe, "
        hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
        hSQL &= " FROM Aviso "
@@ -813,6 +817,12 @@ Public Class frmHauptfenster

        '   If SucheStandort <> "" Then hSQL += " AND Grenzstelle = '" & SucheStandort & "'"
        If cboGrenzstelle._value <> "" Then hSQL += " AND Grenzstelle = '" & cboGrenzstelle._value & "'"
+        '  Bestimmungs.ZST
+        If cboGrenzstelle._value = "???" And txtBestimmungszollstelle._value <> "" Then
+            hSQL += " AND Zollstelle = '" & txtBestimmungszollstelle._value & "'"
+        End If
+
+
        If cboImEx._value <> "" Then
            Select Case cboImEx._value
                Case "IMPORT" : hSQL += " AND (ImEx = '" & cboImEx._value & "' OR ImEx = '' )"
@@ -1738,10 +1748,22 @@ Public Class frmHauptfenster
    End Sub

    Private Sub GrenzstelleChanged(sender As System.Object, e As System.EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
+
+        'Suche Bestimmungs.ZST
+        If cboGrenzstelle._value = "???" Then
+            Label10.Visible = True
+            txtBestimmungszollstelle.Visible = True
+        Else
+            Label10.Visible = False
+            txtBestimmungszollstelle.Visible = False
+        End If
+
        If Grid_aktiv Then
            ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
            Aviso_anzeigen("")
        End If
+
+
    End Sub

    Private Sub cbxClusterChanged(sender As System.Object, e As System.EventArgs) Handles cbxCluster.CheckedChanged
@@ -2349,21 +2371,27 @@ Public Class frmHauptfenster
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
            'btnGenerelleGestellungen.Visible = False
            Button6.Visible = False
-            tbcntrAviso.TabPages.RemoveAt(2)
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
+                tabVorbereitet.Text = "2. VERIMEX"
+            Else
+                tbcntrAviso.TabPages.RemoveAt(2)
+            End If
+
            btnWichtigeStandort.Visible = False
-            Panel2.Visible = False
-            Label4.Visible = False
-            cboGrenzstelle.Visible = False
-            BürgschaftenExcelToolStripMenuItem.Visible = True
-            ToolStripMenuItem4.Visible = True
-            ToolStripMenuItem5.Visible = True
-        ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
-            'btnGenerelleGestellungen.Visible = False
-            ToolStripMenuItem4.Visible = True
-            ToolStripMenuItem5.Visible = True
-            ToolStripMenuItem6.Visible = True
-        Else 'VERAG
-            BürgschaftenExcelToolStripMenuItem.Visible = True
+                Panel2.Visible = False
+                Label4.Visible = False
+                cboGrenzstelle.Visible = False
+                BürgschaftenExcelToolStripMenuItem.Visible = True
+                ToolStripMenuItem4.Visible = True
+                ToolStripMenuItem5.Visible = True
+            ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
+                'btnGenerelleGestellungen.Visible = False
+                ToolStripMenuItem4.Visible = True
+                ToolStripMenuItem5.Visible = True
+                ToolStripMenuItem6.Visible = True
+            Else 'VERAG
+                BürgschaftenExcelToolStripMenuItem.Visible = True
            ToolStripMenuItem4.Visible = True
            ToolStripMenuItem5.Visible = True
            ToolStripMenuItem6.Visible = True
@@ -2566,8 +2594,13 @@ Public Class frmHauptfenster

    End Function
    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        Dim rpt As New rptTEST


+        SDL.cProgramFunctions.printRpt(rpt, "")
+
+        Exit Sub
+
        'Dim sms As New VERAG_PROG_ALLGEMEIN.cSMS
        'sms.sms_Handynummer = "00436644178557"
        'sms.sms_Nachricht = "Das ist ein TEST"
@@ -3870,6 +3903,17 @@ Public Class frmHauptfenster
            AvisoStatusFunctions.SendStatusEmail(AVISO)
        Next
    End Sub
+
+    Private Sub InfoTextÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoTextÄndernToolStripMenuItem.Click
+        frmEintragTV.ShowDialog(Me)
+    End Sub
+
+
+    Private Sub txtBestimmungszollstelle_VALUE_CHANGED() Handles txtBestimmungszollstelle.VALUE_CHANGED
+        If Grid_aktiv Then
+            Aviso_anzeigen("")
+        End If
+    End Sub
 End Class

 Public Class AvisoStatusFunctions
@@ -3893,6 +3937,31 @@ Public Class AvisoStatusFunctions
    End Function


+    Public Shared Sub ummeldenAVISO(Aviso As VERAG_PROG_ALLGEMEIN.cAviso, Grenzstelle As String)
+        If Aviso IsNot Nothing Then
+            Select Case Aviso.Status
+                Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
+                    'Nur wenn Ankunft --> Status auf den letzten vor Ankunft ändern
+                    If Aviso.Vorgeschrieben <> cMeineFunktionenAVISO.LeerDatum Then
+                        Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben
+                    ElseIf Aviso.Vorbereitet <> cMeineFunktionenAVISO.LeerDatum Then
+                        Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet
+                    Else
+                        Aviso.Status = Status_Erfasst
+                    End If
+            End Select
+        End If
+        If Grenzstelle = "???" Then
+            AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach umgemeldet", 94)
+        Else
+            AvisoStatusFunctions.insertVermerkAllg(Aviso.AvisoID, "LKW nach '" & Grenzstelle & "' umgemeldet", 94)
+        End If
+
+        Aviso.Grenzstelle = Grenzstelle
+        Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+        AvisoDAL.SpeichernAviso(Aviso)
+    End Sub
+
    Public Sub sendAnkunftBenachrichtigung(AvisoId)
        'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
        Dim alreadySent As New List(Of Integer)
@@ -4250,120 +4319,129 @@ Public Class AvisoStatusFunctions



+            'Prüfen ob WO oder ZA, in dem Fall keine Mail senden
+            Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(GrenzstelleMail)
+            If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+                If GRZ.grz_Zollamt Then GrenzstelleMail = ""  'KEINE MAIL
+                If GRZ.grz_Warenort Then GrenzstelleMail = ""  'KEINE MAIL
+            End If
+
+
+
            If GrenzstelleMail = "" And art <> 5 Then
-                '----------------------------------------
-                Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
-                'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
-            End If
+                    '----------------------------------------
+                    Exit Sub ' Wenn Grenzstelle leer / ??? --> Keine MAIL!
+                    'If GrenzstelleMail = "" Then GrenzstelleMail = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                End If

-            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then GrenzstelleMail = "FO"
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then GrenzstelleMail = "UNI"

-            If GrenzstelleMail <> "" Then
-                Dim Standort As New cStandort
+                If GrenzstelleMail <> "" Then
+                    Dim Standort As New cStandort

-                Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")
+                    Standort = Standorte.LesenStandort(0, GrenzstelleMail, "")

-                If Not IsNothing(Standort) Then
+                    If Not IsNothing(Standort) Then
+                        Select Case art
+                            Case 1, 3
+                                If Standort.eMail_Ankunft_Betreff <> "" Then
+                                    hBetreff = Standort.eMail_Ankunft_Betreff
+                                    hBody = Standort.eMail_Ankunft_Text
+                                End If
+                            Case 2, 4
+                                If Standort.eMail_Freigabe_Betreff <> "" Then
+                                    hBetreff = Standort.eMail_Freigabe_Betreff
+                                    hBody = Standort.eMail_Freigabe_Text
+                                End If
+                            Case 5
+                                If Standort.eMail_Status_Betreff <> "" Then
+                                    hBetreff = Standort.eMail_Status_Betreff
+                                    hBody = Standort.eMail_Status_Text
+                                End If
+                        End Select
+                    End If
+
+                End If
+
+                Dim anhaenge As New List(Of String)
+                hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
+                hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
+
+
+                hBody = hBody.Replace("%0", "<br>")
+
+                hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
+
+                'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
+                '    Case "VERAG"
+                '    Case "UNISPED"
+                '        hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
+                'End Select
+
+                Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
+
+                API.api_EMail = EMails
+                API.api_EMailCC = EMails_CC
+                API.api_EMailBCC = EMails_BCC
+                API.api_EMailSubject = hBetreff
+                API.api_EMailText = hBody
+                API.api_EMailAttCnt = anhaenge.Count
+
+
+                If ForceMail <> "" Then
+                    Dim mailsTXT = ""
+                    mailsTXT &= "TO: " & EMails & "<br>"
+                    mailsTXT &= "CC: " & EMails_CC & "<br>"
+                    mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
+
+
+                    If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
+                        API.UPDTAE_OK()
+                    Else
+                        API.UPDTAE_ERR()
+                    End If
+
+                Else
+
+
+                    EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail() 'Damit Mails gespeichert werden.
+
+                    Dim MailArt = ""
                    Select Case art
-                        Case 1, 3
-                            If Standort.eMail_Ankunft_Betreff <> "" Then
-                                hBetreff = Standort.eMail_Ankunft_Betreff
-                                hBody = Standort.eMail_Ankunft_Text
-                            End If
-                        Case 2, 4
-                            If Standort.eMail_Freigabe_Betreff <> "" Then
-                                hBetreff = Standort.eMail_Freigabe_Betreff
-                                hBody = Standort.eMail_Freigabe_Text
-                            End If
-                        Case 5
-                            If Standort.eMail_Status_Betreff <> "" Then
-                                hBetreff = Standort.eMail_Status_Betreff
-                                hBody = Standort.eMail_Status_Text
-                            End If
+                        Case 1, 3 : MailArt = "Ankunft"
+                        Case 2, 4 : MailArt = "Freigabe"
+                        Case 5 : MailArt = "Status"
                    End Select
+                    If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
+                        API.UPDTAE_OK()
+                        Dim txt = " E-Mail gesendet an: " & EMails
+                        If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
+                        If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
+
+
+
+                        AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
+                    Else
+                        API.UPDTAE_ERR()
+                        AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
+                    End If
                End If

-            End If
-
-            Dim anhaenge As New List(Of String)
-            hBetreff = Platzhalter_ersetzen(hBetreff, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, 0, AVISO, KundenNr, anhaenge) ' art 0 damit nicht beim betreff auch die DY-Daten durchsuht werden und die Sendungsliste erstellt wird.
-            hBody = Platzhalter_ersetzen(hBody, AVISO.LKW_Nr, AVISO.Grenzstelle, AVISO.AvisoId, art, AVISO, KundenNr, anhaenge)
-
-
-            hBody = hBody.Replace("%0", "<br>")
-
-            hBody = hBody.Replace("%Firma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) ' gibts noch nicht!
-
-            'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA '= "IMEX"
-            '    Case "VERAG"
-            '    Case "UNISPED"
-            '        hBody = hBody.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 'hier der Ersatz
-            'End Select
-
-            Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL, art,,, KundenNr, AVISO.AvisoId)
-
-            API.api_EMail = EMails
-            API.api_EMailCC = EMails_CC
-            API.api_EMailBCC = EMails_BCC
-            API.api_EMailSubject = hBetreff
-            API.api_EMailText = hBody
-            API.api_EMailAttCnt = anhaenge.Count
-
-
-            If ForceMail <> "" Then
-                Dim mailsTXT = ""
-                mailsTXT &= "TO: " & EMails & "<br>"
-                mailsTXT &= "CC: " & EMails_CC & "<br>"
-                mailsTXT &= "BCC: " & EMails_BCC & "<br><br>"
-
-
-                If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(ForceMail, hBetreff, mailsTXT & hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, "", "", anhaenge, art) Then
-                    API.UPDTAE_OK()
-                Else
-                    API.UPDTAE_ERR()
-                End If
-
-            Else
-
-
-                EMails_BCC &= If(EMails_BCC <> "", ";", "") & VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail() 'Damit Mails gespeichert werden.
-
-                Dim MailArt = ""
-                Select Case art
-                    Case 1, 3 : MailArt = "Ankunft"
-                    Case 2, 4 : MailArt = "Freigabe"
-                    Case 5 : MailArt = "Status"
-                End Select
-                If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, hBetreff, hBody, VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.getAbsenderEmail(), False, False, EMails_CC, EMails_BCC, anhaenge, art) Then
-                    API.UPDTAE_OK()
-                    Dim txt = " E-Mail gesendet an: " & EMails
-                    If EMails_CC.ToString.Trim <> "" Then txt &= " CC: " & EMails_CC
-                    If EMails_BCC.ToString.Trim <> "" Then txt &= " BCC: " & EMails_BCC
-
-
-
-                    AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, MailArt & txt, 46, , "(AUTO)")
-                Else
-                    API.UPDTAE_ERR()
-                    AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoId, "ERR: " & MailArt & " E-Mail konnte nicht gesendet werden!", 46, , "(AUTO)")
+                'OLD ----------------------------------
+                If False Then
+                    Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
+                    If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
+                    If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
+                    If hBody <> "" Then hMail += "&Body=" & hBody
+                    Try
+                        System.Diagnostics.Process.Start(hMail)
+                    Catch ex As Exception
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
+                    End Try
                End If
+                ' ----------------------------------
            End If
-
-            'OLD ----------------------------------
-            If False Then
-                Dim hMail As String = "mailto:" & EMails & "?subject=" & hBetreff
-                If EMails_CC.ToString.Trim <> "" Then hMail += "&CC=" & EMails_CC
-                If EMails_BCC.ToString.Trim <> "" Then hMail += "&BCC=" & EMails_BCC
-                If hBody <> "" Then hMail += "&Body=" & hBody
-                Try
-                    System.Diagnostics.Process.Start(hMail)
-                Catch ex As Exception
-                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW, "Beim Mail-Versenden ist ein Fehler aufgetreten")
-                End Try
-            End If
-            ' ----------------------------------
-        End If
    End Sub


@@ -5709,57 +5787,90 @@ Public Class AvisoStatusFunctions
                        SendungslistTXT &= "<span style=""font-family:calibri;font-size:14""><b>Sendungsliste:</b><br></span>"
                        SendungslistTXT &= "<table style=""font-family:calibri;font-size:18;background-color:#F2F8FE;padding:0;min-width:600px;""  border=""1"" bordercolor=""#003680"" cellspacing=""0"">"

-                'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
-                '    SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
-                'Else
-                '    SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
-                'End If
-                Dim showNCTSAdress = False
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
-                SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (T1/T2) </td>", "") & "</tr>"
+                        'If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
+                        '    SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
+                        'Else
+                        '    SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
+                        'End If
+                        Dim showNCTSAdress = False
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
+                        SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (T1/T2) </td>", "") & "</tr>"

-                Dim cnt = 1
-                For Each s In SENDUNG_LIST
-                    If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then
+                        Dim cnt = 1
+                        For Each s In SENDUNG_LIST
+                            If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then

-                        Dim AtcMrn = ""
-                        Dim DsId = ""
+                                Dim AtcMrn = ""
+                                Dim DsId = ""
                        Dim DsId2 = ""
                        Dim frist = ""
                        Dim gestellungsadresse = "<td><td/>"
                        Dim found = False
-                        Select Case s.tblSnd_Abfertigungsart_ID
-                            Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
-                                gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
+                                Select Case s.tblSnd_Abfertigungsart_ID
+                                    Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand 
+                                        gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"

-                                getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
-                                If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
-                                    Try
-                                        Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
-                                        If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
-                                    Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
-                                    If Not found Then
-                                        AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
-                                        'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
-                                        MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
-                                    End If
-                                End If
-                            Case 7 'Ausfuhr
+                                        getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
+                                        If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
+                                            Try
+                                                Dim anhaengeVersand As New List(Of String)
+                                                Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
+                                                If PathTmp <> "" Then anhaengeVersand.Add(PathTmp) : found = True

-                                getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
+                                                '---------------------------------------------------------
+                                                'AMBAR: BEI T2 auch Rechnung, CMR; Ausfuhr mitschicken!
+                                                '---------------------------------------------------------
+                                                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T2_ANHAENGER") Then '--> nur bei AMBAR gesetzt
+                                                    Select Case s.tblSnd_Abfertigungsart_ID
+                                                        Case 6, 18, 24, 32, 33, 34, 37, 40 'nur  T2!!
+                                                            Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
+                                                            VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, s.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
+                                                            For Each l In ANH_LIST
+                                                                Select Case l.anh_Art.ToString.ToUpper
+                                                                    Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE"
+                                                                        Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
+                                                                        If PathTmpANH <> "" Then anhaengeVersand.Add(PathTmpANH) : found = True
+                                                                End Select
+                                                            Next
+                                                    End Select
+                                                End If
+                                                '---------------------------------------------------------
+
+                                                If anhaengeVersand.Count = 1 Then
+                                                    anhaenge.Add(anhaengeVersand(0)) 'Falls nur 1 Anhang
+                                                ElseIf anhaengeVersand.Count > 1 Then
+                                                    'AMBAR: Zusammenfassen des T2 und der T2 Anhänge
+                                                    Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("T2_" & s.FilialenNr & "-" & s.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_T2_AMB")
+                                                    If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then
+                                                        anhaenge.Add(zielPfadZusammenfassung)
+                                                    End If
+                                                End If
+
+
+
+                                            Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
+                                            If Not found Then
+                                                AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
+                                                'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
+                                                MsgBox("ACHTUNG: Das Versandbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das VBD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
+                                            End If
+                                        End If
+                                    Case 7 'Ausfuhr
+
+                                        getDataFronDY_AES(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
                                        '   MsgBox(DsId)
                                        If KUNDE_ERW.EmailFreigabe_ABDPDF And IsNumeric(DsId) Then 'VBD anhängen
-                                    Try
-                                        Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
-                                        If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
-                                    Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
-                                    If Not found Then
-                                        AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
-                                        'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
-                                        MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
-                                    End If
-                                End If
-                            Case Else
+                                            Try
+                                                Dim PathTmp = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DsId)).GET_TOP1_PATH(False)
+                                                If PathTmp <> "" Then anhaenge.Add(PathTmp) : found = True
+                                            Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
+                                            If Not found Then
+                                                AvisoStatusFunctions.insertSendungsVermerk(s.tblSnd_SendungID, AVISO.AvisoID, "ERR: ABD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 47)
+                                                'AvisoStatusFunctions.insertVermerkAllg(AVISO.AvisoID, "ERR: VBD nicht gefunden: " & s.FilialenNr & "/" & s.AbfertigungsNr, 46, , "(AUTO)")
+                                                MsgBox("ACHTUNG: Das Ausfuhrbegleitdokument konnte nicht automatisiert ermittelt werden." & vbNewLine & "Bitte dem Kunden das ABD per E-Mail zustellen!" & vbNewLine & vbNewLine & "Sendung: " & s.FilialenNr & "/" & s.AbfertigungsNr)
+                                            End If
+                                        End If
+                                    Case Else
                                getDataFronDY_EZA(s.tblSnd_SendungID, AtcMrn, DsId, s.FilialenNr, s.AbfertigungsNr, DsId2)
                                If s.tblSnd_Abfertigungsart_ID = 23 Then
                                    s.LOAD_HANDLING()
--- a/Aviso/frmLaufzettel.vb
+++ b/Aviso/frmLaufzettel.vb
@@ -247,31 +247,32 @@ Public Class frmLaufzettel
        ' Fahrer zum Zoll!
        '------------------------------------------------

-        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
-            If CheckBox2.Checked Then
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
-                    Try
-                        Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
-                        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
-                    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
-                Else
-                    If Not CheckBox3.Checked And Not CheckBox4.Checked Then
-                        MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
-                        Exit Sub
-                    End If

-                    Try
-                        'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
-                        Dim path = ""
-                        If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
-                        If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
-
-                        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
-                    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
+                Try
+                    Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO_WAI(AVISO)
+                If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
+                ' If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
+            Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
+            Else
+                If Not CheckBox3.Checked And Not CheckBox4.Checked Then
+                    MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
+                    Exit Sub
                End If

+                Try
+                    'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
+                    Dim path = ""
+                    If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
+                    If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
+
+                If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
+                'If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
+            Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
            End If
-        End If
+
+
+

        '------------------------------------------------
    End Sub
@@ -295,7 +296,11 @@ Public Class frmLaufzettel


        If Not digitalDruck Then
-            printzZAnlagen()
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_zumZOLL") Then
+                If CheckBox2.Checked Then
+                    printzZAnlagen()
+                End If
+            End If
        End If

        ' Dim loadAttachRg = True ' (sender Is Button15)
@@ -480,7 +485,7 @@ Public Class frmLaufzettel
        Dim pruef = False
        For Each s In SENDUNG_LIST
            Select Case s.tblSnd_Abfertigungsart_ID.ToString
-                Case "38", "26" 'AT - Keine Prüfung
+                Case "38", "26", "44" 'AT - Keine Prüfung
                Case Else
                    If If(s.tblSnd_Vorpapier, "") = "" And If(s.tblSnd_Vorpapier2, "") = "" And If(s.tblSnd_Vorpapier3, "") = "" Then
                        pruef = True
--- a/Aviso/frmLogin.vb
+++ b/Aviso/frmLogin.vb
@@ -156,7 +156,7 @@ Public Class frmLogin

                Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
                Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL
-                Dim dt = VERAGSQL.loadDgvBySql("SELECT  [AvisoID]  FROM [Aviso] where datum >= '05.03.2022'
+                Dim dt = VERAGSQL.loadDgvBySql("SELECT  [AvisoID]  FROM [Aviso] where datum >= '19.04.2022'
                        and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where  Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0   and status NOT IN (1,2)", "AVISO")

                For Each r In dt.Rows
@@ -276,7 +276,23 @@ Public Class frmLogin
            End If
        End If

-        Dim AVISO_OPTIONSDatei As String = "C:\AVISO_OPTIONS.txt"
+        Dim AVISO_OPTIONSDatei As String = Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments & "\AVISO_OPTIONS.txt"
+        If File.Exists(AVISO_OPTIONSDatei) Then
+            Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default)
+            If l.Count > 0 Then
+                For Each li In l
+                    If li.StartsWith("BON:") Then
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = (li.Replace("BON:", "")).Trim
+                    End If
+                    If li.StartsWith("PRINTER:") Then
+                        VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim
+
+                    End If
+                Next
+            End If
+        End If
+
+        AVISO_OPTIONSDatei = "C:\AVISO_OPTIONS.txt"
        If File.Exists(AVISO_OPTIONSDatei) Then
            Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default)
            If l.Count > 0 Then
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -373,9 +373,15 @@ Partial Class frmSendungsdetailsNEU
        Me.UNISPEDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AuftragATANAKToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem26 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem27 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AktuelleSendungAnhängeWählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AlleLEXSendungenLKWToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
        Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AMBARZollbeschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnl.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.TabControl1.SuspendLayout()
@@ -773,12 +779,12 @@ Partial Class frmSendungsdetailsNEU
        Me.dgvZollAnmeldungen.AllowUserToResizeRows = False
        Me.dgvZollAnmeldungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvZollAnmeldungen.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 24)
+        Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 32)
        Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen"
        Me.dgvZollAnmeldungen.ReadOnly = True
        Me.dgvZollAnmeldungen.RowTemplate.Height = 30
        Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 226)
+        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 218)
        Me.dgvZollAnmeldungen.TabIndex = 1
        '
        'Panel17
@@ -820,10 +826,11 @@ Partial Class frmSendungsdetailsNEU
        '
        'MenuStrip
        '
+        Me.MenuStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem17, Me.ToolStripMenuItem21, Me.ToolStripMenuItem12})
        Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip.Name = "MenuStrip"
-        Me.MenuStrip.Size = New System.Drawing.Size(1206, 24)
+        Me.MenuStrip.Size = New System.Drawing.Size(1206, 32)
        Me.MenuStrip.TabIndex = 0
        '
        'ToolStripMenuItem13
@@ -831,7 +838,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem13.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
        Me.ToolStripMenuItem13.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
-        Me.ToolStripMenuItem13.Size = New System.Drawing.Size(70, 20)
+        Me.ToolStripMenuItem13.Size = New System.Drawing.Size(78, 28)
        Me.ToolStripMenuItem13.Text = "  EZA"
        Me.ToolStripMenuItem13.ToolTipText = "Neue Zollanmeldung"
        '
@@ -841,7 +848,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem7.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
        Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
-        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(79, 20)
+        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(86, 28)
        Me.ToolStripMenuItem7.Text = "  NCTS"
        Me.ToolStripMenuItem7.ToolTipText = "Neue Zollanmeldung"
        '
@@ -850,7 +857,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
-        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 22)
+        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
        Me.ToolStripMenuItem8.Text = "T1"
        '
        'ToolStripMenuItem9
@@ -858,7 +865,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
-        Me.ToolStripMenuItem9.Size = New System.Drawing.Size(94, 22)
+        Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
        Me.ToolStripMenuItem9.Text = "T2"
        '
        'ToolStripMenuItem10
@@ -866,7 +873,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem10.Enabled = False
        Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
-        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(94, 22)
+        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
        Me.ToolStripMenuItem10.Text = "Ü-T"
        Me.ToolStripMenuItem10.Visible = False
        '
@@ -876,7 +883,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem6.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
        Me.ToolStripMenuItem6.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(102, 20)
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(110, 28)
        Me.ToolStripMenuItem6.Text = "  DE FISKAL"
        Me.ToolStripMenuItem6.ToolTipText = "Neue Zollanmeldung"
        Me.ToolStripMenuItem6.Visible = False
@@ -886,7 +893,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem11.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
        Me.ToolStripMenuItem11.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
-        Me.ToolStripMenuItem11.Size = New System.Drawing.Size(69, 20)
+        Me.ToolStripMenuItem11.Size = New System.Drawing.Size(77, 28)
        Me.ToolStripMenuItem11.Text = "  AES"
        Me.ToolStripMenuItem11.ToolTipText = "Neue Zollanmeldung"
        '
@@ -896,7 +903,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem17.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17"
        Me.ToolStripMenuItem17.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
-        Me.ToolStripMenuItem17.Size = New System.Drawing.Size(97, 20)
+        Me.ToolStripMenuItem17.Size = New System.Drawing.Size(103, 28)
        Me.ToolStripMenuItem17.Text = "  TELOTEC"
        Me.ToolStripMenuItem17.ToolTipText = "Neue Zollanmeldung"
        '
@@ -904,7 +911,7 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
-        Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22)
+        Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30)
        Me.ToolStripMenuItem20.Text = "EZA"
        '
        'ToolStripMenuItem18
@@ -913,7 +920,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
-        Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22)
+        Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30)
        Me.ToolStripMenuItem18.Text = "T1"
        '
        'ToolStripMenuItem19
@@ -922,7 +929,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
-        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22)
+        Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30)
        Me.ToolStripMenuItem19.Text = "T2"
        '
        'ToolStripMenuItem21
@@ -931,7 +938,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem21.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
        Me.ToolStripMenuItem21.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
-        Me.ToolStripMenuItem21.Size = New System.Drawing.Size(71, 20)
+        Me.ToolStripMenuItem21.Size = New System.Drawing.Size(79, 28)
        Me.ToolStripMenuItem21.Text = "  MIC"
        Me.ToolStripMenuItem21.ToolTipText = "Neue Zollanmeldung"
        '
@@ -939,7 +946,7 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
        Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22"
-        Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22)
+        Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30)
        Me.ToolStripMenuItem22.Text = "MIC Import senden"
        '
        'ToolStripMenuItem23
@@ -947,7 +954,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
        Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
-        Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22)
+        Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30)
        Me.ToolStripMenuItem23.Text = "MIC Transit senden"
        '
        'ToolStripMenuItem24
@@ -956,14 +963,14 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
        Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
-        Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22)
+        Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30)
        Me.ToolStripMenuItem24.Text = "MIC Export senden"
        '
        'ToolStripMenuItem12
        '
        Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.android_note
        Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
-        Me.ToolStripMenuItem12.Size = New System.Drawing.Size(61, 20)
+        Me.ToolStripMenuItem12.Size = New System.Drawing.Size(69, 28)
        Me.ToolStripMenuItem12.Text = "  Log"
        Me.ToolStripMenuItem12.ToolTipText = "Logbuch"
        '
@@ -2516,6 +2523,7 @@ Partial Class frmSendungsdetailsNEU
        '
        'cntxt
        '
+        Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem})
        Me.cntxt.Name = "cntxt"
        Me.cntxt.Size = New System.Drawing.Size(323, 26)
@@ -4488,47 +4496,48 @@ Partial Class frmSendungsdetailsNEU
        '
        'cntxtAnh
        '
+        Me.cntxtAnh.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem})
        Me.cntxtAnh.Name = "cntxtAnh"
-        Me.cntxtAnh.Size = New System.Drawing.Size(286, 136)
+        Me.cntxtAnh.Size = New System.Drawing.Size(294, 184)
        '
        'MarkiertePDFsDruckenToolStripMenuItem
        '
        Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint
        Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem"
-        Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
+        Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
        Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken"
        '
        'EMailAnfügenToolStripMenuItem
        '
        Me.EMailAnfügenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
        Me.EMailAnfügenToolStripMenuItem.Name = "EMailAnfügenToolStripMenuItem"
-        Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
+        Me.EMailAnfügenToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
        Me.EMailAnfügenToolStripMenuItem.Text = "E-Mail anfügen"
        '
        'KopierenZwischenablageToolStripMenuItem
        '
        Me.KopierenZwischenablageToolStripMenuItem.Name = "KopierenZwischenablageToolStripMenuItem"
-        Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
+        Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
        Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
        '
        'LaufzetteldruckJANEINToolStripMenuItem
        '
        Me.LaufzetteldruckJANEINToolStripMenuItem.Name = "LaufzetteldruckJANEINToolStripMenuItem"
-        Me.LaufzetteldruckJANEINToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
+        Me.LaufzetteldruckJANEINToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
        Me.LaufzetteldruckJANEINToolStripMenuItem.Text = "Laufzetteldruck JA/NEIN"
        '
        'GestellungslisteAnfügenJANEINToolStripMenuItem
        '
        Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Name = "GestellungslisteAnfügenJANEINToolStripMenuItem"
-        Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
+        Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
        Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Text = "Gestellungsliste anfügen JA/NEIN"
        '
        'AbrechungFremdeGrenzeAktDruckenToolStripMenuItem
        '
        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.printer
        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Name = "AbrechungFremdeGrenzeAktDruckenToolStripMenuItem"
-        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
+        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Text = "Abrechung: Fremde Grenze Akt drucken"
        '
        'ToolStripMenuItem3
@@ -4555,7 +4564,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
-        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 22)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(101, 30)
        Me.ToolStripMenuItem4.Text = "T1"
        '
        'ToolStripMenuItem5
@@ -4563,7 +4572,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(94, 22)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(101, 30)
        Me.ToolStripMenuItem5.Text = "T2"
        '
        'ÜTToolStripMenuItem
@@ -4571,7 +4580,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ÜTToolStripMenuItem.Enabled = False
        Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem"
-        Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(94, 22)
+        Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(101, 30)
        Me.ÜTToolStripMenuItem.Text = "Ü-T"
        '
        'NeueZollanmeldungToolStripMenuItem
@@ -4648,6 +4657,7 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
        Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
        Me.BindingNavigatorPositionItem.Text = "0"
@@ -4732,9 +4742,10 @@ Partial Class frmSendungsdetailsNEU
        '
        'ctxtWeitereFormulare
        '
-        Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem})
+        Me.ctxtWeitereFormulare.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem, Me.AMBARZollbeschauToolStripMenuItem})
        Me.ctxtWeitereFormulare.Name = "cntxt"
-        Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 114)
+        Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 136)
        '
        'toolGelangensbestätigung
        '
@@ -4783,38 +4794,39 @@ Partial Class frmSendungsdetailsNEU
        'ImportToolStripMenuItem
        '
        Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
-        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
+        Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ImportToolStripMenuItem.Text = "Import"
        '
        'ExportToolStripMenuItem
        '
        Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
-        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
+        Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ExportToolStripMenuItem.Text = "Export"
        '
        'ExportT1ToolStripMenuItem
        '
        Me.ExportT1ToolStripMenuItem.Name = "ExportT1ToolStripMenuItem"
-        Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
+        Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ExportT1ToolStripMenuItem.Text = "Export T1"
        '
        'ContextMenuStrip1
        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem})
+        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25})
        Me.ContextMenuStrip1.Name = "cntxtAnh"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(171, 92)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 214)
        '
        'ToolStripMenuItem15
        '
        Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1
        Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
-        Me.ToolStripMenuItem15.Size = New System.Drawing.Size(170, 22)
+        Me.ToolStripMenuItem15.Size = New System.Drawing.Size(222, 30)
        Me.ToolStripMenuItem15.Text = "Fremdspeditionen"
        '
        'SpeditionSUBENToolStripMenuItem
        '
        Me.SpeditionSUBENToolStripMenuItem.Name = "SpeditionSUBENToolStripMenuItem"
-        Me.SpeditionSUBENToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
+        Me.SpeditionSUBENToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
        Me.SpeditionSUBENToolStripMenuItem.Text = "Spedition SUBEN"
        '
        'ToolStripMenuItem16
@@ -4822,7 +4834,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem16.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IMEXToolStripMenuItem1, Me.UNISPEDToolStripMenuItem, Me.VERAGToolStripMenuItem})
        Me.ToolStripMenuItem16.Image = Global.AVISO.My.Resources.Resources.email_big1
        Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16"
-        Me.ToolStripMenuItem16.Size = New System.Drawing.Size(170, 22)
+        Me.ToolStripMenuItem16.Size = New System.Drawing.Size(222, 30)
        Me.ToolStripMenuItem16.Text = "Neuer LKW"
        '
        'IMEXToolStripMenuItem1
@@ -4847,30 +4859,73 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.AuftragATANAKToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
        Me.AuftragATANAKToolStripMenuItem.Name = "AuftragATANAKToolStripMenuItem"
-        Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(170, 22)
-        Me.AuftragATANAKToolStripMenuItem.Text = "Auftrag ATANAK "
+        Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
+        Me.AuftragATANAKToolStripMenuItem.Text = "Auftrag DSG/ATANAK (UK)"
+        '
+        'ToolStripMenuItem26
+        '
+        Me.ToolStripMenuItem26.Image = Global.AVISO.My.Resources.Resources.email_big1
+        Me.ToolStripMenuItem26.Name = "ToolStripMenuItem26"
+        Me.ToolStripMenuItem26.Size = New System.Drawing.Size(222, 30)
+        Me.ToolStripMenuItem26.Text = "Auftrag BBL (FR)"
+        '
+        'ToolStripMenuItem27
+        '
+        Me.ToolStripMenuItem27.Image = Global.AVISO.My.Resources.Resources.email_big1
+        Me.ToolStripMenuItem27.Name = "ToolStripMenuItem27"
+        Me.ToolStripMenuItem27.Size = New System.Drawing.Size(222, 30)
+        Me.ToolStripMenuItem27.Text = "Auftrag VIBSEA (BE)"
+        '
+        'ToolStripMenuItem25
+        '
+        Me.ToolStripMenuItem25.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktuelleSendungAnhängeWählenToolStripMenuItem, Me.AlleLEXSendungenLKWToolStripMenuItem})
+        Me.ToolStripMenuItem25.Image = Global.AVISO.My.Resources.Resources.email_big1
+        Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
+        Me.ToolStripMenuItem25.Size = New System.Drawing.Size(222, 30)
+        Me.ToolStripMenuItem25.Text = "LEX Aviso"
+        '
+        'AktuelleSendungAnhängeWählenToolStripMenuItem
+        '
+        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Image = CType(resources.GetObject("AktuelleSendungAnhängeWählenToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Name = "AktuelleSendungAnhängeWählenToolStripMenuItem"
+        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Size = New System.Drawing.Size(275, 30)
+        Me.AktuelleSendungAnhängeWählenToolStripMenuItem.Text = "Aktuelle Sendung (Anhänge wählen)"
+        '
+        'AlleLEXSendungenLKWToolStripMenuItem
+        '
+        Me.AlleLEXSendungenLKWToolStripMenuItem.Image = CType(resources.GetObject("AlleLEXSendungenLKWToolStripMenuItem.Image"), System.Drawing.Image)
+        Me.AlleLEXSendungenLKWToolStripMenuItem.Name = "AlleLEXSendungenLKWToolStripMenuItem"
+        Me.AlleLEXSendungenLKWToolStripMenuItem.Size = New System.Drawing.Size(275, 30)
+        Me.AlleLEXSendungenLKWToolStripMenuItem.Text = "Alle LEX Sendungen (LKW)"
        '
        'ContextMenuStrip2
        '
+        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14, Me.NurÖffnenToolStripMenuItem})
        Me.ContextMenuStrip2.Name = "cntxtAnh"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(248, 48)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(256, 64)
        Me.ContextMenuStrip2.Text = "nur öffnen"
        '
        'ToolStripMenuItem14
        '
        Me.ToolStripMenuItem14.Image = CType(resources.GetObject("ToolStripMenuItem14.Image"), System.Drawing.Image)
        Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14"
-        Me.ToolStripMenuItem14.Size = New System.Drawing.Size(247, 22)
+        Me.ToolStripMenuItem14.Size = New System.Drawing.Size(255, 30)
        Me.ToolStripMenuItem14.Text = "Zusammenführen und speichern"
        '
        'NurÖffnenToolStripMenuItem
        '
        Me.NurÖffnenToolStripMenuItem.Image = CType(resources.GetObject("NurÖffnenToolStripMenuItem.Image"), System.Drawing.Image)
        Me.NurÖffnenToolStripMenuItem.Name = "NurÖffnenToolStripMenuItem"
-        Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22)
+        Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
        Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
        '
+        'AMBARZollbeschauToolStripMenuItem
+        '
+        Me.AMBARZollbeschauToolStripMenuItem.Name = "AMBARZollbeschauToolStripMenuItem"
+        Me.AMBARZollbeschauToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
+        Me.AMBARZollbeschauToolStripMenuItem.Text = "AMBAR - Zollbeschau"
+        '
        'frmSendungsdetailsNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5316,4 +5371,10 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents AbrechungFremdeGrenzeAktDruckenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents Panel22 As Panel
    Friend WithEvents KreditlimitRisikobewertungToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
+    Friend WithEvents AktuelleSendungAnhängeWählenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AlleLEXSendungenLKWToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem26 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem27 As ToolStripMenuItem
+    Friend WithEvents AMBARZollbeschauToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmSendungsdetailsNEU.resx
+++ b/Aviso/frmSendungsdetailsNEU.resx
@@ -1889,6 +1889,108 @@
  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>843, 17</value>
  </metadata>
+  <data name="AktuelleSendungAnhängeWählenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN
+        mFlsVNcdxq/6EFVVpRZRpyWKmqVSX5JWlfpQqW+t2qpt0hZsHLfZsMEmpAVlaTAE3ASyN0BWIKRtQoiD
+        w2ISwHjBxjbed8++epnx2MYeM9jYsy/21++cmbFnxtdZG6kP35x7/vfOPb/7/f/n3DOjAPi/lmrw8+qp
+        A0dmDr9/eq3aOTWNzYQ9anE1qQY/qwbGpmB0TKLXPo5WoxP12mHUdJp4aumaYY9/yBeKYi4cgy9Fqdd8
+        klSDn0WOqRlYXFP46aP7cMcTB/GT4ldRdKgc/lCYAGF4M4Ay5ZwOhNTumynV4KfJMzOHVpMLYYLMRSOY
+        i0QRCIYIF1lUJlBmbJbfzbyvmlSDmdKPeBzBCAcJE2QFpcIldT28gJt2GeCNhLHqcbahdOjMcdS0LKBz
+        TvWGmKYAgQTUSpJQGZBCt+w1Y9YXBxb3ubnEgFA0gNUldoSCgS8PGIjOqwIJhXjTuSgIH78mPB9DVomZ
+        oHygBODqEivWPG1CIBRP+dh0DKsf74dzKoYf7uiSMQnIieOlMsfP1LJAiIChGAGoQNQPX1SAcXC2fzpo
+        wKrdVsQSgI0mL257sg89Q0HZF4BZJRbMzfuweruR3wsjyNjtew18iBBuprvCdW/Ij1BEgEbxXkUz9v+7
+        jEOncyS1LCDABKBzOoJv7bAg6x8W3Frcw8EC8M4HsXqXCav22BHmAFk7tZini7cUa+RDRKIhrHnehqxd
+        ZtzI67a+p5OA3/w7084HXL3LKh3WOYOLdXpH8Ws4UtGBl49VcPh0FqFlgQV+CMBwjOnaaYZvgemNxd0R
+        Ln2Hg5ecGcKdxU24eQ9TSZe+/bhwK4bzxmvYdNQm3faz//WtRkRjYQxcWyoBeR/WZhKwtG8UPyo+hPr2
+        fo6cziK0LCCUBFyz04Dbdmmx5jkbfvFiiwT/7m4TgnTy9hetuJH1J+oxay+heP0NOwaYNqaVD5KqRTAe
+        OyanMRuM9wWg1uZEi9GBui4jqjrNHD6dJa2TVFjUHWFWFZvgnw/I40B0gcfz+P72Tuw9O0Jno/jGnmHW
+        UhT2qSCiGVA+1nI4GMPgFQ8C8wtpoEkJwIo2PdoJ2NBrQXWrhsOns6R1kgrKiRLD/lo3btypQ4V+Gt9j
+        am8q6efMDWNkOiSh404nBudDhTnowLgH/sQkWkkSjjp1qRMGpxtdFhea+y18TRo5fDpLWkeotqljbZXG
+        JQf3IYg1xTq4Z8W6FV2EEhJ1KTQ4QaB5yJJQg0mVmEhiVdAMOHGiqhFDHr4ux66h3+ZCq8aGum4ztu1+
+        gRifAFjVbsDlfjvmmdJwCpAUnR0mUIBAEcKlnUu5JhVKuCW+4+f9kot/iLoyPYfRaz5Yx6ehG7qCNpNT
+        prmyVUuMFQBPN/ajqk2HH28/iIXwPKJ82qQirDVVoGXie5YA3rBY65ZAkwqHI3jizZOYnPVxEfdiaPI6
+        9NwRdZpHcFljx8X2FQBPVjfh6CUd7nziDdxJwBCXh1TAlUCDjIU5CSwjkzLl0SjP0y0vzynrDkLJ+xeU
+        7Leh/H4/mmxelNU0Y/q6F+45P8ZnAhh2z8LsuirT3KIbQH2njjgqgEaX+6ZL3Sa06IfQaRtB/v4yfFDT
+        JgGWQRKkx8TFmjBBTpJU4KTCfEAl7yiU9W9ByTnM9giUXAHLvgDOSYDnHsWt2+vRO+xenM0X2pcmyyKg
+        UF2HVtrcbXbIuhhyTWDk6jQ+aNCgqqVXDhwTgBnAmXCyDpnKZz+oJ4AAI4gAFBKA6xKQUv+GUtgAy7BL
+        prm624q3q/uIowJY2a5HQ58VbYZh9NtHYaL1okZGPbOYYL00GF0oq26T61oqoJBIvX5onAv2AiLzEUI9
+        BeXPdEk4mHRRuif6wkEB/Q6U/Gq4prgzd3lQ0zeIUy1mvFu7tB6mAW5+5i3U95hZC4PosrrkGjVwZZqz
+        bY6zzoepWT88vgi83DZtPXCc9dSEies+WYNROhdl6v2RBSj3CAjWXxJQuChBEy7m8Dj/ApQNlRLQ4LqG
+        dtsEavVOnGm3orRBix37jliWAQrVdpm4aNqk3SLNYhlwebyccX5Z2B5fCHPBCILcQQe52xFwx+t6caK6
+        hanbTbhDrD26lZvQPUk4KumigCuoimtDFaw0oXNwApf0IzjfY8fxJiMOVXcRRwWwmu/DRqZZFKxmYAzm
+        UY+cacLFiRkfrs4FMOPlzkZsaql5Aua9cpogYsYSLvdNSrRCCcgcnhOAG+lYgXBtCTDn9T6Y3V5ohyfR
+        ZHbiAtN8stmIdy7G6zANTvnDo6jkQi1mUitnc499DPqRq7BPJNJ8Pe7itJ+7Ef7mCcdYa/e/QTgBJSRA
+        2N4jwAi4nhJwuYQrJJgEJNim6kVAh8cnDRienIXN7cfFfivK28xc8uJ1uAT3uy1Q7tqKLY9sQ02PDc2i
+        Di0j0A9PwHZlBs6rXq5brEPWnIeQSt7TBCFczmtLgMLFnNfjx9k8l5cA21TBAidUoYATYIxtYOyBc7Dx
+        4e0T12HmpsLEcjKMebgB9nDl0OHlUl4n4e7aDOW31B+3Qbl7Gy6yDpu0A2jn60c7OA4L02wjoNvjhnLf
+        s4Q4QL1KhwiT/Uo6pHBRtPe+S8fOxeHyz8ZBi2rigBvOyzT3Wt0wjl+DnvfXcEL2843SNXAFHeJ3tmUc
+        BU9yHCWHTvw6n9pIBx+Wtp7vtMjlpt0wBB33a0bHBMGeIch+zkzC5BIul20O4dbzWADmJp1jf+PHBCJU
+        EjCppIMP8NyD59DpmEGfgCJQm20MLaZRNBpHUc/Jckn8CaB1EvCX90P51YMELICy9q8ScPebZfjwshaV
+        LZ109UlCvEyHCJPLJxJw69kKJV3MYzol2BkoD3ECFBJMQtKpJFwBY1tqYBhx8Dtlcva2mMfQxLW1weDC
+        JZ0TdVoHKvudON9rkxxCirK2mHAE/E2BDFY6Zn6u/GUP352ixvYl4AgjJKESLq4XwGyzGdtMR4o+ireb
+        CSXghDYRSkBurGbaJtBqHUUzXTpR1YIGTkIBVUOnKvsHUdE7gL+V7BO/OBbnhZCi3L2XA73EgZ+jWwTL
+        fp56gX3G1vFYAArlEjYJKVzMJuimU1R5HC4D8GuP8TVXVIlO+4h0qdE4Ek8doaq1Q6jsHcS5bhs+7h4i
+        RzpUquIfawm5jsWfTcgcwq1jKyAFYO4/E5AEzCNYEaEKE9p4Mh1wE13bTNcKzhKIqSNQrXBJ40CVZki6
+        dLbTjtMdZjxW8vxcJoyalg7uJcg6MREIJlwUDq6n7uM7s4g18xBhtnBB3kwlAYsIlwTceAq3P/aRrKM6
+        wggoseiKN8PHhDrTbsKZ1uU/ij5NqZ0blMJjBCjlYKI9TqgPCUWwlQALeZxfjss6O2o1A6hiLQmgc90C
+        yIpTbVacbjPi3TNVL6WM87mU1nHPxbKUhwlWsAKgUP5x/OCRk3IJqOXWTKRN1lKXNQ7VYsLJFiNeK2/i
+        LdMH+yJSDSZ1uLQcFy6340KHCY0WNy6K1BEo7pINH3XY+Fqy4ESrhcuSHu9z9efv3J+p3euLSjWYquMc
+        tJwAEqjLIoFOs5bKmk0SqrRRj+0vHeal6t//slINpuq9er1MmUhdEuhYnYabSvW/Kv7XUg2m6hhBSuni
+        UW5//sOd7sNPHfCrXfdVSTWYqWMNGvFvo+q5r1ZQ/gsddBmZKMKxgQAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="AlleLEXSendungenLKWToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN
+        mFlsVNcdxq/6EFVVpRZRpyWKmqVSX5JWlfpQqW+t2qpt0hZsHLfZsMEmpAVlaTAE3ASyN0BWIKRtQoiD
+        w2ISwHjBxjbed8++epnx2MYeM9jYsy/21++cmbFnxtdZG6kP35x7/vfOPb/7/f/n3DOjAPi/lmrw8+qp
+        A0dmDr9/eq3aOTWNzYQ9anE1qQY/qwbGpmB0TKLXPo5WoxP12mHUdJp4aumaYY9/yBeKYi4cgy9Fqdd8
+        klSDn0WOqRlYXFP46aP7cMcTB/GT4ldRdKgc/lCYAGF4M4Ay5ZwOhNTumynV4KfJMzOHVpMLYYLMRSOY
+        i0QRCIYIF1lUJlBmbJbfzbyvmlSDmdKPeBzBCAcJE2QFpcIldT28gJt2GeCNhLHqcbahdOjMcdS0LKBz
+        TvWGmKYAgQTUSpJQGZBCt+w1Y9YXBxb3ubnEgFA0gNUldoSCgS8PGIjOqwIJhXjTuSgIH78mPB9DVomZ
+        oHygBODqEivWPG1CIBRP+dh0DKsf74dzKoYf7uiSMQnIieOlMsfP1LJAiIChGAGoQNQPX1SAcXC2fzpo
+        wKrdVsQSgI0mL257sg89Q0HZF4BZJRbMzfuweruR3wsjyNjtew18iBBuprvCdW/Ij1BEgEbxXkUz9v+7
+        jEOncyS1LCDABKBzOoJv7bAg6x8W3Frcw8EC8M4HsXqXCav22BHmAFk7tZini7cUa+RDRKIhrHnehqxd
+        ZtzI67a+p5OA3/w7084HXL3LKh3WOYOLdXpH8Ws4UtGBl49VcPh0FqFlgQV+CMBwjOnaaYZvgemNxd0R
+        Ln2Hg5ecGcKdxU24eQ9TSZe+/bhwK4bzxmvYdNQm3faz//WtRkRjYQxcWyoBeR/WZhKwtG8UPyo+hPr2
+        fo6cziK0LCCUBFyz04Dbdmmx5jkbfvFiiwT/7m4TgnTy9hetuJH1J+oxay+heP0NOwaYNqaVD5KqRTAe
+        OyanMRuM9wWg1uZEi9GBui4jqjrNHD6dJa2TVFjUHWFWFZvgnw/I40B0gcfz+P72Tuw9O0Jno/jGnmHW
+        UhT2qSCiGVA+1nI4GMPgFQ8C8wtpoEkJwIo2PdoJ2NBrQXWrhsOns6R1kgrKiRLD/lo3btypQ4V+Gt9j
+        am8q6efMDWNkOiSh404nBudDhTnowLgH/sQkWkkSjjp1qRMGpxtdFhea+y18TRo5fDpLWkeotqljbZXG
+        JQf3IYg1xTq4Z8W6FV2EEhJ1KTQ4QaB5yJJQg0mVmEhiVdAMOHGiqhFDHr4ux66h3+ZCq8aGum4ztu1+
+        gRifAFjVbsDlfjvmmdJwCpAUnR0mUIBAEcKlnUu5JhVKuCW+4+f9kot/iLoyPYfRaz5Yx6ehG7qCNpNT
+        prmyVUuMFQBPN/ajqk2HH28/iIXwPKJ82qQirDVVoGXie5YA3rBY65ZAkwqHI3jizZOYnPVxEfdiaPI6
+        9NwRdZpHcFljx8X2FQBPVjfh6CUd7nziDdxJwBCXh1TAlUCDjIU5CSwjkzLl0SjP0y0vzynrDkLJ+xeU
+        7Leh/H4/mmxelNU0Y/q6F+45P8ZnAhh2z8LsuirT3KIbQH2njjgqgEaX+6ZL3Sa06IfQaRtB/v4yfFDT
+        JgGWQRKkx8TFmjBBTpJU4KTCfEAl7yiU9W9ByTnM9giUXAHLvgDOSYDnHsWt2+vRO+xenM0X2pcmyyKg
+        UF2HVtrcbXbIuhhyTWDk6jQ+aNCgqqVXDhwTgBnAmXCyDpnKZz+oJ4AAI4gAFBKA6xKQUv+GUtgAy7BL
+        prm624q3q/uIowJY2a5HQ58VbYZh9NtHYaL1okZGPbOYYL00GF0oq26T61oqoJBIvX5onAv2AiLzEUI9
+        BeXPdEk4mHRRuif6wkEB/Q6U/Gq4prgzd3lQ0zeIUy1mvFu7tB6mAW5+5i3U95hZC4PosrrkGjVwZZqz
+        bY6zzoepWT88vgi83DZtPXCc9dSEies+WYNROhdl6v2RBSj3CAjWXxJQuChBEy7m8Dj/ApQNlRLQ4LqG
+        dtsEavVOnGm3orRBix37jliWAQrVdpm4aNqk3SLNYhlwebyccX5Z2B5fCHPBCILcQQe52xFwx+t6caK6
+        hanbTbhDrD26lZvQPUk4KumigCuoimtDFaw0oXNwApf0IzjfY8fxJiMOVXcRRwWwmu/DRqZZFKxmYAzm
+        UY+cacLFiRkfrs4FMOPlzkZsaql5Aua9cpogYsYSLvdNSrRCCcgcnhOAG+lYgXBtCTDn9T6Y3V5ohyfR
+        ZHbiAtN8stmIdy7G6zANTvnDo6jkQi1mUitnc499DPqRq7BPJNJ8Pe7itJ+7Ef7mCcdYa/e/QTgBJSRA
+        2N4jwAi4nhJwuYQrJJgEJNim6kVAh8cnDRienIXN7cfFfivK28xc8uJ1uAT3uy1Q7tqKLY9sQ02PDc2i
+        Di0j0A9PwHZlBs6rXq5brEPWnIeQSt7TBCFczmtLgMLFnNfjx9k8l5cA21TBAidUoYATYIxtYOyBc7Dx
+        4e0T12HmpsLEcjKMebgB9nDl0OHlUl4n4e7aDOW31B+3Qbl7Gy6yDpu0A2jn60c7OA4L02wjoNvjhnLf
+        s4Q4QL1KhwiT/Uo6pHBRtPe+S8fOxeHyz8ZBi2rigBvOyzT3Wt0wjl+DnvfXcEL2843SNXAFHeJ3tmUc
+        BU9yHCWHTvw6n9pIBx+Wtp7vtMjlpt0wBB33a0bHBMGeIch+zkzC5BIul20O4dbzWADmJp1jf+PHBCJU
+        EjCppIMP8NyD59DpmEGfgCJQm20MLaZRNBpHUc/Jckn8CaB1EvCX90P51YMELICy9q8ScPebZfjwshaV
+        LZ109UlCvEyHCJPLJxJw69kKJV3MYzol2BkoD3ECFBJMQtKpJFwBY1tqYBhx8Dtlcva2mMfQxLW1weDC
+        JZ0TdVoHKvudON9rkxxCirK2mHAE/E2BDFY6Zn6u/GUP352ixvYl4AgjJKESLq4XwGyzGdtMR4o+ireb
+        CSXghDYRSkBurGbaJtBqHUUzXTpR1YIGTkIBVUOnKvsHUdE7gL+V7BO/OBbnhZCi3L2XA73EgZ+jWwTL
+        fp56gX3G1vFYAArlEjYJKVzMJuimU1R5HC4D8GuP8TVXVIlO+4h0qdE4Ek8doaq1Q6jsHcS5bhs+7h4i
+        RzpUquIfawm5jsWfTcgcwq1jKyAFYO4/E5AEzCNYEaEKE9p4Mh1wE13bTNcKzhKIqSNQrXBJ40CVZki6
+        dLbTjtMdZjxW8vxcJoyalg7uJcg6MREIJlwUDq6n7uM7s4g18xBhtnBB3kwlAYsIlwTceAq3P/aRrKM6
+        wggoseiKN8PHhDrTbsKZ1uU/ij5NqZ0blMJjBCjlYKI9TqgPCUWwlQALeZxfjss6O2o1A6hiLQmgc90C
+        yIpTbVacbjPi3TNVL6WM87mU1nHPxbKUhwlWsAKgUP5x/OCRk3IJqOXWTKRN1lKXNQ7VYsLJFiNeK2/i
+        LdMH+yJSDSZ1uLQcFy6340KHCY0WNy6K1BEo7pINH3XY+Fqy4ESrhcuSHu9z9efv3J+p3euLSjWYquMc
+        tJwAEqjLIoFOs5bKmk0SqrRRj+0vHeal6t//slINpuq9er1MmUhdEuhYnYabSvW/Kv7XUg2m6hhBSuni
+        UW5//sOd7sNPHfCrXfdVSTWYqWMNGvFvo+q5r1ZQ/gsddBmZKMKxgQAAAABJRU5ErkJggg==
+</value>
+  </data>
  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>1000, 17</value>
  </metadata>
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -253,6 +253,7 @@ Public Class frmSendungsdetailsNEU
    Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
        Try
+            lblGrenze.Text = ""

            Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
            Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -266,14 +267,16 @@ Public Class frmSendungsdetailsNEU
            If AVISO.Grenzstelle.Replace("???", "") = "" Then
                lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name]  FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
            Else
-                Select Case AVISO.Grenzstelle
-                    Case "SUB" : lblGrenze.Text = "DE007701 Suben"
-                    Case "WAI" : lblGrenze.Text = "DE008904 Waidhaus"
-                    Case "SBG" : lblGrenze.Text = "DE007458 Bad Reichenhall"
-                    Case "NKD" : lblGrenze.Text = "AT320300 Nickelsdorf"
-                    Case "SFD" : lblGrenze.Text = "AT700400 Spielfeld"
-                End Select

+
+                Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+                If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+
+                    lblGrenze.Text = If(GRZ.grz_ZollamtDST, "") & " " & If(GRZ.grz_ZollamtBezeichnung, "")
+
+                End If
+
+                
            End If

            initVorpapiere()
@@ -365,13 +368,13 @@ Public Class frmSendungsdetailsNEU
            End If

            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then
-                    btnImportaviso.Visible = True
-                    btnVorauszahlung.Visible = True
-                    '   ToolStripMenuItem13.Enabled = True
-                End If
+                btnImportaviso.Visible = True
+                btnVorauszahlung.Visible = True
+                '   ToolStripMenuItem13.Enabled = True
+            End If


-                cboFiliale._allowFreiText = Nothing
+            cboFiliale._allowFreiText = Nothing
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
                Case "FRONTOFFICE"
                    cboFiliale._allowFreiText = Nothing
@@ -1754,11 +1757,14 @@ Public Class frmSendungsdetailsNEU
            End If
        End If
        If sender Is Button3 Or sender Is LaufzettelDruckenToolStripMenuItem Then
+            Dim AVISO_Tmp = Me.AVISO
+            Dim SENDUNG_LIST_Tmp = Me.SENDUNG_LIST(CURRENT_INDEX)

-            'Dim trd = New Threading.Thread(Sub()
-            SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count)
-            '       End Sub)
-            '  trd.IsBackground = True : trd.Start()
+
+            Dim trd = New Threading.Thread(Sub()
+                                               SendungOptions.PrintSendung("PRINT", SENDUNG_LIST_Tmp, AVISO_Tmp, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count)
+                                           End Sub)
+            trd.IsBackground = True : trd.Start()

        ElseIf sender Is Button8 Then
            SendungOptions.PrintSendung("PDF", SENDUNG_LIST(CURRENT_INDEX), AVISO, Printername,, SENDUNG_LIST.Count)
@@ -4408,7 +4414,7 @@ Public Class frmSendungsdetailsNEU
            If True Then


-                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\"
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DGS\"
                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
                    My.Computer.FileSystem.CreateDirectory(sPath)
                End If
@@ -4423,11 +4429,11 @@ Public Class frmSendungsdetailsNEU
                    .Visible = False

                    Try
-                        Path = sPath & "ATANAK_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
+                        Path = sPath & "DGS_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
                        While System.IO.File.Exists(Path)
-                            Path = sPath & "ATANAK_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                            Path = sPath & "DGS_Import_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
                        End While
-                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Import, False)
+                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.DGS_Instructions_Import, False)
                    Catch ex As System.Exception
                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -4491,7 +4497,7 @@ Public Class frmSendungsdetailsNEU
            If True Then


-                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\"
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DGS\"
                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
                    My.Computer.FileSystem.CreateDirectory(sPath)
                End If
@@ -4506,11 +4512,11 @@ Public Class frmSendungsdetailsNEU
                    .Visible = False

                    Try
-                        Path = sPath & "ATANAK_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
+                        Path = sPath & "DGS_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
                        While System.IO.File.Exists(Path)
-                            Path = sPath & "ATANAK_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                            Path = sPath & "DGS_Export_" & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
                        End While
-                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export, False)
+                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.DGS_Instructions_Export, False)
                    Catch ex As System.Exception
                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -4573,7 +4579,7 @@ Public Class frmSendungsdetailsNEU
            If True Then


-                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\ATANAK\"
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DGS\"
                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
                    My.Computer.FileSystem.CreateDirectory(sPath)
                End If
@@ -4588,11 +4594,11 @@ Public Class frmSendungsdetailsNEU
                    .Visible = False

                    Try
-                        Path = sPath & "ATANAK_ExportT1_" & AVISO.AvisoID & "" & " .xlsx"
+                        Path = sPath & "DGS_ExportT1_" & AVISO.AvisoID & "" & " .xlsx"
                        While System.IO.File.Exists(Path)
-                            Path = sPath & "ATANAK_ExportT1_" & AVISO.AvisoID & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                            Path = sPath & "DGS_ExportT1_" & AVISO.AvisoID & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
                        End While
-                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export_T1, False)
+                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.DGS_Instructions_Export_T1, False)
                    Catch ex As System.Exception
                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)

@@ -4647,7 +4653,7 @@ Public Class frmSendungsdetailsNEU
        Me.Cursor = Cursors.Default
    End Sub

-    Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragATANAKToolStripMenuItem.Click
+    Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click

        Try
            VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
@@ -4660,14 +4666,15 @@ Public Class frmSendungsdetailsNEU
                    For Each r As DataGridViewRow In dgvAnhang.SelectedRows
                        Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
                    Next
-                    Mail.Subject = AVISO.ImEx & " / " & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
-                    'Mail.To = "european@atanak.com"
-                    Mail.To = "european@dailygroupage.com"
+                    'Mail.Subject = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
+                    Mail.Subject = "VERAG // " & If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & " // REF " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " // TRUCK: " & AVISO.LKW_Nr
+
+                    Mail.To = "bblcustoms@groupe-bbl.com"

                    Dim TextHTML = ""
-                    TextHTML &= "Dear Atanak Team,<br>"
+                    TextHTML &= "Dear BBL Team,<br>"
                    TextHTML &= "<br>"
-                    TextHTML &= "eattached our next " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " instruction.<br>"
+                    TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.<br>"
                    TextHTML &= "<br>"
                    TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
                    TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
@@ -4683,9 +4690,113 @@ Public Class frmSendungsdetailsNEU

                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"

-                    Dim answer = MsgBox("Vermerk 'An ATANAK avisiert' eintragen?", vbYesNoCancel)
+                    Dim answer = MsgBox("Vermerk 'An BBL avisiert' eintragen?", vbYesNoCancel)
                    If vbYes = answer Then
-                        AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An ATANAK avisiert", 43)
+                        AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An BBL avisiert", 43)
+                    End If
+                    Mail.Display()
+
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+                End Try
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+        End Try
+    End Sub
+
+
+    Private Sub AuftragATANAKToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuftragATANAKToolStripMenuItem.Click
+
+        Try
+            VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
+            If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then
+                Try
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                    Mail = outl.CreateItem(0)
+
+                    For Each r As DataGridViewRow In dgvAnhang.SelectedRows
+                        Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                    Next
+                    Mail.Subject = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
+                    'Mail.To = "european@atanak.com"
+                    Mail.To = "european@dailygroupage.com"
+
+                    Dim TextHTML = ""
+                    TextHTML &= "Dear DGS Team,<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "attached our next " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " instruction.<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
+                    TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
+                    TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
+                    TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name]  FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
+                    TextHTML &= "</table>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "<br>"
+
+                    TextHTML &= "Best regards<br>"
+                    TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
+                    TextHTML &= "<br>"
+
+                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
+
+                    Dim answer = MsgBox("Vermerk 'An DGS avisiert' eintragen?", vbYesNoCancel)
+                    If vbYes = answer Then
+                        AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An DGS avisiert", 43)
+                    End If
+                    Mail.Display()
+
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+                End Try
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+        End Try
+    End Sub
+
+    Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
+
+        Try
+            VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
+            If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then
+                Try
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                    Mail = outl.CreateItem(0)
+
+                    For Each r As DataGridViewRow In dgvAnhang.SelectedRows
+                        Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                    Next
+                    'Mail.Subject = If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & AVISO.LKW_Nr & " / " & "ETA: " & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & " // VERAG"
+                    Mail.Subject = "VERAG // " & If(AVISO.ImEx <> "", AVISO.ImEx & " / ", "") & " // REF " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & " // TRUCK: " & AVISO.LKW_Nr
+
+                    Mail.To = "douane@vibsea.com"
+
+                    Dim TextHTML = ""
+                    TextHTML &= "Dear VIBSEA Team,<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "please do the " & If(AVISO.ImEx = "", "customs", AVISO.ImEx) & " for attached shipment on our behalf.<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "<table style=""font-family:Calibri, Arial;font-size:15px;"">"
+                    TextHTML &= "<tr><td>ETA:</td><td><b>" & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "") & "</b></td></tr>"
+                    TextHTML &= "<tr><td>Truck:</td><td><b>" & AVISO.LKW_Nr & "</b></td></tr>"
+                    TextHTML &= "<tr><td width=""150"">Customs Office: </td><td><b>" & SQL.getValueTxtBySql("SELECT [basncd_name]  FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS") & "</b></td></tr>"
+                    TextHTML &= "</table>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "<br>"
+
+                    TextHTML &= "Best regards<br>"
+                    TextHTML &= "<b>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "</b><br>"
+                    TextHTML &= "<br>"
+
+                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("EN",,,, "BREXIT_VERAG") & "</div>"
+
+                    Dim answer = MsgBox("Vermerk 'An VIBSEA avisiert' eintragen?", vbYesNoCancel)
+                    If vbYes = answer Then
+                        AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "An VIBSEA avisiert", 43)
                    End If
                    Mail.Display()

@@ -4876,4 +4987,252 @@ Public Class frmSendungsdetailsNEU
        End Try
        FORM.Cursor = Cursors.Default
    End Sub
+
+
+
+    Private Sub AktuelleSendungAnhängeWählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktuelleSendungAnhängeWählenToolStripMenuItem.Click, AlleLEXSendungenLKWToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
+            If True Then 'dgvAnhang.SelectedRows.Count >= 1 Then
+                Try
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                    Mail = outl.CreateItem(0)
+
+
+                    Dim OnylSND = -1
+                    If sender Is AktuelleSendungAnhängeWählenToolStripMenuItem Then
+                        'For Each r As DataGridViewRow In dgvAnhang.SelectedRows
+                        '    Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                        'Next
+                        OnylSND = CURRENT_INDEX
+                    End If
+
+                    'LEX 
+                    Mail.Subject = "AVIS: Kennzeichen: " & AVISO.LKW_Nr & "  |  Pos: " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & If(AVISO.VoraussichtlichesEintreffen IsNot Nothing, "  |  ETA: " & CDate(AVISO.VoraussichtlichesEintreffen).ToShortDateString, "")
+
+                    Dim TextHTML = ""
+                    TextHTML &= "Sehr geehrte Damen und Herren,<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "anbei senden wir Ihnen unser Avis zu o.g. LKW.<br>"
+
+                    TextHTML &= "<br>"
+                    TextHTML &= "Bitte bereiten Sie angefügte(n) Sendung(en) wie folgt vor:<br>"
+                    TextHTML &= "<br>"
+
+                    TextHTML &= "<table border=1>"
+                    TextHTML &= "<tr><td>Pos</td><td>Referenz</td><td>Abfertigungsart</td><td>Absender</td><td>Empfänger</td><td>Sendung</td><td>Abrechnung</td><td>EORI</td><td>UID</td><td>Vollmacht</td></tr>"
+
+                    Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
+                    Dim cnt = 1
+                    For Each SND In SENDUNG_LIST
+
+                        If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0 And SND.FilialenNr = 4839) Then
+                            TextHTML &= "<tr>"
+                            TextHTML &= "<td><b>" & cnt & "</b></td>"
+                            TextHTML &= "<td><b>" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "</b></td>"
+                            TextHTML &= "<td><b><nobr>" & SQL.DLookup("isnull(AbfertigungsbezeichnungLang,Abfertigungsbezeichnung)", "[Abfertigungsarten]", "[Abfertigungsart]='" & SND.tblSnd_Abfertigungsart_ID & "'", "FMZOLL", "") & "</nobr></b></td>"
+                            TextHTML &= "<td><b>" & SND.tblSnd_Absender & "</b></td>"
+                            TextHTML &= "<td><b>" & SND.tblSnd_Empfaenger & "</b></td>"
+                            TextHTML &= "<td><b>" & SND.tblSnd_Colli & " Pk. " & SND.tblSnd_Warenbezeichnung & "   -  " & SND.tblSnd_Gewicht & " kg </b></td>"
+                            TextHTML &= "<td><b>VERAG</b></td>" '??????
+
+                            Select Case SND.tblSnd_Abfertigungsart_ID
+                                Case "38", "1"
+                                    Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
+                                    Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
+                                    Dim VMDat As Object = SQL.getValueTxtBySql("SELECT [kdvm_erhalten_Datum] FROM [tblKundenVollmachten] where kdvm_KundenNr='" & SND.tblSnd_EmpfaengerKdNr & "' and [kdvm_kdvmaId] IN (12,3) and [kdvm_erhalten]=1  ORDER BY [kdvm_erhalten_Datum]  desc", "FMZOLL",,, Nothing)
+
+                                    If KD IsNot Nothing AndAlso KD IsNot Nothing Then
+                                        TextHTML &= "<td><b>" & If(KD.EORITIN, "") & "</b></td>"
+                                        TextHTML &= "<td><b>" & If(AD.UstIdKz, "") & If(AD.UstIdNr, "") & "</b></td>"
+                                        TextHTML &= "<td><b>" & If(VMDat, "") & "</b></td>"
+                                    Else
+                                        TextHTML &= "<td><b>-</b></td>"
+                                        TextHTML &= "<td><b>-</b></td>"
+                                        TextHTML &= "<td><b>-</b></td>"
+                                    End If
+                                Case Else
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                            End Select
+
+                            TextHTML &= "</tr>"
+
+                            '....
+                            'For Each r As DataGridViewRow In dgvAnhang.SelectedRows
+                            '    Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                            'Next
+
+
+                            Dim anhaengeVersand As New List(Of String)
+                            Dim found = False
+                            VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, SND.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
+
+                            For Each l In ANH_LIST
+                                Select Case l.anh_Art.ToString.ToUpper
+                                    Case "UID", "EORI"
+                                    Case Else
+                                        '  Case "RECHNUNG", "CMR", "AUSFUHR", "COO", "PACKLISTE"
+                                        Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
+                                        If PathTmpANH <> "" Then
+
+                                            If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN...
+                                                anhaengeVersand.Add(PathTmpANH)
+                                            Else ' ...Sonst direkt an Mail anfügen
+                                                Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                                            End If
+                                            found = True
+                                        End If
+                                End Select
+                            Next
+
+                            If OnylSND < 0 Then 'NUR WENN ALLE SENDUNGEN
+
+                                If anhaengeVersand.Count = 1 Then
+                                    'Falls nur 1 Anhang
+                                    Mail.Attachments.Add(anhaengeVersand(0), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                                ElseIf anhaengeVersand.Count > 1 Then
+                                    'Zusammenfassen der Anhänge
+                                    Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(cnt & "_" & SND.FilialenNr & "-" & SND.AbfertigungsNr & ".pdf", ".pdf",, False, "Zusammenfassung_LEX_" & SND.tblSnd_SendungID & "_" & Now.ToString("ddMMyyyy_HHmmss"))
+                                    If SDL.FormularManagerNEU.MergePdfFiles(anhaengeVersand, zielPfadZusammenfassung) Then
+                                        Mail.Attachments.Add(zielPfadZusammenfassung, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                                    End If
+                                End If
+                            End If
+
+                            cnt += 1
+                        End If
+                    Next
+
+                    'Vorpapier laden:
+                    ANH_LIST = New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
+                    VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge
+                    For Each l In ANH_LIST
+                        Select Case l.anh_Art.ToString.ToUpper
+                            Case "VORPAPIER"  ' T1,..
+                                Dim PathTmpANH = (New VERAG_PROG_ALLGEMEIN.cDATENSERVER(l.anh_docId)).GET_TOP1_PATH(False)
+                                If PathTmpANH <> "" Then Mail.Attachments.Add(PathTmpANH, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                        End Select
+                    Next
+
+                    TextHTML &= "</table>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "Für Rückfragen stehen wir gerne zur Verfügung<br>"
+                    TextHTML &= "<br>"
+                    TextHTML &= "Mit freundlichen Grüßen<br>"
+                    TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                    TextHTML &= "<br>"
+                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & TextHTML & SDL.cFakturierung.getSignature("DE") & "</div>"
+
+                    AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Doks an Fremdspedition (SUBEN) weitergeleitet.", 46)
+
+
+
+                    Mail.Display()
+
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+                End Try
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub AMBARZollbeschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARZollbeschauToolStripMenuItem.Click
+
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            Dim Path = ""
+            If True Then
+
+
+                Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\AMABR\"
+                If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+                    My.Computer.FileSystem.CreateDirectory(sPath)
+                End If
+
+
+                Dim exclApp As Object 'as Application
+                Dim Datei As Object 'as WorkBook
+                Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
+                exclApp = CreateObject("Excel.Application")
+
+                With exclApp
+                    .Visible = False
+
+                    Try
+                        Path = sPath & "VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & " .xlsx"
+                        While System.IO.File.Exists(Path)
+                            Path = sPath & "VZ HINDERNISS - ZOLLBESCHAU - PROTOKOLL " & SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "-" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr & "" & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+                        End While
+                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL, False)
+                    Catch ex As System.Exception
+                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        Me.Cursor = Cursors.Default
+
+                        Exit Sub
+                    End Try
+
+                    Datei = .Workbooks.Open(Path) 'Anpassen
+                    Blatt = Datei.Worksheets(1) 'Anpassen
+
+
+                    Blatt.Range("J7").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
+                    Blatt.Range("C52").Value = Now.ToShortDateString
+
+
+                    Blatt.Range("D7").Value = SENDUNG_LIST(CURRENT_INDEX).FilialenNr & "/" & SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr
+                    Blatt.Range("I13").Value = AVISO.LKW_Nr
+
+
+
+                    Dim absender = ""
+                    If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr > 0 Then
+                        Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr)
+                        If KD IsNot Nothing AndAlso If(KD.EORITIN, "") <> "" Then
+                            absender = KD.EORITIN
+                        End If
+                    End If
+                    absender = (absender & " " & SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender).Trim
+                    Blatt.Range("D14").Value = absender
+
+                    Blatt.Range("I14").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger
+                    Blatt.Range("D13").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtfuehrer
+
+
+                    'Blatt.Range("C26").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht
+                    Blatt.Range("H20").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli.Replace(",", "").Replace(".", "")
+                    Blatt.Range("K20").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht '.Replace(",", "").Replace(".", "")
+                    Blatt.Range("D23").Value = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung
+
+                    Blatt.Range("E19").Value = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, "")
+                    Blatt.Range("D19").Value = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung, "")
+
+
+
+
+                    Datei.Save
+
+                    If False Then
+                        Blatt.PrintOutEx()
+                    Else
+                        'Process.Start(Path)
+                        .Visible = True
+
+                    End If
+                End With
+
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class
--- a/Aviso/frmTv.vb
+++ b/Aviso/frmTv.vb
@@ -48,6 +48,12 @@ Public Class frmTv
    Private Sub frmTv_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim cADMIN As New cADMIN
        txt.Text = cADMIN.getValueTxtBySql("SELECT TOP 1 AvisoTVHinweis FROM Aviso WHERE AvisoID=" & avisoID, "AVISO")
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "AMBAR"
+                txt.MaxLength = 30
+                lblAndererText.Text = lblAndererText.Text.Replace("8", "30")
+        End Select
    End Sub

    Dim VermerkeDAL As New cVermerkeDAL
--- a/Aviso/rptTicketLKW.Designer.vb
+++ b/Aviso/rptTicketLKW.Designer.vb
--- a/Aviso/rptTicketLKW.resx
+++ b/Aviso/rptTicketLKW.resx
--- a/Aviso/usrcntlAktDetails.Designer.vb
+++ b/Aviso/usrcntlAktDetails.Designer.vb
@@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -165,6 +165,7 @@ Partial Class usrcntlAktDetails
        Me.btnÄndern = New System.Windows.Forms.Button()
        Me.btnTV = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
+        Me.Button15 = New System.Windows.Forms.Button()
        Me.pnlDetailsRechts.SuspendLayout()
        Me.Panel3.SuspendLayout()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -588,46 +589,46 @@ Partial Class usrcntlAktDetails
        Me.dgvSendungen.AllowUserToAddRows = False
        Me.dgvSendungen.AllowUserToDeleteRows = False
        Me.dgvSendungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
        Me.dgvSendungen.ColumnHeadersHeight = 34
        Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3
        Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvSendungen.Location = New System.Drawing.Point(0, 0)
        Me.dgvSendungen.MultiSelect = False
        Me.dgvSendungen.Name = "dgvSendungen"
        Me.dgvSendungen.ReadOnly = True
-        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
        Me.dgvSendungen.RowHeadersVisible = False
        Me.dgvSendungen.RowHeadersWidth = 62
        Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5
        Me.dgvSendungen.RowTemplate.Height = 20
        Me.dgvSendungen.RowTemplate.ReadOnly = True
        Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -963,46 +964,46 @@ Partial Class usrcntlAktDetails
        Me.gridVermerke.AllowUserToAddRows = False
        Me.gridVermerke.AllowUserToDeleteRows = False
        Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
        Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
        Me.gridVermerke.ColumnHeadersHeight = 34
        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8
        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridVermerke.Location = New System.Drawing.Point(0, 30)
        Me.gridVermerke.MultiSelect = False
        Me.gridVermerke.Name = "gridVermerke"
        Me.gridVermerke.ReadOnly = True
-        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
        Me.gridVermerke.RowHeadersVisible = False
        Me.gridVermerke.RowHeadersWidth = 62
        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10
        Me.gridVermerke.RowTemplate.Height = 20
        Me.gridVermerke.RowTemplate.ReadOnly = True
        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1939,6 +1940,7 @@ Partial Class usrcntlAktDetails
        Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pnlOptionen.BackColor = System.Drawing.Color.Black
        Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlOptionen.Controls.Add(Me.Button15)
        Me.pnlOptionen.Controls.Add(Me.Button6)
        Me.pnlOptionen.Controls.Add(Me.Button4)
        Me.pnlOptionen.Controls.Add(Me.btnWlanTicket)
@@ -1963,7 +1965,7 @@ Partial Class usrcntlAktDetails
        Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button6.Location = New System.Drawing.Point(3, 214)
        Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(109, 28)
+        Me.Button6.Size = New System.Drawing.Size(71, 28)
        Me.Button6.TabIndex = 105
        Me.Button6.TabStop = False
        Me.Button6.Text = "Status Mail"
@@ -2096,6 +2098,22 @@ Partial Class usrcntlAktDetails
        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button10.UseVisualStyleBackColor = False
        '
+        'Button15
+        '
+        Me.Button15.BackColor = System.Drawing.Color.White
+        Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button15.ForeColor = System.Drawing.Color.Black
+        Me.Button15.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button15.Location = New System.Drawing.Point(72, 214)
+        Me.Button15.Name = "Button15"
+        Me.Button15.Size = New System.Drawing.Size(39, 28)
+        Me.Button15.TabIndex = 107
+        Me.Button15.TabStop = False
+        Me.Button15.Text = "To"
+        Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button15.UseVisualStyleBackColor = False
+        '
        'usrcntlAktDetails
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2287,4 +2305,5 @@ Partial Class usrcntlAktDetails
    Friend WithEvents Button4 As Button
    Friend WithEvents Button6 As Button
    Friend WithEvents Button10 As Button
+    Friend WithEvents Button15 As Button
 End Class
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -864,7 +864,7 @@ Public Class usrcntlAktDetails


        Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
-                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
+                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
                             " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
                             " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
                             " WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
@@ -2981,9 +2981,85 @@ Public Class usrcntlAktDetails

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click

+        'If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
+        '    Me.Cursor = Cursors.WaitCursor
+        '    Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+        '    VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN
+
+        '    For Each s In SENDUNG_LIST
+        '        If checkcbxAlleFirmen(s.FilialenNr) Then
+        '            If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
+        '        End If
+        '    Next
+
+        '    Dim Printername = ""
+        '    Dim oPS As New System.Drawing.Printing.PrinterSettings
+        '    Try
+        '        Printername = oPS.PrinterName
+        '    Catch ex As System.Exception
+        '    End Try
+
+        '    'Dim trd = New Threading.Thread(Sub()
+        '    For Each s In SENDUNG_LIST
+        '        If checkcbxAlleFirmen(s.FilialenNr) Then
+        '            If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
+        '        End If
+        '    Next
+        '    '                               End Sub)
+        '    '   trd.IsBackground = True : trd.Start()
+        '    Me.Cursor = Cursors.Default
+        'End If
+
+        Dim Printername = ""
+        Dim oPS As New System.Drawing.Printing.PrinterSettings
+        Try
+            Printername = oPS.PrinterName
+        Catch ex As System.Exception
+        End Try
+
        If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
-            Me.Cursor = Cursors.WaitCursor
-            Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+
+            Console.WriteLine("bla1")
+            Debug.WriteLine("bla2")
+            Dim t As New Threading.Thread(Sub(AvisoIDTT)
+                                              Dim AVISO_Tmp As VERAG_PROG_ALLGEMEIN.cAviso = AvisoDAL.LesenAviso(AvisoIDTT, "")
+                                              Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+                                              VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoIDTT) 'LÄDT alle SENDUNGSDATEN
+                                              Console.WriteLine("AvisoId: " & AvisoIDTT)
+                                              Debug.WriteLine("AvisoId: " & AvisoIDTT)
+                                              Console.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
+                                              Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
+
+                                              For Each s In SENDUNG_LIST
+
+                                                  If checkcbxAlleFirmen(s.FilialenNr) Then
+                                                      If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
+                                                  End If
+                                              Next
+
+                                              'Dim trd = New Threading.Thread(Sub()
+                                              For Each s In SENDUNG_LIST
+                                                  Console.WriteLine("AvisoId: " & AvisoIDTT)
+                                                  Debug.WriteLine("AvisoId: " & AvisoIDTT)
+                                                  Console.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
+                                                  Debug.WriteLine("LKW_Nr: " & AVISO_Tmp.LKW_Nr)
+
+                                                  If checkcbxAlleFirmen(s.FilialenNr) Then
+                                                      If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO_Tmp, Printername,, SENDUNG_LIST.Count)
+                                                  End If
+                                              Next
+                                          End Sub)
+
+            t.Start(AvisoID)
+            t.IsBackground = True
+            Panel4.Visible = False
+        End If
+    End Sub
+
+    Sub tread_printAlleAktendeckel()
+
+        ' Me.Cursor = Cursors.WaitCursor
+        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
            VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN

            For Each s In SENDUNG_LIST
@@ -3005,12 +3081,13 @@ Public Class usrcntlAktDetails
                    If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
                End If
            Next
-            '                               End Sub)
-            '   trd.IsBackground = True : trd.Start()
-            Me.Cursor = Cursors.Default
-        End If
+        '                               End Sub)
+        '   trd.IsBackground = True : trd.Start()
+        '    Me.Cursor = Cursors.Default
+
    End Sub

+
    Sub addVPList(ByRef MAIL_BODY As String, VP_Enum As List(Of String))
        Dim Platzhalter = "<br><br><table style=""font-family:Calibri;"" border=""1"" bordercolor=""#000"" cellspacing=""0"">"
        Platzhalter &= "<tr><th width=200>Vorpapier:</th><th width=200></th><th></th></tr>"
@@ -3379,5 +3456,14 @@ Public Class usrcntlAktDetails
            AvisoStatusFunctions.SendAnkunftEmail(AVISO, mailTo)
        End If
    End Sub
+
+    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
+        Dim mailTo = InputBox("Freigabe-Mail senden an:")
+
+        'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then
+        If mailTo <> "" Then
+            AvisoStatusFunctions.SendStatusEmail(AVISO, mailTo)
+        End If
+    End Sub
 End Class

--- a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb
+++ b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb
@@ -33,12 +33,12 @@ Partial Class usrcntlAktDetailsATILLANeu
        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -62,12 +62,12 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.btn = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.tbAnhaenge = New System.Windows.Forms.TabPage()
+        Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.btnQuckScan = New System.Windows.Forms.Button()
        Me.Button11 = New System.Windows.Forms.Button()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
-        Me.dgvanhaenge = New System.Windows.Forms.DataGridView()
        Me.Panel7 = New System.Windows.Forms.Panel()
        Me.gridVermerke = New System.Windows.Forms.DataGridView()
        Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -106,6 +106,9 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.btnErfasst = New System.Windows.Forms.Button()
        Me.lblTimeErfasst = New System.Windows.Forms.Label()
        Me.Panel10 = New System.Windows.Forms.Panel()
+        Me.Panel6 = New System.Windows.Forms.Panel()
+        Me.Button12 = New System.Windows.Forms.Button()
+        Me.Label7 = New System.Windows.Forms.Label()
        Me.Panel13 = New System.Windows.Forms.Panel()
        Me.btnVorgeschrieben = New System.Windows.Forms.Button()
        Me.lblTimeVorgeschreiben = New System.Windows.Forms.Label()
@@ -154,8 +157,8 @@ Partial Class usrcntlAktDetailsATILLANeu
        CType(Me.dgvSpeditionsbuch, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlSendungenTop.SuspendLayout()
        Me.tbAnhaenge.SuspendLayout()
-        Me.Panel5.SuspendLayout()
        CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel5.SuspendLayout()
        CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlVermerkeTop.SuspendLayout()
        Me.Panel8.SuspendLayout()
@@ -164,6 +167,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.FlowLayoutPanel.SuspendLayout()
        Me.Panel9.SuspendLayout()
+        Me.Panel6.SuspendLayout()
        Me.Panel13.SuspendLayout()
        Me.Panel11.SuspendLayout()
        Me.Panel12.SuspendLayout()
@@ -198,9 +202,9 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Panel3.Controls.Add(Me.SplitContainer)
        Me.Panel3.Controls.Add(Me.Panel8)
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel3.Location = New System.Drawing.Point(0, 197)
+        Me.Panel3.Location = New System.Drawing.Point(0, 198)
        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(575, 450)
+        Me.Panel3.Size = New System.Drawing.Size(575, 449)
        Me.Panel3.TabIndex = 91
        '
        'SplitContainer
@@ -222,8 +226,8 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
        Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
        Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
-        Me.SplitContainer.Size = New System.Drawing.Size(575, 284)
-        Me.SplitContainer.SplitterDistance = 184
+        Me.SplitContainer.Size = New System.Drawing.Size(575, 283)
+        Me.SplitContainer.SplitterDistance = 183
        Me.SplitContainer.TabIndex = 91
        '
        'tbcntr
@@ -236,7 +240,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.tbcntr.Location = New System.Drawing.Point(0, 0)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(575, 184)
+        Me.tbcntr.Size = New System.Drawing.Size(575, 183)
        Me.tbcntr.TabIndex = 100
        '
        'tbVermerke
@@ -245,7 +249,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.tbVermerke.Location = New System.Drawing.Point(4, 22)
        Me.tbVermerke.Name = "tbVermerke"
        Me.tbVermerke.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbVermerke.Size = New System.Drawing.Size(567, 158)
+        Me.tbVermerke.Size = New System.Drawing.Size(567, 157)
        Me.tbVermerke.TabIndex = 0
        Me.tbVermerke.Text = "Vermerk eintragen"
        Me.tbVermerke.UseVisualStyleBackColor = True
@@ -258,7 +262,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
        Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
-        Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 152)
+        Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
        Me.UsrCntlVermerkeATilla1.TabIndex = 0
        '
        'tbZollanmeldungen
@@ -266,7 +270,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
        Me.tbZollanmeldungen.Location = New System.Drawing.Point(4, 22)
        Me.tbZollanmeldungen.Name = "tbZollanmeldungen"
-        Me.tbZollanmeldungen.Size = New System.Drawing.Size(567, 158)
+        Me.tbZollanmeldungen.Size = New System.Drawing.Size(567, 157)
        Me.tbZollanmeldungen.TabIndex = 2
        Me.tbZollanmeldungen.Text = "Zollanmeldungen"
        Me.tbZollanmeldungen.UseVisualStyleBackColor = True
@@ -279,7 +283,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(567, 158)
+        Me.Panel1.Size = New System.Drawing.Size(567, 157)
        Me.Panel1.TabIndex = 0
        '
        'dgvZollAnmeldungen
@@ -331,7 +335,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvZollAnmeldungen.ShowCellErrors = False
        Me.dgvZollAnmeldungen.ShowRowErrors = False
-        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(565, 125)
+        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(565, 124)
        Me.dgvZollAnmeldungen.TabIndex = 102
        Me.dgvZollAnmeldungen.TabStop = False
        '
@@ -376,7 +380,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.tbSpedBuch.Location = New System.Drawing.Point(4, 22)
        Me.tbSpedBuch.Name = "tbSpedBuch"
        Me.tbSpedBuch.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbSpedBuch.Size = New System.Drawing.Size(567, 158)
+        Me.tbSpedBuch.Size = New System.Drawing.Size(567, 157)
        Me.tbSpedBuch.TabIndex = 1
        Me.tbSpedBuch.Text = "Speditionsbuch"
        Me.tbSpedBuch.UseVisualStyleBackColor = True
@@ -430,7 +434,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.dgvSpeditionsbuch.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvSpeditionsbuch.ShowCellErrors = False
        Me.dgvSpeditionsbuch.ShowRowErrors = False
-        Me.dgvSpeditionsbuch.Size = New System.Drawing.Size(561, 121)
+        Me.dgvSpeditionsbuch.Size = New System.Drawing.Size(561, 120)
        Me.dgvSpeditionsbuch.TabIndex = 101
        Me.dgvSpeditionsbuch.TabStop = False
        '
@@ -475,11 +479,63 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.tbAnhaenge.Location = New System.Drawing.Point(4, 22)
        Me.tbAnhaenge.Name = "tbAnhaenge"
        Me.tbAnhaenge.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAnhaenge.Size = New System.Drawing.Size(567, 158)
+        Me.tbAnhaenge.Size = New System.Drawing.Size(567, 157)
        Me.tbAnhaenge.TabIndex = 3
        Me.tbAnhaenge.Text = "Anhänge"
        Me.tbAnhaenge.UseVisualStyleBackColor = True
        '
+        'dgvanhaenge
+        '
+        Me.dgvanhaenge.AllowUserToAddRows = False
+        Me.dgvanhaenge.AllowUserToDeleteRows = False
+        Me.dgvanhaenge.AllowUserToResizeRows = False
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvanhaenge.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvanhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle13
+        Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3)
+        Me.dgvanhaenge.Name = "dgvanhaenge"
+        Me.dgvanhaenge.ReadOnly = True
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
+        Me.dgvanhaenge.RowHeadersVisible = False
+        Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.dgvanhaenge.RowTemplate.Height = 30
+        Me.dgvanhaenge.RowTemplate.ReadOnly = True
+        Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvanhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvanhaenge.ShowCellErrors = False
+        Me.dgvanhaenge.ShowRowErrors = False
+        Me.dgvanhaenge.Size = New System.Drawing.Size(561, 113)
+        Me.dgvanhaenge.TabIndex = 102
+        Me.dgvanhaenge.TabStop = False
+        '
        'Panel5
        '
        Me.Panel5.Controls.Add(Me.btnQuckScan)
@@ -487,7 +543,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Panel5.Controls.Add(Me.Button4)
        Me.Panel5.Controls.Add(Me.Button10)
        Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel5.Location = New System.Drawing.Point(3, 117)
+        Me.Panel5.Location = New System.Drawing.Point(3, 116)
        Me.Panel5.Name = "Panel5"
        Me.Panel5.Size = New System.Drawing.Size(561, 38)
        Me.Panel5.TabIndex = 112
@@ -548,58 +604,6 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button10.UseVisualStyleBackColor = True
        '
-        'dgvanhaenge
-        '
-        Me.dgvanhaenge.AllowUserToAddRows = False
-        Me.dgvanhaenge.AllowUserToDeleteRows = False
-        Me.dgvanhaenge.AllowUserToResizeRows = False
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvanhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
-        Me.dgvanhaenge.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvanhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
-        Me.dgvanhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvanhaenge.DefaultCellStyle = DataGridViewCellStyle13
-        Me.dgvanhaenge.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvanhaenge.Location = New System.Drawing.Point(3, 3)
-        Me.dgvanhaenge.Name = "dgvanhaenge"
-        Me.dgvanhaenge.ReadOnly = True
-        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvanhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
-        Me.dgvanhaenge.RowHeadersVisible = False
-        Me.dgvanhaenge.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvanhaenge.RowsDefaultCellStyle = DataGridViewCellStyle15
-        Me.dgvanhaenge.RowTemplate.Height = 30
-        Me.dgvanhaenge.RowTemplate.ReadOnly = True
-        Me.dgvanhaenge.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvanhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvanhaenge.ShowCellErrors = False
-        Me.dgvanhaenge.ShowRowErrors = False
-        Me.dgvanhaenge.Size = New System.Drawing.Size(374, 76)
-        Me.dgvanhaenge.TabIndex = 102
-        Me.dgvanhaenge.TabStop = False
-        '
        'Panel7
        '
        Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -608,7 +612,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Panel7.Location = New System.Drawing.Point(4, 19)
        Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250)
        Me.Panel7.Name = "Panel7"
-        Me.Panel7.Size = New System.Drawing.Size(1, 56)
+        Me.Panel7.Size = New System.Drawing.Size(1, 55)
        Me.Panel7.TabIndex = 15
        '
        'gridVermerke
@@ -1121,6 +1125,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.FlowLayoutPanel.AutoSize = True
        Me.FlowLayoutPanel.Controls.Add(Me.Panel9)
        Me.FlowLayoutPanel.Controls.Add(Me.Panel10)
+        Me.FlowLayoutPanel.Controls.Add(Me.Panel6)
        Me.FlowLayoutPanel.Controls.Add(Me.Panel13)
        Me.FlowLayoutPanel.Controls.Add(Me.Panel11)
        Me.FlowLayoutPanel.Controls.Add(Me.Panel12)
@@ -1128,7 +1133,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top
        Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36)
        Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
-        Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 161)
+        Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 162)
        Me.FlowLayoutPanel.TabIndex = 13
        '
        'Panel9
@@ -1178,12 +1183,51 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Panel10.Size = New System.Drawing.Size(0, 0)
        Me.Panel10.TabIndex = 16
        '
+        'Panel6
+        '
+        Me.Panel6.AutoSize = True
+        Me.Panel6.Controls.Add(Me.Button12)
+        Me.Panel6.Controls.Add(Me.Label7)
+        Me.Panel6.Location = New System.Drawing.Point(132, 3)
+        Me.Panel6.Name = "Panel6"
+        Me.Panel6.Size = New System.Drawing.Size(117, 74)
+        Me.Panel6.TabIndex = 19
+        '
+        'Button12
+        '
+        Me.Button12.AutoSize = True
+        Me.Button12.BackColor = System.Drawing.Color.DarkOrange
+        Me.Button12.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.Button12.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button12.ForeColor = System.Drawing.Color.White
+        Me.Button12.Location = New System.Drawing.Point(0, 0)
+        Me.Button12.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button12.MinimumSize = New System.Drawing.Size(100, 0)
+        Me.Button12.Name = "Button12"
+        Me.Button12.Size = New System.Drawing.Size(117, 62)
+        Me.Button12.TabIndex = 12
+        Me.Button12.Text = "2. " & Global.Microsoft.VisualBasic.ChrW(10) & "VERIMEX"
+        Me.Button12.UseVisualStyleBackColor = False
+        '
+        'Label7
+        '
+        Me.Label7.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label7.Location = New System.Drawing.Point(0, 62)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(117, 12)
+        Me.Label7.TabIndex = 0
+        Me.Label7.Text = "-"
+        Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
        'Panel13
        '
        Me.Panel13.AutoSize = True
        Me.Panel13.Controls.Add(Me.btnVorgeschrieben)
        Me.Panel13.Controls.Add(Me.lblTimeVorgeschreiben)
-        Me.Panel13.Location = New System.Drawing.Point(132, 3)
+        Me.Panel13.Location = New System.Drawing.Point(255, 3)
        Me.Panel13.Name = "Panel13"
        Me.Panel13.Size = New System.Drawing.Size(209, 75)
        Me.Panel13.TabIndex = 17
@@ -1222,7 +1266,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Panel11.AutoSize = True
        Me.Panel11.Controls.Add(Me.btnAnkunft)
        Me.Panel11.Controls.Add(Me.lblTimeAnkunft)
-        Me.Panel11.Location = New System.Drawing.Point(347, 3)
+        Me.Panel11.Location = New System.Drawing.Point(3, 84)
        Me.Panel11.Name = "Panel11"
        Me.Panel11.Size = New System.Drawing.Size(119, 75)
        Me.Panel11.TabIndex = 17
@@ -1261,7 +1305,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.Panel12.AutoSize = True
        Me.Panel12.Controls.Add(Me.btnFreigabe)
        Me.Panel12.Controls.Add(Me.lblTimeFreigabe)
-        Me.Panel12.Location = New System.Drawing.Point(3, 84)
+        Me.Panel12.Location = New System.Drawing.Point(128, 84)
        Me.Panel12.Name = "Panel12"
        Me.Panel12.Size = New System.Drawing.Size(122, 74)
        Me.Panel12.TabIndex = 17
@@ -1299,7 +1343,7 @@ Partial Class usrcntlAktDetailsATILLANeu
        '
        Me.Panel2.AutoSize = True
        Me.Panel2.Controls.Add(Me.btnNichtEingetroffen)
-        Me.Panel2.Location = New System.Drawing.Point(131, 84)
+        Me.Panel2.Location = New System.Drawing.Point(256, 84)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(66, 37)
        Me.Panel2.TabIndex = 18
@@ -1516,8 +1560,8 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.pnlSendungenTop.ResumeLayout(False)
        Me.pnlSendungenTop.PerformLayout()
        Me.tbAnhaenge.ResumeLayout(False)
-        Me.Panel5.ResumeLayout(False)
        CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel5.ResumeLayout(False)
        CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlVermerkeTop.ResumeLayout(False)
        Me.pnlVermerkeTop.PerformLayout()
@@ -1531,6 +1575,8 @@ Partial Class usrcntlAktDetailsATILLANeu
        Me.FlowLayoutPanel.PerformLayout()
        Me.Panel9.ResumeLayout(False)
        Me.Panel9.PerformLayout()
+        Me.Panel6.ResumeLayout(False)
+        Me.Panel6.PerformLayout()
        Me.Panel13.ResumeLayout(False)
        Me.Panel13.PerformLayout()
        Me.Panel11.ResumeLayout(False)
@@ -1644,4 +1690,7 @@ Partial Class usrcntlAktDetailsATILLANeu
    Friend WithEvents Button10 As Button
    Friend WithEvents Panel5 As Panel
    Friend WithEvents Button11 As Button
+    Friend WithEvents Panel6 As Panel
+    Friend WithEvents Button12 As Button
+    Friend WithEvents Label7 As Label
 End Class
--- a/Aviso/usrcntlAktDetailsATILLANeu.vb
+++ b/Aviso/usrcntlAktDetailsATILLANeu.vb
@@ -86,6 +86,7 @@ Public Class usrcntlAktDetailsATILLANeu
        setVisible(btnVorgeschrieben, v)
        setVisible(lblTimeAnkunft, v)
        setVisible(lblTimeErfasst, v)
+        setVisible(Label7, v)
        setVisible(lblTimeFreigabe, v)
        '   setVisible(lblTimeVorbereitet, v)
        setVisible(lblTimeVorgeschreiben, v)
@@ -240,6 +241,14 @@ Public Class usrcntlAktDetailsATILLANeu
            'btnVorgeschrieben.Text = "VORGESCHR."
            'btnVorgeschrieben.Text = "VORGESCHR."
        End If
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
+            Panel6.Visible = True
+        Else
+            Panel6.Visible = False
+        End If
+
+
        dgvZollAnmeldungen.ClearSelection()
    End Sub

@@ -302,7 +311,7 @@ Public Class usrcntlAktDetailsATILLANeu
        lblTimeErfasst.Text = formatdate(AVISO.Datum)
        lblTimeAnkunft.Text = formatdate(AVISO.Ankunft)
        lblTimeFreigabe.Text = formatdate(AVISO.Freigabe)
-        '   lblTimeVorbereitet.Text = formatdate(AVISO.Vorbereitet)
+        Label7.Text = formatdate(AVISO.Vorbereitet)
        lblTimeVorgeschreiben.Text = formatdate(AVISO.Vorgeschrieben)

        intiAktUebernehmenBtn()
@@ -1546,4 +1555,11 @@ Public Class usrcntlAktDetailsATILLANeu

        End If
    End Sub
+
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
+        If FUNC.setVorbereitet(AvisoID) Then
+            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        End If
+    End Sub
 End Class