From eee4dd830290aa046be065f7bb6c7bf49b9e5241 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 4 Mar 2024 16:22:03 +0100
Subject: [PATCH] =?UTF-8?q?CMR=20Best=C3=A4tigung?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Aviso/My Project/AssemblyInfo.vb        |   4 +-
 Aviso/frmHauptfenster.vb                |   8 +-
 Aviso/frmSendungsdetailsNEU.Designer.vb | 139 +++++++++++++-----------
 Aviso/frmSendungsdetailsNEU.resx        |  18 +++
 Aviso/frmSendungsdetailsNEU.vb          |  78 +++++++++++++
 5 files changed, 176 insertions(+), 71 deletions(-)

diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb
index 53a313c..849b91a 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("3.9.7.1")>
-<Assembly: AssemblyFileVersion("3.9.7.1")>
+<Assembly: AssemblyVersion("3.9.7.6")>
+<Assembly: AssemblyFileVersion("3.9.7.6")>
diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb
index 2bb1d25..70ac5f3 100644
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -2753,7 +2753,7 @@ Public Class frmHauptfenster
             'ToolStripMenuItem4.Visible = True
             DEVeragGmbHToolStripMenuItem.Visible = True
             'ToolStripMenuItem5.Visible = True
-            ATVeragAGToolStripMenuItem.Visible = True
+            'ATVeragAGToolStripMenuItem.Visible = True
             'ToolStripMenuItem6.Visible = True
             ATImexCSToolStripMenuItem.Visible = True
         Else 'VERAG
@@ -4473,10 +4473,10 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub WarenorteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarenorteToolStripMenuItem.Click
-        Dim enableWritepermissions As Boolean
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then enableWritepermissions = True
+        Dim writepermissions As Boolean
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORTE", "AVISO") Then writepermissions = True
 
-        Dim f As New frmWarenorte(enableWritepermissions)
+        Dim f As New frmWarenorte(writepermissions)
         f.ShowDialog(Me)
     End Sub
 
diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb
index a636a09..f8be764 100644
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -24,16 +24,16 @@ 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 DataGridViewCellStyle5 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()
+        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 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()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -44,6 +44,7 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
         Me.Panel19 = New System.Windows.Forms.Panel()
+        Me.Button22 = New System.Windows.Forms.Button()
         Me.Button17 = New System.Windows.Forms.Button()
         Me.btnQuckScan = New System.Windows.Forms.Button()
         Me.Panel21 = New System.Windows.Forms.Panel()
@@ -436,7 +437,7 @@ Partial Class frmSendungsdetailsNEU
         Me.StatusAbrufenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.XXXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Button22 = New System.Windows.Forms.Button()
+        Me.CMRBestätigungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnl.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.TabControl1.SuspendLayout()
@@ -644,6 +645,19 @@ Partial Class frmSendungsdetailsNEU
         Me.Panel19.Size = New System.Drawing.Size(1206, 45)
         Me.Panel19.TabIndex = 0
         '
+        'Button22
+        '
+        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button22.Image = Global.AVISO.My.Resources.Resources.atr_s
+        Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button22.Location = New System.Drawing.Point(606, 5)
+        Me.Button22.Name = "Button22"
+        Me.Button22.Size = New System.Drawing.Size(105, 34)
+        Me.Button22.TabIndex = 8
+        Me.Button22.Text = "ATR Archiv"
+        Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button22.UseVisualStyleBackColor = True
+        '
         'Button17
         '
         Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1510,18 +1524,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
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
         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
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        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.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
         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)
@@ -1530,8 +1544,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
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle13
         Me.gridVermerke.RowTemplate.Height = 20
         Me.gridVermerke.RowTemplate.ReadOnly = True
         Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1559,18 +1573,18 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvATEZNCTS.AllowUserToAddRows = False
         Me.dgvATEZNCTS.AllowUserToDeleteRows = False
         Me.dgvATEZNCTS.AllowUserToResizeRows = False
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
         Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
         Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
         Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvATEZNCTS.Location = New System.Drawing.Point(3, 48)
@@ -1579,8 +1593,8 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvATEZNCTS.ReadOnly = True
         Me.dgvATEZNCTS.RowHeadersVisible = False
         Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle16
         Me.dgvATEZNCTS.RowTemplate.Height = 20
         Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
         Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1631,18 +1645,18 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvDigicust.AllowUserToAddRows = False
         Me.dgvDigicust.AllowUserToDeleteRows = False
         Me.dgvDigicust.AllowUserToResizeRows = False
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18
         Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
         Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvDigicust.Location = New System.Drawing.Point(0, 45)
@@ -1651,8 +1665,8 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvDigicust.ReadOnly = True
         Me.dgvDigicust.RowHeadersVisible = False
         Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle19
         Me.dgvDigicust.RowTemplate.Height = 20
         Me.dgvDigicust.RowTemplate.ReadOnly = True
         Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2421,8 +2435,8 @@ Partial Class frmSendungsdetailsNEU
         'clmnPreis
         '
         Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle10.Format = "C2"
-        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle20.Format = "C2"
+        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle20
         Me.clmnPreis.HeaderText = "Preis"
         Me.clmnPreis.MaxInputLength = 15
         Me.clmnPreis.Name = "clmnPreis"
@@ -5356,9 +5370,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.ToolStripMenuItem28, 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.CMRBestätigungToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "cntxtAnh"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 364)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 416)
         '
         'ToolStripMenuItem15
         '
@@ -5582,18 +5596,12 @@ Partial Class frmSendungsdetailsNEU
         Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
         Me.XXXToolStripMenuItem.Text = "XXX"
         '
-        'Button22
+        'CMRBestätigungToolStripMenuItem
         '
-        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button22.Image = Global.AVISO.My.Resources.Resources.atr_s
-        Me.Button22.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button22.Location = New System.Drawing.Point(606, 5)
-        Me.Button22.Name = "Button22"
-        Me.Button22.Size = New System.Drawing.Size(105, 34)
-        Me.Button22.TabIndex = 8
-        Me.Button22.Text = "ATR Archiv"
-        Me.Button22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button22.UseVisualStyleBackColor = True
+        Me.CMRBestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
+        Me.CMRBestätigungToolStripMenuItem.Name = "CMRBestätigungToolStripMenuItem"
+        Me.CMRBestätigungToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
+        Me.CMRBestätigungToolStripMenuItem.Text = "CMR Bestätigung"
         '
         'frmSendungsdetailsNEU
         '
@@ -6104,4 +6112,5 @@ Partial Class frmSendungsdetailsNEU
     Friend WithEvents EmpfängerToolStripMenuItem1 As ToolStripMenuItem
     Friend WithEvents AuftraggeberToolStripMenuItem1 As ToolStripMenuItem
     Friend WithEvents Button22 As Button
+    Friend WithEvents CMRBestätigungToolStripMenuItem As ToolStripMenuItem
 End Class
diff --git a/Aviso/frmSendungsdetailsNEU.resx b/Aviso/frmSendungsdetailsNEU.resx
index 0e9e574..ded6036 100644
--- a/Aviso/frmSendungsdetailsNEU.resx
+++ b/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,6 +2074,9 @@
   <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>
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index 2f2a93a..b02a202 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -6624,4 +6624,82 @@ Public Class frmSendungsdetailsNEU
         f.ShowDialog(Me)
         initAnhang()
     End Sub
+
+    Private Sub CMRBestätigungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CMRBestätigungToolStripMenuItem.Click
+
+
+        Try
+                Dim outl As New Outlook.Application
+                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                Mail = outl.CreateItem(0)
+
+            Mail.Subject &= AVISO.LKW_Nr & " Fiskal CMR/packing List"
+
+            Dim firstTextHTMLDE = ""
+                firstTextHTMLDE &= "Sehr geehrte Damen und Herren,<br>"
+                firstTextHTMLDE &= "<br>"
+                firstTextHTMLDE &= "o.g. LKW ist bei uns zur Zollabfertigung eingetroffen.<br>"
+                firstTextHTMLDE &= "Um die Ware im Zollverfahren 4200 (Fiskal) abfertigen zu können, ist es notwendig dass Sie beigefügten CMR im Feld 22 gegenstempeln und unterzeichnen.<br>"
+                firstTextHTMLDE &= "Es ist von äußerster Wichtigkeit, dass Sie den angefügten CMR verwenden. Bitte verwenden Sie keinen anderen CMR.<br>"
+
+            firstTextHTMLDE &= "Alternativ können Sie uns auch eine Packliste mit Original-Stempel und Signatur per Mail übersenden.<br>"
+            firstTextHTMLDE &= " Auf der Packliste müssen folgende Merkmale vorhanden sein:<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Versender mit kompletter Anschrift<br>"
+            firstTextHTMLDE &= "Empfänger mit kompletter Anschrift<br>"
+            firstTextHTMLDE &= "Warenbezeichnung<br>"
+            firstTextHTMLDE &= "Packstück + Gewicht<br>"
+            firstTextHTMLDE &= "Stempel + Signatur<br><br><br>"
+
+            '-----------------------------------------------
+
+            firstTextHTMLDE &= "Dear Sir or Madam,<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "The above-mentioned lorry has arrived at our premises for customs clearance.<br>"
+            firstTextHTMLDE &= "In order to be able to clear the goods in customs procedure 4200 (fiscal), it is necessary that you stamp and sign the attached CMR in field 22.<br>"
+            firstTextHTMLDE &= "It is of utmost importance that you use the attached CMR. Please do not use any other CMR.<br>"
+
+            firstTextHTMLDE &= "Alternatively, you can send us a packing list with original stamp and signature by mail.<br>"
+            firstTextHTMLDE &= " The following features must be present on the packing list:<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Consignor with complete address<br>"
+            firstTextHTMLDE &= "Consignee with complete address<br>"
+            firstTextHTMLDE &= "Description of goods<br>"
+            firstTextHTMLDE &= "Package + weight<br>"
+            firstTextHTMLDE &= "Stamp + signature<br><br><br>"
+
+            '-----------------------------------------------
+
+            firstTextHTMLDE &= "Sayin Bay veya Bayan,<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Yukarida belirtilen arac gümrük islemleri için bize varis yapmistir.<br>"
+            firstTextHTMLDE &= "Mallarin 4200 (Fiskal) gümrük prosedürüne göre gümrükten çekilebilmesi için, ekteki CMR'yi 22 hanesinin imzlayip ve kaseleyip bize gönderici tarafindan posta yolu ile iletilmesi gerekiyor.<br>"
+            firstTextHTMLDE &= "Ekteki CMR'yi kullanmaniz büyük önem tasimaktadir. Lütfen baska bir CMR kullanmayin.<br>"
+
+            firstTextHTMLDE &= "Alternatif olarak, bize posta yoluyla orijinal kaşe ve imzalı bir çeki listesi gönderebilirsiniz.<br>"
+            firstTextHTMLDE &= "Çeki listesinde aşağıdaki özellikler bulunmalıdır:<br>"
+            firstTextHTMLDE &= "<br>"
+            firstTextHTMLDE &= "Tam adresli gönderici<br>"
+            firstTextHTMLDE &= "Tam adresli alıcı<br>"
+            firstTextHTMLDE &= "Malların tanımı<br>"
+            firstTextHTMLDE &= "Paket + ağırlık<br>"
+            firstTextHTMLDE &= "Damga + imza<br>"
+
+
+
+            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial;font-size:15px;"">" & firstTextHTMLDE & SDL.cFakturierung.getSignature("DE") & "</div>"
+
+
+            AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Absenderbestätigung angefordert", 76)
+
+            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 Sub
+
+
 End Class