Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Aviso/App.config

@@ -69,7 +69,7 @@
       </dependentAssembly>
       <dependentAssembly>
         <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-4.0.4.1" newVersion="4.0.4.1" />
+        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
       </dependentAssembly>
     </assemblyBinding>
   </runtime>

Aviso/Aviso.vbproj

@@ -150,6 +150,9 @@
     <Reference Include="DocumentFormat.OpenXml, Version=2.7.2.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
       <HintPath>..\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
     </Reference>
+    <Reference Include="EAGetMail, Version=5.3.5.0, Culture=neutral, PublicKeyToken=e10a0812eb29cf94, processorArchitecture=MSIL">
+      <HintPath>..\packages\EAGetMail.5.3.5\lib\net461\EAGetMail.dll</HintPath>
+    </Reference>
     <Reference Include="Gemeinsames">
       <HintPath>..\Gemeinsames\bin\Debug\Gemeinsames.dll</HintPath>
     </Reference>
@@ -292,8 +295,8 @@
       <HintPath>..\..\..\dll\Spire.PDF\2023\Spire.PdfViewer.Forms.dll</HintPath>
     </Reference>
     <Reference Include="System" />
-    <Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Buffers.4.4.0\lib\netstandard2.0\System.Buffers.dll</HintPath>
+      <HintPath>..\packages\System.Buffers.4.5.1\lib\net461\System.Buffers.dll</HintPath>
     </Reference>
     <Reference Include="System.Configuration" />
     <Reference Include="System.Data" />
@@ -311,18 +314,24 @@
       <HintPath>..\packages\System.IO.Packaging.4.0.0\lib\net46\System.IO.Packaging.dll</HintPath>
     </Reference>
     <Reference Include="System.Management" />
-    <Reference Include="System.Memory, Version=4.0.1.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+    <Reference Include="System.Memory, Version=4.0.1.2, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Memory.4.5.0\lib\netstandard2.0\System.Memory.dll</HintPath>
+      <HintPath>..\packages\System.Memory.4.5.5\lib\net461\System.Memory.dll</HintPath>
     </Reference>
     <Reference Include="System.Numerics" />
-    <Reference Include="System.Numerics.Vectors, Version=4.1.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="System.Numerics.Vectors, Version=4.1.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Numerics.Vectors.4.4.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
+      <HintPath>..\packages\System.Numerics.Vectors.4.5.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
     </Reference>
-    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
-      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.2\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
     </Reference>
     <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
     <Reference Include="System.Security" />
+    <Reference Include="System.Security.Cryptography.Pkcs, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Pkcs.8.0.0\lib\net462\System.Security.Cryptography.Pkcs.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Text.Encoding.CodePages, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Text.Encoding.CodePages.8.0.0\lib\net462\System.Text.Encoding.CodePages.dll</HintPath>
+    </Reference>
     <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
       <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.2\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath>
     </Reference>
@@ -555,12 +564,24 @@
     <Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmATZollEingereichtSetzenEV.Designer.vb">
+      <DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmATZollEingereichtSetzenEV.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmAvisoAnhangsarten.Designer.vb">
       <DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
     </Compile>
     <Compile Include="frmAvisoAnhangsarten.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmAvisoBirthday.Designer.vb">
+      <DependentUpon>frmAvisoBirthday.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmAvisoBirthday.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmDigicust.Designer.vb">
       <DependentUpon>frmDigicust.vb</DependentUpon>
     </Compile>
@@ -943,6 +964,12 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="rCntrlVermerke.Designer.vb">
+      <DependentUpon>rCntrlVermerke.vb</DependentUpon>
+    </Compile>
+    <Compile Include="rCntrlVermerke.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="rptAuswertung.designer.vb">
       <DependentUpon>rptAuswertung.vb</DependentUpon>
     </Compile>
@@ -1149,9 +1176,15 @@
     <EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
       <DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmATZollEingereichtSetzenEV.resx">
+      <DependentUpon>frmATZollEingereichtSetzenEV.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmAvisoAnhangsarten.resx">
       <DependentUpon>frmAvisoAnhangsarten.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmAvisoBirthday.resx">
+      <DependentUpon>frmAvisoBirthday.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmDigicust.resx">
       <DependentUpon>frmDigicust.vb</DependentUpon>
     </EmbeddedResource>
@@ -1345,6 +1378,9 @@
       <SubType>Designer</SubType>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>
     </EmbeddedResource>
+    <EmbeddedResource Include="rCntrlVermerke.resx">
+      <DependentUpon>rCntrlVermerke.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="rptAuswertung.resx">
       <DependentUpon>rptAuswertung.vb</DependentUpon>
     </EmbeddedResource>
@@ -1567,6 +1603,7 @@
     <None Include="Resources\atr.png" />
     <None Include="Resources\atr_s.png" />
     <Content Include="Resources\ambar_boarder.png" />
+    <None Include="Resources\birthday_4.jpg" />
     <Content Include="Resources\FO.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>
@@ -1578,6 +1615,12 @@
     <None Include="Resources\vorauszahlung_bg.jpg" />
     <None Include="Resources\handy2.png" />
     <None Include="Resources\wiki.png" />
+    <None Include="Resources\memories0.png" />
+    <None Include="Resources\memories1.png" />
+    <None Include="Resources\memories2.png" />
+    <None Include="Resources\memories3.png" />
+    <None Include="Resources\memories4.png" />
+    <None Include="Resources\memories5.png" />
     <Content Include="Resources\WLAN\RunNHide.exe">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

Aviso/My Project/Resources.Designer.vb

@@ -428,6 +428,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property birthday_4() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("birthday_4", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -968,6 +978,66 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property memories0() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("memories0", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property memories1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("memories1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property memories2() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("memories2", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property memories3() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("memories3", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property memories4() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("memories4", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property memories5() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("memories5", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Aviso/My Project/Resources.resx

@@ -190,9 +190,6 @@
   <data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -238,6 +235,9 @@
   <data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -250,6 +250,9 @@
   <data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="urgent" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\urgent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -280,9 +283,6 @@
   <data name="auftrag3" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\auftrag3.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="NKD" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\NKD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -295,9 +295,6 @@
   <data name="vorauszahlung11" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -328,9 +325,6 @@
   <data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -358,9 +352,6 @@
   <data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -388,9 +379,6 @@
   <data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -409,6 +397,12 @@
   <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
+  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -433,6 +427,9 @@
   <data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -487,12 +484,18 @@
   <data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\bin\Debug\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -505,6 +508,9 @@
   <data name="ok" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -550,8 +556,8 @@
   <data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -589,8 +595,8 @@
   <data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -613,14 +619,14 @@
   <data name="word" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -628,8 +634,8 @@
   <data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -646,11 +652,11 @@
   <data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="asdas2d1a" xml:space="preserve">
     <value />
@@ -664,10 +670,25 @@
   <data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="wiki" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="birthday_4" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\wiki.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\birthday_4.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ambar_boarder" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\bin\Debug\Resources\ambar_boarder.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="memories1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="memories3" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="memories4" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="memories5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\memories5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Aviso/frmATZollEingereichtSetzenEV.Designer.vb

@@ -0,0 +1,354 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmATZollEingereichtSetzenEV
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATZollEingereichtSetzenEV))
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.lblAbfNr = New System.Windows.Forms.Label()
+        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.cbxRG2 = New System.Windows.Forms.CheckBox()
+        Me.cbxRG1 = New System.Windows.Forms.CheckBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.lblWare = New System.Windows.Forms.Label()
+        Me.lblAbs = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblNr = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.cbxEmpf = New System.Windows.Forms.CheckBox()
+        Me.lblAuftr = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.pnl.SuspendLayout()
+        Me.GroupBox3.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.GroupBox1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'pnl
+        '
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.Label8)
+        Me.pnl.Controls.Add(Me.GroupBox1)
+        Me.pnl.Controls.Add(Me.Label7)
+        Me.pnl.Controls.Add(Me.lblAbfNr)
+        Me.pnl.Controls.Add(Me.GroupBox3)
+        Me.pnl.Controls.Add(Me.Panel1)
+        Me.pnl.Controls.Add(Me.lblWare)
+        Me.pnl.Controls.Add(Me.lblAbs)
+        Me.pnl.Controls.Add(Me.Label4)
+        Me.pnl.Controls.Add(Me.Label5)
+        Me.pnl.Controls.Add(Me.btn)
+        Me.pnl.Controls.Add(Me.Label3)
+        Me.pnl.Controls.Add(Me.Panel3)
+        Me.pnl.Controls.Add(Me.lblAuftr)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(621, 409)
+        Me.pnl.TabIndex = 0
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(451, 125)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(108, 13)
+        Me.Label7.TabIndex = 78
+        Me.Label7.Text = "Filiale/AbfertigungsNr"
+        '
+        'lblAbfNr
+        '
+        Me.lblAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lblAbfNr.Location = New System.Drawing.Point(450, 138)
+        Me.lblAbfNr.Name = "lblAbfNr"
+        Me.lblAbfNr.Size = New System.Drawing.Size(158, 26)
+        Me.lblAbfNr.TabIndex = 77
+        Me.lblAbfNr.Text = "4803/23999999"
+        '
+        'GroupBox3
+        '
+        Me.GroupBox3.Controls.Add(Me.cbxRG2)
+        Me.GroupBox3.Controls.Add(Me.cbxRG1)
+        Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox3.Location = New System.Drawing.Point(14, 249)
+        Me.GroupBox3.Name = "GroupBox3"
+        Me.GroupBox3.Size = New System.Drawing.Size(336, 86)
+        Me.GroupBox3.TabIndex = 58
+        Me.GroupBox3.TabStop = False
+        Me.GroupBox3.Text = "Auf Rechnung"
+        '
+        'cbxRG2
+        '
+        Me.cbxRG2.AutoSize = True
+        Me.cbxRG2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxRG2.Location = New System.Drawing.Point(6, 45)
+        Me.cbxRG2.Name = "cbxRG2"
+        Me.cbxRG2.Size = New System.Drawing.Size(314, 30)
+        Me.cbxRG2.TabIndex = 1
+        Me.cbxRG2.Text = "Der Text zur steuerlichen Vertretung in AT/DE durch VERAG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ist auf der Rechnung a" &
+    "ufgedruckt."
+        Me.cbxRG2.UseVisualStyleBackColor = True
+        '
+        'cbxRG1
+        '
+        Me.cbxRG1.AutoSize = True
+        Me.cbxRG1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxRG1.Location = New System.Drawing.Point(6, 22)
+        Me.cbxRG1.Name = "cbxRG1"
+        Me.cbxRG1.Size = New System.Drawing.Size(248, 17)
+        Me.cbxRG1.TabIndex = 0
+        Me.cbxRG1.Text = "AT-UID Nummer des Absenders auf Rechnung"
+        Me.cbxRG1.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.Panel2)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Controls.Add(Me.Label6)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(619, 41)
+        Me.Panel1.TabIndex = 53
+        '
+        'Panel2
+        '
+        Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Panel2.Location = New System.Drawing.Point(535, 41)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(85, 63)
+        Me.Panel2.TabIndex = 76
+        '
+        'Button1
+        '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button1.BackColor = System.Drawing.Color.Red
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(534, -1)
+        Me.Button1.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(85, 33)
+        Me.Button1.TabIndex = 1
+        Me.Button1.Text = "x"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Label6
+        '
+        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label6.ForeColor = System.Drawing.Color.White
+        Me.Label6.Location = New System.Drawing.Point(13, 6)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(467, 26)
+        Me.Label6.TabIndex = 51
+        Me.Label6.Text = "Checkliste"
+        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'lblWare
+        '
+        Me.lblWare.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lblWare.Location = New System.Drawing.Point(10, 217)
+        Me.lblWare.Name = "lblWare"
+        Me.lblWare.Size = New System.Drawing.Size(587, 26)
+        Me.lblWare.TabIndex = 51
+        Me.lblWare.Text = "PCK"
+        '
+        'lblAbs
+        '
+        Me.lblAbs.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lblAbs.Location = New System.Drawing.Point(10, 138)
+        Me.lblAbs.Name = "lblAbs"
+        Me.lblAbs.Size = New System.Drawing.Size(435, 26)
+        Me.lblAbs.TabIndex = 50
+        Me.lblAbs.Text = "Absender:"
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(11, 125)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(50, 13)
+        Me.Label4.TabIndex = 48
+        Me.Label4.Text = "Abender:"
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(11, 204)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(36, 13)
+        Me.Label5.TabIndex = 49
+        Me.Label5.Text = "Ware:"
+        '
+        'btn
+        '
+        Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.btn.ForeColor = System.Drawing.Color.White
+        Me.btn.Location = New System.Drawing.Point(402, 334)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(206, 62)
+        Me.btn.TabIndex = 0
+        Me.btn.Text = "Weiter >>" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Bestätigen)"
+        Me.btn.UseVisualStyleBackColor = False
+        '
+        'Label3
+        '
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, System.Drawing.FontStyle.Bold)
+        Me.Label3.Location = New System.Drawing.Point(6, 54)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(469, 57)
+        Me.Label3.TabIndex = 52
+        Me.Label3.Text = "Veranlagungskunde!"
+        '
+        'Panel3
+        '
+        Me.Panel3.BackColor = System.Drawing.Color.AntiqueWhite
+        Me.Panel3.Controls.Add(Me.Label2)
+        Me.Panel3.Controls.Add(Me.lblNr)
+        Me.Panel3.Location = New System.Drawing.Point(533, 41)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(87, 57)
+        Me.Panel3.TabIndex = 76
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(20, 3)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(49, 13)
+        Me.Label2.TabIndex = 77
+        Me.Label2.Text = "Send.Nr."
+        '
+        'lblNr
+        '
+        Me.lblNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold)
+        Me.lblNr.Location = New System.Drawing.Point(5, 18)
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Size = New System.Drawing.Size(78, 34)
+        Me.lblNr.TabIndex = 75
+        Me.lblNr.Text = "99"
+        Me.lblNr.TextAlign = System.Drawing.ContentAlignment.TopCenter
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.cbxEmpf)
+        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox1.Location = New System.Drawing.Point(356, 249)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(250, 57)
+        Me.GroupBox1.TabIndex = 59
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "ODER:"
+        '
+        'cbxEmpf
+        '
+        Me.cbxEmpf.AutoSize = True
+        Me.cbxEmpf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxEmpf.Location = New System.Drawing.Point(6, 22)
+        Me.cbxEmpf.Name = "cbxEmpf"
+        Me.cbxEmpf.Size = New System.Drawing.Size(192, 17)
+        Me.cbxEmpf.TabIndex = 0
+        Me.cbxEmpf.Text = "Es wird auf den Empfänger verzollt!"
+        Me.cbxEmpf.UseVisualStyleBackColor = True
+        '
+        'lblAuftr
+        '
+        Me.lblAuftr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lblAuftr.Location = New System.Drawing.Point(10, 177)
+        Me.lblAuftr.Name = "lblAuftr"
+        Me.lblAuftr.Size = New System.Drawing.Size(435, 26)
+        Me.lblAuftr.TabIndex = 80
+        Me.lblAuftr.Text = "Absender:"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(11, 164)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(71, 13)
+        Me.Label8.TabIndex = 79
+        Me.Label8.Text = "Auftraggeber:"
+        '
+        'frmATZollEingereichtSetzenEV
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.ClientSize = New System.Drawing.Size(621, 409)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmATZollEingereichtSetzenEV"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "AT Zoll Einreichen Fiskal - Checkliste"
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
+        Me.GroupBox3.ResumeLayout(False)
+        Me.GroupBox3.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents pnl As Panel
+    Friend WithEvents Button1 As Button
+    Friend WithEvents btn As Button
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents GroupBox3 As GroupBox
+    Friend WithEvents cbxRG2 As CheckBox
+    Friend WithEvents cbxRG1 As CheckBox
+    Friend WithEvents lblWare As Label
+    Friend WithEvents lblAbs As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents lblNr As Label
+    Friend WithEvents Panel2 As Panel
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents lblAbfNr As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents cbxEmpf As CheckBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents lblAuftr As Label
+End Class

Aviso/frmATZollEingereichtSetzenEV.vb

@@ -0,0 +1,92 @@
+Imports SDL
+Imports SDL.EORI
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmATZollEingereichtSetzenEV
+
+    Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
+    Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+    Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
+
+    Sub New(AVISO, SND)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        Me.AVISO = AVISO
+        Me.SND = SND
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+
+        If AVISO IsNot Nothing Then
+            lblAbs.Text = If(SND.tblSnd_Absender, "")
+            lblAuftr.Text = If(SND.tblSnd_Auftraggeber, "")
+            lblAbfNr.Text = SND.FilialenNr & "/" & SND.AbfertigungsNr
+            lblWare.Text = If(SND.tblSnd_Gewicht, "") & " kg, " & If(SND.tblSnd_Colli, "") & " Pk. " & If(SND.tblSnd_Warenbezeichnung, "")
+
+        End If
+
+        If SND IsNot Nothing Then
+            If SND.tblSnd_EmpfaengerKdNr > 0 Then
+
+                lblNr.Text = SND.tblSnd_PosUnterNr
+
+                'Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
+                'Dim KUNDEN As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
+                'If ADRESSEN IsNot Nothing Then
+                '    txtUid.Text = If(ADRESSEN.UstIdKz, "") & If(ADRESSEN.UstIdNr, "")
+
+                '    Dim UID_Pruef = VERAG_PROG_ALLGEMEIN.cUIDPruefung.LOADByKdNrNewestDate(SND.tblSnd_EmpfaengerKdNr)
+                '    If UID_Pruef IsNot Nothing Then
+                '        lblUIDPruefdatum.Text = UID_Pruef.uid_Datum.ToShortDateString
+                '        If UID_Pruef.uid_Datum.ToShortDateString = Now.ToShortDateString Then
+                '            cbxUID.Checked = True
+                '            picUIDAbfrage.Image = My.Resources.ok
+                '        Else
+                '            check_UID_AD(ADRESSEN)
+                '        End If
+                '    End If
+                'Else
+                '    check_UID(txtUid.Text)
+                'End If
+                'If KUNDEN IsNot Nothing Then
+                '    txtEori.Text = If(KUNDEN.EORITIN, "")
+                '    check_EORI(KUNDEN)
+                'End If
+            End If
+        End If
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+
+        If cbxEmpf.Checked Then
+            Me.DialogResult = DialogResult.OK
+        Else
+            If Not cbxRG1.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
+            If Not cbxRG2.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
+            ' AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "UID Prüfung Begründung: " & Txt, 47)
+
+            Me.DialogResult = DialogResult.OK
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.DialogResult = DialogResult.Cancel
+    End Sub
+
+    Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
+        If e.KeyCode = Keys.Return Then
+            btn.PerformClick()
+        End If
+    End Sub
+
+
+
+
+
+End Class

Aviso/frmAddAktenvermerkShort.vb

@@ -169,6 +169,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
         End If
 
         Dim tmpSndId = -1
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
 
         'Plausibilität prüfen
@@ -183,13 +184,13 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
             Else
 
                 '--------------------------------------------------------------------------------------------------------------------------------------------------------
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
+                'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
-                    'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
+                Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-                    Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+                VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
-                    VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
+                If SENDUNG_LIST IsNot Nothing Then
-                    If SENDUNG_LIST IsNot Nothing Then
 
-                        For Each SND In SENDUNG_LIST
+                    For Each SND In SENDUNG_LIST
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
                             Select Case SND.tblSnd_Abfertigungsart_ID
                                 Case 28 ' --> DE FISKAL
 
@@ -202,8 +203,25 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                                     End If
 
                             End Select
-                        Next
+                        End If
-                    End If
+                        '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+                        'VERANLAGUNGSKUNDE
+                        If SQL.getValueTxtBySql("SELECT COUNT(*) FROM  [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
+
+                            Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
+                            If f.ShowDialog() = DialogResult.OK Then
+                                If f.cbxEmpf.Checked Then
+                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
+                                Else
+                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
+                                End If
+                            Else
+                                Exit Sub ' --> YOU'RE OUT!
+                            End If
+                        End If
+                        '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+                    Next
+
                 End If
                 '--------------------------------------------------------------------------------------------------------------------------------------------------------
 
@@ -218,7 +236,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                 'End If
             End If
         ElseIf sender Is btnDEZollDIGITAL Then
-            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
             If sender.tag = "SWITCH" Then
                 insertVermerk("DE Zoll (DIGITAL) fertig", 83)
                 If myAviso.LKW_fertig Then VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
@@ -229,14 +247,14 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
             Else
 
                 '--------------------------------------------------------------------------------------------------------------------------------------------------------
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
+                'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
-                    'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
+                Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-                    Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
                     VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
 
                     If SENDUNG_LIST IsNot Nothing Then
 
                         For Each SND In SENDUNG_LIST
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
                             Select Case SND.tblSnd_Abfertigungsart_ID
                                 Case 28 ' --> DE FISKAL
 
@@ -249,9 +267,26 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                                     End If
 
                             End Select
+                        End If
+                        '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+                        'VERANLAGUNGSKUNDE
+                        If SQL.getValueTxtBySql("SELECT COUNT(*) FROM  [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
+
+                                Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
+                                If f.ShowDialog() = DialogResult.OK Then
+                                    If f.cbxEmpf.Checked Then
+                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
+                                Else
+                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
+                                End If
+                                Else
+                                    Exit Sub ' --> YOU'RE OUT!
+                                End If
+                            End If
+                            '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
                         Next
                     End If
-                End If
+
                 '--------------------------------------------------------------------------------------------------------------------------------------------------------
 
                 insertVermerk("DE Zoll DIGITAL eingereicht", 82)
@@ -266,14 +301,15 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
 
 
                 '--------------------------------------------------------------------------------------------------------------------------------------------------------
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
+                Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-                    'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
+                VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
-                    Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
-                    VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoID) 'LÄDT alle SENDUNGSDATEN
 
                     If SENDUNG_LIST IsNot Nothing Then
 
                         For Each SND In SENDUNG_LIST
+                        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ATDE_FISKAL_CHECKLISTE") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "AVISO") Then
+                            'Sendungen durchlaufen und die Fiskal - Checkliste bei AT Fiskal anzeigen (je SND)
+
                             Select Case SND.tblSnd_Abfertigungsart_ID
                                 Case 26 ' --> AT FISKAL
 
@@ -285,13 +321,36 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
                                         Exit Sub ' --> YOU'RE OUT!
                                     End If
 
-                            End Select
-                        Next
-                    End If
-                End If
-                '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
 
 
+                            End Select
+
+                        End If
+
+
+                        '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+                        'VERANLAGUNGSKUNDE
+                        If sql.getValueTxtBySql("SELECT COUNT(*) FROM  [tblKundenErweitert] where [Veranlagungskunde]=1 and kde_KundenNr IN ('" & SND.tblSnd_AbsenderKdNr & "','" & SND.tblSnd_AuftraggeberKdNr & "')", "FMZOLL") > 0 Then
+
+                            Dim f As New frmATZollEingereichtSetzenEV(myAviso, SND)
+                            If f.ShowDialog() = DialogResult.OK Then
+                                If f.cbxEmpf.Checked Then
+                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK (ZA auf Empf)", 114)
+                                Else
+                                    AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, myAviso.AvisoID, "Veranlagungs-Checkliste - OK", 113)
+                                End If
+                            Else
+                                Exit Sub ' --> YOU'RE OUT!
+                            End If
+                        End If
+                        '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+                    Next
+
+
+                End If
+
+                '-------------------------------------------------------------------------------------------------------------------------------------------------------- 
+
                 insertVermerk("AT Zoll eingereicht", 19)
 
                     'If vbYes = MsgBox("Fahrer-Anweisung ""zum Zollamt gehen"" ausdrucken?", vbYesNo) Then

Aviso/frmAvisoBirthday.Designer.vb

@@ -0,0 +1,215 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmAvisoBirthday
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAvisoBirthday))
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
+        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.MyTextBox3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Panel1.SuspendLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.White
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.MyTextBox1)
+        Me.Panel1.Controls.Add(Me.Button2)
+        Me.Panel1.Controls.Add(Me.MyTextBox2)
+        Me.Panel1.Controls.Add(Me.RichTextBox1)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Controls.Add(Me.PictureBox2)
+        Me.Panel1.Controls.Add(Me.MyTextBox3)
+        Me.Panel1.Controls.Add(Me.PictureBox1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(800, 982)
+        Me.Panel1.TabIndex = 0
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(586, 908)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(182, 61)
+        Me.Button2.TabIndex = 6
+        Me.Button2.Text = "OK"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'MyTextBox2
+        '
+        Me.MyTextBox2._DateTimeOnly = False
+        Me.MyTextBox2._numbersOnly = False
+        Me.MyTextBox2._numbersOnlyKommastellen = ""
+        Me.MyTextBox2._numbersOnlyTrennzeichen = True
+        Me.MyTextBox2._Prozent = False
+        Me.MyTextBox2._ShortDateNew = False
+        Me.MyTextBox2._ShortDateOnly = False
+        Me.MyTextBox2._TimeOnly = False
+        Me.MyTextBox2._TimeOnly_Seconds = False
+        Me.MyTextBox2._value = "Glückwünsche senden:"
+        Me.MyTextBox2._Waehrung = False
+        Me.MyTextBox2._WaehrungZeichen = True
+        Me.MyTextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox2.Location = New System.Drawing.Point(22, 887)
+        Me.MyTextBox2.MaxLineLength = -1
+        Me.MyTextBox2.MaxLines_Warning = ""
+        Me.MyTextBox2.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox2.Name = "MyTextBox2"
+        Me.MyTextBox2.Size = New System.Drawing.Size(224, 19)
+        Me.MyTextBox2.TabIndex = 5
+        Me.MyTextBox2.Text = "Glückwünsche senden:"
+        '
+        'MyTextBox1
+        '
+        Me.MyTextBox1._DateTimeOnly = False
+        Me.MyTextBox1._numbersOnly = False
+        Me.MyTextBox1._numbersOnlyKommastellen = ""
+        Me.MyTextBox1._numbersOnlyTrennzeichen = True
+        Me.MyTextBox1._Prozent = False
+        Me.MyTextBox1._ShortDateNew = False
+        Me.MyTextBox1._ShortDateOnly = False
+        Me.MyTextBox1._TimeOnly = False
+        Me.MyTextBox1._TimeOnly_Seconds = False
+        Me.MyTextBox1._value = "Erinnerungen..."
+        Me.MyTextBox1._Waehrung = False
+        Me.MyTextBox1._WaehrungZeichen = True
+        Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyTextBox1.ForeColor = System.Drawing.Color.DarkBlue
+        Me.MyTextBox1.Location = New System.Drawing.Point(22, 340)
+        Me.MyTextBox1.MaxLineLength = -1
+        Me.MyTextBox1.MaxLines_Warning = ""
+        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox1.Name = "MyTextBox1"
+        Me.MyTextBox1.Size = New System.Drawing.Size(158, 23)
+        Me.MyTextBox1.TabIndex = 4
+        Me.MyTextBox1.Text = "Erinnerungen..."
+        '
+        'RichTextBox1
+        '
+        Me.RichTextBox1.Location = New System.Drawing.Point(22, 908)
+        Me.RichTextBox1.Name = "RichTextBox1"
+        Me.RichTextBox1.Size = New System.Drawing.Size(295, 61)
+        Me.RichTextBox1.TabIndex = 3
+        Me.RichTextBox1.Text = ""
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(323, 908)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(100, 61)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Senden"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox2.Location = New System.Drawing.Point(22, 369)
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.Size = New System.Drawing.Size(746, 513)
+        Me.PictureBox2.TabIndex = 1
+        Me.PictureBox2.TabStop = False
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.BackColor = System.Drawing.Color.White
+        Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.birthday_4
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox1.Location = New System.Drawing.Point(22, -1)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(746, 278)
+        Me.PictureBox1.TabIndex = 0
+        Me.PictureBox1.TabStop = False
+        '
+        'MyTextBox3
+        '
+        Me.MyTextBox3._DateTimeOnly = False
+        Me.MyTextBox3._numbersOnly = False
+        Me.MyTextBox3._numbersOnlyKommastellen = ""
+        Me.MyTextBox3._numbersOnlyTrennzeichen = True
+        Me.MyTextBox3._Prozent = False
+        Me.MyTextBox3._ShortDateNew = False
+        Me.MyTextBox3._ShortDateOnly = False
+        Me.MyTextBox3._TimeOnly = False
+        Me.MyTextBox3._TimeOnly_Seconds = False
+        Me.MyTextBox3._value = resources.GetString("MyTextBox3._value")
+        Me.MyTextBox3._Waehrung = False
+        Me.MyTextBox3._WaehrungZeichen = True
+        Me.MyTextBox3.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.MyTextBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.MyTextBox3.ForeColor = System.Drawing.Color.Black
+        Me.MyTextBox3.Location = New System.Drawing.Point(23, 268)
+        Me.MyTextBox3.MaxLineLength = -1
+        Me.MyTextBox3.MaxLines_Warning = ""
+        Me.MyTextBox3.MaxLines_Warning_Label = Nothing
+        Me.MyTextBox3.Multiline = True
+        Me.MyTextBox3.Name = "MyTextBox3"
+        Me.MyTextBox3.Size = New System.Drawing.Size(773, 86)
+        Me.MyTextBox3.TabIndex = 7
+        Me.MyTextBox3.Text = resources.GetString("MyTextBox3.Text")
+        Me.MyTextBox3.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
+        '
+        'frmAvisoBirthday
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(800, 982)
+        Me.Controls.Add(Me.Panel1)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.Name = "frmAvisoBirthday"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "frmAvisoBirthday"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents PictureBox1 As PictureBox
+    Friend WithEvents PictureBox2 As PictureBox
+    Friend WithEvents RichTextBox1 As RichTextBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Button2 As Button
+    Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents MyTextBox3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+End Class

Aviso/frmAvisoBirthday.resx

@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="MyTextBox3._value" xml:space="preserve">
+    <value>Das Avsio Programm wird seit 2013 entwickelt und steuert immer mehr Prozesse in unserer Zoll- und Buchhaltungsabteilung.
+
+Aktuell ist die Versionsnummer 4.0.0.0 erreicht!
+In Version 2.x und 3.x gab es noch Versionssprünge, seit 3.0.0.0 (ca. 2017) wurden durchgängig 1.000 Updates (Erweiterungen/Verbesserungen) durchgeführt.</value>
+  </data>
+  <data name="MyTextBox3.Text" xml:space="preserve">
+    <value>Das Avsio Programm wird seit 2013 entwickelt und steuert immer mehr Prozesse in unserer Zoll- und Buchhaltungsabteilung.
+
+Aktuell ist die Versionsnummer 4.0.0.0 erreicht!
+In Version 2.x und 3.x gab es noch Versionssprünge, seit 3.0.0.0 (ca. 2017) wurden durchgängig 1.000 Updates (Erweiterungen/Verbesserungen) durchgeführt.</value>
+  </data>
+</root>

Aviso/frmAvisoBirthday.vb

@@ -0,0 +1,27 @@
+Public Class frmAvisoBirthday
+    Dim cnt As Integer = 0
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag;d.breimaier@verag.ag", "AVISO Congrats - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, RichTextBox1.Text)
+        '
+        Button1.Visible = False
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Close()
+    End Sub
+
+    Private Sub frmAvisoBirthday_Load(sender As Object, e As EventArgs) Handles Me.Load
+        PictureBox2.BackgroundImage = My.Resources.memories0
+    End Sub
+
+    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
+        If cnt = 0 Then : PictureBox2.BackgroundImage = My.Resources.memories1 : cnt += 1
+        ElseIf cnt = 1 Then : PictureBox2.BackgroundImage = My.Resources.memories2 : cnt += 1
+        ElseIf cnt = 2 Then : PictureBox2.BackgroundImage = My.Resources.memories3 : cnt += 1
+        ElseIf cnt = 3 Then : PictureBox2.BackgroundImage = My.Resources.memories4 : cnt += 1
+        ElseIf cnt = 4 Then : PictureBox2.BackgroundImage = My.Resources.memories5 : cnt += 1
+        ElseIf cnt = 5 Then : PictureBox2.BackgroundImage = My.Resources.memories0 : cnt = 0
+        End If
+
+    End Sub
+End Class

Aviso/frmHauptfenster.vb

@@ -2838,6 +2838,16 @@ Public Class frmHauptfenster
         BürgschaftenExcelToolStripMenuItem.Visible = False
 
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA IsNot "VERIMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False Then
+
+            If CInt(Application.ProductVersion.Replace(".", "")) = 4000 Then
+                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                Dim f As New frmAvisoBirthday
+                f.ShowDialog(frmGrayOut)
+                frmGrayOut.Close()
+            End If
+        End If
+
     End Sub
 
     WithEvents timerStart As New Timer

Aviso/frmSendungsdetailsNEU.Designer.vb

@@ -34,6 +34,15 @@ Partial Class frmSendungsdetailsNEU
         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 DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 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()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -127,6 +136,15 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvDigicust = New System.Windows.Forms.DataGridView()
         Me.Panel24 = New System.Windows.Forms.Panel()
         Me.Button19 = New System.Windows.Forms.Button()
+        Me.tbMail = New System.Windows.Forms.TabPage()
+        Me.dgvMail = New System.Windows.Forms.DataGridView()
+        Me.clmnSender = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnRec = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnSbj = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnAtt = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnUIDL = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Panel25 = New System.Windows.Forms.Panel()
+        Me.Button23 = New System.Windows.Forms.Button()
         Me.Panel14 = New System.Windows.Forms.Panel()
         Me.pnlDetails = New System.Windows.Forms.Panel()
         Me.tbcntr = New System.Windows.Forms.TabControl()
@@ -292,6 +310,9 @@ Partial Class frmSendungsdetailsNEU
         Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
         Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.pnlValidation = New System.Windows.Forms.Panel()
+        Me.rtbValidierung = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.Label15 = New System.Windows.Forms.Label()
         Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
         Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
@@ -441,6 +462,8 @@ 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.timerValidation = New System.Windows.Forms.Timer(Me.components)
+        Me.RCntrlVermerke1 = New AVISO.rCntrlVermerke()
         Me.pnl.SuspendLayout()
         Me.Panel4.SuspendLayout()
         Me.TabControl1.SuspendLayout()
@@ -468,6 +491,9 @@ Partial Class frmSendungsdetailsNEU
         Me.tbDigicust.SuspendLayout()
         CType(Me.dgvDigicust, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel24.SuspendLayout()
+        Me.tbMail.SuspendLayout()
+        CType(Me.dgvMail, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel25.SuspendLayout()
         Me.pnlDetails.SuspendLayout()
         Me.tbcntr.SuspendLayout()
         Me.TabPage4.SuspendLayout()
@@ -491,6 +517,7 @@ Partial Class frmSendungsdetailsNEU
         Me.cntxt.SuspendLayout()
         Me.pnlT1.SuspendLayout()
         Me.Panel5.SuspendLayout()
+        Me.pnlValidation.SuspendLayout()
         CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.pnlFremd.SuspendLayout()
@@ -544,6 +571,7 @@ Partial Class frmSendungsdetailsNEU
         Me.TabControl1.Controls.Add(Me.TabPage3)
         Me.TabControl1.Controls.Add(Me.tbATEZ)
         Me.TabControl1.Controls.Add(Me.tbDigicust)
+        Me.TabControl1.Controls.Add(Me.tbMail)
         Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.TabControl1.Location = New System.Drawing.Point(0, 3)
@@ -593,7 +621,7 @@ Partial Class frmSendungsdetailsNEU
         Me.tbAnhang.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
         Me.tbAnhang.Location = New System.Drawing.Point(4, 29)
         Me.tbAnhang.Name = "tbAnhang"
-        Me.tbAnhang.Size = New System.Drawing.Size(1206, 288)
+        Me.tbAnhang.Size = New System.Drawing.Size(1206, 289)
         Me.tbAnhang.TabIndex = 4
         Me.tbAnhang.Text = "Anhang"
         Me.tbAnhang.UseVisualStyleBackColor = True
@@ -611,9 +639,10 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvAnhang.Name = "dgvAnhang"
         Me.dgvAnhang.ReadOnly = True
         Me.dgvAnhang.RowHeadersVisible = False
+        Me.dgvAnhang.RowHeadersWidth = 51
         Me.dgvAnhang.RowTemplate.Height = 40
         Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 243)
+        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 244)
         Me.dgvAnhang.TabIndex = 1
         '
         'btnDirektAnfuegen
@@ -857,7 +886,7 @@ Partial Class frmSendungsdetailsNEU
         Me.tbZollabfertigung.Controls.Add(Me.Panel16)
         Me.tbZollabfertigung.Location = New System.Drawing.Point(4, 29)
         Me.tbZollabfertigung.Name = "tbZollabfertigung"
-        Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 288)
+        Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 289)
         Me.tbZollabfertigung.TabIndex = 2
         Me.tbZollabfertigung.Text = "Zollabfertigung"
         Me.tbZollabfertigung.UseVisualStyleBackColor = True
@@ -871,7 +900,7 @@ Partial Class frmSendungsdetailsNEU
         Me.Panel16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
         Me.Panel16.Location = New System.Drawing.Point(0, 0)
         Me.Panel16.Name = "Panel16"
-        Me.Panel16.Size = New System.Drawing.Size(1206, 288)
+        Me.Panel16.Size = New System.Drawing.Size(1206, 289)
         Me.Panel16.TabIndex = 0
         '
         'dgvZollAnmeldungen
@@ -886,9 +915,10 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvZollAnmeldungen.Location = New System.Drawing.Point(0, 32)
         Me.dgvZollAnmeldungen.Name = "dgvZollAnmeldungen"
         Me.dgvZollAnmeldungen.ReadOnly = True
+        Me.dgvZollAnmeldungen.RowHeadersWidth = 51
         Me.dgvZollAnmeldungen.RowTemplate.Height = 30
         Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 218)
+        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 219)
         Me.dgvZollAnmeldungen.TabIndex = 1
         '
         'Panel17
@@ -897,7 +927,7 @@ Partial Class frmSendungsdetailsNEU
         Me.Panel17.Controls.Add(Me.Button6)
         Me.Panel17.Controls.Add(Me.Button5)
         Me.Panel17.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel17.Location = New System.Drawing.Point(0, 250)
+        Me.Panel17.Location = New System.Drawing.Point(0, 251)
         Me.Panel17.Name = "Panel17"
         Me.Panel17.Size = New System.Drawing.Size(1206, 38)
         Me.Panel17.TabIndex = 2
@@ -934,6 +964,7 @@ Partial Class frmSendungsdetailsNEU
         Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem17, Me.ToolStripMenuItem21, Me.ToolStripMenuItem31, Me.ToolStripMenuItem12, Me.ToolStripMenuItem32})
         Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
         Me.MenuStrip.Name = "MenuStrip"
+        Me.MenuStrip.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
         Me.MenuStrip.Size = New System.Drawing.Size(1206, 32)
         Me.MenuStrip.TabIndex = 0
         '
@@ -961,7 +992,7 @@ Partial Class frmSendungsdetailsNEU
         Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
         Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
-        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(188, 30)
+        Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
         Me.ToolStripMenuItem8.Text = "T1"
         '
         'ToolStripMenuItem9
@@ -969,7 +1000,7 @@ Partial Class frmSendungsdetailsNEU
         Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
         Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
-        Me.ToolStripMenuItem9.Size = New System.Drawing.Size(188, 30)
+        Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
         Me.ToolStripMenuItem9.Text = "T2"
         '
         'ToolStripMenuItem10
@@ -977,7 +1008,7 @@ Partial Class frmSendungsdetailsNEU
         Me.ToolStripMenuItem10.Enabled = False
         Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
         Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
-        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(188, 30)
+        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
         Me.ToolStripMenuItem10.Text = "Ü-T"
         Me.ToolStripMenuItem10.Visible = False
         '
@@ -1102,8 +1133,8 @@ Partial Class frmSendungsdetailsNEU
         Me.TabPage1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
         Me.TabPage1.Location = New System.Drawing.Point(4, 29)
         Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
-        Me.TabPage1.Size = New System.Drawing.Size(1206, 288)
+        Me.TabPage1.Size = New System.Drawing.Size(1206, 289)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Kunden - Zolltarif"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -1119,7 +1150,7 @@ Partial Class frmSendungsdetailsNEU
         Me.pnlKundenZolltarif.Location = New System.Drawing.Point(3, 36)
         Me.pnlKundenZolltarif.MinimumSize = New System.Drawing.Size(2, 103)
         Me.pnlKundenZolltarif.Name = "pnlKundenZolltarif"
-        Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 249)
+        Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 250)
         Me.pnlKundenZolltarif.TabIndex = 1
         Me.pnlKundenZolltarif.TabStop = True
         '
@@ -1128,7 +1159,7 @@ Partial Class frmSendungsdetailsNEU
         Me.Label22.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label22.AutoSize = True
-        Me.Label22.Location = New System.Drawing.Point(4, 208)
+        Me.Label22.Location = New System.Drawing.Point(4, 209)
         Me.Label22.Name = "Label22"
         Me.Label22.Size = New System.Drawing.Size(209, 13)
         Me.Label22.TabIndex = 0
@@ -1140,7 +1171,7 @@ Partial Class frmSendungsdetailsNEU
         Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.AutoSize = True
-        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 222)
+        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 224)
         Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Name = "lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden"
         Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Size = New System.Drawing.Size(338, 13)
         Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.TabIndex = 1
@@ -1185,8 +1216,8 @@ Partial Class frmSendungsdetailsNEU
         Me.TabPage2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
         Me.TabPage2.Location = New System.Drawing.Point(4, 29)
         Me.TabPage2.Name = "TabPage2"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
-        Me.TabPage2.Size = New System.Drawing.Size(1206, 288)
+        Me.TabPage2.Size = New System.Drawing.Size(1206, 289)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Speditionsbuch"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -1203,7 +1234,8 @@ Partial Class frmSendungsdetailsNEU
         Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
         Me.DataGridView.Location = New System.Drawing.Point(3, 94)
         Me.DataGridView.Name = "DataGridView"
-        Me.DataGridView.Size = New System.Drawing.Size(1200, 191)
+        Me.DataGridView.RowHeadersWidth = 51
+        Me.DataGridView.Size = New System.Drawing.Size(1200, 192)
         Me.DataGridView.TabIndex = 1
         '
         'pnlSpedBuchNacherfassung
@@ -1513,6 +1545,7 @@ Partial Class frmSendungsdetailsNEU
         '
         'TabPage3
         '
+        Me.TabPage3.Controls.Add(Me.RCntrlVermerke1)
         Me.TabPage3.Controls.Add(Me.gridVermerke)
         Me.TabPage3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
         Me.TabPage3.Location = New System.Drawing.Point(4, 29)
@@ -1539,6 +1572,7 @@ Partial Class frmSendungsdetailsNEU
         DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.gridVermerke.ColumnHeadersHeight = 29
         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)
@@ -1546,6 +1580,7 @@ Partial Class frmSendungsdetailsNEU
         Me.gridVermerke.Name = "gridVermerke"
         Me.gridVermerke.ReadOnly = True
         Me.gridVermerke.RowHeadersVisible = False
+        Me.gridVermerke.RowHeadersWidth = 51
         Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
         DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
@@ -1565,8 +1600,8 @@ Partial Class frmSendungsdetailsNEU
         Me.tbATEZ.Controls.Add(Me.Panel23)
         Me.tbATEZ.Location = New System.Drawing.Point(4, 29)
         Me.tbATEZ.Name = "tbATEZ"
-        Me.tbATEZ.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbATEZ.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
-        Me.tbATEZ.Size = New System.Drawing.Size(1206, 288)
+        Me.tbATEZ.Size = New System.Drawing.Size(1206, 289)
         Me.tbATEZ.TabIndex = 6
         Me.tbATEZ.Text = "ATEZ"
         Me.tbATEZ.UseVisualStyleBackColor = True
@@ -1588,6 +1623,7 @@ Partial Class frmSendungsdetailsNEU
         DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvATEZNCTS.ColumnHeadersHeight = 29
         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)
@@ -1595,6 +1631,7 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvATEZNCTS.Name = "dgvATEZNCTS"
         Me.dgvATEZNCTS.ReadOnly = True
         Me.dgvATEZNCTS.RowHeadersVisible = False
+        Me.dgvATEZNCTS.RowHeadersWidth = 51
         Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle6
@@ -1604,7 +1641,7 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvATEZNCTS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvATEZNCTS.ShowCellErrors = False
         Me.dgvATEZNCTS.ShowRowErrors = False
-        Me.dgvATEZNCTS.Size = New System.Drawing.Size(1200, 237)
+        Me.dgvATEZNCTS.Size = New System.Drawing.Size(1200, 238)
         Me.dgvATEZNCTS.TabIndex = 105
         Me.dgvATEZNCTS.TabStop = False
         '
@@ -1638,7 +1675,7 @@ Partial Class frmSendungsdetailsNEU
         Me.tbDigicust.Controls.Add(Me.Panel24)
         Me.tbDigicust.Location = New System.Drawing.Point(4, 29)
         Me.tbDigicust.Name = "tbDigicust"
-        Me.tbDigicust.Size = New System.Drawing.Size(1206, 288)
+        Me.tbDigicust.Size = New System.Drawing.Size(1206, 289)
         Me.tbDigicust.TabIndex = 7
         Me.tbDigicust.Text = "Digicust"
         Me.tbDigicust.UseVisualStyleBackColor = True
@@ -1660,6 +1697,7 @@ Partial Class frmSendungsdetailsNEU
         DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
+        Me.dgvDigicust.ColumnHeadersHeight = 29
         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)
@@ -1667,6 +1705,7 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvDigicust.Name = "dgvDigicust"
         Me.dgvDigicust.ReadOnly = True
         Me.dgvDigicust.RowHeadersVisible = False
+        Me.dgvDigicust.RowHeadersWidth = 51
         Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
         DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle9
@@ -1676,7 +1715,7 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvDigicust.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvDigicust.ShowCellErrors = False
         Me.dgvDigicust.ShowRowErrors = False
-        Me.dgvDigicust.Size = New System.Drawing.Size(1206, 243)
+        Me.dgvDigicust.Size = New System.Drawing.Size(1206, 244)
         Me.dgvDigicust.TabIndex = 107
         Me.dgvDigicust.TabStop = False
         '
@@ -1695,7 +1734,7 @@ Partial Class frmSendungsdetailsNEU
         Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button19.Image = Global.AVISO.My.Resources.Resources.plus
         Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button19.Location = New System.Drawing.Point(5, 8)
+        Me.Button19.Location = New System.Drawing.Point(4, 8)
         Me.Button19.Name = "Button19"
         Me.Button19.Size = New System.Drawing.Size(104, 34)
         Me.Button19.TabIndex = 9
@@ -1704,6 +1743,122 @@ Partial Class frmSendungsdetailsNEU
         Me.Button19.UseVisualStyleBackColor = True
         Me.Button19.Visible = False
         '
+        'tbMail
+        '
+        Me.tbMail.Controls.Add(Me.dgvMail)
+        Me.tbMail.Controls.Add(Me.Panel25)
+        Me.tbMail.Location = New System.Drawing.Point(4, 29)
+        Me.tbMail.Name = "tbMail"
+        Me.tbMail.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tbMail.Size = New System.Drawing.Size(1206, 289)
+        Me.tbMail.TabIndex = 8
+        Me.tbMail.Text = "Mail"
+        Me.tbMail.UseVisualStyleBackColor = True
+        '
+        'dgvMail
+        '
+        Me.dgvMail.AllowUserToAddRows = False
+        Me.dgvMail.AllowUserToDeleteRows = False
+        Me.dgvMail.AllowUserToResizeRows = False
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.dgvMail.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
+        Me.dgvMail.ColumnHeadersHeight = 29
+        Me.dgvMail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
+        Me.dgvMail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSender, Me.clmnRec, Me.clmnSbj, Me.clmnAtt, Me.clmnUIDL})
+        Me.dgvMail.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvMail.Location = New System.Drawing.Point(3, 48)
+        Me.dgvMail.MultiSelect = False
+        Me.dgvMail.Name = "dgvMail"
+        Me.dgvMail.ReadOnly = True
+        Me.dgvMail.RowHeadersVisible = False
+        Me.dgvMail.RowHeadersWidth = 51
+        Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle12
+        Me.dgvMail.RowTemplate.Height = 20
+        Me.dgvMail.RowTemplate.ReadOnly = True
+        Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvMail.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvMail.ShowCellErrors = False
+        Me.dgvMail.ShowRowErrors = False
+        Me.dgvMail.Size = New System.Drawing.Size(1200, 238)
+        Me.dgvMail.TabIndex = 109
+        Me.dgvMail.TabStop = False
+        '
+        'clmnSender
+        '
+        Me.clmnSender.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnSender.HeaderText = "Absender"
+        Me.clmnSender.MinimumWidth = 6
+        Me.clmnSender.Name = "clmnSender"
+        Me.clmnSender.ReadOnly = True
+        '
+        'clmnRec
+        '
+        Me.clmnRec.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnRec.HeaderText = "Empfänger"
+        Me.clmnRec.MinimumWidth = 6
+        Me.clmnRec.Name = "clmnRec"
+        Me.clmnRec.ReadOnly = True
+        '
+        'clmnSbj
+        '
+        Me.clmnSbj.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnSbj.HeaderText = "Betreff"
+        Me.clmnSbj.MinimumWidth = 6
+        Me.clmnSbj.Name = "clmnSbj"
+        Me.clmnSbj.ReadOnly = True
+        '
+        'clmnAtt
+        '
+        Me.clmnAtt.HeaderText = "Anhänge"
+        Me.clmnAtt.MinimumWidth = 6
+        Me.clmnAtt.Name = "clmnAtt"
+        Me.clmnAtt.ReadOnly = True
+        Me.clmnAtt.Width = 70
+        '
+        'clmnUIDL
+        '
+        Me.clmnUIDL.HeaderText = "UIDL"
+        Me.clmnUIDL.MinimumWidth = 6
+        Me.clmnUIDL.Name = "clmnUIDL"
+        Me.clmnUIDL.ReadOnly = True
+        Me.clmnUIDL.Width = 200
+        '
+        'Panel25
+        '
+        Me.Panel25.Controls.Add(Me.Button23)
+        Me.Panel25.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel25.Location = New System.Drawing.Point(3, 3)
+        Me.Panel25.Name = "Panel25"
+        Me.Panel25.Size = New System.Drawing.Size(1200, 45)
+        Me.Panel25.TabIndex = 110
+        '
+        'Button23
+        '
+        Me.Button23.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button23.Image = Global.AVISO.My.Resources.Resources.plus
+        Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button23.Location = New System.Drawing.Point(1, 8)
+        Me.Button23.Name = "Button23"
+        Me.Button23.Size = New System.Drawing.Size(104, 34)
+        Me.Button23.TabIndex = 9
+        Me.Button23.Text = "Load"
+        Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button23.UseVisualStyleBackColor = True
+        Me.Button23.Visible = False
+        '
         'Panel14
         '
         Me.Panel14.BackColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
@@ -1779,7 +1934,7 @@ Partial Class frmSendungsdetailsNEU
         Me.TabPage4.Controls.Add(Me.Button14)
         Me.TabPage4.Location = New System.Drawing.Point(4, 22)
         Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
         Me.TabPage4.Size = New System.Drawing.Size(433, 299)
         Me.TabPage4.TabIndex = 0
         Me.TabPage4.Text = "Aktendeckel"
@@ -2400,13 +2555,38 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvVorkosten.AllowUserToResizeColumns = False
         Me.dgvVorkosten.AllowUserToResizeRows = False
         Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
         Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis})
+        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle15
         Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
         Me.dgvVorkosten.MultiSelect = False
         Me.dgvVorkosten.Name = "dgvVorkosten"
         Me.dgvVorkosten.ReadOnly = True
+        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16
         Me.dgvVorkosten.RowHeadersVisible = False
+        Me.dgvVorkosten.RowHeadersWidth = 51
         Me.dgvVorkosten.RowTemplate.Height = 18
         Me.dgvVorkosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvVorkosten.Size = New System.Drawing.Size(360, 194)
@@ -2415,14 +2595,17 @@ Partial Class frmSendungsdetailsNEU
         'clmnVK_id
         '
         Me.clmnVK_id.HeaderText = "ID"
+        Me.clmnVK_id.MinimumWidth = 6
         Me.clmnVK_id.Name = "clmnVK_id"
         Me.clmnVK_id.ReadOnly = True
         Me.clmnVK_id.Visible = False
+        Me.clmnVK_id.Width = 125
         '
         'clmnFirma
         '
         Me.clmnFirma.HeaderText = "Firma"
         Me.clmnFirma.MaxInputLength = 200
+        Me.clmnFirma.MinimumWidth = 6
         Me.clmnFirma.Name = "clmnFirma"
         Me.clmnFirma.ReadOnly = True
         Me.clmnFirma.Width = 127
@@ -2431,6 +2614,7 @@ Partial Class frmSendungsdetailsNEU
         '
         Me.clmnLeistung.HeaderText = "Leistung"
         Me.clmnLeistung.MaxInputLength = 30
+        Me.clmnLeistung.MinimumWidth = 6
         Me.clmnLeistung.Name = "clmnLeistung"
         Me.clmnLeistung.ReadOnly = True
         Me.clmnLeistung.Width = 129
@@ -2438,10 +2622,11 @@ Partial Class frmSendungsdetailsNEU
         'clmnPreis
         '
         Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle10.Format = "C2"
+        DataGridViewCellStyle14.Format = "C2"
-        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle10
+        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle14
         Me.clmnPreis.HeaderText = "Preis"
         Me.clmnPreis.MaxInputLength = 15
+        Me.clmnPreis.MinimumWidth = 6
         Me.clmnPreis.Name = "clmnPreis"
         Me.clmnPreis.ReadOnly = True
         '
@@ -2453,7 +2638,7 @@ Partial Class frmSendungsdetailsNEU
         Me.tbBAR.Controls.Add(Me.btnLeihgeld)
         Me.tbBAR.Location = New System.Drawing.Point(4, 22)
         Me.tbBAR.Name = "tbBAR"
-        Me.tbBAR.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbBAR.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
         Me.tbBAR.Size = New System.Drawing.Size(433, 299)
         Me.tbBAR.TabIndex = 1
         Me.tbBAR.Text = "Abrechnung/BAR-Belege"
@@ -2467,12 +2652,37 @@ Partial Class frmSendungsdetailsNEU
         Me.dgvBelege.AllowUserToResizeColumns = False
         Me.dgvBelege.AllowUserToResizeRows = False
         Me.dgvBelege.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
         Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle18
         Me.dgvBelege.Location = New System.Drawing.Point(6, 40)
         Me.dgvBelege.MultiSelect = False
         Me.dgvBelege.Name = "dgvBelege"
         Me.dgvBelege.ReadOnly = True
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
         Me.dgvBelege.RowHeadersVisible = False
+        Me.dgvBelege.RowHeadersWidth = 51
         Me.dgvBelege.RowTemplate.Height = 18
         Me.dgvBelege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvBelege.Size = New System.Drawing.Size(360, 165)
@@ -4160,6 +4370,7 @@ Partial Class frmSendungsdetailsNEU
         '
         Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel5.Controls.Add(Me.pnlValidation)
         Me.Panel5.Controls.Add(Me.cboAbfertigungsLand)
         Me.Panel5.Controls.Add(Me.lblSNDChat_MsgCnt)
         Me.Panel5.Controls.Add(Me.picAVISOMessengerSNDChat)
@@ -4187,6 +4398,47 @@ Partial Class frmSendungsdetailsNEU
         Me.Panel5.Size = New System.Drawing.Size(1214, 69)
         Me.Panel5.TabIndex = 0
         '
+        'pnlValidation
+        '
+        Me.pnlValidation.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pnlValidation.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlValidation.Controls.Add(Me.rtbValidierung)
+        Me.pnlValidation.Controls.Add(Me.Label15)
+        Me.pnlValidation.Location = New System.Drawing.Point(884, 0)
+        Me.pnlValidation.Name = "pnlValidation"
+        Me.pnlValidation.Size = New System.Drawing.Size(217, 68)
+        Me.pnlValidation.TabIndex = 16
+        Me.pnlValidation.TabStop = True
+        Me.pnlValidation.Visible = False
+        '
+        'rtbValidierung
+        '
+        Me.rtbValidierung.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbValidierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.rtbValidierung.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.rtbValidierung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.rtbValidierung.Location = New System.Drawing.Point(0, 14)
+        Me.rtbValidierung.MaxLineLength = -1
+        Me.rtbValidierung.MaxLines_Warning = ""
+        Me.rtbValidierung.MaxLines_Warning_Label = Nothing
+        Me.rtbValidierung.Name = "rtbValidierung"
+        Me.rtbValidierung.Size = New System.Drawing.Size(217, 51)
+        Me.rtbValidierung.TabIndex = 3
+        Me.rtbValidierung.Text = ""
+        '
+        'Label15
+        '
+        Me.Label15.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label15.Location = New System.Drawing.Point(0, 0)
+        Me.Label15.Name = "Label15"
+        Me.Label15.Size = New System.Drawing.Size(217, 26)
+        Me.Label15.TabIndex = 2
+        Me.Label15.Text = "Validierungsfehler:"
+        '
         'cboAbfertigungsLand
         '
         Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
@@ -4208,7 +4460,7 @@ Partial Class frmSendungsdetailsNEU
         Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
         Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
         Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
-        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(1073, 41)
+        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(856, 43)
         Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
         Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 13)
         Me.lblSNDChat_MsgCnt.TabIndex = 113
@@ -4222,7 +4474,7 @@ Partial Class frmSendungsdetailsNEU
         Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
         Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(1040, 7)
+        Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(823, 9)
         Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
         Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(42, 44)
         Me.picAVISOMessengerSNDChat.TabIndex = 112
@@ -4244,7 +4496,7 @@ Partial Class frmSendungsdetailsNEU
         Me.txtAnzahlPos._Waehrung = False
         Me.txtAnzahlPos._WaehrungZeichen = True
         Me.txtAnzahlPos.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAnzahlPos.Location = New System.Drawing.Point(802, 27)
+        Me.txtAnzahlPos.Location = New System.Drawing.Point(756, 27)
         Me.txtAnzahlPos.MaxLength = 3
         Me.txtAnzahlPos.MaxLineLength = -1
         Me.txtAnzahlPos.MaxLines_Warning = ""
@@ -4259,7 +4511,7 @@ Partial Class frmSendungsdetailsNEU
         Me.Label4.AutoSize = True
         Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label4.ForeColor = System.Drawing.Color.White
-        Me.Label4.Location = New System.Drawing.Point(799, 6)
+        Me.Label4.Location = New System.Drawing.Point(753, 6)
         Me.Label4.Name = "Label4"
         Me.Label4.Size = New System.Drawing.Size(64, 17)
         Me.Label4.TabIndex = 5
@@ -4283,7 +4535,7 @@ Partial Class frmSendungsdetailsNEU
         Me.cbxFremdspedition.AutoSize = True
         Me.cbxFremdspedition.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.cbxFremdspedition.ForeColor = System.Drawing.Color.White
-        Me.cbxFremdspedition.Location = New System.Drawing.Point(639, 7)
+        Me.cbxFremdspedition.Location = New System.Drawing.Point(593, 7)
         Me.cbxFremdspedition.Name = "cbxFremdspedition"
         Me.cbxFremdspedition.Size = New System.Drawing.Size(97, 17)
         Me.cbxFremdspedition.TabIndex = 7
@@ -4309,9 +4561,9 @@ Partial Class frmSendungsdetailsNEU
         Me.Panel1.Controls.Add(Me.Button13)
         Me.Panel1.Controls.Add(Me.lblSendungen)
         Me.Panel1.Controls.Add(Me.Label3)
-        Me.Panel1.Location = New System.Drawing.Point(1102, 0)
+        Me.Panel1.Location = New System.Drawing.Point(1102, -1)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(105, 63)
+        Me.Panel1.Size = New System.Drawing.Size(105, 68)
         Me.Panel1.TabIndex = 15
         Me.Panel1.TabStop = True
         '
@@ -4340,7 +4592,7 @@ Partial Class frmSendungsdetailsNEU
         Me.lblSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblSendungen.Location = New System.Drawing.Point(0, 6)
         Me.lblSendungen.Name = "lblSendungen"
-        Me.lblSendungen.Size = New System.Drawing.Size(105, 39)
+        Me.lblSendungen.Size = New System.Drawing.Size(105, 44)
         Me.lblSendungen.TabIndex = 1
         Me.lblSendungen.Text = "1/10"
         Me.lblSendungen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -4350,9 +4602,9 @@ Partial Class frmSendungsdetailsNEU
         Me.Label3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label3.Location = New System.Drawing.Point(0, 44)
+        Me.Label3.Location = New System.Drawing.Point(0, 50)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(105, 21)
+        Me.Label3.Size = New System.Drawing.Size(105, 26)
         Me.Label3.TabIndex = 2
         Me.Label3.Text = "Sendung Pos."
         Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
@@ -4368,7 +4620,7 @@ Partial Class frmSendungsdetailsNEU
         Me.cboAbfertigungsart.FormattingEnabled = True
         Me.cboAbfertigungsart.Location = New System.Drawing.Point(477, 27)
         Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(256, 24)
+        Me.cboAbfertigungsart.Size = New System.Drawing.Size(213, 24)
         Me.cboAbfertigungsart.TabIndex = 12
         '
         'lblAbfertigungsart
@@ -4503,7 +4755,7 @@ Partial Class frmSendungsdetailsNEU
         Me.txtAnzahl._Waehrung = False
         Me.txtAnzahl._WaehrungZeichen = True
         Me.txtAnzahl.Font = New System.Drawing.Font("Microsoft Tai Le", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAnzahl.Location = New System.Drawing.Point(741, 27)
+        Me.txtAnzahl.Location = New System.Drawing.Point(695, 27)
         Me.txtAnzahl.MaxLength = 3
         Me.txtAnzahl.MaxLineLength = -1
         Me.txtAnzahl.MaxLines_Warning = ""
@@ -4518,7 +4770,7 @@ Partial Class frmSendungsdetailsNEU
         Me.lblAnzahl.AutoSize = True
         Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblAnzahl.ForeColor = System.Drawing.Color.White
-        Me.lblAnzahl.Location = New System.Drawing.Point(738, 6)
+        Me.lblAnzahl.Location = New System.Drawing.Point(692, 6)
         Me.lblAnzahl.Name = "lblAnzahl"
         Me.lblAnzahl.Size = New System.Drawing.Size(55, 17)
         Me.lblAnzahl.TabIndex = 4
@@ -5206,7 +5458,6 @@ Partial Class frmSendungsdetailsNEU
         '
         Me.BindingNavigatorPositionItem.AccessibleName = "Position"
         Me.BindingNavigatorPositionItem.AutoSize = False
-        Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
         Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
         Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
         Me.BindingNavigatorPositionItem.Text = "0"
@@ -5609,6 +5860,7 @@ Partial Class frmSendungsdetailsNEU
         '
         'cntDigicust
         '
+        Me.cntDigicust.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.cntDigicust.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StatusAbrufenToolStripMenuItem})
         Me.cntDigicust.Name = "cntDigicust"
         Me.cntDigicust.Size = New System.Drawing.Size(151, 26)
@@ -5621,6 +5873,7 @@ Partial Class frmSendungsdetailsNEU
         '
         'ContextMenuStrip3
         '
+        Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(20, 20)
         Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.XXXToolStripMenuItem})
         Me.ContextMenuStrip3.Name = "cntxt"
         Me.ContextMenuStrip3.Size = New System.Drawing.Size(96, 26)
@@ -5631,6 +5884,18 @@ Partial Class frmSendungsdetailsNEU
         Me.XXXToolStripMenuItem.Size = New System.Drawing.Size(95, 22)
         Me.XXXToolStripMenuItem.Text = "XXX"
         '
+        'timerValidation
+        '
+        Me.timerValidation.Enabled = True
+        Me.timerValidation.Interval = 2000
+        '
+        'RCntrlVermerke1
+        '
+        Me.RCntrlVermerke1.Location = New System.Drawing.Point(251, 18)
+        Me.RCntrlVermerke1.Name = "RCntrlVermerke1"
+        Me.RCntrlVermerke1.Size = New System.Drawing.Size(575, 208)
+        Me.RCntrlVermerke1.TabIndex = 1
+        '
         'frmSendungsdetailsNEU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5681,6 +5946,9 @@ Partial Class frmSendungsdetailsNEU
         Me.tbDigicust.ResumeLayout(False)
         CType(Me.dgvDigicust, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel24.ResumeLayout(False)
+        Me.tbMail.ResumeLayout(False)
+        CType(Me.dgvMail, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel25.ResumeLayout(False)
         Me.pnlDetails.ResumeLayout(False)
         Me.tbcntr.ResumeLayout(False)
         Me.TabPage4.ResumeLayout(False)
@@ -5710,6 +5978,7 @@ Partial Class frmSendungsdetailsNEU
         Me.pnlT1.ResumeLayout(False)
         Me.Panel5.ResumeLayout(False)
         Me.Panel5.PerformLayout()
+        Me.pnlValidation.ResumeLayout(False)
         CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel1.ResumeLayout(False)
         Me.pnlFremd.ResumeLayout(False)
@@ -6144,4 +6413,18 @@ Partial Class frmSendungsdetailsNEU
     Friend WithEvents Label13 As Label
     Friend WithEvents txtATANr As TextBox
     Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
+    Friend WithEvents pnlValidation As Panel
+    Friend WithEvents rtbValidierung As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Friend WithEvents Label15 As Label
+    Friend WithEvents timerValidation As Timer
+    Friend WithEvents tbMail As TabPage
+    Friend WithEvents dgvMail As DataGridView
+    Friend WithEvents Panel25 As Panel
+    Friend WithEvents Button23 As Button
+    Friend WithEvents clmnSender As DataGridViewTextBoxColumn
+    Friend WithEvents clmnRec As DataGridViewTextBoxColumn
+    Friend WithEvents clmnSbj As DataGridViewTextBoxColumn
+    Friend WithEvents clmnAtt As DataGridViewTextBoxColumn
+    Friend WithEvents clmnUIDL As DataGridViewTextBoxColumn
+    Friend WithEvents RCntrlVermerke1 As rCntrlVermerke
 End Class

Aviso/frmSendungsdetailsNEU.resx

@@ -1542,6 +1542,21 @@
   <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>296, 17</value>
   </metadata>
+  <metadata name="clmnSender.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnRec.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnSbj.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAtt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnUIDL.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
@@ -2514,6 +2529,9 @@
   <metadata name="ContextMenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>129, 56</value>
   </metadata>
+  <metadata name="timerValidation.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>286, 56</value>
+  </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

Aviso/frmSendungsdetailsNEU.vb

@@ -8,6 +8,9 @@ Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports DocumentFormat.OpenXml.Presentation
 Imports SDL
+Imports System.IO
+Imports EAGetMail
+Imports System.Globalization
 
 Public Class frmSendungsdetailsNEU
     Public AvisoId As Integer
@@ -36,6 +39,7 @@ Public Class frmSendungsdetailsNEU
     Dim usrcntl_AUSFUHR As usrCntlSND_Ausfuhr
     Dim listOfTextconserven
 
+    Dim cntVeranlagungsRg = 0
 
     Sub New()
         InitializeComponent()
@@ -119,7 +123,7 @@ Public Class frmSendungsdetailsNEU
 
         loadDataInLIST()
 
-
+        doVeranlagungsValidation()
         If VALIDATE_ME() Then
 
             SAVE_ME = True
@@ -143,20 +147,45 @@ Public Class frmSendungsdetailsNEU
         End If
     End Function
 
-    Function VALIDATE_ME() As Boolean
+    Sub doVeranlagungsValidation()
+        cntVeranlagungsRg = SQL.DLookup("count(*)", "tblAvisoAnhaenge", "anh_SendungsId='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' AND anh_art='VERANLANGUNG_RG' ", "AVISO", "0")
+    End Sub
+    Function VALIDATE_ME(Optional showErr = True) As Boolean
+        pnlValidation.Visible = False
+
+        rtbValidierung.Text = ""
+        'Dim returnValue = True
+
         Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
         lblErr_AvisiererKdNr.Visible = False
         lblErr_EmpfKdNr.Visible = False
         lblErr_FraechterKdNr.Visible = False
 
+
+        '--------------------------------------------------
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
+            Return True
+        End If
+
+        '--------------------------------------------------
+        If (txtAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) Or (txtAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
+            If cntVeranlagungsRg = 0 Then rtbValidierung.Text &= "- Keine Veranlagungs-Rechnung bei Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
+        End If
+
+        If (txtAbsender.KdData_KUNDE_ERW Is Nothing OrElse Not txtAbsender.KdData_KUNDE_ERW.Veranlagungskunde) And (txtAuftraggeber.KdData_KUNDE_ERW Is Nothing OrElse Not txtAuftraggeber.KdData_KUNDE_ERW.Veranlagungskunde) Then
+            If cntVeranlagungsRg > 0 Then rtbValidierung.Text &= "- Veranlagungs-Rechnung aber kein Veranlagungs-Kunde!" & vbNewLine : pnlValidation.Visible = True
+        End If
+        '--------------------------------------------------
+
         'Aktuell noch nicht!
-        'Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
+        Select Case CInt((SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID))
-        '    Case <= 0, 10
+            Case <= 0, 10
-        '    Case Else
+            Case Else
-        '        If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then lblErr_AvisiererKdNr.Visible = True : Return False
+                If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False
-        '        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then lblErr_EmpfKdNr.Visible = True : Return False
+                If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
-        '        If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then lblErr_FraechterKdNr.Visible = True : Return False
+                If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False
-        'End Select
+        End Select
         If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
 
             If SENDUNG_LIST(CURRENT_INDEX).FilialenNr = 5801 Or (SENDUNG_LIST(CURRENT_INDEX).FilialenNr.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE And VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER) Then
@@ -164,11 +193,32 @@ Public Class frmSendungsdetailsNEU
             Else
                 If FilialeAktFirma <> "" Then
                     If Panel6.Enabled Then 'wenn gesperrt, auch keine Prüfung!
-                        If Not txtAvisierer.checkFirma(FilialeAktFirma) Then MsgBox("Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                        If Not txtAvisierer.checkFirma(FilialeAktFirma) Then
-                        If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then MsgBox("Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                            Dim err = "- Avisierer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
-                        If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then MsgBox("Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                            rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
-                        If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then MsgBox("Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                            If showErr Then MsgBox(err) : Return False
-                        If Not txtAbsender.checkFirma(FilialeAktFirma) Then MsgBox("Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden.") : Return False
+                        End If
+                        If Not txtAuftraggeber.checkFirma(FilialeAktFirma) Then
+                            Dim err = "- Auftraggeber: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
+                            rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
+                            If showErr Then MsgBox(err) : Return False
+                        End If
+                        If Not txtEmpfaenger.checkFirma(FilialeAktFirma) Then
+                            Dim err = "- Empfänger: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
+                            rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
+                            If showErr Then MsgBox(err) : Return False
+                        End If
+                        If Not txtFrachtfuehrer.checkFirma(FilialeAktFirma) Then
+                            Dim err = "- Frachtführer: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
+                            rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
+                            If showErr Then MsgBox(err) : Return False
+                        End If
+                        If Not txtAbsender.checkFirma(FilialeAktFirma) Then
+                            Dim err = "- Absender: Es wurde eine Kundennummer einer fremden Firma ausgewählt. Sendung kann nicht gespeichert werden."
+                            rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
+                            If showErr Then MsgBox(err) : Return False
+
+                        End If
                     End If
                 End If
             End If
@@ -187,7 +237,9 @@ Public Class frmSendungsdetailsNEU
             If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID = 44 Then ' ATB GEstellung
 
                 If SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATBFakturieren Is Nothing Then
-                    MsgBox("ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte.") : Return False
+                    Dim err = "- ATB-Gestellung: Bitte geben Sie an, ob die ATB Gestellung fakturiert (abgerechnet) werden sollte."
+                    rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
+                    If showErr Then MsgBox(err) : Return False
                 End If
 
 
@@ -200,12 +252,13 @@ Public Class frmSendungsdetailsNEU
             If (cboVorpapier.Text.Trim <> String.Empty And txtVorpapierPos.Text.Trim = String.Empty) Or
                 (cboVorpapier2.Text.Trim <> String.Empty And txtVorpapier2Pos.Text.Trim = String.Empty) Or
                 (cboVorpapier3.Text.Trim <> String.Empty And txtVorpapier3Pos.Text.Trim = String.Empty) Then
-                If MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
+                If showErr AndAlso MsgBox("Pre-Paper Position is not filled. Really continue?", vbYesNoCancel) <> vbYes Then
                     Return False
                 End If
             End If
         End If
 
+        ' pnlValidation.Visible = rtbValidierung.Text <> ""
         Return True
     End Function
 
@@ -325,6 +378,7 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
         VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
+        Button23.Visible = True
         Try
 
             Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -462,6 +516,7 @@ Public Class frmSendungsdetailsNEU
                                                  frmGrayOut.Close()
                                                  AVISO = AvisoDAL.LesenAviso(AvisoId, "")
                                              Else
+                                                 SAVE_ME()
                                                  AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
                                              End If
                                              Me.initDataBinding()
@@ -1344,6 +1399,7 @@ Public Class frmSendungsdetailsNEU
 
             setVorpapiere()
 
+            doVeranlagungsValidation()
 
             initFraechterAvisererFromAkt()
             ''Übergangsphase Aviso/Sendung
@@ -3189,7 +3245,8 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
     Private Sub initVermerke()
-
+        RCntrlVermerke1.init(AVISO, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+        Exit Sub
         ' If setAkive_AuswahlID() = -1 Then Exit Sub
         If AvisoId <= 0 Then Exit Sub
 
@@ -3258,9 +3315,9 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
     Sub initAnhang()
-        Dim hSQL As String = "  SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert  
+        Dim hSQL As String = "  SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert  
                                 FROM [tblAvisoAnhaenge]
-                                left join tblAvisoAnhangsArten on aa_name = anh_Art
+                                left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art
                                  WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
                                  ORDER BY anh_SendungsId desc, case when aa_sort = NULL THEN 15 else aa_sort END, [anh_Reihenfolge],[anh_id]"
 
@@ -6617,6 +6674,7 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
     Private Sub btnLKWUmmelden_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
+
         ContextMenuStrip3.Show(Cursor.Position)
     End Sub
 
@@ -6858,4 +6916,220 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
+    Private Sub timerValidation_Tick(sender As Object, e As EventArgs) Handles timerValidation.Tick
+        VALIDATE_ME(False)
+    End Sub
+
+    Private Sub Button23_Click_1(sender As Object, e As EventArgs) Handles Button23.Click
+
+        With dgvMail
+            .Rows.Clear()
+
+            Try
+                ' Create a folder named "inbox" under current directory
+                ' to save the email retrieved.
+                'Dim localInbox As String = String.Format("{0}\inbox", Directory.GetCurrentDirectory())
+                ' MsgBox(localInbox)
+                ' If the folder is not existed, create it.
+                ' If Not Directory.Exists(localInbox) Then
+                ' Directory.CreateDirectory(localInbox)
+                'End If
+
+                Dim oServer As New MailServer("owa.verag.ag",
+                            "al@verag.ag",
+                            "verag#2",
+                            ServerProtocol.Imap4)
+
+                ' Enable SSL/TLS connection, most modern email server require SSL/TLS connection by default.
+                oServer.SSLConnection = True
+                oServer.Port = 993
+
+                ' If your server doesn't support SSL/TLS connection, please use the following codes
+                ' oServer.SSLConnection = False
+                ' oServer.Port = 110
+
+                Console.WriteLine("Connecting server ...")
+
+                Dim oClient As New MailClient("EG-D1710817841-00027-8F73639A7EE1E54E-7E5AA3751E31F532")
+                oClient.Connect(oServer)
+
+
+                'Dim folders() As Imap4Folder = oClient.Imap4Folders
+                '' enumerates all folders on IMAP4/Exchange server.
+                'EnumerateFolder(folders)
+
+                Dim options As GetMailInfosOptionType = GetMailInfosOptionType.All
+                options = options Or GetMailInfosOptionType.DateRange
+                options = options Or GetMailInfosOptionType.OrderByDateTime
+                options = options Or GetMailInfosOptionType.IncludeAllFolders
+
+                oClient.GetMailInfosParam.Reset()
+                oClient.GetMailInfosParam.GetMailInfosOptions = options
+
+                oClient.GetMailInfosParam.SubjectContains = "EAGetMail Component"
+                ' oClient.GetMailInfosParam.UIDRange = "167355-167355"
+                'oClient.GetMailInfosParam.BodyContains = "24DE770176692626M6"
+                'oClient.GetMailInfosParam.SenderContains = "support"
+                oClient.GetMailInfosParam.DateRange.SINCE = System.DateTime.Now.AddMonths(-12)
+                oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
+                oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
+
+
+                Dim infos As MailInfo() = oClient.GetMailInfos()
+                Console.WriteLine("Total {0} email(s)", infos.Length)
+
+                For i As Integer = 0 To infos.Length - 1
+                    Dim info As MailInfo = infos(i)
+                    Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}",
+                            info.Index, info.Size, info.UIDL)
+
+                    ' Retrieve email from IMAP server
+                    Dim oMail As Mail = oClient.GetMail(info)
+
+                    Console.WriteLine("From: {0}", oMail.From.ToString())
+                    Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)
+                    '?? oMail.MAPIConversationId.ToString
+                    .Rows.Add({oMail.From.ToString(), oMail.To.ToString(), oMail.Subject, oMail.Attachments.Count, info.UIDL})
+
+                    ' Generate an unqiue email file name based on date time.
+                    ' Dim fileName As String = _generateFileName(i + 1)
+                    ' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName)
+
+                    ' Save email to local disk
+                    'oMail.SaveAs(fullPath, True)
+
+                    ' Mark email as deleted from POP3 server.
+                    '''''' oClient.Delete(info)
+
+                Next
+
+                ' Quit and expunge emails marked as deleted from POP3 server.
+                oClient.Quit()
+                Console.WriteLine("Completed!")
+
+            Catch ep As Exception
+                Console.WriteLine(ep.Message)
+                Console.WriteLine(ep.StackTrace)
+                MsgBox(ep.Message & " - " & ep.StackTrace)
+            End Try
+
+
+        End With
+
+
+    End Sub
+
+    'Private Sub openMial(UIDL As String)
+
+
+
+    '    Try
+    '            ' Create a folder named "inbox" under current directory
+    '            ' to save the email retrieved.
+    '            'Dim localInbox As String = String.Format("{0}\inbox", Directory.GetCurrentDirectory())
+    '            ' MsgBox(localInbox)
+    '            ' If the folder is not existed, create it.
+    '            ' If Not Directory.Exists(localInbox) Then
+    '            ' Directory.CreateDirectory(localInbox)
+    '            'End If
+
+    '            Dim oServer As New MailServer("owa.verag.ag",
+    '                        "al@verag.ag",
+    '                        "verag#2",
+    '                        ServerProtocol.Imap4)
+
+    '            ' Enable SSL/TLS connection, most modern email server require SSL/TLS connection by default.
+    '            oServer.SSLConnection = True
+    '            oServer.Port = 993
+
+    '            ' If your server doesn't support SSL/TLS connection, please use the following codes
+    '            ' oServer.SSLConnection = False
+    '            ' oServer.Port = 110
+
+    '            Console.WriteLine("Connecting server ...")
+
+    '            Dim oClient As New MailClient("EG-D1710817841-00027-8F73639A7EE1E54E-7E5AA3751E31F532")
+    '            oClient.Connect(oServer)
+
+    '        Dim oUIDLManager As UIDLManager = New UIDLManager()
+    '        oUIDLManager.FindUIDL(oServer, UIDL)
+
+    '        Dim fileName As String = _generateFileName(i + 1)
+    '        Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName)
+
+    '        Console.WriteLine("Downloading {0}/{1} ...", i + 1, infos.Length)
+    '        Dim oMail As Mail = oClient.GetMail(info)
+
+
+    '        oClient.GetImap4FolderUID(,) = "UIDL"
+    '        'oClient.GetMailInfosParam.BodyContains = "24DE770176692626M6"
+    '        'oClient.GetMailInfosParam.SenderContains = "support"
+    '        oClient.GetMailInfosParam.DateRange.SINCE = System.DateTime.Now.AddMonths(-12)
+    '            oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
+    '            oClient.GetMailInfosParam.DateRange.BEFORE = System.DateTime.Now.AddDays(1)
+
+
+    '        Dim infos As MailInfo() = oClient.GetMailInfos(s)
+    '        Console.WriteLine("Total {0} email(s)", infos.Length)
+
+    '            For i As Integer = 0 To infos.Length - 1
+    '                Dim info As MailInfo = infos(i)
+    '                Console.WriteLine("Index: {0}; Size: {1}; UIDL: {2}",
+    '                        info.Index, info.Size, info.UIDL)
+
+    '                ' Retrieve email from IMAP server
+    '                Dim oMail As Mail = oClient.GetMail(info)
+
+    '                Console.WriteLine("From: {0}", oMail.From.ToString())
+    '                Console.WriteLine("Subject: {0}" & vbCr & vbLf, oMail.Subject)
+    '                '?? oMail.MAPIConversationId.ToString
+    '                .Rows.Add({oMail.From.ToString(), oMail.To.ToString(), oMail.Subject, oMail.Attachments.Count, info.UIDL})
+
+    '                ' Generate an unqiue email file name based on date time.
+    '                ' Dim fileName As String = _generateFileName(i + 1)
+    '                ' Dim fullPath As String = String.Format("{0}\{1}", localInbox, fileName)
+
+    '                ' Save email to local disk
+    '                'oMail.SaveAs(fullPath, True)
+
+    '                ' Mark email as deleted from POP3 server.
+    '                '''''' oClient.Delete(info)
+
+    '            Next
+
+    '            ' Quit and expunge emails marked as deleted from POP3 server.
+    '            oClient.Quit()
+    '            Console.WriteLine("Completed!")
+
+    '        Catch ep As Exception
+    '            Console.WriteLine(ep.Message)
+    '            Console.WriteLine(ep.StackTrace)
+    '            MsgBox(ep.Message & " - " & ep.StackTrace)
+    '        End Try
+
+
+    'End Sub
+
+    Public Sub EnumerateFolder(ByVal folders() As Imap4Folder)
+        For i As Integer = 0 To folders.Length - 1
+            Dim folder As Imap4Folder = folders(i)
+
+            Console.WriteLine("Name: {0}", folder.Name)
+            Console.WriteLine("FullPath: {0}", folder.FullPath)
+            Console.WriteLine("LocalPath: {0}", folder.LocalPath)
+            Console.WriteLine("Flags: {0}", folder.IMAP4FolderFlags)
+            Console.WriteLine("Subscribed: {0}" & vbCrLf, folder.Subscribed)
+
+            EnumerateFolder(folder.SubFolders)
+        Next
+    End Sub
+    Function _generateFileName(ByVal sequence As Integer) As String
+        Dim currentDateTime As DateTime = DateTime.Now
+        Return String.Format("{0}-{1:000}-{2:000}.eml",
+                            currentDateTime.ToString("yyyyMMddHHmmss", New CultureInfo("en-US")),
+                            currentDateTime.Millisecond,
+                            sequence)
+    End Function
+
+
 End Class

Aviso/packages.config

@@ -7,6 +7,7 @@
   <package id="Common.Logging" version="3.4.1" targetFramework="net47" />
   <package id="Common.Logging.Core" version="3.4.1" targetFramework="net47" />
   <package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net47" />
+  <package id="EAGetMail" version="5.3.5" targetFramework="net47" />
   <package id="esendex-dotnet-sdk" version="3.8.0" targetFramework="net47" />
   <package id="GrapeCity.Documents.Common" version="2.2.0.315" targetFramework="net461" />
   <package id="GrapeCity.Documents.Imaging" version="2.2.0.315" targetFramework="net461" />
@@ -18,12 +19,14 @@
   <package id="Newtonsoft.Json" version="13.0.3" targetFramework="net47" />
   <package id="Portable.BouncyCastle" version="1.8.5" targetFramework="net47" />
   <package id="Spire.PDFViewer" version="4.9.5" targetFramework="net47" />
-  <package id="System.Buffers" version="4.4.0" targetFramework="net461" />
+  <package id="System.Buffers" version="4.5.1" targetFramework="net47" />
   <package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net47" />
   <package id="System.IO.Packaging" version="4.0.0" targetFramework="net47" />
-  <package id="System.Memory" version="4.5.0" targetFramework="net461" />
+  <package id="System.Memory" version="4.5.5" targetFramework="net47" />
-  <package id="System.Numerics.Vectors" version="4.4.0" targetFramework="net461" />
+  <package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" />
-  <package id="System.Runtime.CompilerServices.Unsafe" version="4.5.2" targetFramework="net47" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net47" />
+  <package id="System.Security.Cryptography.Pkcs" version="8.0.0" targetFramework="net47" />
+  <package id="System.Text.Encoding.CodePages" version="8.0.0" targetFramework="net47" />
   <package id="System.Threading.Tasks.Extensions" version="4.5.2" targetFramework="net47" />
   <package id="System.ValueTuple" version="4.5.0" targetFramework="net461" />
 </packages>

Aviso/rCntrlVermerke.Designer.vb

@@ -0,0 +1,102 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class rCntrlVermerke
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        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()
+        Me.gridVermerke = New System.Windows.Forms.DataGridView()
+        CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'gridVermerke
+        '
+        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
+        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("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.gridVermerke.ColumnHeadersHeight = 34
+        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle3
+        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
+        Me.gridVermerke.MultiSelect = False
+        Me.gridVermerke.Name = "gridVermerke"
+        Me.gridVermerke.ReadOnly = True
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.gridVermerke.RowHeadersVisible = False
+        Me.gridVermerke.RowHeadersWidth = 62
+        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.gridVermerke.RowTemplate.Height = 20
+        Me.gridVermerke.RowTemplate.ReadOnly = True
+        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.gridVermerke.ShowCellErrors = False
+        Me.gridVermerke.ShowRowErrors = False
+        Me.gridVermerke.Size = New System.Drawing.Size(575, 208)
+        Me.gridVermerke.TabIndex = 71
+        Me.gridVermerke.TabStop = False
+        '
+        'rCntrlVermerke
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.gridVermerke)
+        Me.Name = "rCntrlVermerke"
+        Me.Size = New System.Drawing.Size(575, 208)
+        CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents gridVermerke As DataGridView
+End Class

Aviso/rCntrlVermerke.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Aviso/rCntrlVermerke.vb

@@ -0,0 +1,177 @@
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class rCntrlVermerke
+
+    Dim VermerkArt = 2
+    Dim tblSnd_SendungID As Integer = -1
+    Dim AVISO As New VERAG_PROG_ALLGEMEIN.cAviso
+
+    Dim VermerkeDAL As New cVermerkeDAL
+    Private AvisoDAL As New cAvisoDAL
+    Dim painted As Boolean = False
+
+    Sub init(AVISO, tblSnd_SendungID)
+        Me.AVISO = AVISO
+        Me.tblSnd_SendungID = tblSnd_SendungID
+        Vermerke_anzeigen2()
+    End Sub
+
+
+    Public Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
+        aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
+        gridVermerke.Columns.Clear()
+        '  lblInfoAviso.Visible = False
+        infotxt = ""
+        '  MsgBox("SO")
+        ' If setAkive_AuswahlID() = -1 Then Exit Sub
+        If AVISO Is Nothing Then Exit Sub
+        If AVISO.AvisoID <= 0 Then Exit Sub
+
+
+
+
+        'Hier werden die passenden Vermerke zum Aviso angezeigt
+        Dim sendwhere = ""
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
+            If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False
+            Select Case VermerkArt
+                Case 0
+               '     dgvSendungen.ClearSelection()
+                Case 1
+                    ' If dgvSendungen.SelectedRows.Count > 0 Then
+                    sendwhere = " AND VermerkArt='A' "
+                    ' End If
+
+                Case 2
+                    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+                    If tblSnd_SendungID > 0 Then
+                        sendwhere = " AND VermerkArt='S'  AND SendungID=" & tblSnd_SendungID
+
+                    Else
+                        sendwhere = " AND 1=0 " ' 1=0, damit keine Zeile angezeigt wird, wenn keine Sendung ausgewählt
+                    End If
+
+                    If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = True
+
+
+            End Select
+
+        End If
+
+        ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"
+
+
+        Dim hSQL = usrcntlAktDetails.vermerkehSQL
+        hSQL = hSQL.Replace("[[AvisoId]]", AVISO.AvisoID)
+        hSQL = hSQL.Replace("[[sendwhere]]", sendwhere)
+        ' MsgBox(hSQL)
+        infotxt = AvisoDAL.getAvisoInfo(AVISO.AvisoID)
+        If infotxt <> "" Then
+            'lblInfoAviso.Visible = True
+        End If
+
+
+        gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+
+        If gridVermerke.Columns("VermerkeOptions") Is Nothing Then
+            Dim dgvlc As New DataGridViewLinkColumn
+            dgvlc.Name = "VermerkeOptions"
+            gridVermerke.Columns.Insert(gridVermerke.ColumnCount - 1, dgvlc)
+        End If
+
+        'Grid neu designen
+        'GridZeichnenBilanz()
+        usrcntlAktDetails.gridVermerke_SpaltenFestlegen(gridVermerke)
+
+        'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
+        If rowindex > 0 Then
+            'dgvSendungen.ClearSelection()
+            'dgvSendungen.Rows(rowindex).Selected = True
+        Else
+            gridVermerke.ClearSelection()
+        End If
+        ' timer.Enabled = True
+        ' initDGVSendungenRows()
+    End Sub
+
+
+    Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
+        Dim tmpIndex = -1
+        If (tblSnd_SendungID > 0) Then
+            tmpIndex = tblSnd_SendungID
+        End If
+        usrcntlAktDetails.gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex)
+
+        Vermerke_anzeigen2(tmpIndex)
+    End Sub
+    Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
+        If painted Then Exit Sub
+        painted = False
+        '  If dgvSendungen.RowCount = 0 Then Exit Sub
+        usrcntlAktDetails.gridVermerke_Paint(gridVermerke)
+        painted = True
+    End Sub
+
+
+    'Sub ArrowDown_ShowHide()
+    '    picArrowDown.Visible = False
+    '    If dgvSendungen.RowCount = 0 Then Exit Sub
+    '    Select Case tbcntlVermerke.SelectedIndex
+    '        Case 0, 1, 2
+    '            Try
+    '                Dim showFirst = False
+    '                For Each r As DataGridViewRow In gridVermerke.Rows
+    '                    If r.Displayed Then showFirst = True
+    '                    If showFirst Then
+    '                        If (r.Cells("Hervorheben").Value = "1" Or r.Cells("VermerkeOptions").Value <> "") AndAlso Not r.Displayed Then
+    '                            picArrowDown.Visible = True
+    '                        End If
+    '                    End If
+    '                Next
+    '            Catch ex As Exception
+    '                MsgBox("ERR")
+    '            End Try
+    '    End Select
+    'End Sub
+
+
+
+    'Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschenNew.Click, conVermerkEntgLöschen.Click
+
+    '    If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
+
+    '    If sender Is conVermerkEntgLöschen Then
+
+    '        If vbNo = MsgBox("Wollen Sie den ausgewählten entgültig Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
+    '            Exit Sub
+    '        End If
+
+    '        If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value.ToString.EndsWith("wurde gelöscht.") Then 'Vermerk, dass Sendung gelöscht wurde.
+    '            Exit Sub
+    '        End If
+    '        Dim index As Integer = -1
+    '        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
+    '        VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
+    '        Vermerke_anzeigen(index)
+
+    '    ElseIf sender Is conVermerkLöschenNew Then
+
+    '        If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
+    '            Exit Sub
+    '        End If
+    '        Dim index As Integer = -1
+    '        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
+    '        VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
+    '        Vermerke_anzeigen(index)
+    '    End If
+
+
+
+
+    'End Sub
+
+
+End Class

Aviso/usrcntlAktDetails.vb

@@ -414,7 +414,7 @@ Public Class usrcntlAktDetails
         Return ""
     End Function
 
-    Private Sub gridVermerke_SpaltenFestlegen()
+    Shared Sub gridVermerke_SpaltenFestlegen(gridVermerke As DataGridView)
         If gridVermerke.RowCount = 0 Then gridVermerke.Columns.Clear() : Exit Sub
 
         With gridVermerke
@@ -860,7 +860,12 @@ Public Class usrcntlAktDetails
 
     End Sub
 
-
+    Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
+                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
+                             " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
+                             " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
+                             " WHERE AvisoID = [[AvisoId]] [[sendwhere]] " &
+                             " order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
     Private Sub Vermerke_anzeigen2(Optional rowindex As Integer = -1)
         If Not loaded Then Exit Sub
         aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick)
@@ -994,12 +999,9 @@ Public Class usrcntlAktDetails
         ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"
 
 
-        Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
+        Dim hSQL = usrcntlAktDetails.vermerkehSQL
-                                " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94,101,102) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben" &
+        hSQL = hSQL.Replace("[[AvisoId]]", AvisoID)
-                             " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
+        hSQL = hSQL.Replace("[[sendwhere]]", sendwhere)
-                             " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
-                             " WHERE AvisoID = " & AvisoID & " " & sendwhere & " " &
-                             " order by /*VermerkArt ASC,tblSnd_PosUnterNr,*/Datum DESC "
 
 
         infotxt = AvisoDAL.getAvisoInfo(AvisoID)
@@ -1019,7 +1021,7 @@ Public Class usrcntlAktDetails
 
         'Grid neu designen
         'GridZeichnenBilanz()
-        gridVermerke_SpaltenFestlegen()
+        usrcntlAktDetails.gridVermerke_SpaltenFestlegen(gridVermerke)
 
         'If tbcntlVermerke.SelectedIndex = 2 And rowindex > 0 Then
         If rowindex > 0 Then
@@ -1034,269 +1036,281 @@ Public Class usrcntlAktDetails
 
 
     Private Sub gridVermerkeMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles gridVermerke.CellContentClick
+        Dim tmpIndex = -1
+        If (dgvSendungen.SelectedRows.Count > 0) Then
+            tmpIndex = dgvSendungen.SelectedRows(0).Index
+        End If
+        gridVermerkeMouseClick(gridVermerke, e.ColumnIndex, e.RowIndex, AVISO, tmpIndex)
+        loaded = False
+        '  Dim tmpIndex = -1
+        If init Then
+            ' If (dgvSendungen.SelectedRows.Count > 0) Then
+            '     tmpIndex = dgvSendungen.SelectedRows(0).Index
+            'End If
+            sendAktiv = False
+            initDgvSendungen()
+            sendAktiv = True
+            'dgvSendungen.ClearSelection()
+            'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
+            '    dgvSendungen.Rows(tmpIndex).Selected = True
+            'End If
+
+        End If
+        loaded = True
+        Vermerke_anzeigen(tmpIndex)
+    End Sub
+
+    Shared Sub gridVermerkeMouseClick(gridVermerke, ColumnIndex, RowIndex, AVISO, sendungsId)
         If gridVermerke.RowCount = 0 Then Exit Sub
+        Dim AvisoStatusFunctions As New AvisoStatusFunctions
+        If gridVermerke.Columns(ColumnIndex).Name = "VermerkeOptions" Then
 
-        If gridVermerke.Columns(e.ColumnIndex).Name = "VermerkeOptions" Then
-            Dim tmpIndex = -1
-            If (dgvSendungen.SelectedRows.Count > 0) Then
-                tmpIndex = dgvSendungen.SelectedRows(0).Index
-            End If
 
-            Dim VermekId = gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value
+            Dim VermekId = gridVermerke.Rows(RowIndex).Cells("VermerkID").Value
             Dim VermerkeDAL As New cVermerkeDAL
             Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(VermekId, "")
             myVermerk.VermerkID = 0
-            'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
+            'myVermerk.AvisoID = CInt(gridVermerke.Rows(RowIndex).Cells(1).Value)
             myVermerk.Datum = Now
             myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
             myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
             Dim init As Boolean = False
-            Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value)
+            Select Case CStr(gridVermerke.Rows(RowIndex).Cells("VermerkeCode").Value)
                 Case "1"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 2
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)
+                    init = True 'Vermerke_anzeigen(RowIndex)
                     ' initDgvSendungen()
 
                 Case "3"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 4
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
 
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "5"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 6
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
 
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "7"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 8
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "9"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 10
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "11"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 12
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
 
                 Case "90"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 93
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "13"
                     If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" OrElse VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Vermerk_VKErhalten", "AVISO") Then
 
 
-                        myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                        myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                         myVermerk.VermerkCodeId = 14
-                        If gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
+                        If gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value IsNot DBNull.Value Then
-                            myVermerk.VorauskasseId = gridVermerke.Rows(e.RowIndex).Cells("VorauskasseId").Value
+                            myVermerk.VorauskasseId = gridVermerke.Rows(RowIndex).Cells("VorauskasseId").Value
                         End If
                         Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                         VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
 
-                        init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                        init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                     Else
                         MsgBox("Keine Berechtigung. Bitte wenden Sie sich an die Buchhaltung oder Abteilungsleitung.")
                     End If
 
                 Case "17"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                     myVermerk.VermerkCodeId = 18
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                     VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
                     '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                     'Vermerke_aktualisieren()
-                    init = True '   Vermerke_anzeigen(e.RowIndex)
+                    init = True '   Vermerke_anzeigen(RowIndex)
 
                 Case "19"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                     myVermerk.VermerkCodeId = 20
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "25"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 30
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "31"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
                     myVermerk.VermerkCodeId = 32
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "33"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 34
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "46"
-                    MsgBox("SMS " & gridVermerke.Rows(e.RowIndex).Cells("VermerkeOptions").ToolTipText)
+                    MsgBox("SMS " & gridVermerke.Rows(RowIndex).Cells("VermerkeOptions").ToolTipText)
-                    init = False 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = False 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "36"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 37
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "53"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 54
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "55"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 56
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "57"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 58
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
 
                 Case "74"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 75
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                 Case "76"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 77
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                 Case "80"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("folgt", "erhalten")
                     myVermerk.VermerkCodeId = 81
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
+
 
                     'Ankunft
                     If vbYes = MsgBox("Soll der LKW auf Status 'ANKUNFT' gesetzt werden?", vbYesNoCancel) Then
-                        If FUNC.setAnkunft(AvisoID) Then
+                        If AvisoStatusFunctions.setAnkunft(AVISO.AvisoID) Then
                             frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                             frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                         End If
                     End If
 
                 Case "82"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                     myVermerk.VermerkCodeId = 83
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                     VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
 
                     Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-                    sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1  where avisoid=" & AvisoID, "AVISO")
+                    sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1  where avisoid=" & AVISO.AvisoID, "AVISO")
 
                     AvisoStatusFunctions.printFinish(AVISO)
 
                     '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                     'Vermerke_aktualisieren()
-                    init = True '   Vermerke_anzeigen(e.RowIndex)
+                    init = True '   Vermerke_anzeigen(RowIndex)
                 Case "96"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 97
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
                 Case "101"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("offen", "erledigt")
                     myVermerk.VermerkCodeId = 102
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "103"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 104
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "105"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 106
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
                 Case "107"
-                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                     myVermerk.VermerkCodeId = 108
                     Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                     VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
-                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                    init = True 'Vermerke_anzeigen(RowIndex)': initDgvSendungen()
 
             End Select
-            loaded = False
-            '  Dim tmpIndex = -1
-            If init Then
-                ' If (dgvSendungen.SelectedRows.Count > 0) Then
-                '     tmpIndex = dgvSendungen.SelectedRows(0).Index
-                'End If
-                sendAktiv = False
-                initDgvSendungen()
-                sendAktiv = True
-                'dgvSendungen.ClearSelection()
-                'If tmpIndex > 0 And dgvSendungen.RowCount > tmpIndex Then
-                '    dgvSendungen.Rows(tmpIndex).Selected = True
-                'End If
 
-            End If
-            loaded = True
-            Vermerke_anzeigen(tmpIndex)
         End If
     End Sub
 
     Private Sub gridVermerke_Paint(sender As Object, e As PaintEventArgs) Handles gridVermerke.Paint
-
         If painted Then Exit Sub
         If dgvSendungen.RowCount = 0 Then Exit Sub
+        gridVermerke_Paint(gridVermerke)
+        painted = True
+    End Sub
+    Shared Sub gridVermerke_Paint(gridvermerke As DataGridView)
+
+
         Try
-            If gridVermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
+            If gridvermerke.Columns("VermerkeOptions") Is Nothing Then Exit Sub
-            For Each r As DataGridViewRow In gridVermerke.Rows
+            For Each r As DataGridViewRow In gridvermerke.Rows
                 '  If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
                 Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
                 If CBool(r.Cells("Hervorheben").Value) Then
@@ -1305,43 +1319,43 @@ Public Class usrcntlAktDetails
                     r.DefaultCellStyle.BackColor = Color.Yellow
                 End If
                 If CBool(r.Cells("Geloescht").Value) Then
-                    r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Strikeout)
+                    r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout)
                 End If
                 If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then
 
                     Select Case CInt(r.Cells("VermerkeCode").Value)
                         Case 1
-                            If Not existCodeInGridVermerke(2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 2, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Auftrag erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Auftrag erhalten' einzutragen."
                             End If
                         Case 3
-                            If Not existCodeInGridVermerke(4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 4, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Rechnung erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rechnung erhalten' einzutragen."
                             End If
                         Case 5
-                            If Not existCodeInGridVermerke(6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 6, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "LS erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'LS erhalten' einzutragen."
                             End If
                         Case 7
-                            If Not existCodeInGridVermerke(8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 8, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "ATR erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATR erhalten' einzutragen."
                             End If
                         Case 9
-                            If Not existCodeInGridVermerke(10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 10, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Vollmacht erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vollmacht erhalten' einzutragen."
                             End If
                         Case 11
-                            If Not existCodeInGridVermerke(12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 12, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "CMR erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
                             End If
                         Case 90
-                            If Not existCodeInGridVermerke(93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 93, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Packliste erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Packliste erhalten' einzutragen."
                             End If
@@ -1350,43 +1364,43 @@ Public Class usrcntlAktDetails
 
                             If r.Cells("VorauskasseId").Value IsNot DBNull.Value Then
 
-                                If Not existCodeInGridVermerke_VK(r.Cells("VorauskasseId").Value) Then
+                                If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then
                                     optionCell.Value = "Vorauskasse erhalten"
                                     optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
                                 End If
                             Else
-                                If Not existCodeInGridVermerke_VK_OLD(r.Cells("SendungID").Value) Then
+                                If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then
                                     optionCell.Value = "Vorauskasse erhalten"
                                     optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
                                 End If
                             End If
                         Case 17
-                            If Not existCodeInGridVermerke(18) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 18) Then
                                 optionCell.Value = "DE-ZOLL fertig"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen."
                             End If
                         Case 19
-                            If Not existCodeInGridVermerke(20) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 20) Then
                                 optionCell.Value = "AT-ZOLL fertig"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'AT-ZOLL fertig' einzutragen."
                             End If
                         Case 25
-                            If Not existCodeInGridVermerke(30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 30, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Dokument erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dokument erhalten' einzutragen."
                             End If
                         Case 31
-                            If Not existCodeInGridVermerke(32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 32, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Vorbereitung abgeschlossen"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorbereitung abgeschlossen' einzutragen."
                             End If
                         Case 33
-                            If Not existCodeInGridVermerke(34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 34, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "ATA-Nr. erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATA-Nr. erhalten' einzutragen."
                             End If
                         Case 36
-                            If Not existCodeInGridVermerke(37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 37, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Kontaktdaten erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kontaktdaten erhalten' einzutragen."
                             End If
@@ -1417,52 +1431,52 @@ Public Class usrcntlAktDetails
                                         optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
                                         optionCell.LinkColor = Color.Red
                                         optionCell.Style.BackColor = Color.PapayaWhip
-                                        optionCell.Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
+                                        optionCell.Style.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Bold)
                                         'optionCell.LinkColor = Color.White
                                         'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
                                 End Select
                             End If
                         Case 53
-                            If Not existCodeInGridVermerke(54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 54, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Ü-Dok erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
                             End If
                         Case 55
-                            If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Rg-Best. erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
                             End If
                         Case 57
-                            If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Dispoliste erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
                             End If
 
                         Case 74
-                            If Not existCodeInGridVermerke(75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Frachtkosten erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Frachtkosten erhalten' einzutragen."
                             End If
 
                         Case 76
-                            If Not existCodeInGridVermerke(77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Absend.best. erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen."
                             End If
 
                         Case 96
-                            If Not existCodeInGridVermerke(97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 97, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "T1 Bestätigung erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'T1 Bestätigung erhalten' einzutragen."
                             End If
 
                         Case 80
-                            If Not existCodeInGridVermerke(81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 81, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "ATB-Nr. erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'ATB-Nr. erhalten' einzutragen."
                             End If
                         Case 82
-                            If Not existCodeInGridVermerke(83) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 83) Then
                                 optionCell.Value = "DE-ZOLL fertig"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL (DIGITAL) fertig' einzutragen."
                             End If
@@ -1470,22 +1484,22 @@ Public Class usrcntlAktDetails
                         Case 101
 
                             If r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
-                                '  If Not existCodeInGridVermerke(102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                '  If Not existCodeInGridVermerke(gridvermerke ,102, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Erledigt"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Sonstiger Grund erledigt' einzutragen."
                             End If
                         Case 103
-                            If Not existCodeInGridVermerke(104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 104, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Gewicht/Packstücke erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Gewicht/Packstücke erhalten' einzutragen."
                             End If
                         Case 105
-                            If Not existCodeInGridVermerke(106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 106, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Zolltarifnummer erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Zolltarifnummer erhalten' einzutragen."
                             End If
                         Case 107
-                            If Not existCodeInGridVermerke(108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                            If Not existCodeInGridVermerke(gridvermerke, 108, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
                                 optionCell.Value = "Kostenbestätigung erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Kostenbestätigung erhalten' einzutragen."
                             End If
@@ -1494,7 +1508,7 @@ Public Class usrcntlAktDetails
 
 
             Next
-            painted = True
+
             ' ArrowDown_ShowHide() 'Anzeigeproblem, wenn Aviso minimiert wird! --> Jetzt bei Timer!
 
         Catch ex As Exception
@@ -1523,7 +1537,7 @@ Public Class usrcntlAktDetails
         End Select
     End Sub
 
-    Function existCodeInGridVermerke(code As Integer, Optional text As String = "") As Boolean
+    Shared Function existCodeInGridVermerke(gridVermerke As DataGridView, code As Integer, Optional text As String = "") As Boolean
 
         For Each r As DataGridViewRow In gridVermerke.Rows
             If r.Cells("Geloescht").Value = False Then
@@ -1549,7 +1563,7 @@ Public Class usrcntlAktDetails
     End Function
 
 
-    Function existCodeInGridVermerke_VK(VorauskasseId As Object) As Boolean
+    Shared Function existCodeInGridVermerke_VK(gridVermerke As DataGridView, VorauskasseId As Object) As Boolean
 
         For Each r As DataGridViewRow In gridVermerke.Rows
             If r.Cells("Geloescht").Value = False Then
@@ -1565,7 +1579,7 @@ Public Class usrcntlAktDetails
     End Function
 
 
-    Function existCodeInGridVermerke_VK_OLD(SendungID As Object) As Boolean
+    Shared Function existCodeInGridVermerke_VK_OLD(gridVermerke As DataGridView, SendungID As Object) As Boolean
 
         For Each r As DataGridViewRow In gridVermerke.Rows
             Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "")