Zollern, etc.

VERAGAddIn/My Project/Resources.Designer.vb

@@ -130,6 +130,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property urgent_qu() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("urgent_qu", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

VERAGAddIn/My Project/Resources.resx

@@ -118,6 +118,9 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="pdfprint" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\pdfprint.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -133,16 +136,16 @@
   <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Aviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="_665209_email_512x512" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\665209_email_512x512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Aviso1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="pdfprint" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="_665209_email_512x512" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\pdfprint.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\665209_email_512x512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="urgent_qu" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\urgent_qu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

VERAGAddIn/VERAGAddIn.vbproj

@@ -36,7 +36,7 @@
     <PublishUrl>\\ftps.verag.ag\g\FTP\Programme\VeragAddin\</PublishUrl>
     <InstallUrl>http://ftps.verag.ag/VERAGAddin/</InstallUrl>
     <TargetCulture>de</TargetCulture>
-    <ApplicationVersion>1.0.1.136</ApplicationVersion>
+    <ApplicationVersion>1.0.1.140</ApplicationVersion>
     <AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
     <UpdateEnabled>true</UpdateEnabled>
     <UpdateInterval>0</UpdateInterval>
@@ -337,6 +337,7 @@
     <None Include="Resources\pdf.png" />
   </ItemGroup>
   <ItemGroup>
+    <None Include="Resources\urgent_qu.png" />
     <None Include="Resources\vermerk.png" />
     <None Include="Resources\pdf_gray.png" />
     <None Include="Resources\665209_email_512x512.png" />
@@ -362,10 +363,6 @@
       <Project>{7bdd8c2f-2c9e-49f1-a365-3b1da1c84991}</Project>
       <Name>Aviso</Name>
     </ProjectReference>
-    <ProjectReference Include="..\..\Aviso\AVISO\Gemeinsames\Gemeinsames.vbproj">
-      <Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
-      <Name>Gemeinsames</Name>
-    </ProjectReference>
     <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
       <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
       <Name>VERAG_PROG_ALLGEMEIN</Name>
@@ -395,7 +392,8 @@
     <SignManifests>true</SignManifests>
   </PropertyGroup>
   <PropertyGroup>
-    <ManifestKeyFile>AL20231110.pfx</ManifestKeyFile>
+    <ManifestKeyFile>
+    </ManifestKeyFile>
   </PropertyGroup>
   <PropertyGroup>
     <ManifestCertificateThumbprint>D21E170FE10FFCC8532FBDEFB75A35DB90661CC0</ManifestCertificateThumbprint>

VERAGAddIn/app.config

@@ -52,7 +52,7 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-6.0.3.0" newVersion="6.0.3.0" />
+		  <bindingRedirect oldVersion="0.0.0.0-6.0.3.0" newVersion="6.0.3.0" />
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
@@ -60,12 +60,32 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-4.2.0.0" newVersion="4.2.0.0" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="Spire.PdfViewer.Forms" publicKeyToken="663f351905198cb3" culture="neutral" />
         <bindingRedirect oldVersion="0.0.0.0-4.9.5.3046" newVersion="4.9.5.3046" />
       </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Bcl.AsyncInterfaces" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="itext.kernel" publicKeyToken="8354ae6d2174ddca" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-7.1.11.0" newVersion="7.1.11.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="itext.layout" publicKeyToken="8354ae6d2174ddca" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-7.1.11.0" newVersion="7.1.11.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="itext.io" publicKeyToken="8354ae6d2174ddca" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-7.1.11.0" newVersion="7.1.11.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="itext.forms" publicKeyToken="8354ae6d2174ddca" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-7.1.11.0" newVersion="7.1.11.0" />
+      </dependentAssembly>
     </assemblyBinding>
   </runtime>
 <startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" /></startup></configuration>

VERAGAddIn/frmAvisoAnfügen.Designer.vb

@@ -33,12 +33,12 @@ Partial Class frmAvisoAnfuegen
         Me.lblErr_Aviso = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.cbx = New System.Windows.Forms.CheckBox()
+        Me.cbxAnhaengeZusaetzlichSpeichern = New System.Windows.Forms.CheckBox()
-        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
+        Me.cbxAnhaengeSpeichern = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.btnVermerke = New System.Windows.Forms.Button()
-        Me.bttnSaveMail = New System.Windows.Forms.Button()
+        Me.btnSaveMail = New System.Windows.Forms.Button()
         Me.btnSaveAttachments = New System.Windows.Forms.Button()
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -159,32 +159,32 @@ Partial Class frmAvisoAnfuegen
         Me.Label3.TabIndex = 19
         Me.Label3.Text = "Kategorie:"
         '
-        'cbx
+        'cbxAnhaengeZusaetzlichSpeichern
         '
-        Me.cbx.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxAnhaengeZusaetzlichSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.cbx.AutoSize = True
+        Me.cbxAnhaengeZusaetzlichSpeichern.AutoSize = True
-        Me.cbx.Checked = True
+        Me.cbxAnhaengeZusaetzlichSpeichern.Checked = True
-        Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxAnhaengeZusaetzlichSpeichern.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbx.Location = New System.Drawing.Point(535, 650)
+        Me.cbxAnhaengeZusaetzlichSpeichern.Location = New System.Drawing.Point(535, 650)
-        Me.cbx.Name = "cbx"
+        Me.cbxAnhaengeZusaetzlichSpeichern.Name = "cbxAnhaengeZusaetzlichSpeichern"
-        Me.cbx.Size = New System.Drawing.Size(179, 17)
+        Me.cbxAnhaengeZusaetzlichSpeichern.Size = New System.Drawing.Size(179, 17)
-        Me.cbx.TabIndex = 22
+        Me.cbxAnhaengeZusaetzlichSpeichern.TabIndex = 22
-        Me.cbx.Text = "Anhänge zusätzlich abspeichern"
+        Me.cbxAnhaengeZusaetzlichSpeichern.Text = "Anhänge zusätzlich abspeichern"
-        Me.cbx.UseVisualStyleBackColor = True
+        Me.cbxAnhaengeZusaetzlichSpeichern.UseVisualStyleBackColor = True
         '
-        'CheckBox1
+        'cbxAnhaengeSpeichern
         '
-        Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxAnhaengeSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.CheckBox1.AutoSize = True
+        Me.cbxAnhaengeSpeichern.AutoSize = True
-        Me.CheckBox1.Checked = True
+        Me.cbxAnhaengeSpeichern.Checked = True
-        Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxAnhaengeSpeichern.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.CheckBox1.Location = New System.Drawing.Point(15, 651)
+        Me.cbxAnhaengeSpeichern.Location = New System.Drawing.Point(15, 651)
-        Me.CheckBox1.Name = "CheckBox1"
+        Me.cbxAnhaengeSpeichern.Name = "cbxAnhaengeSpeichern"
-        Me.CheckBox1.Size = New System.Drawing.Size(118, 17)
+        Me.cbxAnhaengeSpeichern.Size = New System.Drawing.Size(118, 17)
-        Me.CheckBox1.TabIndex = 23
+        Me.cbxAnhaengeSpeichern.TabIndex = 23
-        Me.CheckBox1.Text = "Anhänge speichern"
+        Me.cbxAnhaengeSpeichern.Text = "Anhänge speichern"
-        Me.CheckBox1.UseVisualStyleBackColor = True
+        Me.cbxAnhaengeSpeichern.UseVisualStyleBackColor = True
-        Me.CheckBox1.Visible = False
+        Me.cbxAnhaengeSpeichern.Visible = False
         '
         'Label4
         '
@@ -224,19 +224,19 @@ Partial Class frmAvisoAnfuegen
         Me.btnVermerke.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnVermerke.UseVisualStyleBackColor = True
         '
-        'bttnSaveMail
+        'btnSaveMail
         '
-        Me.bttnSaveMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.btnSaveMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.bttnSaveMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnSaveMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.bttnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
+        Me.btnSaveMail.Image = Global.VERAGAddIn.My.Resources.Resources.email_big1
-        Me.bttnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSaveMail.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.bttnSaveMail.Location = New System.Drawing.Point(535, 596)
+        Me.btnSaveMail.Location = New System.Drawing.Point(535, 596)
-        Me.bttnSaveMail.Name = "bttnSaveMail"
+        Me.btnSaveMail.Name = "btnSaveMail"
-        Me.bttnSaveMail.Size = New System.Drawing.Size(179, 53)
+        Me.btnSaveMail.Size = New System.Drawing.Size(179, 53)
-        Me.bttnSaveMail.TabIndex = 11
+        Me.btnSaveMail.TabIndex = 11
-        Me.bttnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13)
+        Me.btnSaveMail.Text = "E-Mail speichern" & Global.Microsoft.VisualBasic.ChrW(13)
-        Me.bttnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSaveMail.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.bttnSaveMail.UseVisualStyleBackColor = True
+        Me.btnSaveMail.UseVisualStyleBackColor = True
         '
         'btnSaveAttachments
         '
@@ -520,7 +520,7 @@ Partial Class frmAvisoAnfuegen
         Me.Controls.Add(Me.lblErr_Bezeichnung)
         Me.Controls.Add(Me.txtBezeichnung)
         Me.Controls.Add(Me.Label2)
-        Me.Controls.Add(Me.bttnSaveMail)
+        Me.Controls.Add(Me.btnSaveMail)
         Me.Controls.Add(Me.btnSaveAttachments)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.txtAbfertigungsnummer)
@@ -530,8 +530,8 @@ Partial Class frmAvisoAnfuegen
         Me.Controls.Add(Me.Label13)
         Me.Controls.Add(Me.Label14)
         Me.Controls.Add(Me.lbl)
-        Me.Controls.Add(Me.cbx)
+        Me.Controls.Add(Me.cbxAnhaengeZusaetzlichSpeichern)
-        Me.Controls.Add(Me.CheckBox1)
+        Me.Controls.Add(Me.cbxAnhaengeSpeichern)
         Me.ForeColor = System.Drawing.SystemColors.ControlText
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmAvisoAnfuegen"
@@ -554,7 +554,7 @@ Partial Class frmAvisoAnfuegen
     Friend WithEvents dgvAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents Button1 As Windows.Forms.Button
     Friend WithEvents btnSaveAttachments As Windows.Forms.Button
-    Friend WithEvents bttnSaveMail As Windows.Forms.Button
+    Friend WithEvents btnSaveMail As Windows.Forms.Button
     Friend WithEvents Label2 As Windows.Forms.Label
     Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents lblErr_Bezeichnung As Windows.Forms.Label
@@ -565,8 +565,8 @@ Partial Class frmAvisoAnfuegen
     Friend WithEvents Label3 As Windows.Forms.Label
     Friend WithEvents cboArt As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
-    Friend WithEvents cbx As Windows.Forms.CheckBox
+    Friend WithEvents cbxAnhaengeZusaetzlichSpeichern As Windows.Forms.CheckBox
-    Friend WithEvents CheckBox1 As Windows.Forms.CheckBox
+    Friend WithEvents cbxAnhaengeSpeichern As Windows.Forms.CheckBox
     Friend WithEvents Label4 As Windows.Forms.Label
     Friend WithEvents columnName As Windows.Forms.DataGridViewTextBoxColumn
     Friend WithEvents Pfad As Windows.Forms.DataGridViewTextBoxColumn

VERAGAddIn/frmAvisoAnfügen.vb

@@ -7,7 +7,7 @@ Public Class frmAvisoAnfuegen
     Public AvisoId = -1
     Public SendungsId = -1
     Public Bezeichnung = ""
-    Public PDF_MAIL = ""
+    Public PDF_MAIL As cANHANGSART_ADDIN
     Public Art = ""
     Dim VSQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -59,7 +59,7 @@ Public Class frmAvisoAnfuegen
         If ATT.Count = 0 Then
             btnSaveAttachments.Enabled = False
         Else
-            btnSaveAttachments.Enabled = CheckBox1.Checked
+            btnSaveAttachments.Enabled = cbxAnhaengeSpeichern.Checked
             For Each a In ATT
                 Dim display = a
                 If a.Contains("\") Then
@@ -181,7 +181,7 @@ Public Class frmAvisoAnfuegen
     End Sub
 
 
-    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click, bttnSaveMail.Click
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSaveAttachments.Click, btnSaveMail.Click
         lblErr_Bezeichnung.Visible = False
         lblErr_Aviso.Visible = False
         If dgvAviso.SelectedRows.Count > 0 Then
@@ -195,8 +195,21 @@ Public Class frmAvisoAnfuegen
             Else
                 Me.SendungsId = -1
             End If
-            If sender Is btnSaveAttachments Then PDF_MAIL = "PDF"
+            If sender Is btnSaveAttachments Then
-            If sender Is bttnSaveMail Then PDF_MAIL = If(CheckBox1.Checked, If(cbx.Checked, "PDFMAIL", "MAIL"), "ONLYMAIL")
+                PDF_MAIL = cANHANGSART_ADDIN.PDF
+            End If
+            If sender Is btnSaveMail Then
+                If cbxAnhaengeSpeichern.Checked Then
+                    If cbxAnhaengeZusaetzlichSpeichern.Checked Then
+                        PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL
+                    Else
+                        PDF_MAIL = cANHANGSART_ADDIN.YMAIL
+                    End If
+                Else
+                    PDF_MAIL = cANHANGSART_ADDIN.YMAIL
+                End If
+
+            End If
             Bezeichnung = txtBezeichnung.Text
             Me.DialogResult = Windows.Forms.DialogResult.OK
         Else
@@ -238,11 +251,11 @@ Public Class frmAvisoAnfuegen
         End If
     End Sub
 
-    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
+    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAnhaengeSpeichern.CheckedChanged
-        dgvAnhaenge.Enabled = CheckBox1.Checked
+        dgvAnhaenge.Enabled = cbxAnhaengeSpeichern.Checked
-        cbx.Enabled = CheckBox1.Checked
+        cbxAnhaengeZusaetzlichSpeichern.Enabled = cbxAnhaengeSpeichern.Checked
 
-        If CheckBox1.Checked Then
+        If cbxAnhaengeSpeichern.Checked Then
             btnSaveAttachments.Enabled = dgvAnhaenge.Rows.Count > 0
         Else
             btnSaveAttachments.Enabled = False

VERAGAddIn/frmAvisoFormularAnfügen.Designer.vb

@@ -38,11 +38,11 @@ Partial Class frmAvisoFormularAnfuegen
         Me.pbAnhaenge = New System.Windows.Forms.PictureBox()
         Me.lblMultiAttachements = New System.Windows.Forms.Label()
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Pfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
         Me.btnOK = New System.Windows.Forms.Button()
         Me.btnCancel = New System.Windows.Forms.Button()
-        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Pfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.panelKunden.SuspendLayout()
         Me.pnlBottom.SuspendLayout()
         CType(Me.pbAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -153,9 +153,9 @@ Partial Class frmAvisoFormularAnfuegen
         'pnlDetails
         '
         Me.pnlDetails.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
-        Me.pnlDetails.Location = New System.Drawing.Point(0, 103)
+        Me.pnlDetails.Location = New System.Drawing.Point(12, 103)
         Me.pnlDetails.Name = "pnlDetails"
-        Me.pnlDetails.Size = New System.Drawing.Size(518, 426)
+        Me.pnlDetails.Size = New System.Drawing.Size(492, 426)
         Me.pnlDetails.TabIndex = 38
         '
         'pnlBottom
@@ -175,9 +175,9 @@ Partial Class frmAvisoFormularAnfuegen
         Me.pbAnhaenge.Anchor = System.Windows.Forms.AnchorStyles.Bottom
         Me.pbAnhaenge.Enabled = False
         Me.pbAnhaenge.Image = Global.VERAGAddIn.My.Resources.Resources.pdf_gray
-        Me.pbAnhaenge.Location = New System.Drawing.Point(12, 106)
+        Me.pbAnhaenge.Location = New System.Drawing.Point(18, 112)
         Me.pbAnhaenge.Name = "pbAnhaenge"
-        Me.pbAnhaenge.Size = New System.Drawing.Size(63, 52)
+        Me.pbAnhaenge.Size = New System.Drawing.Size(57, 41)
         Me.pbAnhaenge.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
         Me.pbAnhaenge.TabIndex = 32
         Me.pbAnhaenge.TabStop = False
@@ -213,6 +213,20 @@ Partial Class frmAvisoFormularAnfuegen
         Me.dgvAnhaenge.TabIndex = 39
         Me.dgvAnhaenge.Visible = False
         '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'Pfad
+        '
+        Me.Pfad.HeaderText = "Pfad"
+        Me.Pfad.Name = "Pfad"
+        Me.Pfad.ReadOnly = True
+        Me.Pfad.Visible = False
+        '
         'MyPanel1
         '
         Me.MyPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -245,20 +259,6 @@ Partial Class frmAvisoFormularAnfuegen
         Me.btnCancel.Text = "Abbrechen"
         Me.btnCancel.UseVisualStyleBackColor = True
         '
-        'columnName
-        '
-        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.columnName.HeaderText = "Name"
-        Me.columnName.Name = "columnName"
-        Me.columnName.ReadOnly = True
-        '
-        'Pfad
-        '
-        Me.Pfad.HeaderText = "Pfad"
-        Me.Pfad.Name = "Pfad"
-        Me.Pfad.ReadOnly = True
-        Me.Pfad.Visible = False
-        '
         'frmAvisoFormularAnfuegen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

VERAGAddIn/frmAvisoFormularAnfügen.vb

@@ -1,11 +1,6 @@
-Imports System.Collections
+Imports System.Diagnostics
-Imports System.Data
-Imports System.Diagnostics
-Imports System.Diagnostics.Tracing
 Imports System.Drawing
-Imports System.Net
 Imports System.Windows.Forms
-Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button
 Imports Microsoft.Office.Tools.Ribbon
 Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
@@ -19,7 +14,7 @@ Public Class frmAvisoFormularAnfuegen
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Public SendungsId = -1
     Public Bezeichnung = ""
-    Public PDF_MAIL = ""
+    Public PDF_MAIL As cANHANGSART_ADDIN
     Public enableOverwritting As Boolean = False
     Public ATTTemp As List(Of String)
     Public ATT As List(Of String)
@@ -174,54 +169,62 @@ Public Class frmAvisoFormularAnfuegen
         Select Case button.Name
 
             Case "btnVertraege"
+
+                If UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count < 1 Then
+                    MsgBox("Bitte einen Vertrag markieren")
+                    DialogResult = DialogResult.None
+                    Exit Sub
+                End If
+
                 UsrCntlVertraege1.dgvVertraegeNew.GetOrder()
                 UsrCntlVertraege1.initDGVVertraege(KdNr)
                 UsrCntlVertraege1.dgvVertraegeNew.SetOrder()
 
-                If UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count < 1 Then
+            Case "btnGestellungsgarantien"
-                    MsgBox("Bitte einen Vertrag markieren")
+
+                If UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows.Count < 1 Then
+                    MsgBox("Bitte eine Gestellung markieren")
+                    DialogResult = DialogResult.None
+                    Exit Sub
                 End If
 
-            Case "btnGestellungsgarantien"
                 UsrCntlGestellungsgarantien1.dgvGestGarantieNew.GetOrder()
                 UsrCntlGestellungsgarantien1.initDGVGestGarantie(KdNr)
                 UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SetOrder()
 
-                If UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows.Count < 1 Then
+
-                    MsgBox("Bitte eine Gestellung markieren")
-                End If
         End Select
 
 
         If Not hasAnhaenge Then
 
-            If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email als Anhang gespeichert werden?", vbYesNoCancel) Then
+            'If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email als Anhang gespeichert werden?", vbYesNoCancel) Then
-                Close()
+            '    Close()
-                DialogResult = DialogResult.None
+            '    DialogResult = DialogResult.None
-                Exit Sub
+        Else
-            End If
-        End If
 
-        If ATT IsNot Nothing Then
+            If ATT IsNot Nothing Then
-            If ATT.Count > 1 Then
+                If ATT.Count > 1 Then
-                ATT = ATTTemp
+                    ATT = ATTTemp
-                If dgvAnhaenge.SelectedRows.Count = 0 Then
+                    If dgvAnhaenge.SelectedRows.Count = 0 Then
-                    MsgBox("Bitte Anhang markieren!")
+                        MsgBox("Bitte Anhang markieren!")
-                    DialogResult = DialogResult.None
+                        DialogResult = DialogResult.None
-                    Exit Sub
+                        Exit Sub
-                Else
+                    Else
-                    Dim listOfSelectedAttachmendIndex As New List(Of Integer)
+                        Dim listOfSelectedAttachmendIndex As New List(Of Integer)
-                    For Each indexOfAttachment As DataGridViewRow In dgvAnhaenge.SelectedRows
+                        For Each indexOfAttachment As DataGridViewRow In dgvAnhaenge.SelectedRows
-                        listOfSelectedAttachmendIndex.Add(indexOfAttachment.Index)
+                            listOfSelectedAttachmendIndex.Add(indexOfAttachment.Index)
-                    Next
+                        Next
 
-                    RemoveNotUsedAttachmentOnList(ATT, listOfSelectedAttachmendIndex)
+                        RemoveNotUsedAttachmentOnList(ATT, listOfSelectedAttachmendIndex)
 
+                    End If
                 End If
             End If
         End If
 
 
+
         Select Case button.Name
 
             Case "btnVollmachten"
@@ -239,13 +242,21 @@ Public Class frmAvisoFormularAnfuegen
 
                 ElseIf UsrCntlVertraege1.dgvVertraegeNew.SelectedRows.Count = 1 Then
 
+                    Dim hasExistingEmail As Boolean = False
+                    Dim hasExistingAttachment As Boolean = False
+
                     For Each row As DataGridViewRow In UsrCntlVertraege1.dgvVertraegeNew.SelectedRows
-                        If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
+
-                            setAvisoIdForVertrage()
+                        If (row.Cells("kv_datenarchivId_mail").Value IsNot Nothing AndAlso IsNumeric(row.Cells("kv_datenarchivId_mail").Value) AndAlso CInt(row.Cells("kv_datenarchivId_mail").Value) > 0) Then hasExistingEmail = True
-                        Else
+
+                        If (row.Cells("kv_datenarchivId").Value IsNot Nothing AndAlso IsNumeric(row.Cells("kv_datenarchivId").Value) AndAlso CInt(row.Cells("kv_datenarchivId").Value) > 0) Then hasExistingAttachment = True
+
+                        setAvisoIdForVertrage()
+
+                        If hasAnhaenge AndAlso hasExistingAttachment Then
                             Dim response = MsgBox("Der markierte Vertrag besitzt bereits einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
                             If response = vbYes Then
-                                setAvisoIdForVertrage()
+                                'setAvisoIdForVertrage()
                                 enableOverwritting = True
                             ElseIf response = vbCancel Then
                                 DialogResult = DialogResult.None
@@ -255,11 +266,37 @@ Public Class frmAvisoFormularAnfuegen
                             End If
                         End If
 
+
+
                     Next
+
+                    Dim ASKMailSpeichern As String = ""
+
+                    If hasAnhaenge Then
+                        ASKMailSpeichern = "Soll die Mail auch gespeichert werden!" & IIf(hasExistingEmail, vbNewLine & "Die aktuell hinterlegte Mail wird dadurch überschrieben!", "")
+                    Else
+                        ASKMailSpeichern = "Soll die Mail als Anhang gepeichert werden!" & IIf(hasExistingEmail, vbNewLine & "Die aktuell hinterlegte Mail wird dadurch überschrieben!", "")
+                    End If
+
+                    If vbYes = MsgBox(ASKMailSpeichern, vbYesNoCancel) Then
+                        If hasExistingEmail Then enableOverwritting = True
+                        If ATT.Count = 0 Then
+                            PDF_MAIL = cANHANGSART_ADDIN.MAIL_DATENSERVER '"ONLYMAIL_DATENSERVER"
+                        Else
+                            PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER '"PDFMAIL_DATENSERVER"
+                        End If
+                    Else
+                        If ATT.Count = 0 Then
+                            DialogResult = DialogResult.None
+                            Exit Sub
+                        End If
+
+                    End If
+
                     Me.DialogResult = DialogResult.OK
-                    Close()
+                        Close()
-                Else
+                    Else
-                    Close()
+                        Close()
                 End If
 
 
@@ -277,12 +314,12 @@ Public Class frmAvisoFormularAnfuegen
 
                     For Each row As DataGridViewRow In UsrCntlGestellungsgarantien1.dgvGestGarantieNew.SelectedRows
 
-                        If row.Cells("kv_datenarchivId").Value Is DBNull.Value Or row.Cells("kv_datenarchivId").Value Is Nothing Then
+                        If row.Cells("gg_datenarchivId").Value Is DBNull.Value Or row.Cells("gg_datenarchivId").Value Is Nothing Then
                             setAvisoIdForGestellungen()
                         Else
                             Dim response = MsgBox("Die markierte Gestellungsgarantie besitzt bereit einen Anhang!" & vbCrLf & "Soll der Anhang ersetzt werden?", vbYesNoCancel)
                             If response = vbYes Then
-                                setAvisoIdForVertrage()
+                                setAvisoIdForGestellungen()
                                 enableOverwritting = True
                             ElseIf response = vbCancel Then
                                 DialogResult = DialogResult.None
@@ -352,13 +389,13 @@ Public Class frmAvisoFormularAnfuegen
 
         If ATT.Count = 0 Then
             hasAnhaenge = False
-            PDF_MAIL = "ONLYMAIL_DATENSERVER"
+            PDF_MAIL = cANHANGSART_ADDIN.MAIL_DATENSERVER '"ONLYMAIL_DATENSERVER"
         Else
             hasAnhaenge = True
             If button.Name = "btnVollmachten" Then
-                PDF_MAIL = "PDF_DATENSERVER"
+                PDF_MAIL = cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER '"PDFANDMAIL_DATENSERVER"
             Else
-                PDF_MAIL = "ONLYPDF_DATENSERVER"
+                PDF_MAIL = cANHANGSART_ADDIN.PDF_DATENSERVER '"ONLYPDF_DATENSERVER"
             End If
 
 

VERAGAddIn/rbnMailItem.Designer.vb

@@ -44,6 +44,7 @@
         Me.components = New System.ComponentModel.Container()
         Me.Tab1 = Me.Factory.CreateRibbonTab
         Me.Group1 = Me.Factory.CreateRibbonGroup
+        Me.btnAVISOUnleashed = Me.Factory.CreateRibbonButton
         Me.Button1 = Me.Factory.CreateRibbonButton
         Me.btnAvisoMail2 = Me.Factory.CreateRibbonButton
         Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton
@@ -66,6 +67,7 @@
         '
         'Group1
         '
+        Me.Group1.Items.Add(Me.btnAVISOUnleashed)
         Me.Group1.Items.Add(Me.Button1)
         Me.Group1.Items.Add(Me.btnAvisoMail2)
         Me.Group1.Items.Add(Me.SplitButton1)
@@ -74,6 +76,15 @@
         Me.Group1.Label = "AVISO"
         Me.Group1.Name = "Group1"
         '
+        'btnAVISOUnleashed
+        '
+        Me.btnAVISOUnleashed.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.btnAVISOUnleashed.Image = Global.VERAGAddIn.My.Resources.Resources.urgent_qu
+        Me.btnAVISOUnleashed.Label = "AVISO Unleashed"
+        Me.btnAVISOUnleashed.Name = "btnAVISOUnleashed"
+        Me.btnAVISOUnleashed.ShowImage = True
+        Me.btnAVISOUnleashed.Visible = False
+        '
         'Button1
         '
         Me.Button1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
@@ -160,6 +171,7 @@
     Friend WithEvents btnVollmachten As Microsoft.Office.Tools.Ribbon.RibbonButton
     Friend WithEvents btnVertraege As Microsoft.Office.Tools.Ribbon.RibbonButton
     Friend WithEvents btnGestellungsgarantien As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents btnAVISOUnleashed As Microsoft.Office.Tools.Ribbon.RibbonButton
 End Class
 
 Partial Class ThisRibbonCollection

VERAGAddIn/rbnMailItem.vb

@@ -1,9 +1,11 @@
 Option Explicit On
 
 
-Imports Microsoft.Office.Tools.Ribbon
+Imports System.Drawing
-Imports Microsoft.Office.Interop
 Imports System.Windows.Forms
+Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Tools.Ribbon
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class rbnMailItem
     Dim LOGIN_OK As Boolean = False
@@ -14,6 +16,17 @@ Public Class rbnMailItem
 
     Private Sub rbnMailItem_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+            Group1.Label = "VERAG - UNLEASHED"
+            btnAVISOUnleashed.Visible = True
+        Else
+            Group1.Label = "VERAG"
+            btnAVISOUnleashed.Visible = False
+
+        End If
+
         'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
         LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
         currentexplorer = ThisAddIn.SharedExplorer
@@ -90,4 +103,5 @@ Public Class rbnMailItem
         End If
 
     End Sub
+
 End Class

VERAGAddIn/rbnVERAG.Designer.vb

@@ -55,6 +55,7 @@
         Me.btnDFDS = Me.Factory.CreateRibbonButton
         Me.Button3 = Me.Factory.CreateRibbonButton
         Me.Button4 = Me.Factory.CreateRibbonButton
+        Me.btnAVISOUnleashed = Me.Factory.CreateRibbonButton
         Me.Tab1.SuspendLayout()
         Me.VERAG.SuspendLayout()
         Me.SuspendLayout()
@@ -68,6 +69,7 @@
         '
         'VERAG
         '
+        Me.VERAG.Items.Add(Me.btnAVISOUnleashed)
         Me.VERAG.Items.Add(Me.Button2)
         Me.VERAG.Items.Add(Me.btnPdfPrint)
         Me.VERAG.Items.Add(Me.btnAvisoMail)
@@ -167,6 +169,15 @@
         Me.Button4.Name = "Button4"
         Me.Button4.ShowImage = True
         '
+        'btnAVISOUnleashed
+        '
+        Me.btnAVISOUnleashed.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
+        Me.btnAVISOUnleashed.Image = Global.VERAGAddIn.My.Resources.Resources.urgent_qu
+        Me.btnAVISOUnleashed.Label = "AVISO Unleashed"
+        Me.btnAVISOUnleashed.Name = "btnAVISOUnleashed"
+        Me.btnAVISOUnleashed.ShowImage = True
+        Me.btnAVISOUnleashed.Visible = False
+        '
         'VERAGRibbon
         '
         Me.Name = "VERAGRibbon"
@@ -194,6 +205,7 @@
     Friend WithEvents btnGestellungsgarantien As Microsoft.Office.Tools.Ribbon.RibbonButton
     Friend WithEvents Button3 As Microsoft.Office.Tools.Ribbon.RibbonButton
     Friend WithEvents btnDFDS As Microsoft.Office.Tools.Ribbon.RibbonButton
+    Friend WithEvents btnAVISOUnleashed As Microsoft.Office.Tools.Ribbon.RibbonButton
 End Class
 
 Partial Class ThisRibbonCollection

VERAGAddIn/rbnVERAG.vb

@@ -14,6 +14,20 @@ Imports Microsoft.Office.Interop
 Imports Microsoft.Office.Tools.Ribbon
 Imports VERAG_PROG_ALLGEMEIN
 
+Public Enum cANHANGSART_ADDIN
+    'Upload in Datenarchiv
+    PDF = 1
+    YMAIL = 2
+    PDFANDMAIL = 3
+
+    'Upload in Datenarchiv inkl. Zuweisung zu Objekt
+    PDFANDMAIL_DATENSERVER = 4
+    PDF_DATENSERVER = 5
+    MAIL_DATENSERVER = 6
+
+End Enum
+
+
 
 Public Class VERAGRibbon
     Dim LOGIN_OK = False
@@ -38,6 +52,16 @@ Public Class VERAGRibbon
     Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load
 
         cAllgemein.TESTSYSTEM = False
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED = True
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+            VERAG.Label = "VERAG - UNLEASHED"
+            btnAVISOUnleashed.Visible = True
+        Else
+            VERAG.Label = "VERAG"
+            btnAVISOUnleashed.Visible = False
+
+        End If
         'cAllgemein.TESTSYSTEM = True
         LOGIN_OK = AVISO_Mail_Functions.initFirmaUser()
 
@@ -158,7 +182,7 @@ Public Class AVISO_Mail_Functions
                     strFileName &= ".msg"
                 End If
                 'Dim strFileName As String = "Mail.msg"
-                Dim pdf_mail = ""
+                Dim pdf_mail As cANHANGSART_ADDIN
                 Dim SendungsId = -1
                 Dim Art = ""
                 Dim kdNr = -1
@@ -184,21 +208,33 @@ Public Class AVISO_Mail_Functions
 
                 Dim BezAnhang = If(Bezeichnung <> strFileName, Bezeichnung, "") 'Wenn die Bezeichnung geändert wurde --> und wenn nur 1 Anhang, dann wird die Bezeichnung für den Anhang verwendet.
 
-                If pdf_mail = "PDF" Then
+
-                    saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
+                Select Case pdf_mail
-                ElseIf pdf_mail = "PDFMAIL" Then
+                    Case cANHANGSART_ADDIN.PDF : saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
-                    saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
+                    Case cANHANGSART_ADDIN.YMAIL : saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
-                    saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
+                    Case cANHANGSART_ADDIN.PDFANDMAIL : saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art) : saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
-                ElseIf pdf_mail = "PDF_DATENSERVER" Then
+                    Case cANHANGSART_ADDIN.PDF_DATENSERVER : saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
-                    saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender,, kdNr)
+                    Case cANHANGSART_ADDIN.MAIL_DATENSERVER : saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr, enableOverwritting)
-                    saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
+                    Case cANHANGSART_ADDIN.PDFANDMAIL_DATENSERVER : saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr) : saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
-                ElseIf pdf_mail = "ONLYPDF_DATENSERVER" Then
+                    Case Else
-                    saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
+                        saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
-                ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
+                End Select
-                    saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr)
+
-                Else 'ONLYMAIL
+                'If pdf_mail = "PDF" Then
-                    saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
+                '    saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
-                End If
+                'ElseIf pdf_mail = "PDFANDMAIL" Then
+                '    saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
+                '    saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
+                'ElseIf pdf_mail = "PDFANDMAIL_DATENSERVER" Then
+                '    saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender,, kdNr)
+                '    saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr)
+                'ElseIf pdf_mail = "ONLYPDF_DATENSERVER" Then
+                '    saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, BezAnhang, sender, kdNr, enableOverwritting)
+                'ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
+                '    saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung, sender, , kdNr)
+                'Else 'ONLYMAIL
+                '    saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
+                'End If
             End If
 
         Catch ex As Exception
@@ -704,41 +740,51 @@ Public Class AVISO_Mail_Functions
 
             Dim dt As New DataTable()
             dt.Columns.AddRange({
-                New DataColumn("Record"),
+    New DataColumn("Record"),
-                New DataColumn("Consignee"),
+    New DataColumn("Consignee"),
-                New DataColumn("Quantity"),
+    New DataColumn("Quantity"),
-                New DataColumn("GrossWeight"),
+    New DataColumn("GrossWeight"),
-                New DataColumn("OrderCustoms"),
+    New DataColumn("OrderCustoms"),
-                New DataColumn("OperationType"),
+    New DataColumn("Address"),
-                New DataColumn("Description"),
+    New DataColumn("Code"),
-                New DataColumn("LinkText"),
+    New DataColumn("OperationType"),
-                New DataColumn("LinkUrl")
+    New DataColumn("Links") ' store ALL links (doc + cmr)
-            })
+})
 
             Dim doc As New HtmlAgilityPack.HtmlDocument()
             doc.LoadHtml(mailItem.HTMLBody)
 
-            Dim rows = doc.DocumentNode.SelectNodes("//tr[td]")
+            Dim rows = doc.DocumentNode.SelectNodes("//tr")
 
             If rows Is Nothing Then Return dt
 
             For Each row In rows
+
                 Dim cells = row.SelectNodes("td")
-                If cells Is Nothing OrElse cells.Count < 8 Then Continue For
+                If cells Is Nothing Then Continue For
 
-                Dim linkNode = cells(7).SelectSingleNode(".//a")
+                Dim recordText As String = Clean(cells(0).InnerText)
 
-                dt.Rows.Add(
+                If Not IsNumeric(recordText) Then Continue For
-                    Clean(cells(0).InnerText),
+
-                    Clean(cells(1).InnerText),
+                Dim linkNodes = row.SelectNodes(".//a")
-                    Clean(cells(2).InnerText),
+                Dim links As New List(Of String)
-                    Clean(cells(3).InnerText),
+
-                    Clean(cells(4).InnerText),
+                If linkNodes IsNot Nothing Then
-                    Clean(cells(5).InnerText),
+                    For Each ln In linkNodes
-                    Clean(cells(6).InnerText),
+                        Dim href = ln.GetAttributeValue("href", "")
-                    If(linkNode IsNot Nothing, Clean(linkNode.InnerText), ""),
+                        If href <> "" Then links.Add(href)
-                    If(linkNode IsNot Nothing, linkNode.GetAttributeValue("href", ""), "")
+                    Next
-                )
+                End If
+
+                Dim GetCell = Function(index As Integer) As String
+                                  If cells.Count > index Then
+                                      Return Clean(cells(index).InnerText)
+                                  End If
+                                  Return ""
+                              End Function
+
+                dt.Rows.Add(recordText, GetCell(1), GetCell(2), GetCell(3), GetCell(4), GetCell(5), GetCell(6), GetCell(7), String.Join("|", links))
 
             Next
 
@@ -747,54 +793,59 @@ Public Class AVISO_Mail_Functions
             Dim sendungsNrOld As String = ""
             Dim missingDocuments As String = ""
 
-            For Each r In dt.Rows
+            For Each r As DataRow In dt.Rows
 
-                If r("LinkUrl") <> "" AndAlso r("LinkUrl").ToString.Contains("https://web01.ekoltransport.com.tr/dfdsdocumentservice/download/") Then
+                Dim links = r("Links").ToString().Split("|"c)
 
-                    Dim link As String = r("LinkUrl")
+                For Each linkRaw In links
 
-                    If link.EndsWith("%20") And link.Length > 3 Then
+                    If String.IsNullOrWhiteSpace(linkRaw) Then Continue For
-                        link = link.Remove(link.Length - 3)
-                    End If
 
-                    Dim sendungsNr As String = r("Record")
+                    If linkRaw.Contains("dfdsdocumentservice/download") Or linkRaw.Contains("quadronet.dfds.com/link") Then
 
-                        Dim Descr As String = r("Description")
+                        Dim link As String = linkRaw.Trim()
 
-                        If Descr <> "" Then
+                        If link.EndsWith("%20") Then
-                            Descr = Descr.ToString.Replace(";", "_")
+                            link = link.Substring(0, link.Length - 3)
-                            Descr = Descr.ToString.Replace(".", "_")
+                        End If
-                            Descr = Descr.ToString.Replace(" ", "_")
+
-                            Descr = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(Descr)
+                        Dim sendungsNr As String = r("Record").ToString()
+                        Dim descr As String = r("Consignee").ToString()
+
+                        If descr <> "" Then
+                            descr = descr.Replace(";", "_").Replace(".", "_").Replace(" ", "_")
+
+                            descr = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(descr)
                         End If
 
                         If sendungsNrOld <> "" AndAlso sendungsNrOld <> sendungsNr Then
                             counter = 1
                         End If
 
-                    Dim file = VERAG_PROG_ALLGEMEIN.cFormularManager.getFile_FromURLStream(link, r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, ""),, False)
+                        Dim filename As String = sendungsNr & "_" & counter &
+                                    If(descr <> "", "_" & descr, "")
 
-                    If IO.File.Exists(file) Then
+                        Dim file = VERAG_PROG_ALLGEMEIN.cFormularManager.getFile_FromURLStream_NEW(link, filename,, False)
-                        ATT.Add(file)
 
-                    Else
+                        If IO.File.Exists(file) Then
-                        If missingDocuments <> "" Then
+                            ATT.Add(file)
-                                missingDocuments &= vbNewLine & r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, "")
+                        Else
+                            If missingDocuments <> "" Then
+                                missingDocuments &= vbNewLine & filename
                             Else
-                                missingDocuments = "fehlende Dokumente: " & vbNewLine & r("Record") & "_" & counter & "_" & IIf(Descr <> "", Descr, "")
+                                missingDocuments = "fehlende Dokumente:" & vbNewLine & filename
                             End If
                         End If
 
                         counter += 1
-
+                        sendungsNrOld = sendungsNr
-                        sendungsNrOld = r("Record")
 
                     End If
 
+                Next
 
             Next
 
-
             If missingDocuments <> "" Then
                 INFO = missingDocuments
             End If
@@ -1057,7 +1108,7 @@ Public Class AVISO_Mail_Functions
                 Dim path = DS.uploadDataToDATENSERVER(strTmpPath)
                 If path Then
                     Dim c As New cKundenVollmachten(AvisoId)
-                    If bezeichnung.EndsWith(".pdf") Then
+                    If bezeichnung.ToLower.EndsWith(".pdf") Then
                         c.kdvm_datenarchivId = DS.da_id
                     Else
                         c.kdvm_emailId = DS.da_id
@@ -1067,14 +1118,27 @@ Public Class AVISO_Mail_Functions
 
             Case "btnVertraege"
 
-                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & AvisoId, kdNr, multifiles)
+                'Bei Verträge können PDF und MAIL angehängt werden!
-                Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
-                If path Then
-                    Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
-                    KV.kv_datenarchivId = DS.da_id
-                    KV.SAVE()
-                End If
 
+                If bezeichnung.ToLower.EndsWith(".pdf") Then
+                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & AvisoId, kdNr, multifiles)
+                    Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
+                    If path Then
+                        Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
+                        KV.kv_datenarchivId = DS.da_id
+                        KV.SAVE()
+                    End If
+
+                Else
+                    Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & AvisoId, kdNr, multifiles)
+                    Dim path = DS.uploadDataToDATENSERVER(strTmpPath,,,,,, enableOverweriting)
+                    If path Then
+                        Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(AvisoId)
+                        KV.kv_datenarchivId_mail = DS.da_id
+                        KV.SAVE()
+                    End If
+
+                End If
 
             Case "btnGestellungsgarantien"