SND GW-Aviso

Aviso/My Project/Application.Designer.vb

@@ -32,7 +32,7 @@ Namespace My
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
-            Me.MainForm = AVISO.frmLogin
+            Me.MainForm = Global.AVISO.frmLogin
         End Sub
     End Class
 End Namespace

Aviso/My Project/Application.myapp

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
   <MySubMain>true</MySubMain>
   <MainForm>frmLogin</MainForm>
   <SingleInstance>false</SingleInstance>

Aviso/My Project/AssemblyInfo.vb

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

Aviso/My Project/Settings.Designer.vb

@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.8.1.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.3.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase

Aviso/frmHauptfenster.vb

@@ -1235,7 +1235,7 @@ Public Class frmHauptfenster
                 If cboMyAvisoAnzeige._value <> "" Then
                     If cboMyAvisoAnzeige._value = "ALLE" Then
                         '  inBearbeitungSQL = " 1=1 " 'ALLE
-                        inBearbeitungSQL = " (  (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'))       OR      (Aviso.[TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null))       OR        tblSendungen.LetzterMitarbeiterId=@maId) "
+                        inBearbeitungSQL = " (  (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'))       OR      (Aviso.[TeamId] IN (SELECT [team_id]  FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null))       OR        [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'       OR        tblSendungen.LetzterMitarbeiterId=@maId) "
                     ElseIf cboMyAvisoAnzeige._value = "T1" Then
                         inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
                         'NUR VERAG/IMEX:

Aviso/frmSendungsdetailsNEU.Designer.vb

@@ -24,10 +24,10 @@ Partial Class frmSendungsdetailsNEU
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
-        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 DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -35,6 +35,7 @@ Partial Class frmSendungsdetailsNEU
         Me.pnlKundenInfo = New System.Windows.Forms.Panel()
         Me.Panel20 = New System.Windows.Forms.Panel()
         Me.tbAnhang = New System.Windows.Forms.TabPage()
+        Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
         Me.Panel19 = New System.Windows.Forms.Panel()
         Me.Button17 = New System.Windows.Forms.Button()
@@ -52,7 +53,6 @@ Partial Class frmSendungsdetailsNEU
         Me.btnOptionen = New System.Windows.Forms.Button()
         Me.btnImportAssi = New System.Windows.Forms.Button()
         Me.lblAnhaenge = New System.Windows.Forms.Label()
-        Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.tbZollabfertigung = New System.Windows.Forms.TabPage()
         Me.Panel16 = New System.Windows.Forms.Panel()
         Me.dgvZollAnmeldungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -408,14 +408,17 @@ Partial Class frmSendungsdetailsNEU
         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.ToolStripMenuItem28 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem29 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem30 = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnl.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.tbKundenInfo.SuspendLayout()
         Me.tbAnhang.SuspendLayout()
+        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel19.SuspendLayout()
         Me.Panel21.SuspendLayout()
-        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.tbZollabfertigung.SuspendLayout()
         Me.Panel16.SuspendLayout()
         CType(Me.dgvZollAnmeldungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -555,6 +558,24 @@ Partial Class frmSendungsdetailsNEU
         Me.tbAnhang.Text = "Anhang"
         Me.tbAnhang.UseVisualStyleBackColor = True
         '
+        'dgvAnhang
+        '
+        Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvAnhang.AllowUserToAddRows = False
+        Me.dgvAnhang.AllowUserToDeleteRows = False
+        Me.dgvAnhang.AllowUserToResizeColumns = False
+        Me.dgvAnhang.AllowUserToResizeRows = False
+        Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
+        Me.dgvAnhang.Name = "dgvAnhang"
+        Me.dgvAnhang.ReadOnly = True
+        Me.dgvAnhang.RowHeadersVisible = False
+        Me.dgvAnhang.RowTemplate.Height = 40
+        Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243)
+        Me.dgvAnhang.TabIndex = 1
+        '
         'btnDirektAnfuegen
         '
         Me.btnDirektAnfuegen.Enabled = False
@@ -772,24 +793,6 @@ Partial Class frmSendungsdetailsNEU
         Me.lblAnhaenge.TabIndex = 0
         Me.lblAnhaenge.Text = "Anhänge"
         '
-        'dgvAnhang
-        '
-        Me.dgvAnhang.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvAnhang.AllowUserToAddRows = False
-        Me.dgvAnhang.AllowUserToDeleteRows = False
-        Me.dgvAnhang.AllowUserToResizeColumns = False
-        Me.dgvAnhang.AllowUserToResizeRows = False
-        Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
-        Me.dgvAnhang.Name = "dgvAnhang"
-        Me.dgvAnhang.ReadOnly = True
-        Me.dgvAnhang.RowHeadersVisible = False
-        Me.dgvAnhang.RowTemplate.Height = 40
-        Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243)
-        Me.dgvAnhang.TabIndex = 1
-        '
         'tbZollabfertigung
         '
         Me.tbZollabfertigung.Controls.Add(Me.Panel16)
@@ -1448,18 +1451,18 @@ Partial Class frmSendungsdetailsNEU
         Me.gridVermerke.AllowUserToAddRows = False
         Me.gridVermerke.AllowUserToDeleteRows = False
         Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        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.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
         Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
         Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
@@ -1468,8 +1471,8 @@ Partial Class frmSendungsdetailsNEU
         Me.gridVermerke.ReadOnly = True
         Me.gridVermerke.RowHeadersVisible = False
         Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle11
         Me.gridVermerke.RowTemplate.Height = 20
         Me.gridVermerke.RowTemplate.ReadOnly = True
         Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2214,8 +2217,8 @@ Partial Class frmSendungsdetailsNEU
         'clmnPreis
         '
         Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle4.Format = "C2"
-        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle12.Format = "C2"
+        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle12
         Me.clmnPreis.HeaderText = "Preis"
         Me.clmnPreis.MaxInputLength = 15
         Me.clmnPreis.Name = "clmnPreis"
@@ -4837,7 +4840,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(97, 26)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(93, 22)
         Me.ToolStripMenuItem4.Text = "T1"
         '
         'ToolStripMenuItem5
@@ -4845,7 +4848,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(97, 26)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(93, 22)
         Me.ToolStripMenuItem5.Text = "T2"
         '
         'ÜTToolStripMenuItem
@@ -4853,7 +4856,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(97, 26)
+        Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(93, 22)
         Me.ÜTToolStripMenuItem.Text = "Ü-T"
         '
         'NeueZollanmeldungToolStripMenuItem
@@ -5099,9 +5102,9 @@ Partial Class frmSendungsdetailsNEU
         'ContextMenuStrip1
         '
         Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "cntxtAnh"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 334)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 386)
         '
         'ToolStripMenuItem15
         '
@@ -5174,14 +5177,14 @@ Partial Class frmSendungsdetailsNEU
         '
         Me.ATANAKTRFraechter.Image = CType(resources.GetObject("ATANAKTRFraechter.Image"), System.Drawing.Image)
         Me.ATANAKTRFraechter.Name = "ATANAKTRFraechter"
-        Me.ATANAKTRFraechter.Size = New System.Drawing.Size(234, 26)
+        Me.ATANAKTRFraechter.Size = New System.Drawing.Size(230, 22)
         Me.ATANAKTRFraechter.Text = "ATANAK (TR Frächter)"
         '
         'ATANAKEUFraechter
         '
         Me.ATANAKEUFraechter.Image = CType(resources.GetObject("ATANAKEUFraechter.Image"), System.Drawing.Image)
         Me.ATANAKEUFraechter.Name = "ATANAKEUFraechter"
-        Me.ATANAKEUFraechter.Size = New System.Drawing.Size(234, 26)
+        Me.ATANAKEUFraechter.Size = New System.Drawing.Size(230, 22)
         Me.ATANAKEUFraechter.Text = "ATANAK (EU/andere Frächter)"
         '
         'ToolStripMenuItem26
@@ -5210,14 +5213,14 @@ Partial Class frmSendungsdetailsNEU
         '
         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(271, 26)
+        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(271, 26)
+        Me.AlleLEXSendungenLKWToolStripMenuItem.Size = New System.Drawing.Size(275, 30)
         Me.AlleLEXSendungenLKWToolStripMenuItem.Text = "Alle LEX Sendungen (LKW)"
         '
         'GVMSInfoToolStripMenuItem
@@ -5232,14 +5235,14 @@ Partial Class frmSendungsdetailsNEU
         '
         Me.AlleEIDRSendungenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
         Me.AlleEIDRSendungenToolStripMenuItem.Name = "AlleEIDRSendungenToolStripMenuItem"
-        Me.AlleEIDRSendungenToolStripMenuItem.Size = New System.Drawing.Size(188, 26)
+        Me.AlleEIDRSendungenToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
         Me.AlleEIDRSendungenToolStripMenuItem.Text = "Alle EIDR Sendungen"
         '
         'AktuelleSendungToolStripMenuItem
         '
         Me.AktuelleSendungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
         Me.AktuelleSendungToolStripMenuItem.Name = "AktuelleSendungToolStripMenuItem"
-        Me.AktuelleSendungToolStripMenuItem.Size = New System.Drawing.Size(188, 26)
+        Me.AktuelleSendungToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
         Me.AktuelleSendungToolStripMenuItem.Text = "Aktuelle Sendung"
         '
         'WarenortAMBARToolStripMenuItem
@@ -5279,6 +5282,28 @@ Partial Class frmSendungsdetailsNEU
         Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
         Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
         '
+        'ToolStripMenuItem28
+        '
+        Me.ToolStripMenuItem28.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem29, Me.ToolStripMenuItem30})
+        Me.ToolStripMenuItem28.Image = Global.AVISO.My.Resources.Resources.email_big1
+        Me.ToolStripMenuItem28.Name = "ToolStripMenuItem28"
+        Me.ToolStripMenuItem28.Size = New System.Drawing.Size(222, 30)
+        Me.ToolStripMenuItem28.Text = "GEBR.WEISS (CH) Aviso"
+        '
+        'ToolStripMenuItem29
+        '
+        Me.ToolStripMenuItem29.Image = CType(resources.GetObject("ToolStripMenuItem29.Image"), System.Drawing.Image)
+        Me.ToolStripMenuItem29.Name = "ToolStripMenuItem29"
+        Me.ToolStripMenuItem29.Size = New System.Drawing.Size(275, 30)
+        Me.ToolStripMenuItem29.Text = "Aktuelle Sendung (Anhänge wählen)"
+        '
+        'ToolStripMenuItem30
+        '
+        Me.ToolStripMenuItem30.Image = CType(resources.GetObject("ToolStripMenuItem30.Image"), System.Drawing.Image)
+        Me.ToolStripMenuItem30.Name = "ToolStripMenuItem30"
+        Me.ToolStripMenuItem30.Size = New System.Drawing.Size(275, 30)
+        Me.ToolStripMenuItem30.Text = "Alle Sendungen (LKW)"
+        '
         'frmSendungsdetailsNEU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5299,11 +5324,11 @@ Partial Class frmSendungsdetailsNEU
         Me.TabControl1.ResumeLayout(False)
         Me.tbKundenInfo.ResumeLayout(False)
         Me.tbAnhang.ResumeLayout(False)
+        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel19.ResumeLayout(False)
         Me.Panel19.PerformLayout()
         Me.Panel21.ResumeLayout(False)
         Me.Panel21.PerformLayout()
-        CType(Me.dgvAnhang, System.ComponentModel.ISupportInitialize).EndInit()
         Me.tbZollabfertigung.ResumeLayout(False)
         Me.Panel16.ResumeLayout(False)
         Me.Panel16.PerformLayout()
@@ -5757,4 +5782,7 @@ Partial Class frmSendungsdetailsNEU
     Friend WithEvents ATANAKEUFraechter As ToolStripMenuItem
     Friend WithEvents HervorhebenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Button18 As Button
+    Friend WithEvents ToolStripMenuItem28 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
 End Class

Aviso/frmSendungsdetailsNEU.resx

@@ -1531,6 +1531,9 @@
         mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
 </value>
   </data>
+  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>296, 17</value>
+  </metadata>
   <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1651,6 +1654,18 @@
   <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
@@ -2059,12 +2074,117 @@
   <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
+  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>404, 17</value>
+  </metadata>
   <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>596, 17</value>
   </metadata>
   <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="ToolStripMenuItem29.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="ToolStripMenuItem30.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="ATANAKTRFraechter.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAABGdBTUEAALGPC/xhBQAACrNJREFUWEfN

Aviso/frmSendungsdetailsNEU.vb

@@ -2955,6 +2955,8 @@ Public Class frmSendungsdetailsNEU
             End If
         End If
 
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value,, "")
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Cluster = VERAG_PROG_ALLGEMEIN.cAllgemein.getClusterFromFiliale(cboFiliale._value,, "")
 
 
         txtAnzahlPos.Visible = (cboFiliale._value = "7001")
@@ -5898,4 +5900,359 @@ Public Class frmSendungsdetailsNEU
 
 
     End Sub
+
+    Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.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)
+                    Mail.To = "zoll.wels@gw-world.com"
+                    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
+                        Dim gestellungsadresseTmp = ""
+                        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>"
+                            If SND.tblSnd_BARzuKassieren IsNot Nothing Then
+                                If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then
+                                    TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2")
+                                Else
+                                    TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl
+                                End If
+                            Else
+                                TextHTML &= "VERAG"
+                            End If
+                            TextHTML &= "</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 "5", "6"
+                                    gestellungsadresseTmp = SND.getNCTSAdress().Trim
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                                Case Else
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                            End Select
+
+                            TextHTML &= "</tr>"
+
+                            If gestellungsadresseTmp <> "" Then
+                                TextHTML &= "<tr>"
+                                TextHTML &= "<td colspan=2><b></b></td>"
+                                TextHTML &= "<td colspan=2>NCTS-Gestellungsadresse:</td>"
+                                TextHTML &= "<td colspan=6><b>" & gestellungsadresseTmp & "</b></td>"
+                                TextHTML &= "</tr>"
+                            End If
+                            '....
+                            '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 ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.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)
+                    Mail.To = "zoll.wels@gw-world.com"
+
+                    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
+                        Dim gestellungsadresseTmp = ""
+                        If (OnylSND >= 0 AndAlso SND Is SENDUNG_LIST(OnylSND)) Or (OnylSND < 0) 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>"
+                            If SND.tblSnd_BARzuKassieren IsNot Nothing Then
+                                If IsNumeric(SND.tblSnd_BARzuKassieren) AndAlso SND.tblSnd_BARzuKassieren <> 0 Then
+                                    TextHTML &= "BAR kassieren:" & CDbl(SND.tblSnd_BARzuKassieren).ToString("C2")
+                                Else
+                                    'TextHTML &= "BAR kassieren:" & SND.tblSnd_BARzuKassieren 'falls keine Zahl
+                                    TextHTML &= "VERAG"
+                                End If
+                            Else
+                                TextHTML &= "VERAG"
+                            End If
+                            TextHTML &= "</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 "5", "6"
+                                    gestellungsadresseTmp = SND.getNCTSAdress().Trim
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                                Case Else
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                                    TextHTML &= "<td><b>-</b></td>"
+                            End Select
+
+                            TextHTML &= "</tr>"
+
+                            If gestellungsadresseTmp <> "" Then
+                                TextHTML &= "<tr>"
+                                TextHTML &= "<td colspan=2><b></b></td>"
+                                TextHTML &= "<td colspan=2>NCTS-Gestellungsadresse:</td>"
+                                TextHTML &= "<td colspan=6><b>" & gestellungsadresseTmp & "</b></td>"
+                                TextHTML &= "</tr>"
+                            End If
+                            '....
+                            '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
 End Class