Version

Merge branch 'master' of https://git.it.verag.ag/edv/AVISO
Version
2026-05-13 13:45:44 +02:00 · 2026-05-11 16:46:57 +02:00 · 2026-05-11 16:46:50 +02:00 · 2026-05-11 16:43:04 +02:00 · 2026-05-08 10:46:29 +02:00 · 2026-05-08 10:46:23 +02:00
15 changed files with 508 additions and 326 deletions
--- a/Aviso/App.config
+++ b/Aviso/App.config
@@ -90,12 +90,16 @@
      </dependentAssembly>
      <dependentAssembly>
        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
-        <bindingRedirect oldVersion="0.0.0.0-4.2.0.0" newVersion="4.2.0.0" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
      </dependentAssembly>
      <dependentAssembly>
        <assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
        <bindingRedirect oldVersion="0.0.0.0-10.7.21.0" newVersion="10.7.21.0" />
      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Microsoft.Bcl.AsyncInterfaces" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-5.0.0.0" newVersion="5.0.0.0" />
+      </dependentAssembly>
    </assemblyBinding>
  </runtime>
  <system.web>
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -148,8 +148,8 @@
      <SpecificVersion>False</SpecificVersion>
      <HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
    </Reference>
-    <Reference Include="BouncyCastle.Cryptography">
-      <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\allDll\BouncyCastle.Cryptography.dll</HintPath>
+    <Reference Include="BouncyCastle.Cryptography, Version=2.0.0.0, Culture=neutral, PublicKeyToken=072edcf4a5328938, processorArchitecture=MSIL">
+      <HintPath>..\packages\BouncyCastle.Cryptography.2.6.2\lib\net461\BouncyCastle.Cryptography.dll</HintPath>
    </Reference>
    <Reference Include="ChilkatDotNet47, Version=9.5.0.88, Culture=neutral, PublicKeyToken=eb5fc1fc52ef09bd, processorArchitecture=AMD64">
      <SpecificVersion>False</SpecificVersion>
@@ -201,32 +201,44 @@
    <Reference Include="Gemeinsames">
      <HintPath>..\Gemeinsames\bin\Debug\Gemeinsames.dll</HintPath>
    </Reference>
-    <Reference Include="itext.barcodes, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.barcodes.dll</HintPath>
+    <Reference Include="itext.barcodes, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.barcodes.dll</HintPath>
    </Reference>
-    <Reference Include="itext.forms, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.forms.dll</HintPath>
+    <Reference Include="itext.bouncy-castle-adapter, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.bouncy-castle-adapter.9.6.0\lib\net461\itext.bouncy-castle-adapter.dll</HintPath>
    </Reference>
-    <Reference Include="itext.io, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.io.dll</HintPath>
+    <Reference Include="itext.bouncy-castle-connector, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.bouncy-castle-connector.dll</HintPath>
    </Reference>
-    <Reference Include="itext.kernel, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.kernel.dll</HintPath>
+    <Reference Include="itext.commons, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.commons.9.6.0\lib\net461\itext.commons.dll</HintPath>
    </Reference>
-    <Reference Include="itext.layout, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.layout.dll</HintPath>
+    <Reference Include="itext.forms, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.forms.dll</HintPath>
    </Reference>
-    <Reference Include="itext.pdfa, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.pdfa.dll</HintPath>
+    <Reference Include="itext.io, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.io.dll</HintPath>
    </Reference>
-    <Reference Include="itext.sign, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.sign.dll</HintPath>
+    <Reference Include="itext.kernel, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.kernel.dll</HintPath>
    </Reference>
-    <Reference Include="itext.styledxmlparser, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.styledxmlparser.dll</HintPath>
+    <Reference Include="itext.layout, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.layout.dll</HintPath>
    </Reference>
-    <Reference Include="itext.svg, Version=7.1.11.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
-      <HintPath>..\packages\itext7.7.1.11\lib\net40\itext.svg.dll</HintPath>
+    <Reference Include="itext.pdfa, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.pdfa.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.pdfua, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.pdfua.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.sign, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.sign.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.styledxmlparser, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.styledxmlparser.dll</HintPath>
+    </Reference>
+    <Reference Include="itext.svg, Version=9.6.0.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
+      <HintPath>..\packages\itext.9.6.0\lib\net461\itext.svg.dll</HintPath>
    </Reference>
    <Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
@@ -397,8 +409,8 @@
    <Reference Include="Microsoft.AspNetCore.Http.Abstractions">
      <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Http.Abstractions.dll</HintPath>
    </Reference>
-    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=1.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
-      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.1.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=5.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Bcl.AsyncInterfaces.5.0.0\lib\net461\Microsoft.Bcl.AsyncInterfaces.dll</HintPath>
    </Reference>
    <Reference Include="Microsoft.CSharp" />
    <Reference Include="Microsoft.Extensions.Configuration">
@@ -407,15 +419,27 @@
    <Reference Include="Microsoft.Extensions.Configuration.Abstractions">
      <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.Configuration.Abstractions.dll</HintPath>
    </Reference>
-    <Reference Include="Microsoft.Extensions.DependencyInjection">
-      <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.DependencyInjection.dll</HintPath>
+    <Reference Include="Microsoft.Extensions.DependencyInjection, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.DependencyInjection.5.0.0\lib\net461\Microsoft.Extensions.DependencyInjection.dll</HintPath>
    </Reference>
-    <Reference Include="Microsoft.Extensions.DependencyInjection.Abstractions">
-      <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.DependencyInjection.Abstractions.dll</HintPath>
+    <Reference Include="Microsoft.Extensions.DependencyInjection.Abstractions, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.DependencyInjection.Abstractions.5.0.0\lib\net461\Microsoft.Extensions.DependencyInjection.Abstractions.dll</HintPath>
    </Reference>
    <Reference Include="Microsoft.Extensions.Hosting">
      <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.Hosting.dll</HintPath>
    </Reference>
+    <Reference Include="Microsoft.Extensions.Logging, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Logging.5.0.0\lib\net461\Microsoft.Extensions.Logging.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Extensions.Logging.Abstractions, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Logging.Abstractions.5.0.0\lib\net461\Microsoft.Extensions.Logging.Abstractions.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Extensions.Options, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Options.5.0.0\lib\net461\Microsoft.Extensions.Options.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.Extensions.Primitives, Version=5.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
+      <HintPath>..\packages\Microsoft.Extensions.Primitives.5.0.0\lib\net461\Microsoft.Extensions.Primitives.dll</HintPath>
+    </Reference>
    <Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
      <EmbedInteropTypes>True</EmbedInteropTypes>
    </Reference>
@@ -455,6 +479,9 @@
    <Reference Include="System.Data" />
    <Reference Include="System.Deployment" />
    <Reference Include="System.Design" />
+    <Reference Include="System.Diagnostics.DiagnosticSource, Version=5.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Diagnostics.DiagnosticSource.5.0.0\lib\net46\System.Diagnostics.DiagnosticSource.dll</HintPath>
+    </Reference>
    <Reference Include="System.DirectoryServices" />
    <Reference Include="System.Drawing" />
    <Reference Include="System.Drawing.Design" />
@@ -501,6 +528,9 @@
    <Reference Include="System.Runtime.Serialization" />
    <Reference Include="System.Runtime.Serialization.Formatters.Soap" />
    <Reference Include="System.Security" />
+    <Reference Include="System.Security.AccessControl, Version=6.0.0.1, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.AccessControl.6.0.1\lib\net461\System.Security.AccessControl.dll</HintPath>
+    </Reference>
    <Reference Include="System.Security.Cryptography.Algorithms, Version=4.2.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
      <HintPath>..\packages\System.Security.Cryptography.Algorithms.4.3.0\lib\net463\System.Security.Cryptography.Algorithms.dll</HintPath>
      <Private>True</Private>
@@ -524,13 +554,19 @@
      <Private>True</Private>
      <Private>True</Private>
    </Reference>
+    <Reference Include="System.Security.Cryptography.Xml, Version=6.0.0.2, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Cryptography.Xml.6.0.2\lib\net461\System.Security.Cryptography.Xml.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Security.Principal.Windows, Version=5.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Security.Principal.Windows.5.0.0\lib\net461\System.Security.Principal.Windows.dll</HintPath>
+    </Reference>
    <Reference Include="System.ServiceModel" />
    <Reference Include="System.ServiceModel.Web" />
    <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 Include="System.Threading.Tasks.Extensions, Version=4.2.0.1, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.4\lib\net461\System.Threading.Tasks.Extensions.dll</HintPath>
    </Reference>
    <Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
      <HintPath>..\packages\System.ValueTuple.4.5.0\lib\net461\System.ValueTuple.dll</HintPath>
--- a/Aviso/AvisoStatusFunctions.vb
+++ b/Aviso/AvisoStatusFunctions.vb
@@ -2375,7 +2375,7 @@ ELSE_ATILLA:
        If AbfertigungsNr <= 0 Then Return False

        If FilialenNr <> 4805 And FilialenNr <> 4811 Then ' Kein Ü-T 
-            Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_Wiedergestellungsdatum ,'') as WG FROM   tblDakosy_Zollanmeldungen   inner join tblDakosy_nctsout on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
+            Dim dt = VERAGSQL.loadDgvBySql("SELECT isnull(dy_vbd_dsid,'') as DsId ,isnull(isnull(ncts_MRN,ncts_ANR),'') as MRN, isnull(ncts_LimitDate ,'') as WG FROM   tblDakosy_Zollanmeldungen   inner join tblDakosy_NCTSOut004 on dy_id=ncts_dyaAnmID where dy_SendungsId='" & SendungsId & "' and dy_status <= 70 order by dy_status desc, dy_Erstellung desc", "FMZOLL")
            If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                AtcMrn = dt.Rows(0)("MRN")
                dsId = dt.Rows(0)("DsId")
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("4.2.6.9")>
-<Assembly: AssemblyFileVersion("4.2.6.9")>
+<Assembly: AssemblyVersion("4.2.8.3")>
+<Assembly: AssemblyFileVersion("4.2.8.3")>
--- a/Aviso/frmGesamtsicherheitenMenuNEU.vb
+++ b/Aviso/frmGesamtsicherheitenMenuNEU.vb
@@ -24,13 +24,14 @@ Public Class frmGesamtsicherheitenMenuNEU


        Select Case Standort
-            Case "Verag GmbH" : firmaId = 2 : chkOffen.Checked = True
-            Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False
-            Case "IMEX" : firmaId = 20 : chkOffen.Checked = False
-            Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False
-            Case "Unisped GmbH" : firmaId = 21 : chkOffen.Checked = False
-            Case "AMBAR GmbH" : firmaId = 24 : chkOffen.Checked = False
-            Case "Atilla GmbH" : firmaId = 7 : chkOffen.Checked = False
+            Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2 : chkOffen.Checked = True
+            Case Sicherheiten_Standort.VERAG_AG : firmaId = 1 : chkOffen.Checked = False
+            Case Sicherheiten_Standort.IMEX : firmaId = 20 : chkOffen.Checked = False
+            Case Sicherheiten_Standort.VERAG_CS : firmaId = 11 : chkOffen.Checked = False
+            Case Sicherheiten_Standort.UNISPED : firmaId = 21 : chkOffen.Checked = False
+            Case Sicherheiten_Standort.AMBAR : firmaId = 24 : chkOffen.Checked = False
+            Case Sicherheiten_Standort.ATILLA : firmaId = 7 : chkOffen.Checked = False
+            Case Sicherheiten_Standort.ZOLLERN : firmaId = 90 : chkOffen.Checked = False
        End Select


@@ -41,9 +42,9 @@ Public Class frmGesamtsicherheitenMenuNEU
        Me.Text = "Gesamtsicherheiten " & Standort
        frmHauptfenster.EnableDoubleBuffered(dgvListe)

-        GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
+        GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
        If GesSichRef.hasEntry = False Then
-            MsgBox("Für den Standort " & Standort & " wurde keine Referenz hingerlegt!")
+            MsgBox("Für den Standort " & Standort & " wurde keine Referenz hinterlegt!")
            Exit Sub

        End If
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -66,7 +66,20 @@ Public Class frmGesamtsicherheitenNEU
        End If


-        currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
+        Select Case Standort
+            Case Sicherheiten_Standort.VERAG_GMBH : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO : firmaId = 2
+            Case Sicherheiten_Standort.AMBAR : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO :: firmaId = 24
+            Case Sicherheiten_Standort.ATILLA : btnDAKOSY_AUTO.Enabled = False : firmaId = 7
+            Case Sicherheiten_Standort.VERAG_AG : btnDAKOSY_AUTO.Enabled = False : firmaId = 1
+            Case Sicherheiten_Standort.IMEX : btnDAKOSY_AUTO.Enabled = False : firmaId = 20
+            Case Sicherheiten_Standort.VERAG_CS : btnDAKOSY_AUTO.Enabled = False : firmaId = 11
+            Case Sicherheiten_Standort.UNISPED : btnDAKOSY_AUTO.Enabled = False : firmaId = 21
+            Case Sicherheiten_Standort.ZOLLERN : btnDAKOSY_AUTO.Enabled = False : firmaId = 90
+            Case Else : btnDAKOSY_AUTO.Enabled = False
+
+        End Select
+
+        currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaId)
        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
        lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")

@@ -100,17 +113,7 @@ Public Class frmGesamtsicherheitenNEU
        initPrevNextButtons()
        changeLabel()

-        Select Case Standort
-            Case "Verag GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
-            Case "AMBAR GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
-            Case "Atilla GmbH" : btnDAKOSY_AUTO.Enabled = False
-            Case "VERAG AG" : btnDAKOSY_AUTO.Enabled = False
-            Case "IMEX" : btnDAKOSY_AUTO.Enabled = False
-            Case "Verag CS" : btnDAKOSY_AUTO.Enabled = False
-            Case "Unisped GmbH" : btnDAKOSY_AUTO.Enabled = False
-            Case Else : btnDAKOSY_AUTO.Enabled = False

-        End Select

        Me.Text = "Gesamtsicherheit " & Standort
        frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
@@ -172,7 +175,7 @@ Public Class frmGesamtsicherheitenNEU
                        .Columns("gs_ust").DefaultCellStyle.Format = "c2"

                    Case Else
-                        If Standort = "Verag GmbH" Then
+                        If Standort = Sicherheiten_Standort.VERAG_GMBH Then
                            .Columns("gs_ATBNr").HeaderText = "Reg-Nr."
                        Else
                            .Columns("gs_ATBNr").HeaderText = "T1 MRN"
@@ -241,7 +244,21 @@ Public Class frmGesamtsicherheitenNEU

        Me.Cursor = Cursors.WaitCursor

-        Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
+
+        Select Case standort
+            Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
+            Case Sicherheiten_Standort.AMBAR : firmaId = 24
+            Case Sicherheiten_Standort.ATILLA : firmaId = 7
+            Case Sicherheiten_Standort.VERAG_AG : firmaId = 1
+            Case Sicherheiten_Standort.IMEX : firmaId = 20
+            Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
+            Case Sicherheiten_Standort.UNISPED : firmaId = 21
+            Case Else
+
+        End Select
+
+
+        Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)


        'Dim gsnr As String
@@ -422,7 +439,21 @@ Public Class frmGesamtsicherheitenNEU

        Me.Cursor = Cursors.WaitCursor

-        Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
+
+        Select Case standort
+            Case Sicherheiten_Standort.VERAG_GMBH : firmaId = 2
+            Case Sicherheiten_Standort.AMBAR : firmaId = 24
+            Case Sicherheiten_Standort.ATILLA : firmaId = 7
+            Case Sicherheiten_Standort.VERAG_AG : firmaId = 1
+            Case Sicherheiten_Standort.IMEX : firmaId = 20
+            Case Sicherheiten_Standort.VERAG_CS : firmaId = 11
+            Case Sicherheiten_Standort.UNISPED : firmaId = 21
+            Case Else
+
+        End Select
+
+
+        Dim currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)

        Dim gsnr As String
        Dim counter = 0
@@ -464,7 +495,7 @@ Public Class frmGesamtsicherheitenNEU
        dtSicherheiten.Columns.Add("SSaldo")

        If currentGesSichRef Is Nothing Then
-            currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort)
+            currentGesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(standort, firmaId)
        End If

        Dim drFirst = dtSicherheiten.NewRow
@@ -561,9 +592,9 @@ Public Class frmGesamtsicherheitenNEU
                .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                Select Case currentGesSichRef.brgakto_gs_ATR
                    Case True
-                        If Standort = "Verag GmbH" Then
+                        If Standort = Sicherheiten_Standort.VERAG_GMBH Then
                            .Columns("gsp_MRNNr").HeaderText = "ATC. / MRN"
-                        ElseIf Standort = "VERAG AG" Then
+                        ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then
                            .Columns("gsp_MRNNr").HeaderText = "T1 CRN"
                        Else
                            .Columns("gsp_MRNNr").HeaderText = "EZA / T1 CRN"
@@ -2081,7 +2112,7 @@ Public Class frmGesamtsicherheitenNEU

    Private Sub changeLabel(Optional isATR As Boolean = True)

-        If Standort = "Verag GmbH" Then
+        If Standort = Sicherheiten_Standort.VERAG_GMBH Then
            'Label1.Text = "Reg-Nr."

            If isATR Then
@@ -2092,7 +2123,7 @@ Public Class frmGesamtsicherheitenNEU
            End If


-        ElseIf Standort = "VERAG AG" Then
+        ElseIf Standort = Sicherheiten_Standort.VERAG_AG Then
            Label12.Text = "T1 CRN"
            'Label1.Text = "T1 MRN"
        Else
@@ -2325,7 +2356,7 @@ Public Class frmGesamtsicherheitenNEU
        Dim whereWarenort As String = " WHERE [wo_aktiv] = 1  AND wo_ze = 1"


-        If Standort = "Atilla GmbH" Then
+        If Standort = Sicherheiten_Standort.ATILLA Then

            '----'nicht unisped und cs und ambar aber alle anderen - laut j.Siener am 23.03.2026

@@ -2345,7 +2376,7 @@ Public Class frmGesamtsicherheitenNEU

        If setDefaultValue AndAlso cboWarenort.Items.Count > 0 Then

-            If Standort = "AMBAR GmbH" Then
+            If Standort = Sicherheiten_Standort.AMBAR Then
                For i As Integer = 0 To cboFiliale.Items.Count - 1
                    If cboFiliale.Items(i).ToString().Contains("5701") Then
                        cboFiliale.SelectedIndex = i
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
        Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -99,6 +99,7 @@ Partial Class frmHauptfenster
        Me.NEUToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AMBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DTBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KLIPPHAUSENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.SpracheWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DeutschToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.EnglishToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -193,6 +194,9 @@ Partial Class frmHauptfenster
        Me.AnnahmeblattIMPORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AnnahmeblattEXPORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ChecklisteVerwahrlagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
        Me.EinheitspapierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.CMRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -424,7 +428,7 @@ Partial Class frmHauptfenster
        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
        Me.Panel5 = New System.Windows.Forms.Panel()
        Me.Panel7 = New System.Windows.Forms.Panel()
-        Me.KLIPPHAUSENToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DEZollernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.pnlDetailsRechts.SuspendLayout()
@@ -843,46 +847,52 @@ Partial Class frmHauptfenster
        'SUBToolStripMenuItem
        '
        Me.SUBToolStripMenuItem.Name = "SUBToolStripMenuItem"
-        Me.SUBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SUBToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
        Me.SUBToolStripMenuItem.Text = "SUB"
        '
        'SBGToolStripMenuItem
        '
        Me.SBGToolStripMenuItem.Name = "SBGToolStripMenuItem"
-        Me.SBGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SBGToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
        Me.SBGToolStripMenuItem.Text = "SBG"
        '
        'WAIToolStripMenuItem
        '
        Me.WAIToolStripMenuItem.Name = "WAIToolStripMenuItem"
-        Me.WAIToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.WAIToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
        Me.WAIToolStripMenuItem.Text = "WAI"
        '
        'NKDToolStripMenuItem
        '
        Me.NKDToolStripMenuItem.Name = "NKDToolStripMenuItem"
-        Me.NKDToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NKDToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
        Me.NKDToolStripMenuItem.Text = "NKD"
        '
        'NEUToolStripMenuItem
        '
        Me.NEUToolStripMenuItem.Name = "NEUToolStripMenuItem"
-        Me.NEUToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NEUToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
        Me.NEUToolStripMenuItem.Text = "NEU"
        '
        'AMBToolStripMenuItem
        '
        Me.AMBToolStripMenuItem.Name = "AMBToolStripMenuItem"
-        Me.AMBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AMBToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
        Me.AMBToolStripMenuItem.Text = "AMB"
        Me.AMBToolStripMenuItem.Visible = False
        '
        'DTBToolStripMenuItem
        '
        Me.DTBToolStripMenuItem.Name = "DTBToolStripMenuItem"
-        Me.DTBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.DTBToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
        Me.DTBToolStripMenuItem.Text = "DTB"
        '
+        'KLIPPHAUSENToolStripMenuItem
+        '
+        Me.KLIPPHAUSENToolStripMenuItem.Name = "KLIPPHAUSENToolStripMenuItem"
+        Me.KLIPPHAUSENToolStripMenuItem.Size = New System.Drawing.Size(150, 22)
+        Me.KLIPPHAUSENToolStripMenuItem.Text = "KLIPPHAUSEN"
+        '
        'SpracheWechselnToolStripMenuItem
        '
        Me.SpracheWechselnToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DeutschToolStripMenuItem, Me.EnglishToolStripMenuItem, Me.TürkischToolStripMenuItem})
@@ -950,26 +960,26 @@ Partial Class frmHauptfenster
        'GenerelleGestellungenDurchsuchenToolStripMenuItem
        '
        Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Name = "GenerelleGestellungenDurchsuchenToolStripMenuItem"
-        Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Text = "Generelle Gestellungen durchsuchen"
        Me.GenerelleGestellungenDurchsuchenToolStripMenuItem.Visible = False
        '
        'KundenVonFremdenSpeditionenToolStripMenuItem
        '
        Me.KundenVonFremdenSpeditionenToolStripMenuItem.Name = "KundenVonFremdenSpeditionenToolStripMenuItem"
-        Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.KundenVonFremdenSpeditionenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.KundenVonFremdenSpeditionenToolStripMenuItem.Text = "Kunden von fremden Speditionen"
        '
        'KundenverwaltungToolStripMenuItem
        '
        Me.KundenverwaltungToolStripMenuItem.Name = "KundenverwaltungToolStripMenuItem"
-        Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.KundenverwaltungToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.KundenverwaltungToolStripMenuItem.Text = "Kundenverwaltung"
        '
        'MDMParkplatzkartenToolStripMenuItem
        '
        Me.MDMParkplatzkartenToolStripMenuItem.Name = "MDMParkplatzkartenToolStripMenuItem"
-        Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.MDMParkplatzkartenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.MDMParkplatzkartenToolStripMenuItem.Text = "MDM - Parkplatzkarten"
        '
        'SMSSendenToolStripMenuItem
@@ -977,7 +987,7 @@ Partial Class frmHauptfenster
        Me.SMSSendenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.GesendeteSMSToolStripMenuItem})
        Me.SMSSendenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.handy2
        Me.SMSSendenToolStripMenuItem.Name = "SMSSendenToolStripMenuItem"
-        Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.SMSSendenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.SMSSendenToolStripMenuItem.Text = "SMS"
        '
        'NeueSMSSendenToolStripMenuItem
@@ -995,139 +1005,139 @@ Partial Class frmHauptfenster
        'ZollprogrammeNachEORIDurchsuchenToolStripMenuItem
        '
        Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Name = "ZollprogrammeNachEORIDurchsuchenToolStripMenuItem"
-        Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem.Text = "Zollprogramme nach EORI durchsuchen"
        '
        'MRNBarcodedruckToolStripMenuItem
        '
        Me.MRNBarcodedruckToolStripMenuItem.Name = "MRNBarcodedruckToolStripMenuItem"
-        Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
        '
        'NewsletterToolStripMenuItem
        '
        Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem"
-        Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.NewsletterToolStripMenuItem.Text = "Newsletter"
        '
        'ToolStripSeparator12
        '
        Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
-        Me.ToolStripSeparator12.Size = New System.Drawing.Size(380, 6)
+        Me.ToolStripSeparator12.Size = New System.Drawing.Size(388, 6)
        '
        'tool_BRGXLS
        '
        Me.tool_BRGXLS.Name = "tool_BRGXLS"
-        Me.tool_BRGXLS.Size = New System.Drawing.Size(383, 22)
+        Me.tool_BRGXLS.Size = New System.Drawing.Size(391, 30)
        Me.tool_BRGXLS.Text = "Bürgschaften Excel"
        '
        'ToolStripMenuItem4
        '
        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
-        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(383, 22)
+        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(391, 30)
        Me.ToolStripMenuItem4.Text = "DE | Gesamtsicherheit VERAG GmbH - Excel"
        Me.ToolStripMenuItem4.Visible = False
        '
        'ToolStripMenuItem5
        '
        Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
-        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(383, 22)
+        Me.ToolStripMenuItem5.Size = New System.Drawing.Size(391, 30)
        Me.ToolStripMenuItem5.Text = "AT | Gesamtsicherheit VERAG AG - Excel"
        Me.ToolStripMenuItem5.Visible = False
        '
        'BürgschaftenExcelToolStripMenuItem
        '
        Me.BürgschaftenExcelToolStripMenuItem.Name = "BürgschaftenExcelToolStripMenuItem"
-        Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.BürgschaftenExcelToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.BürgschaftenExcelToolStripMenuItem.Text = "AT | Gesamtsicherheit VERAG Customs Service - Excel"
        Me.BürgschaftenExcelToolStripMenuItem.Visible = False
        '
        'ToolStripMenuItem6
        '
        Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(383, 22)
+        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(391, 30)
        Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
        Me.ToolStripMenuItem6.Visible = False
        '
        'GesamtsicherheitenToolStripMenuItem
        '
-        Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem, Me.ATAtillaToolStripMenuItem, Me.ReferenzwerteToolStripMenuItem})
+        Me.GesamtsicherheitenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATVeragAGToolStripMenuItem, Me.ATImexCSToolStripMenuItem, Me.ATVeragCSToolStripMenuItem, Me.DEVeragGmbHToolStripMenuItem, Me.ATUnispedGmbHToolStripMenuItem, Me.DEAmbarToolStripMenuItem, Me.ATAtillaToolStripMenuItem, Me.DEZollernToolStripMenuItem, Me.ReferenzwerteToolStripMenuItem})
        Me.GesamtsicherheitenToolStripMenuItem.Name = "GesamtsicherheitenToolStripMenuItem"
-        Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.GesamtsicherheitenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.GesamtsicherheitenToolStripMenuItem.Text = "Gesamtsicherheiten"
        Me.GesamtsicherheitenToolStripMenuItem.Visible = False
        '
        'ATVeragAGToolStripMenuItem
        '
        Me.ATVeragAGToolStripMenuItem.Name = "ATVeragAGToolStripMenuItem"
-        Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.ATVeragAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ATVeragAGToolStripMenuItem.Text = "AT | Verag AG"
        '
        'ATImexCSToolStripMenuItem
        '
        Me.ATImexCSToolStripMenuItem.Name = "ATImexCSToolStripMenuItem"
-        Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.ATImexCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ATImexCSToolStripMenuItem.Text = "AT | IMEX CS GmbH"
        '
        'ATVeragCSToolStripMenuItem
        '
        Me.ATVeragCSToolStripMenuItem.Name = "ATVeragCSToolStripMenuItem"
-        Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.ATVeragCSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ATVeragCSToolStripMenuItem.Text = "AT | Verag CS"
        '
        'DEVeragGmbHToolStripMenuItem
        '
        Me.DEVeragGmbHToolStripMenuItem.Name = "DEVeragGmbHToolStripMenuItem"
-        Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.DEVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.DEVeragGmbHToolStripMenuItem.Text = "DE | Verag GmbH"
        '
        'ATUnispedGmbHToolStripMenuItem
        '
        Me.ATUnispedGmbHToolStripMenuItem.Name = "ATUnispedGmbHToolStripMenuItem"
-        Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.ATUnispedGmbHToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ATUnispedGmbHToolStripMenuItem.Text = "AT | Unisped GmbH"
        '
        'DEAmbarToolStripMenuItem
        '
        Me.DEAmbarToolStripMenuItem.Name = "DEAmbarToolStripMenuItem"
-        Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.DEAmbarToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.DEAmbarToolStripMenuItem.Text = "DE | Ambar GmbH"
        Me.DEAmbarToolStripMenuItem.Visible = False
        '
        'ATAtillaToolStripMenuItem
        '
        Me.ATAtillaToolStripMenuItem.Name = "ATAtillaToolStripMenuItem"
-        Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.ATAtillaToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ATAtillaToolStripMenuItem.Text = "AT | Atilla GmbH"
        '
        'ReferenzwerteToolStripMenuItem
        '
        Me.ReferenzwerteToolStripMenuItem.Name = "ReferenzwerteToolStripMenuItem"
-        Me.ReferenzwerteToolStripMenuItem.Size = New System.Drawing.Size(179, 22)
+        Me.ReferenzwerteToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ReferenzwerteToolStripMenuItem.Text = "Referenzwerte"
        '
        'ToolStripMenuItem10
        '
        Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
-        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(383, 22)
+        Me.ToolStripMenuItem10.Size = New System.Drawing.Size(391, 30)
        Me.ToolStripMenuItem10.Text = "TICKET Parkplatz"
        '
        'TICKETWaidhausToolStripMenuItem
        '
        Me.TICKETWaidhausToolStripMenuItem.Name = "TICKETWaidhausToolStripMenuItem"
-        Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.TICKETWaidhausToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.TICKETWaidhausToolStripMenuItem.Text = "Infoschreiben Parkplatz"
        '
        'ToolStripSeparator10
        '
        Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
-        Me.ToolStripSeparator10.Size = New System.Drawing.Size(380, 6)
+        Me.ToolStripSeparator10.Size = New System.Drawing.Size(388, 6)
        '
        'DAKOSYToolStripMenuItem
        '
        Me.DAKOSYToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StammreferenzenVerwaltenToolStripMenuItem})
        Me.DAKOSYToolStripMenuItem.Name = "DAKOSYToolStripMenuItem"
-        Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.DAKOSYToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.DAKOSYToolStripMenuItem.Text = "DAKOSY"
        '
        'StammreferenzenVerwaltenToolStripMenuItem
@@ -1139,76 +1149,76 @@ Partial Class frmHauptfenster
        'ToolStripSeparator23
        '
        Me.ToolStripSeparator23.Name = "ToolStripSeparator23"
-        Me.ToolStripSeparator23.Size = New System.Drawing.Size(380, 6)
+        Me.ToolStripSeparator23.Size = New System.Drawing.Size(388, 6)
        '
        'toolOriginalATR
        '
        Me.toolOriginalATR.Image = Global.AVISO.My.Resources.Resources.atr
        Me.toolOriginalATR.Name = "toolOriginalATR"
-        Me.toolOriginalATR.Size = New System.Drawing.Size(383, 22)
+        Me.toolOriginalATR.Size = New System.Drawing.Size(391, 30)
        Me.toolOriginalATR.Text = "Original-ATR"
        '
        'SDLAbholaufträgeToolStripMenuItem
        '
        Me.SDLAbholaufträgeToolStripMenuItem.Name = "SDLAbholaufträgeToolStripMenuItem"
-        Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.SDLAbholaufträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.SDLAbholaufträgeToolStripMenuItem.Text = "SDL Abholaufträge"
        '
        'ToolStripMenuItem13
        '
        Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
-        Me.ToolStripMenuItem13.Size = New System.Drawing.Size(383, 22)
+        Me.ToolStripMenuItem13.Size = New System.Drawing.Size(391, 30)
        Me.ToolStripMenuItem13.Text = "Postversand (Einschreiben)"
        '
        'VerträgeToolStripMenuItem
        '
        Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
        Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem"
-        Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.VerträgeToolStripMenuItem.Text = "Verträge"
        '
        'VorauskassenToolStripMenuItem
        '
        Me.VorauskassenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.vorauszahlung
        Me.VorauskassenToolStripMenuItem.Name = "VorauskassenToolStripMenuItem"
-        Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
        '
        'ToolStripSeparator11
        '
        Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
-        Me.ToolStripSeparator11.Size = New System.Drawing.Size(380, 6)
+        Me.ToolStripSeparator11.Size = New System.Drawing.Size(388, 6)
        '
        'EssensbestellungenToolStripMenuItem
        '
        Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
-        Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
        Me.EssensbestellungenToolStripMenuItem.Visible = False
        '
        'AdministrationEssensbestellungenToolStripMenuItem
        '
        Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
-        Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
        Me.AdministrationEssensbestellungenToolStripMenuItem.Visible = False
        '
        'ToolStripSeparator24
        '
        Me.ToolStripSeparator24.Name = "ToolStripSeparator24"
-        Me.ToolStripSeparator24.Size = New System.Drawing.Size(380, 6)
+        Me.ToolStripSeparator24.Size = New System.Drawing.Size(388, 6)
        '
        'WarenorteToolStripMenuItem
        '
        Me.WarenorteToolStripMenuItem.Name = "WarenorteToolStripMenuItem"
-        Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.WarenorteToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.WarenorteToolStripMenuItem.Text = "Warenorte"
        '
        'DatevBuchungsexportToolStripMenuItem
        '
        Me.DatevBuchungsexportToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EMAILToolStripMenuItem, Me.FTPToolStripMenuItem})
        Me.DatevBuchungsexportToolStripMenuItem.Name = "DatevBuchungsexportToolStripMenuItem"
-        Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.DatevBuchungsexportToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.DatevBuchungsexportToolStripMenuItem.Text = "Datev  Buchungsexport"
        Me.DatevBuchungsexportToolStripMenuItem.Visible = False
        '
@@ -1227,13 +1237,13 @@ Partial Class frmHauptfenster
        'APIToolStripMenuItem
        '
        Me.APIToolStripMenuItem.Name = "APIToolStripMenuItem"
-        Me.APIToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.APIToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.APIToolStripMenuItem.Text = "API"
        '
        'FIBUSachkontenToolStripMenuItem
        '
        Me.FIBUSachkontenToolStripMenuItem.Name = "FIBUSachkontenToolStripMenuItem"
-        Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
+        Me.FIBUSachkontenToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
        Me.FIBUSachkontenToolStripMenuItem.Text = "FIBU Sachkonten"
        Me.FIBUSachkontenToolStripMenuItem.Visible = False
        '
@@ -1294,7 +1304,7 @@ Partial Class frmHauptfenster
        'ToolStripFormulare
        '
        Me.ToolStripFormulare.BackColor = System.Drawing.Color.White
-        Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.MailvorlagenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.CarnetTIRToolStripMenuItem, Me.CarnetTIRALTToolStripMenuItem})
+        Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.MailvorlagenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripMenuItem3, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.CarnetTIRToolStripMenuItem, Me.CarnetTIRALTToolStripMenuItem})
        Me.ToolStripFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripFormulare.ForeColor = System.Drawing.Color.Black
        Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight
@@ -1477,6 +1487,25 @@ Partial Class frmHauptfenster
        Me.ChecklisteVerwahrlagerToolStripMenuItem.Size = New System.Drawing.Size(244, 22)
        Me.ChecklisteVerwahrlagerToolStripMenuItem.Text = "Checkliste Verwahrlager"
        '
+        'ToolStripMenuItem3
+        '
+        Me.ToolStripMenuItem3.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem23, Me.ToolStripMenuItem25})
+        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(277, 22)
+        Me.ToolStripMenuItem3.Text = "KLIPPHAUSEN"
+        '
+        'ToolStripMenuItem23
+        '
+        Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
+        Me.ToolStripMenuItem23.Size = New System.Drawing.Size(243, 22)
+        Me.ToolStripMenuItem23.Text = "Annahmeblatt EXPORT DE / TR"
+        '
+        'ToolStripMenuItem25
+        '
+        Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
+        Me.ToolStripMenuItem25.Size = New System.Drawing.Size(243, 22)
+        Me.ToolStripMenuItem25.Text = "Annahmeblatt EXPORT DE / SRB"
+        '
        'ToolStripSeparator13
        '
        Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
@@ -2714,38 +2743,38 @@ Partial Class frmHauptfenster
        Me.gridMyAviso.AllowUserToDeleteRows = False
        Me.gridMyAviso.AllowUserToOrderColumns = True
        Me.gridMyAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
-        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        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.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
        Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, 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.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
        Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
        Me.gridMyAviso.Name = "gridMyAviso"
        Me.gridMyAviso.ReadOnly = True
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, 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.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, 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.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
        Me.gridMyAviso.RowHeadersVisible = False
        Me.gridMyAviso.RowHeadersWidth = 62
        Me.gridMyAviso.Size = New System.Drawing.Size(328, 279)
@@ -3172,47 +3201,47 @@ Partial Class frmHauptfenster
        Me.gridAviso.AllowUserToAddRows = False
        Me.gridAviso.AllowUserToDeleteRows = False
        Me.gridAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
        Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
        Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
        Me.gridAviso.ColumnHeadersHeight = 25
        Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
-        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.ControlText
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
        Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridAviso.Location = New System.Drawing.Point(0, 248)
        Me.gridAviso.MultiSelect = False
        Me.gridAviso.Name = "gridAviso"
        Me.gridAviso.ReadOnly = True
-        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.[False]
-        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
        Me.gridAviso.RowHeadersVisible = False
        Me.gridAviso.RowHeadersWidth = 62
        Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9
        Me.gridAviso.RowTemplate.ReadOnly = True
        Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
        Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -4063,11 +4092,11 @@ Partial Class frmHauptfenster
        Me.Panel7.Size = New System.Drawing.Size(252, 51)
        Me.Panel7.TabIndex = 4
        '
-        'KLIPPHAUSENToolStripMenuItem
+        'DEZollernToolStripMenuItem
        '
-        Me.KLIPPHAUSENToolStripMenuItem.Name = "KLIPPHAUSENToolStripMenuItem"
-        Me.KLIPPHAUSENToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.KLIPPHAUSENToolStripMenuItem.Text = "KLIPPHAUSEN"
+        Me.DEZollernToolStripMenuItem.Name = "DEZollernToolStripMenuItem"
+        Me.DEZollernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.DEZollernToolStripMenuItem.Text = "DE | Zollern"
        '
        'frmHauptfenster
        '
@@ -4534,4 +4563,8 @@ Partial Class frmHauptfenster
    Friend WithEvents PrüfeBilderAufBase64ToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ReferenzwerteToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents KLIPPHAUSENToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
+    Friend WithEvents DEZollernToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmHauptfenster.resx
+++ b/Aviso/frmHauptfenster.resx
@@ -257,9 +257,6 @@
        sDvNfNUAAAAASUVORK5CYII=
 </value>
  </data>
-  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>560, 17</value>
-  </metadata>
  <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>659, 17</value>
  </metadata>
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -4781,17 +4781,20 @@ ELSE_ATILLA:
        Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
    End Sub

-    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click, ATAtillaToolStripMenuItem.Click
+    Private Sub ATGesamtsicherheitVeragAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATVeragAGToolStripMenuItem.Click, DEVeragGmbHToolStripMenuItem.Click, ATImexCSToolStripMenuItem.Click, ATVeragCSToolStripMenuItem.Click, ATUnispedGmbHToolStripMenuItem.Click, DEAmbarToolStripMenuItem.Click, ATAtillaToolStripMenuItem.Click, DEZollernToolStripMenuItem.Click
+
+

        Dim frm As New frmGesamtsicherheitenMenuNEU()
        Select Case sender.name
-            Case "ATVeragAGToolStripMenuItem" : frm.Standort = "VERAG AG"
-            Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = "Verag GmbH"
-            Case "ATImexCSToolStripMenuItem" : frm.Standort = "IMEX"
-            Case "ATVeragCSToolStripMenuItem" : frm.Standort = "Verag CS"
-            Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = "Unisped GmbH"
-            Case "DEAmbarToolStripMenuItem" : frm.Standort = "AMBAR GmbH"
-            Case "ATAtillaToolStripMenuItem" : frm.Standort = "Atilla GmbH"
+            Case "ATVeragAGToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_AG
+            Case "DEVeragGmbHToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_GMBH
+            Case "ATImexCSToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.IMEX
+            Case "ATVeragCSToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.VERAG_CS
+            Case "ATUnispedGmbHToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.UNISPED
+            Case "DEAmbarToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.AMBAR
+            Case "ATAtillaToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.ATILLA
+            Case "DEZollernToolStripMenuItem" : frm.Standort = Sicherheiten_Standort.ZOLLERN
        End Select

        frm.Show()
@@ -5457,4 +5460,14 @@ ELSE_ATILLA:
            MsgBox("Keine Berechtigung!")
        End If
    End Sub
+
+    Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_TR")
+        DS.OPEN_SINGLE_ORIG()
+    End Sub
+
+    Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_YU")
+        DS.OPEN_SINGLE_ORIG()
+    End Sub
 End Class
--- a/Aviso/frmHauptfensterNew.Designer.vb
+++ b/Aviso/frmHauptfensterNew.Designer.vb
@@ -288,6 +288,7 @@ Partial Class frmHauptfensterNew
        Me.btnKasse_LG = New System.Windows.Forms.Button()
        Me.btnTV = New System.Windows.Forms.Button()
        Me.Panel9 = New System.Windows.Forms.Panel()
+        Me.Button4 = New System.Windows.Forms.Button()
        Me.btnSmall = New System.Windows.Forms.Button()
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
@@ -323,7 +324,9 @@ Partial Class frmHauptfensterNew
        Me.Panel7 = New System.Windows.Forms.Panel()
        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
        Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService()
-        Me.Button4 = New System.Windows.Forms.Button()
+        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem25 = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.pnlDetailsRechts.SuspendLayout()
@@ -1143,7 +1146,7 @@ Partial Class frmHauptfensterNew
        'ToolStripFormulare
        '
        Me.ToolStripFormulare.BackColor = System.Drawing.Color.White
-        Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.MailvorlagenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.CarnetTIRToolStripMenuItem, Me.CarnetTIRALTToolStripMenuItem})
+        Me.ToolStripFormulare.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MANAGERToolStripMenuItem, Me.ToolStripSeparator3, Me.MailvorlagenToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem7, Me.ToolStripMenuItem12, Me.ToolStripMenuItem15, Me.ToolStripMenuItem18, Me.AuftragÜberwachungsdokumentToolStripMenuItem, Me.toolVUB, Me.toolVPCreditreform, Me.ToolStripSeparator9, Me.VerzollungsunterlagenToolStripMenuItem, Me.ToolStripMenuItem11, Me.ToolStripSeparator6, Me.WAIDHAUSToolStripMenuItem, Me.ToolStripMenuItem3, Me.ToolStripSeparator13, Me.EinheitspapierToolStripMenuItem, Me.CMRToolStripMenuItem, Me.Einheitspapier0735VersandverfahrenToolStripMenuItem, Me.CarnetTIRToolStripMenuItem, Me.CarnetTIRALTToolStripMenuItem})
        Me.ToolStripFormulare.Font = New System.Drawing.Font("Segoe UI", 9.0!)
        Me.ToolStripFormulare.ForeColor = System.Drawing.Color.Black
        Me.ToolStripFormulare.ImageAlign = System.Drawing.ContentAlignment.BottomRight
@@ -1157,20 +1160,20 @@ Partial Class frmHauptfensterNew
        Me.MANAGERToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
        Me.MANAGERToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.android_note
        Me.MANAGERToolStripMenuItem.Name = "MANAGERToolStripMenuItem"
-        Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.MANAGERToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.MANAGERToolStripMenuItem.Text = "Formular - Manager"
        '
        'ToolStripSeparator3
        '
        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(274, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(282, 6)
        '
        'MailvorlagenToolStripMenuItem
        '
        Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold)
        Me.MailvorlagenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.stift
        Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem"
-        Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen"
        Me.MailvorlagenToolStripMenuItem.Visible = False
        '
@@ -1178,7 +1181,7 @@ Partial Class frmHauptfensterNew
        '
        Me.ToolStripMenuItem2.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.toolStrVM_at, Me.toolStrVM_at4200, Me.ZollvollmachtATEVToolStripMenuItem})
        Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
-        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(277, 22)
+        Me.ToolStripMenuItem2.Size = New System.Drawing.Size(285, 30)
        Me.ToolStripMenuItem2.Text = "Vollmachten"
        '
        'toolStrVM_de
@@ -1214,38 +1217,38 @@ Partial Class frmHauptfensterNew
        'ToolStripMenuItem7
        '
        Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
-        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(277, 22)
+        Me.ToolStripMenuItem7.Size = New System.Drawing.Size(285, 30)
        Me.ToolStripMenuItem7.Text = "Gestellungsgarantien"
        '
        'ToolStripMenuItem12
        '
        Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
-        Me.ToolStripMenuItem12.Size = New System.Drawing.Size(277, 22)
+        Me.ToolStripMenuItem12.Size = New System.Drawing.Size(285, 30)
        Me.ToolStripMenuItem12.Text = "Importaviso"
        '
        'ToolStripMenuItem15
        '
        Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
-        Me.ToolStripMenuItem15.Size = New System.Drawing.Size(277, 22)
+        Me.ToolStripMenuItem15.Size = New System.Drawing.Size(285, 30)
        Me.ToolStripMenuItem15.Text = "Dispoliste"
        '
        'ToolStripMenuItem18
        '
        Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
-        Me.ToolStripMenuItem18.Size = New System.Drawing.Size(277, 22)
+        Me.ToolStripMenuItem18.Size = New System.Drawing.Size(285, 30)
        Me.ToolStripMenuItem18.Text = "Verzollungspreise"
        '
        'AuftragÜberwachungsdokumentToolStripMenuItem
        '
        Me.AuftragÜberwachungsdokumentToolStripMenuItem.Name = "AuftragÜberwachungsdokumentToolStripMenuItem"
-        Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.AuftragÜberwachungsdokumentToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.AuftragÜberwachungsdokumentToolStripMenuItem.Text = "Auftrag Überwachungsdokument"
        '
        'toolVUB
        '
        Me.toolVUB.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VUBVERAGSpeditionAGToolStripMenuItem, Me.VeragCustomsServiceToolStripMenuItem})
        Me.toolVUB.Name = "toolVUB"
-        Me.toolVUB.Size = New System.Drawing.Size(277, 22)
+        Me.toolVUB.Size = New System.Drawing.Size(285, 30)
        Me.toolVUB.Text = "VUB"
        '
        'VUBVERAGSpeditionAGToolStripMenuItem
@@ -1263,37 +1266,37 @@ Partial Class frmHauptfensterNew
        'toolVPCreditreform
        '
        Me.toolVPCreditreform.Name = "toolVPCreditreform"
-        Me.toolVPCreditreform.Size = New System.Drawing.Size(277, 22)
+        Me.toolVPCreditreform.Size = New System.Drawing.Size(285, 30)
        Me.toolVPCreditreform.Text = "Bonitätsauskunft (Creditreform)"
        Me.toolVPCreditreform.Visible = False
        '
        'ToolStripSeparator9
        '
        Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
-        Me.ToolStripSeparator9.Size = New System.Drawing.Size(274, 6)
+        Me.ToolStripSeparator9.Size = New System.Drawing.Size(282, 6)
        '
        'VerzollungsunterlagenToolStripMenuItem
        '
        Me.VerzollungsunterlagenToolStripMenuItem.Name = "VerzollungsunterlagenToolStripMenuItem"
-        Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.VerzollungsunterlagenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.VerzollungsunterlagenToolStripMenuItem.Text = "Verzollungsunterlagen"
        '
        'ToolStripMenuItem11
        '
        Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
-        Me.ToolStripMenuItem11.Size = New System.Drawing.Size(277, 22)
+        Me.ToolStripMenuItem11.Size = New System.Drawing.Size(285, 30)
        Me.ToolStripMenuItem11.Text = "Verzollungsunterlagen BAR"
        '
        'ToolStripSeparator6
        '
        Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
-        Me.ToolStripSeparator6.Size = New System.Drawing.Size(274, 6)
+        Me.ToolStripSeparator6.Size = New System.Drawing.Size(282, 6)
        '
        'WAIDHAUSToolStripMenuItem
        '
        Me.WAIDHAUSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.AnnahmeblattIMPORTToolStripMenuItem, Me.AnnahmeblattEXPORTToolStripMenuItem, Me.ChecklisteVerwahrlagerToolStripMenuItem})
        Me.WAIDHAUSToolStripMenuItem.Name = "WAIDHAUSToolStripMenuItem"
-        Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.WAIDHAUSToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.WAIDHAUSToolStripMenuItem.Text = "WAIDHAUS"
        '
        'ToolStripMenuItem8
@@ -1329,36 +1332,36 @@ Partial Class frmHauptfensterNew
        'ToolStripSeparator13
        '
        Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
-        Me.ToolStripSeparator13.Size = New System.Drawing.Size(274, 6)
+        Me.ToolStripSeparator13.Size = New System.Drawing.Size(282, 6)
        '
        'EinheitspapierToolStripMenuItem
        '
        Me.EinheitspapierToolStripMenuItem.Name = "EinheitspapierToolStripMenuItem"
-        Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.EinheitspapierToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.EinheitspapierToolStripMenuItem.Text = "Einheitspapier 0777 (Vereinfachte ZA)"
        '
        'CMRToolStripMenuItem
        '
        Me.CMRToolStripMenuItem.Name = "CMRToolStripMenuItem"
-        Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.CMRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.CMRToolStripMenuItem.Text = "CMR"
        '
        'Einheitspapier0735VersandverfahrenToolStripMenuItem
        '
        Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Name = "Einheitspapier0735VersandverfahrenToolStripMenuItem"
-        Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)"
        '
        'CarnetTIRToolStripMenuItem
        '
        Me.CarnetTIRToolStripMenuItem.Name = "CarnetTIRToolStripMenuItem"
-        Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.CarnetTIRToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.CarnetTIRToolStripMenuItem.Text = "Carnet TIR"
        '
        'CarnetTIRALTToolStripMenuItem
        '
        Me.CarnetTIRALTToolStripMenuItem.Name = "CarnetTIRALTToolStripMenuItem"
-        Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
+        Me.CarnetTIRALTToolStripMenuItem.Size = New System.Drawing.Size(285, 30)
        Me.CarnetTIRALTToolStripMenuItem.Text = "Carnet TIR (ALT)"
        '
        'mnuFragezeichen
@@ -2558,6 +2561,25 @@ Partial Class frmHauptfensterNew
        Me.Panel9.Size = New System.Drawing.Size(156, 157)
        Me.Panel9.TabIndex = 88
        '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Button4.Cursor = System.Windows.Forms.Cursors.Default
+        Me.Button4.FlatAppearance.BorderSize = 3
+        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.Button4.ForeColor = System.Drawing.Color.Black
+        Me.Button4.Image = Global.AVISO.My.Resources.Resources.ico_atez_tariffAI
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.Location = New System.Drawing.Point(11, 84)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
+        Me.Button4.Size = New System.Drawing.Size(135, 52)
+        Me.Button4.TabIndex = 8
+        Me.Button4.Text = "Tariff AI"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.UseVisualStyleBackColor = False
+        '
        'btnSmall
        '
        Me.btnSmall.BackColor = System.Drawing.Color.White
@@ -2853,24 +2875,24 @@ Partial Class frmHauptfensterNew
        Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/"
        Me.UidAbfrageService1.UseDefaultCredentials = False
        '
-        'Button4
+        'ToolStripMenuItem3
        '
-        Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.Button4.Cursor = System.Windows.Forms.Cursors.Default
-        Me.Button4.FlatAppearance.BorderSize = 3
-        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.Button4.ForeColor = System.Drawing.Color.Black
-        Me.Button4.Image = Global.AVISO.My.Resources.Resources.ico_atez_tariffAI
-        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button4.Location = New System.Drawing.Point(11, 84)
-        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
-        Me.Button4.Size = New System.Drawing.Size(135, 52)
-        Me.Button4.TabIndex = 8
-        Me.Button4.Text = "Tariff AI"
-        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.UseVisualStyleBackColor = False
+        Me.ToolStripMenuItem3.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem23, Me.ToolStripMenuItem25})
+        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(285, 30)
+        Me.ToolStripMenuItem3.Text = "KLIPPHAUSEN"
+        '
+        'ToolStripMenuItem23
+        '
+        Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
+        Me.ToolStripMenuItem23.Size = New System.Drawing.Size(243, 22)
+        Me.ToolStripMenuItem23.Text = "Annahmeblatt EXPORT DE / TR"
+        '
+        'ToolStripMenuItem25
+        '
+        Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
+        Me.ToolStripMenuItem25.Size = New System.Drawing.Size(243, 22)
+        Me.ToolStripMenuItem25.Text = "Annahmeblatt EXPORT DE / SRB"
        '
        'frmHauptfensterNew
        '
@@ -3236,4 +3258,7 @@ Partial Class frmHauptfensterNew
    Friend WithEvents btnDEFAULT_UnSelected As Button
    Friend WithEvents UsrCntlMessenger_ListNewChats1 As VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ListNewChats
    Friend WithEvents Button4 As Button
+    Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
 End Class
--- a/Aviso/frmHauptfensterNew.vb
+++ b/Aviso/frmHauptfensterNew.vb
@@ -3959,4 +3959,15 @@ ELSE_ATILLA:
    Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click

    End Sub
+
+    Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_TR")
+        DS.OPEN_SINGLE_ORIG()
+    End Sub
+
+
+    Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Annahmeblatt_KLIPP_EXPORT_YU")
+        DS.OPEN_SINGLE_ORIG()
+    End Sub
 End Class
--- a/Aviso/frmLaufzettel.vb
+++ b/Aviso/frmLaufzettel.vb
@@ -425,7 +425,7 @@ Public Class frmLaufzettel
                            Mail.To = "poststelle.za-dettelbach@zoll.bund.de"
                            tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_DTB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
                        Case "WAI"
-                            Mail.To = ""
+                            Mail.To = "zE-zV-VERAG.hza-regensburg@zoll.bund.de"
                            tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
                        Case "SBG"
                            Mail.To = ""
@@ -514,9 +514,9 @@ Public Class frmLaufzettel

                        For Each p In paths
                            If p <> "" Then
-                                If Not System.IO.Directory.Exists(p) Then Continue For
-                                Dim fileInfo As New IO.FileInfo(p)
-                                If Not fileInfo.Exists Then Continue For
+                                'If Not System.IO.Directory.Exists(p) Then Continue For
+                                'Dim fileInfo As New IO.FileInfo(p)
+                                'If Not fileInfo.Exists Then Continue For
                                VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({p}, cboPrinter.SelectedItem.ToString)
                            End If

@@ -543,11 +543,11 @@ Public Class frmLaufzettel
        Else
            Dim path = SDL.FormularManagerNEU.LaufzettelZollDE(AvisoID, False,, digitalDruck)
            If path <> "" Then
-                Dim fileInfo As New IO.FileInfo(path)
-                If fileInfo.Exists Then
-                    'Process.Start(path)
-                    VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
-                End If
+                'Dim fileInfo As New IO.FileInfo(path)
+                'If fileInfo.Exists Then
+                'Process.Start(path)
+                VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({path}, cboPrinter.SelectedItem.ToString)
+                'End If
            End If
        End If

--- a/Aviso/packages.config
+++ b/Aviso/packages.config
@@ -1,5 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
+  <package id="BouncyCastle.Cryptography" version="2.6.2" targetFramework="net48" />
  <package id="cef.redist.x64" version="75.1.14" targetFramework="net47" />
  <package id="cef.redist.x86" version="75.1.14" targetFramework="net47" />
  <package id="CefSharp.Common" version="75.1.143" targetFramework="net47" />
@@ -15,14 +16,24 @@
  <package id="GrapeCity.Documents.Imaging" version="2.2.0.315" targetFramework="net461" />
  <package id="GrapeCity.Documents.Pdf" version="2.2.0.315" targetFramework="net461" />
  <package id="GroupDocs.Viewer" version="19.8.0" targetFramework="net461" />
-  <package id="itext7" version="7.1.11" targetFramework="net47" />
+  <package id="itext" version="9.6.0" targetFramework="net48" />
+  <package id="itext.bouncy-castle-adapter" version="9.6.0" targetFramework="net48" />
+  <package id="itext.commons" version="9.6.0" targetFramework="net48" />
+  <package id="itext7" version="9.6.0" targetFramework="net48" />
  <package id="librdkafka.redist" version="2.11.1" targetFramework="net48" />
-  <package id="Microsoft.Bcl.AsyncInterfaces" version="1.0.0" targetFramework="net47" />
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="5.0.0" targetFramework="net48" />
  <package id="Microsoft.CSharp" version="4.0.1" targetFramework="net47" />
+  <package id="Microsoft.Extensions.DependencyInjection" version="5.0.0" targetFramework="net48" />
+  <package id="Microsoft.Extensions.DependencyInjection.Abstractions" version="5.0.0" targetFramework="net48" />
+  <package id="Microsoft.Extensions.Logging" version="5.0.0" targetFramework="net48" />
+  <package id="Microsoft.Extensions.Logging.Abstractions" version="5.0.0" targetFramework="net48" />
+  <package id="Microsoft.Extensions.Options" version="5.0.0" targetFramework="net48" />
+  <package id="Microsoft.Extensions.Primitives" version="5.0.0" targetFramework="net48" />
  <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.6.1" targetFramework="net48" />
+  <package id="System.Diagnostics.DiagnosticSource" version="5.0.0" targetFramework="net48" />
  <package id="System.Interactive.Async" version="4.0.0" targetFramework="net48" />
  <package id="System.IO" version="4.3.0" targetFramework="net48" />
  <package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net47" />
@@ -33,12 +44,15 @@
  <package id="System.Numerics.Vectors" version="4.6.1" targetFramework="net48" />
  <package id="System.Runtime" version="4.3.0" targetFramework="net48" />
  <package id="System.Runtime.CompilerServices.Unsafe" version="6.1.2" targetFramework="net48" />
+  <package id="System.Security.AccessControl" version="6.0.1" targetFramework="net48" />
  <package id="System.Security.Cryptography.Algorithms" version="4.3.0" targetFramework="net48" />
  <package id="System.Security.Cryptography.Encoding" version="4.3.0" targetFramework="net48" />
  <package id="System.Security.Cryptography.Pkcs" version="8.0.0" targetFramework="net47" />
  <package id="System.Security.Cryptography.Primitives" version="4.3.0" targetFramework="net48" />
  <package id="System.Security.Cryptography.X509Certificates" version="4.3.0" targetFramework="net48" />
+  <package id="System.Security.Cryptography.Xml" version="6.0.2" targetFramework="net48" />
+  <package id="System.Security.Principal.Windows" version="5.0.0" targetFramework="net48" />
  <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.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
  <package id="System.ValueTuple" version="4.5.0" targetFramework="net461" requireReinstallation="true" />
 </packages>
--- a/Aviso/usrCntlSND_ATBGestellung.Designer.vb
+++ b/Aviso/usrCntlSND_ATBGestellung.Designer.vb
@@ -24,24 +24,26 @@ Partial Class usrCntlSND_ATBGestellung
    Private Sub InitializeComponent()
        Me.pnlT1 = New System.Windows.Forms.Panel()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
+        Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.btnGesSicherheit = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label33 = New System.Windows.Forms.Label()
-        Me.txtT1Datum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
        Me.txtT1VerzollungsadresseBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label33 = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
        Me.pnlT1.SuspendLayout()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnlT1
        '
+        Me.pnlT1.Controls.Add(Me.Button2)
        Me.pnlT1.Controls.Add(Me.PictureBox5)
        Me.pnlT1.Controls.Add(Me.txtT1Datum)
        Me.pnlT1.Controls.Add(Me.DateTimePicker1)
@@ -70,6 +72,31 @@ Partial Class usrCntlSND_ATBGestellung
        Me.PictureBox5.TabIndex = 132
        Me.PictureBox5.TabStop = False
        '
+        'txtT1Datum
+        '
+        Me.txtT1Datum._DateTimeOnly = False
+        Me.txtT1Datum._numbersOnly = False
+        Me.txtT1Datum._numbersOnlyKommastellen = ""
+        Me.txtT1Datum._numbersOnlyTrennzeichen = True
+        Me.txtT1Datum._Prozent = False
+        Me.txtT1Datum._ShortDateNew = True
+        Me.txtT1Datum._ShortDateOnly = False
+        Me.txtT1Datum._TimeOnly = False
+        Me.txtT1Datum._TimeOnly_Seconds = False
+        Me.txtT1Datum._value = ""
+        Me.txtT1Datum._Waehrung = False
+        Me.txtT1Datum._WaehrungZeichen = True
+        Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtT1Datum.ForeColor = System.Drawing.Color.Black
+        Me.txtT1Datum.Location = New System.Drawing.Point(272, 33)
+        Me.txtT1Datum.MaxLength = 10
+        Me.txtT1Datum.MaxLineLength = -1
+        Me.txtT1Datum.MaxLines_Warning = ""
+        Me.txtT1Datum.MaxLines_Warning_Label = Nothing
+        Me.txtT1Datum.Name = "txtT1Datum"
+        Me.txtT1Datum.Size = New System.Drawing.Size(83, 20)
+        Me.txtT1Datum.TabIndex = 38
+        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.CustomFormat = "''"
@@ -125,60 +152,6 @@ Partial Class usrCntlSND_ATBGestellung
        Me.cbxATBFakturieren.ThreeState = True
        Me.cbxATBFakturieren.UseVisualStyleBackColor = True
        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(23, 59)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(92, 13)
-        Me.Label4.TabIndex = 20
-        Me.Label4.Text = "ATB / Gestellung:"
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(23, 81)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(51, 13)
-        Me.Label3.TabIndex = 15
-        Me.Label3.Text = "Zollstelle:"
-        '
-        'Label33
-        '
-        Me.Label33.AutoSize = True
-        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label33.Location = New System.Drawing.Point(23, 14)
-        Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(79, 13)
-        Me.Label33.TabIndex = 3
-        Me.Label33.Text = "Vorpapier / T1:"
-        '
-        'txtT1Datum
-        '
-        Me.txtT1Datum._DateTimeOnly = False
-        Me.txtT1Datum._numbersOnly = False
-        Me.txtT1Datum._numbersOnlyKommastellen = ""
-        Me.txtT1Datum._numbersOnlyTrennzeichen = True
-        Me.txtT1Datum._Prozent = False
-        Me.txtT1Datum._ShortDateNew = True
-        Me.txtT1Datum._ShortDateOnly = False
-        Me.txtT1Datum._TimeOnly = False
-        Me.txtT1Datum._TimeOnly_Seconds = False
-        Me.txtT1Datum._value = ""
-        Me.txtT1Datum._Waehrung = False
-        Me.txtT1Datum._WaehrungZeichen = True
-        Me.txtT1Datum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtT1Datum.ForeColor = System.Drawing.Color.Black
-        Me.txtT1Datum.Location = New System.Drawing.Point(272, 33)
-        Me.txtT1Datum.MaxLength = 10
-        Me.txtT1Datum.MaxLineLength = -1
-        Me.txtT1Datum.MaxLines_Warning = ""
-        Me.txtT1Datum.MaxLines_Warning_Label = Nothing
-        Me.txtT1Datum.Name = "txtT1Datum"
-        Me.txtT1Datum.Size = New System.Drawing.Size(83, 20)
-        Me.txtT1Datum.TabIndex = 38
-        '
        'txtATBNr
        '
        Me.txtATBNr._DateTimeOnly = False
@@ -225,6 +198,25 @@ Partial Class usrCntlSND_ATBGestellung
        Me.txtATBT1.Size = New System.Drawing.Size(269, 20)
        Me.txtATBT1.TabIndex = 22
        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.Location = New System.Drawing.Point(23, 59)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(92, 13)
+        Me.Label4.TabIndex = 20
+        Me.Label4.Text = "ATB / Gestellung:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(23, 81)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(51, 13)
+        Me.Label3.TabIndex = 15
+        Me.Label3.Text = "Zollstelle:"
+        '
        'txtT1VerzollungsadresseBestimmungszollstelle
        '
        Me.txtT1VerzollungsadresseBestimmungszollstelle._allowFreitext = False
@@ -251,6 +243,27 @@ Partial Class usrCntlSND_ATBGestellung
        Me.txtT1VerzollungsadresseBestimmungszollstelle.TabIndex = 16
        Me.txtT1VerzollungsadresseBestimmungszollstelle.usrcntl = Nothing
        '
+        'Label33
+        '
+        Me.Label33.AutoSize = True
+        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label33.Location = New System.Drawing.Point(23, 14)
+        Me.Label33.Name = "Label33"
+        Me.Label33.Size = New System.Drawing.Size(79, 13)
+        Me.Label33.TabIndex = 3
+        Me.Label33.Text = "Vorpapier / T1:"
+        '
+        'Button2
+        '
+        Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(424, 94)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(94, 28)
+        Me.Button2.TabIndex = 133
+        Me.Button2.Text = "Saldocheck"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
        'usrCntlSND_ATBGestellung
        '
        Me.Controls.Add(Me.pnlT1)
@@ -276,4 +289,5 @@ Partial Class usrCntlSND_ATBGestellung
    Friend WithEvents txtT1Datum As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents DateTimePicker1 As DateTimePicker
    Friend WithEvents PictureBox5 As PictureBox
+    Friend WithEvents Button2 As Button
 End Class
--- a/Aviso/usrCntlSND_ATBGestellung.vb
+++ b/Aviso/usrCntlSND_ATBGestellung.vb
@@ -1,6 +1,5 @@
 Imports DAKOSY_Worker
 Imports SDL
-
 Imports VERAG_PROG_ALLGEMEIN


@@ -82,52 +81,53 @@ Public Class usrCntlSND_ATBGestellung

                End If

-                Dim Standort As String = ""
+            Dim Standort As String = ""
+            Dim firmaID As Integer = -1

-                Select Case SND.FilialenNr
+            Select Case SND.FilialenNr
                    Case 4803, 4809
-                        Standort = "VERAG AG"
-                    Case 5601
-                        Standort = "Unisped GmbH"
-                    Case 5701
-                        Standort = "AMBAR GmbH"
-                    Case 4810, 5103, 5901
-                        Standort = "VERAG GmbH"
-                    Case 5501
-                        Standort = "IMEX"
-                End Select
+                    Standort = Sicherheiten_Standort.VERAG_AG : firmaID = 1
+                Case 5601
+                    Standort = Sicherheiten_Standort.UNISPED : firmaID = 21
+                Case 5701
+                    Standort = Sicherheiten_Standort.AMBAR : firmaID = 24
+                Case 4810, 5103, 5901
+                    Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
+                Case 5501
+                    Standort = Sicherheiten_Standort.IMEX : firmaID = 20
+            End Select

                'sonderfälle lt. Mestan
                If SND.tblSnd_Zollsystem_Land = "DE" Then

                    Select Case SND.FilialenNr
                        Case 5501, 4803, 4809, 5103
-                            Standort = "VERAG GmbH"
-                    End Select
+                        Standort = Sicherheiten_Standort.VERAG_GMBH : firmaID = 2
+                End Select

                ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then

                    If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA  
-                        Standort = "VERAG CS"
-                    ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
+                    Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
+                ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
                        Select Case SND.FilialenNr
                            Case 4803, 5303, 4809, 5103
-                                Standort = "VERAG CS"
-                        End Select
+                            Standort = Sicherheiten_Standort.VERAG_CS : firmaID = 11
+                    End Select

                    End If

                End If


-                Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
-                If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
+            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort, firmaID)
+            If GesSichRef Is Nothing Then MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub

                Dim saldo = CDbl(GesSichRef.CalcSaldo())

-                Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.gsr_zollsatz / 100)
+            Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.brgakto_gs_zollsatz / 100)

-                If sicherheitsbertrag > saldo Then
+            If sicherheitsbertrag > saldo Then
                If MsgBox(Standort & vbNewLine & "Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
            End If

@@ -362,4 +362,7 @@ Public Class usrCntlSND_ATBGestellung
        Process.Start(webAddress)
    End Sub

+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+    End Sub
 End Class
Author	SHA1	Message	Date
d.breimaier	817e98a51a	Version	2026-05-13 13:45:44 +02:00
d.breimaier	bb6dba4d0d	Merge branch 'master' of https://git.it.verag.ag/edv/AVISO	2026-05-11 16:46:57 +02:00
d.breimaier	0ea0d5c5b5	Version	2026-05-11 16:46:50 +02:00
d.breimaier	a09ff7dba1	div. Änderungen	2026-05-11 16:43:04 +02:00
Andreas Luxbauer	ab670ff08e	Merge branch 'master' of https://git.it.verag.ag/edv/AVISO	2026-05-08 10:46:29 +02:00
Andreas Luxbauer	5ced439568	MRN T1 Freigabe-Mails	2026-05-08 10:46:23 +02:00
d.breimaier	ea40105ffc	Version	2026-05-06 11:36:01 +02:00
d.breimaier	67afa8c669	Zollern, etc.	2026-05-06 11:32:13 +02:00
d.breimaier	3245242f3e	Versoin	2026-05-05 11:41:26 +02:00
d.breimaier	dfc17fe013	Version, etc.	2026-05-04 17:36:48 +02:00
d.breimaier	5508548d74	Version	2026-05-04 15:34:45 +02:00
d.breimaier	df05d16aa3	gesamtsicherheiten, etc.	2026-05-04 11:47:10 +02:00
d.breimaier	7c9cc1007a	merge	2026-04-29 15:50:47 +02:00
d.breimaier	352bafc618	version	2026-04-29 15:48:48 +02:00
Andreas Luxbauer	dd8e11fe74	aa	2026-04-29 15:41:39 +02:00
d.breimaier	448d72ed23	Version	2026-04-28 08:17:00 +02:00
d.breimaier	44e7070c74	mergee	2026-04-27 17:09:22 +02:00
d.breimaier	e118d47b5e	Update, etc.	2026-04-27 17:09:00 +02:00
Andreas Luxbauer	75f98ec51d	Merge branch 'master' of https://git.it.verag.ag/edv/AVISO	2026-04-27 16:56:15 +02:00
Andreas Luxbauer	e85d7ec574	exg	2026-04-27 16:56:08 +02:00
d.breimaier	2e9b3b0f6b	Laufzettel fix	2026-04-27 09:04:29 +02:00
d.breimaier	553847cb63	Merge branch 'master' of https://git.it.verag.ag/edv/AVISO	2026-04-27 08:34:46 +02:00
d.breimaier	5e1f0cdceb	version	2026-04-27 08:34:39 +02:00
Andreas Luxbauer	c7c4e0efa0	merge	2026-04-27 08:14:19 +02:00
Andreas Luxbauer	9d125e3a87	vers	2026-04-27 08:13:35 +02:00