diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj
index 3797a41..20b78b8 100644
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -1495,6 +1495,7 @@
     </EmbeddedResource>
     <EmbeddedResource Include="frmAuswahl_Aviso.resx">
       <DependentUpon>frmAuswahl_Aviso.vb</DependentUpon>
+      <SubType>Designer</SubType>
     </EmbeddedResource>
     <EmbeddedResource Include="Auswertung\frmAuswertung.resx">
       <DependentUpon>frmAuswertung.vb</DependentUpon>
diff --git a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
index e0fd904..452bb31 100644
--- a/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
+++ b/Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb
@@ -222,10 +222,12 @@ Public Class frmAvisoWeiterleiten
         btn.Enabled = enabled
 
         AddHandler btn.Click, Sub()
-                                  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                                      Case "ATILLA" : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma, "WL: " & If(bezeichnungFirma <> "ATILLA", "[" & bezeichnungFirma & "] ", "") & bezeichnung)
-                                      Case Else : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
-                                  End Select
+
+                                  btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma, "WL: " & If(bezeichnungFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "[" & bezeichnungFirma & "] ", "") & bezeichnung)
+                                  'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                                  '    Case "ATILLA" : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma, "WL: " & If(bezeichnungFirma <> "ATILLA", "[" & bezeichnungFirma & "] ", "") & bezeichnung)
+                                  '    Case Else : btnWeiterleitung_Clicked(WLart, (btn.Tag), bezeichnung, bezeichnungFirma)
+                                  'End Select
 
                                   initButtons(flpFirma, btn)
                               End Sub
diff --git a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb
index e6c25d5..0b7d120 100644
--- a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb
+++ b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb
@@ -23,7 +23,7 @@ Partial Class usrCntlBenachrichtigungen
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.gridAvisoBenachrichtigungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -80,8 +80,8 @@ Partial Class usrCntlBenachrichtigungen
         Me.gridAvisoBenachrichtigungen.AllowUserToDeleteRows = False
         Me.gridAvisoBenachrichtigungen.AllowUserToOrderColumns = True
         Me.gridAvisoBenachrichtigungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
+        Me.gridAvisoBenachrichtigungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.gridAvisoBenachrichtigungen.BackgroundColor = System.Drawing.Color.White
         Me.gridAvisoBenachrichtigungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.gridAvisoBenachrichtigungen.Dock = System.Windows.Forms.DockStyle.Fill
@@ -97,9 +97,9 @@ Partial Class usrCntlBenachrichtigungen
         Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
         Me.Panel4.Controls.Add(Me.cbxTaskForce)
         Me.Panel4.Controls.Add(Me.cbxVerwarung)
-        Me.Panel4.Controls.Add(Me.txtVermerk)
         Me.Panel4.Controls.Add(Me.cbxNeukunden)
         Me.Panel4.Controls.Add(Me.Button10)
+        Me.Panel4.Controls.Add(Me.txtVermerk)
         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel4.Location = New System.Drawing.Point(0, 165)
         Me.Panel4.Name = "Panel4"
diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 769998a..de1e934 100644
--- a/Aviso/My Project/AssemblyInfo.vb	
+++ b/Aviso/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.1.4.8")>
-<Assembly: AssemblyFileVersion("4.1.4.8")>
+<Assembly: AssemblyVersion("4.1.4.9")>
+<Assembly: AssemblyFileVersion("4.1.4.9")>
diff --git a/Aviso/frmAddSendungsvermerkShort.Designer.vb b/Aviso/frmAddSendungsvermerkShort.Designer.vb
index d607fb7..d0b786b 100644
--- a/Aviso/frmAddSendungsvermerkShort.Designer.vb
+++ b/Aviso/frmAddSendungsvermerkShort.Designer.vb
@@ -27,6 +27,9 @@ Partial Class frmAddSendungsvermerkShort
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.pnlMain = New System.Windows.Forms.Panel()
         Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
+        Me.optGewPackAngefordert = New System.Windows.Forms.CheckBox()
+        Me.optKostenbestaetigungAngefordert = New System.Windows.Forms.CheckBox()
+        Me.optZolltarifnummerAngefordert = New System.Windows.Forms.CheckBox()
         Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox()
         Me.cbxPackliste = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
@@ -73,9 +76,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.PictureBox4 = New System.Windows.Forms.PictureBox()
         Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.optGewPackAngefordert = New System.Windows.Forms.CheckBox()
-        Me.optKostenbestaetigungAngefordert = New System.Windows.Forms.CheckBox()
-        Me.optZolltarifnummerAngefordert = New System.Windows.Forms.CheckBox()
+        Me.optDraft = New System.Windows.Forms.CheckBox()
         Me.pnlMain.SuspendLayout()
         Me.pnlSendungsVermker.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -94,13 +95,14 @@ Partial Class frmAddSendungsvermerkShort
         Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlMain.Location = New System.Drawing.Point(0, 0)
         Me.pnlMain.Name = "pnlMain"
-        Me.pnlMain.Size = New System.Drawing.Size(454, 563)
+        Me.pnlMain.Size = New System.Drawing.Size(454, 605)
         Me.pnlMain.TabIndex = 0
         '
         'pnlSendungsVermker
         '
         Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White
         Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlSendungsVermker.Controls.Add(Me.optDraft)
         Me.pnlSendungsVermker.Controls.Add(Me.optGewPackAngefordert)
         Me.pnlSendungsVermker.Controls.Add(Me.optKostenbestaetigungAngefordert)
         Me.pnlSendungsVermker.Controls.Add(Me.optZolltarifnummerAngefordert)
@@ -152,9 +154,39 @@ Partial Class frmAddSendungsvermerkShort
         Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0)
         Me.pnlSendungsVermker.Name = "pnlSendungsVermker"
-        Me.pnlSendungsVermker.Size = New System.Drawing.Size(454, 563)
+        Me.pnlSendungsVermker.Size = New System.Drawing.Size(454, 605)
         Me.pnlSendungsVermker.TabIndex = 0
         '
+        'optGewPackAngefordert
+        '
+        Me.optGewPackAngefordert.AutoSize = True
+        Me.optGewPackAngefordert.Location = New System.Drawing.Point(12, 236)
+        Me.optGewPackAngefordert.Name = "optGewPackAngefordert"
+        Me.optGewPackAngefordert.Size = New System.Drawing.Size(245, 17)
+        Me.optGewPackAngefordert.TabIndex = 101
+        Me.optGewPackAngefordert.Text = "Gewicht/Packstücke mangelhaft - angefordert"
+        Me.optGewPackAngefordert.UseVisualStyleBackColor = True
+        '
+        'optKostenbestaetigungAngefordert
+        '
+        Me.optKostenbestaetigungAngefordert.AutoSize = True
+        Me.optKostenbestaetigungAngefordert.Location = New System.Drawing.Point(270, 214)
+        Me.optKostenbestaetigungAngefordert.Name = "optKostenbestaetigungAngefordert"
+        Me.optKostenbestaetigungAngefordert.Size = New System.Drawing.Size(177, 17)
+        Me.optKostenbestaetigungAngefordert.TabIndex = 99
+        Me.optKostenbestaetigungAngefordert.Text = "Kostenbestätigung - angefordert"
+        Me.optKostenbestaetigungAngefordert.UseVisualStyleBackColor = True
+        '
+        'optZolltarifnummerAngefordert
+        '
+        Me.optZolltarifnummerAngefordert.AutoSize = True
+        Me.optZolltarifnummerAngefordert.Location = New System.Drawing.Point(12, 214)
+        Me.optZolltarifnummerAngefordert.Name = "optZolltarifnummerAngefordert"
+        Me.optZolltarifnummerAngefordert.Size = New System.Drawing.Size(154, 17)
+        Me.optZolltarifnummerAngefordert.TabIndex = 98
+        Me.optZolltarifnummerAngefordert.Text = "Zolltarifnummer angefordert"
+        Me.optZolltarifnummerAngefordert.UseVisualStyleBackColor = True
+        '
         'txtSonstigesDokumentFehlt
         '
         Me.txtSonstigesDokumentFehlt.BackColor = System.Drawing.Color.White
@@ -181,7 +213,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label4.AutoSize = True
         Me.Label4.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(11, 379)
+        Me.Label4.Location = New System.Drawing.Point(11, 411)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(125, 17)
         Me.Label4.TabIndex = 96
@@ -191,7 +223,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optFremd_ATB.AutoSize = True
         Me.optFremd_ATB.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optFremd_ATB.Location = New System.Drawing.Point(12, 426)
+        Me.optFremd_ATB.Location = New System.Drawing.Point(12, 458)
         Me.optFremd_ATB.Name = "optFremd_ATB"
         Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17)
         Me.optFremd_ATB.TabIndex = 94
@@ -202,7 +234,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optFremd_SendungAvisiert.AutoSize = True
         Me.optFremd_SendungAvisiert.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 403)
+        Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 435)
         Me.optFremd_SendungAvisiert.Name = "optFremd_SendungAvisiert"
         Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17)
         Me.optFremd_SendungAvisiert.TabIndex = 93
@@ -276,7 +308,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.lblErrSpedition.AutoSize = True
         Me.lblErrSpedition.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblErrSpedition.ForeColor = System.Drawing.Color.Red
-        Me.lblErrSpedition.Location = New System.Drawing.Point(175, 284)
+        Me.lblErrSpedition.Location = New System.Drawing.Point(175, 316)
         Me.lblErrSpedition.Name = "lblErrSpedition"
         Me.lblErrSpedition.Size = New System.Drawing.Size(158, 13)
         Me.lblErrSpedition.TabIndex = 17
@@ -288,7 +320,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label2.AutoSize = True
         Me.Label2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label2.Location = New System.Drawing.Point(175, 284)
+        Me.Label2.Location = New System.Drawing.Point(175, 316)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(57, 13)
         Me.Label2.TabIndex = 84
@@ -299,7 +331,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.lblErrGrund.AutoSize = True
         Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblErrGrund.ForeColor = System.Drawing.Color.Red
-        Me.lblErrGrund.Location = New System.Drawing.Point(147, 353)
+        Me.lblErrGrund.Location = New System.Drawing.Point(147, 385)
         Me.lblErrGrund.Name = "lblErrGrund"
         Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
         Me.lblErrGrund.TabIndex = 26
@@ -350,7 +382,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.txtSpedition.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSpedition.Location = New System.Drawing.Point(177, 300)
+        Me.txtSpedition.Location = New System.Drawing.Point(177, 332)
         Me.txtSpedition.MaxLength = 50
         Me.txtSpedition.Name = "txtSpedition"
         Me.txtSpedition.Size = New System.Drawing.Size(125, 20)
@@ -371,7 +403,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optSpeditionWeitergeleitet.AutoSize = True
         Me.optSpeditionWeitergeleitet.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 302)
+        Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 334)
         Me.optSpeditionWeitergeleitet.Name = "optSpeditionWeitergeleitet"
         Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17)
         Me.optSpeditionWeitergeleitet.TabIndex = 19
@@ -382,7 +414,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optFreierText.AutoSize = True
         Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optFreierText.Location = New System.Drawing.Point(12, 329)
+        Me.optFreierText.Location = New System.Drawing.Point(12, 361)
         Me.optFreierText.Name = "optFreierText"
         Me.optFreierText.Size = New System.Drawing.Size(105, 17)
         Me.optFreierText.TabIndex = 27
@@ -393,7 +425,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optATAangefordert.AutoSize = True
         Me.optATAangefordert.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optATAangefordert.Location = New System.Drawing.Point(164, 426)
+        Me.optATAangefordert.Location = New System.Drawing.Point(164, 458)
         Me.optATAangefordert.Name = "optATAangefordert"
         Me.optATAangefordert.Size = New System.Drawing.Size(208, 17)
         Me.optATAangefordert.TabIndex = 15
@@ -424,7 +456,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.Label3.AutoSize = True
         Me.Label3.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Label3.Location = New System.Drawing.Point(308, 303)
+        Me.Label3.Location = New System.Drawing.Point(308, 335)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(57, 13)
         Me.Label3.TabIndex = 22
@@ -434,7 +466,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.lblErr240Zeichen.AutoSize = True
         Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red
-        Me.lblErr240Zeichen.Location = New System.Drawing.Point(219, 464)
+        Me.lblErr240Zeichen.Location = New System.Drawing.Point(219, 496)
         Me.lblErr240Zeichen.Name = "lblErr240Zeichen"
         Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13)
         Me.lblErr240Zeichen.TabIndex = 32
@@ -446,7 +478,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.txtDetail.AcceptsReturn = True
         Me.txtDetail.BackColor = System.Drawing.Color.White
         Me.txtDetail.ForeColor = System.Drawing.SystemColors.InfoText
-        Me.txtDetail.Location = New System.Drawing.Point(12, 480)
+        Me.txtDetail.Location = New System.Drawing.Point(12, 512)
         Me.txtDetail.MaxLength = 240
         Me.txtDetail.Multiline = True
         Me.txtDetail.Name = "txtDetail"
@@ -459,7 +491,7 @@ Partial Class frmAddSendungsvermerkShort
         'lblZustzlFreitext
         '
         Me.lblZustzlFreitext.AutoSize = True
-        Me.lblZustzlFreitext.Location = New System.Drawing.Point(9, 464)
+        Me.lblZustzlFreitext.Location = New System.Drawing.Point(9, 496)
         Me.lblZustzlFreitext.Name = "lblZustzlFreitext"
         Me.lblZustzlFreitext.Size = New System.Drawing.Size(142, 13)
         Me.lblZustzlFreitext.TabIndex = 31
@@ -469,7 +501,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.txtSendungSpedition.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtSendungSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 300)
+        Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 332)
         Me.txtSendungSpedition.MaxLength = 50
         Me.txtSendungSpedition.Name = "txtSendungSpedition"
         Me.txtSendungSpedition.Size = New System.Drawing.Size(25, 20)
@@ -490,7 +522,7 @@ Partial Class frmAddSendungsvermerkShort
         'btnOK
         '
         Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOK.Location = New System.Drawing.Point(320, 480)
+        Me.btnOK.Location = New System.Drawing.Point(320, 512)
         Me.btnOK.Name = "btnOK"
         Me.btnOK.Size = New System.Drawing.Size(124, 54)
         Me.btnOK.TabIndex = 34
@@ -513,7 +545,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label9.AutoSize = True
         Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label9.Location = New System.Drawing.Point(354, 353)
+        Me.Label9.Location = New System.Drawing.Point(354, 385)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(90, 13)
         Me.Label9.TabIndex = 30
@@ -546,7 +578,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label17.AutoSize = True
         Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Italic)
-        Me.Label17.Location = New System.Drawing.Point(144, 353)
+        Me.Label17.Location = New System.Drawing.Point(144, 385)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(182, 13)
         Me.Label17.TabIndex = 29
@@ -557,7 +589,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label13.AutoSize = True
         Me.Label13.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(9, 275)
+        Me.Label13.Location = New System.Drawing.Point(9, 307)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(84, 17)
         Me.Label13.TabIndex = 16
@@ -589,7 +621,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.txtFreierText.Location = New System.Drawing.Point(122, 327)
+        Me.txtFreierText.Location = New System.Drawing.Point(122, 359)
         Me.txtFreierText.MaxLength = 80
         Me.txtFreierText.Name = "txtFreierText"
         Me.txtFreierText.Size = New System.Drawing.Size(322, 23)
@@ -610,7 +642,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.Label20.AutoSize = True
         Me.Label20.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Label20.Location = New System.Drawing.Point(267, 303)
+        Me.Label20.Location = New System.Drawing.Point(267, 335)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(0, 13)
         Me.Label20.TabIndex = 21
@@ -640,7 +672,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
         Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.PictureBox4.Location = New System.Drawing.Point(-1, 265)
+        Me.PictureBox4.Location = New System.Drawing.Point(-1, 297)
         Me.PictureBox4.Name = "PictureBox4"
         Me.PictureBox4.Size = New System.Drawing.Size(453, 189)
         Me.PictureBox4.TabIndex = 78
@@ -656,41 +688,21 @@ Partial Class frmAddSendungsvermerkShort
         Me.Panel4.Size = New System.Drawing.Size(454, 0)
         Me.Panel4.TabIndex = 1
         '
-        'optGewPackAngefordert
+        'optDraft
         '
-        Me.optGewPackAngefordert.AutoSize = True
-        Me.optGewPackAngefordert.Location = New System.Drawing.Point(12, 236)
-        Me.optGewPackAngefordert.Name = "optGewPackAngefordert"
-        Me.optGewPackAngefordert.Size = New System.Drawing.Size(245, 17)
-        Me.optGewPackAngefordert.TabIndex = 101
-        Me.optGewPackAngefordert.Text = "Gewicht/Packstücke mangelhaft - angefordert"
-        Me.optGewPackAngefordert.UseVisualStyleBackColor = True
-        '
-        'optKostenbestaetigungAngefordert
-        '
-        Me.optKostenbestaetigungAngefordert.AutoSize = True
-        Me.optKostenbestaetigungAngefordert.Location = New System.Drawing.Point(270, 214)
-        Me.optKostenbestaetigungAngefordert.Name = "optKostenbestaetigungAngefordert"
-        Me.optKostenbestaetigungAngefordert.Size = New System.Drawing.Size(177, 17)
-        Me.optKostenbestaetigungAngefordert.TabIndex = 99
-        Me.optKostenbestaetigungAngefordert.Text = "Kostenbestätigung - angefordert"
-        Me.optKostenbestaetigungAngefordert.UseVisualStyleBackColor = True
-        '
-        'optZolltarifnummerAngefordert
-        '
-        Me.optZolltarifnummerAngefordert.AutoSize = True
-        Me.optZolltarifnummerAngefordert.Location = New System.Drawing.Point(12, 214)
-        Me.optZolltarifnummerAngefordert.Name = "optZolltarifnummerAngefordert"
-        Me.optZolltarifnummerAngefordert.Size = New System.Drawing.Size(154, 17)
-        Me.optZolltarifnummerAngefordert.TabIndex = 98
-        Me.optZolltarifnummerAngefordert.Text = "Zolltarifnummer angefordert"
-        Me.optZolltarifnummerAngefordert.UseVisualStyleBackColor = True
+        Me.optDraft.AutoSize = True
+        Me.optDraft.Location = New System.Drawing.Point(12, 262)
+        Me.optDraft.Name = "optDraft"
+        Me.optDraft.Size = New System.Drawing.Size(174, 17)
+        Me.optDraft.TabIndex = 102
+        Me.optDraft.Text = "T1/T2 ""Draft"" OK - angefordert"
+        Me.optDraft.UseVisualStyleBackColor = True
         '
         'frmAddSendungsvermerkShort
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(454, 563)
+        Me.ClientSize = New System.Drawing.Size(454, 605)
         Me.Controls.Add(Me.pnlMain)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -759,4 +771,5 @@ Partial Class frmAddSendungsvermerkShort
     Friend WithEvents optGewPackAngefordert As CheckBox
     Friend WithEvents optKostenbestaetigungAngefordert As CheckBox
     Friend WithEvents optZolltarifnummerAngefordert As CheckBox
+    Friend WithEvents optDraft As CheckBox
 End Class
diff --git a/Aviso/frmAddSendungsvermerkShort.vb b/Aviso/frmAddSendungsvermerkShort.vb
index 9e0261b..43d74d2 100644
--- a/Aviso/frmAddSendungsvermerkShort.vb
+++ b/Aviso/frmAddSendungsvermerkShort.vb
@@ -175,6 +175,7 @@ Public Class frmAddSendungsvermerkShort
         If optFremd_ATB.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATB von Fremdeinsteller erhalten bei Sendung '" & txtSendung.Text.Trim & "' ", 72)
         If optFremd_SendungAvisiert.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' an Fremdeinsteller avisiert", 73)
         ' If optSndUmmelden.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Sendung '" & txtSendung.Text.Trim & "' umgemeldet", 94)
+        If optDraft.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "T2 Draft OK bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 118)
 
 
         If optUeberwachungsdok.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Ü-Dok bei Sendung '" & txtSendung.Text.Trim & "' - angefordert", 53)
diff --git a/Aviso/frmEintragAviso.vb b/Aviso/frmEintragAviso.vb
index a546da0..dc91860 100644
--- a/Aviso/frmEintragAviso.vb
+++ b/Aviso/frmEintragAviso.vb
@@ -97,21 +97,25 @@ Public Class frmEintragAviso
         kdAvisierer.initKdBox(Me)
         kdAuftraggeber.initKdBox(Me)
 
+        cboGrenzstelle.Items.Clear()
+        cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' 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.changeItem("")
 
-        Select Case FIRMA_TMP
-            Case "ATILLA"
-                cboGrenzstelle.Items.Clear()
-                cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Grenzstelle] IN ('SUB','NEU') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
-                cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
-                'cboGrenzstelle.changeItem("")
+        'Select Case FIRMA_TMP
+        '    Case "ATILLA"
+        '        cboGrenzstelle.Items.Clear()
+        '        cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Grenzstelle] IN ('SUB','NEU') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
+        '        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
+        '        'cboGrenzstelle.changeItem("")
 
-            Case Else
-                cboGrenzstelle.Items.Clear()
-                cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' 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.changeItem("")
+        '    Case Else
+        '        cboGrenzstelle.Items.Clear()
+        '        cboGrenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where [grz_Firma]='" & FIRMA_TMP & "' 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.changeItem("")
 
-        End Select
+        'End Select
 
         cboTransportmittelart.Items.Clear()
         cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 7bff3b9..359874d 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -5191,7 +5191,9 @@ ELSE_ATILLA:
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        VERAG_PROG_ALLGEMEIN.cBZST_UID_REST.CheckVat("DE", "147838463", "", "") 'geht ned - zugang
 
+        Exit Sub
 
 
 
diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb
index 01d2111..9114fdf 100644
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1359,6 +1359,15 @@ Public Class usrcntlAktDetails
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                     init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
+
+
+                Case "118"
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.VermerkCodeId = 119
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
+
             End Select
 
         End If
@@ -1570,6 +1579,11 @@ Public Class usrcntlAktDetails
                                 optionCell.Value = "Kostenbestätigung erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kostenbestätigung erhalten' einzutragen."
                             End If
+                        Case 118
+                            If Not existCodeInGridVermerke(r, gridvermerke, 119, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "T1/T2 Draft OK erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1/T2 Draft OK ' einzutragen."
+                            End If
                     End Select
                 End If