neu

2021-09-07 08:31:10 +02:00
parent 2d06d935ef
commit 787491cf6b
36 changed files with 1090 additions and 631 deletions
--- a/AVISOUPDATER/AVISOUPDATER.vbproj
+++ b/AVISOUPDATER/AVISOUPDATER.vbproj
@@ -16,7 +16,7 @@
    </TargetFrameworkProfile>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
--- a/AVISO_CHECKIN/AVISO_CHECKIN.vbproj
+++ b/AVISO_CHECKIN/AVISO_CHECKIN.vbproj
@@ -16,7 +16,7 @@
    <Deterministic>true</Deterministic>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
--- a/Aviso/App.config
+++ b/Aviso/App.config
@@ -6,7 +6,8 @@
        </sectionGroup>
    </configSections>
    <connectionStrings>
-        <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
+        <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+            providerName="System.Data.SqlClient" />
    </connectionStrings>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -40,7 +40,7 @@
    <BootstrapperEnabled>true</BootstrapperEnabled>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
-    <PlatformTarget>x86</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
@@ -101,6 +101,13 @@
  <PropertyGroup>
    <DelaySign>false</DelaySign>
  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
+    <PlatformTarget>x64</PlatformTarget>
+    <OutputPath>bin\Debug\</OutputPath>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
+    <PlatformTarget>x64</PlatformTarget>
+  </PropertyGroup>
  <ItemGroup>
    <Reference Include="Accessibility" />
    <Reference Include="BouncyCastle.Crypto, Version=1.8.5.0, Culture=neutral, PublicKeyToken=0e99375e54769942, processorArchitecture=MSIL">
@@ -181,7 +188,40 @@
      <SpecificVersion>False</SpecificVersion>
      <HintPath>..\..\..\dll\itextsharp.pdfa.dll</HintPath>
    </Reference>
+    <Reference Include="Microsoft.AspNetCore.Authentication">
+      <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Authentication.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.AspNetCore.Authentication.Cookies">
+      <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Authentication.Cookies.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.AspNetCore.Hosting">
+      <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Hosting.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.AspNetCore.Hosting.Abstractions">
+      <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Hosting.Abstractions.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.AspNetCore.Http">
+      <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Http.dll</HintPath>
+    </Reference>
+    <Reference Include="Microsoft.AspNetCore.Http.Abstractions">
+      <HintPath>..\..\..\dll\ASP.NET\Microsoft.AspNetCore.Http.Abstractions.dll</HintPath>
+    </Reference>
    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="Microsoft.Extensions.Configuration">
+      <HintPath>..\..\..\dll\ASP.NET\Microsoft.Extensions.Configuration.dll</HintPath>
+    </Reference>
+    <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>
+    <Reference Include="Microsoft.Extensions.DependencyInjection.Abstractions">
+      <HintPath>..\..\..\dll\ASP.NET\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.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
      <EmbedInteropTypes>True</EmbedInteropTypes>
    </Reference>
@@ -206,17 +246,17 @@
    <Reference Include="NumericBox">
      <HintPath>..\..\..\dll\NumericBox.dll</HintPath>
    </Reference>
-    <Reference Include="Spire.License, Version=1.3.8.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
+    <Reference Include="Spire.License, Version=1.4.0.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\PDF Spire\6.10\Spire.License.dll</HintPath>
+      <HintPath>..\..\..\dll\Spire.PDF\2021\Spire.License.dll</HintPath>
    </Reference>
-    <Reference Include="Spire.Pdf, Version=6.8.5.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
+    <Reference Include="Spire.Pdf, Version=7.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\PDF Spire\6.10\Spire.Pdf.dll</HintPath>
+      <HintPath>..\..\..\dll\Spire.PDF\2021\Spire.Pdf.dll</HintPath>
    </Reference>
-    <Reference Include="Spire.PdfViewer.Forms, Version=5.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
+    <Reference Include="Spire.PdfViewer.Forms, Version=6.6.0.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\PDF Spire\6.10\Spire.PdfViewer.Forms.dll</HintPath>
+      <HintPath>..\..\..\dll\Spire.PDF\2021\Spire.PdfViewer.Forms.dll</HintPath>
    </Reference>
    <Reference Include="System" />
    <Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
@@ -397,6 +437,12 @@
    <Compile Include="Classes\cSendungsoptions.vb" />
    <Compile Include="cProgramFunctions.vb" />
    <Compile Include="cServerClient.vb" />
+    <Compile Include="cTESTT.Designer.vb">
+      <DependentUpon>cTESTT.vb</DependentUpon>
+    </Compile>
+    <Compile Include="cTESTT.vb">
+      <SubType>Form</SubType>
+    </Compile>
    <Compile Include="cUpdateUpdater.vb" />
    <Compile Include="Dokumentenbeschriftung\frmPrintLayout.Designer.vb">
      <DependentUpon>frmPrintLayout.vb</DependentUpon>
@@ -1268,6 +1314,8 @@
    <None Include="Resources\abklaerungTR_Aktiv.jpg" />
    <None Include="Resources\fragezeichen1.png" />
    <None Include="Resources\AMB.png" />
+    <None Include="Resources\sprinter.png" />
+    <None Include="Resources\sprinter_white.png" />
    <Content Include="Resources\WLAN\RunNHide.exe">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </Content>
--- a/Aviso/CHMRC.vb
+++ b/Aviso/CHMRC.vb
@@ -1,6 +1,90 @@
-Public Class CHMRC
+Imports System.Net.Http
+Imports System.Web
+Imports System
+Imports Microsoft.AspNetCore.Authentication.Cookies
+Imports Microsoft.AspNetCore.Builder
+Imports Microsoft.AspNetCore.Hosting
+Imports Microsoft.AspNetCore.Http
+Imports Microsoft.Extensions.Configuration
+Imports Microsoft.Extensions.DependencyInjection
+Imports Microsoft.Extensions.Hosting
+
+'Public Class Startup
+'    Public Sub New(ByVal configuration As IConfiguration)
+'        configuration = configuration
+'    End Sub
+
+'    Public ReadOnly Property Configuration As IConfiguration
+
+'    Public Sub ConfigureServices(ByVal services As IServiceCollection)
+'        services.Configure(Configuration)
+
+'        services.Configure(Of CookiePolicyOptions)(Function(options)
+'                                                       options.CheckConsentNeeded = Function(context) True
+'                                                       options.MinimumSameSitePolicy = SameSiteMode.None
+'                                                   End Function)
+'        services.AddSession(Function(options)
+'                                options.IdleTimeout = TimeSpan.FromSeconds(10)
+'                                options.Cookie.HttpOnly = True
+'                                options.Cookie.IsEssential = True
+'                            End Function)
+'        services.AddAuthentication(Function(options)
+'                                       options.DefaultAuthenticateScheme = CookieAuthenticationDefaults.AuthenticationScheme
+'                                       options.DefaultSignInScheme = CookieAuthenticationDefaults.AuthenticationScheme
+'                                       options.DefaultChallengeScheme = "HMRC"
+'                                   End Function).AddCookie().AddOAuth("HMRC", Function(options)
+'                                                                                  options.ClientId = Configuration("clientId")
+'                                                                                  options.ClientSecret = Configuration("clientSecret")
+'                                                                                  options.CallbackPath = New PathString(Configuration("oauthCallbackUri"))
+'                                                                                  options.Scope.Add("hello")
+'                                                                                  options.SaveTokens = True
+'                                                                                  options.AuthorizationEndpoint = Configuration("uri") & "/oauth/authorize"
+'                                                                                  options.TokenEndpoint = Configuration("uri") & "/oauth/token"
+'                                                                              End Function)
+'        services.AddRazorPages(Function(options)
+'                                   options.Conventions.AddPageRoute("/HelloWorld/Index", "")
+'                               End Function)
+'    End Sub
+
+'    Public Sub Configure(ByVal app As IApplicationBuilder, ByVal env As IWebHostEnvironment)
+'        If env.IsDevelopment() Then
+'            app.UseDeveloperExceptionPage()
+'        Else
+'            app.UseExceptionHandler("/Error")
+'            app.UseHsts()
+'        End If
+
+'        app.UseHttpsRedirection()
+'        app.UseStaticFiles()
+'        app.UseRouting()
+'        app.UseAuthorization()
+'        app.UseAuthentication()
+'        app.UseSession()
+'        app.UseCookiePolicy()
+'        app.UseEndpoints(Function(endpoints)
+'                             endpoints.MapRazorPages()
+'                             endpoints.MapControllerRoute(name:="default", pattern:="{controller=HelloWorld}/{action=Index}")
+'                         End Function)
+'    End Sub
+'End Class
+
+
+
+
+
+Public Class CHMRC

    Shared Sub hmrcTEST()
+        'Dim client As HttpClient = HttpClientBuilder.create().build()
+        'Dim request As HttpGet = New HttpGet("https://test-api.service.hmrc.gov.uk/hello/world")
+        'request.addHeader("Accept", "application/vnd.hmrc.1.0+json")
+        'Dim response As HttpResponse = client.execute(request)
+        'Dim statusCode As Integer = response.getStatusLine().getStatusCode()
+        'Dim responseBody As String = EntityUtils.toString(response.getEntity())
+
+
+        Exit Sub
+
        Debug.WriteLine("HMRC Start")
        Dim oauth2 As Chilkat.OAuth2 = New Chilkat.OAuth2()
        Dim success As Boolean
@@ -103,7 +187,8 @@

        Debug.WriteLine(json.Emit())
        Dim fac As Chilkat.FileAccess = New Chilkat.FileAccess()
-        fac.WriteEntireTextFile("qa_data/tokens/hmrc.json", json.Emit(), "utf-8", False)
+        'fac.WriteEntireTextFile("qa_data/tokens/hmrc.json", json.Emit(), "utf-8", False)
+        fac.WriteEntireTextFile("C:\Users\DEVELOPER1\Desktop\hmrc.json", json.Emit(), "utf-8", False)


    End Sub
--- 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("3.6.7.1")>
-<Assembly: AssemblyFileVersion("3.6.7.1")>
+<Assembly: AssemblyVersion("3.6.8.6")>
+<Assembly: AssemblyFileVersion("3.6.8.6")>
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -22,7 +22,7 @@ Namespace My.Resources
    '''<summary>
    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
    '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -1239,6 +1239,26 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property sprinter() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("sprinter", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property sprinter_white() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("sprinter_white", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
@@ -1489,7 +1509,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 3.6.7.1 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 3.6.8.6 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -536,7 +536,7 @@
    <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>3.6.7.1</value>
+    <value>3.6.8.6</value>
  </data>
  <data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -604,4 +604,10 @@
  <data name="ATANAK_Instructions_Export_T1" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\ATANAK_Instructions_Export_T1.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </data>
+  <data name="sprinter" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sprinter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -15,7 +15,7 @@ Option Explicit On
 Namespace My
    
    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.0.2.0"),  _
     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase
@@ -78,17 +78,6 @@ Namespace My
            End Set
        End Property
        
-        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal"& _ 
-            "se;User ID=sa;Password=BmWr501956;")>  _
-        Public ReadOnly Property AVISO_ConnectionString_TEST() As String
-            Get
-                Return CType(Me("AVISO_ConnectionString_TEST"),String)
-            End Get
-        End Property
-        
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
@@ -100,6 +89,17 @@ Namespace My
                Me("s") = value
            End Set
        End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=fal"& _ 
+            "se;User ID=sa;Password=BmWr501956;")>  _
+        Public ReadOnly Property AVISO_ConnectionString_TEST() As String
+            Get
+                Return CType(Me("AVISO_ConnectionString_TEST"),String)
+            End Get
+        End Property
    End Class
 End Namespace

--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@@ -8,16 +8,16 @@
    <Setting Name="frmMainPosition" Type="System.Drawing.Point" Scope="User">
      <Value Profile="(Default)">200, 200</Value>
    </Setting>
+    <Setting Name="s" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
    <Setting Name="AVISO_ConnectionString_TEST" Type="(Connection string)" Scope="Application">
      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
-&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
+&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
  &lt;ConnectionString&gt;Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;&lt;/ConnectionString&gt;
  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
      <Value Profile="(Default)">Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;</Value>
    </Setting>
-    <Setting Name="s" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
  </Settings>
 </SettingsFile>
--- a/Project/license.elic.xml
+++ b/Project/license.elic.xml
@@ -1,15 +1,15 @@
 <?xml version="1.0" encoding="utf-8" standalone="yes"?>
-<License Key="Kcc8AQDam71K/TwKN8J+J66RFFuPrMAUqo5xnPNt/M3KRgFPvgBUm1KcM/ICZPXNWQdx4itZZlhQyECJlX+eIEZrG9Xv7+ZYR+Bu4EZzp4D1jBkuFk7IDX2MzPxiv1mhZYptupPef8Aw/ZL/G5vlLN3dQAhANlhRxgEROflMXhyS7Zi0I7Gkf1fYiIgFaXxnTnp0tnYIuTxtW/AQjdnoTF/x0EdCH84ELXVp/NzopJGl97hUfXguDa68anPd2RxV+hr5JnUs0/fS1uI+g6QlRsmXHrIESFZS2xF0LHpabdyDq0ugWbnkp82K0E84Y7PoHnZo/urJvFnXnmBOJec7+UykBfr5tLsAUjirHzqsvgg7hzQHZvbGWe6hw/oXKRIXl+mVlNgojO8hVMMNSh92PVgrZ6fYyGBcpeXRcDdJgzkwjxD34BiiybipxQaQaqg+ABESmvS0LeuawR3PQGbWlaGPQ0phfCOQPEZ32XBhgP+A8rNlGPK3oIpNVj4VbWnQnfhfOTwbR39zg1y3Q7bjX06i+0OgWp7uDG3oXgkZszjrcuMLnCpmBNJn8YxTv8kUcQxAi7KToEOIOoYUjkPbtddDchLepAvAF5VS1USviH44GBqJpl6DP0U/H71xfrSsY9OIOVS8460eKChYLTlxGlinfqLRbsYBbmPCmIs4HktznH/e+hwxgqggOffQgcm8ddezv3beg9p1mlatmzfMjnFreFrf6jbFp628YpakVOwXXAcz/czLeW+JChPii00TEbYTfwAT4Jd6CBGw/GoUEjuCdap0Q3u/EAAWFfEeJWe2/5yy6RSSTeD5GruiQhtYCjNXlHvmiOH9uBu5RL+tYeIHT5LC51FNsUXLRr/3XFoRju+Yy1xYME/ix5jH7zqzTxrvJDSzzOpy/Tgz4zvtW99cJYnsfNqNEKfegc3vUP8dIE/DUIcRAto0d/51FrYcDf2qRxHAHGPveImc7GnPNeut8NS5476m9iL26FWHv9O7gq6w9IUYgNThOi7HBEupPjI2/cOHdNPHo+gfvIiVDFG1jbJKs2H6CY4UQau4RW3ySoGI9FsLWacr/IKRVCi2u2rvIsxH4T5a9sdGUdaZhHMFFQTIcZcqQn6Hrff5HMe2Kv3RbxVd38w9ESqMl2T/mfbommmWB5SonvWbcm2qcThfwN+Fhcx7SzByVMPrCG+tLkj7L9UmZgyZG2FSghQY7nUDCgfH04LB6Dt84jLNhlVh1+3bbFxDawnE5Z6qDGhaRoKFmqRKxxamyCGFDekZwl9a2ORm3Tgt535Ksy/romFLiDE7K31Zf1fHxOKgCMyfH3YprEW1HXUrP1XcXtumx6OFvaEF8KVk+tUxCUigZN0QWKtlfPQv6Gm3/h/9DF0kM8Uu7LVieLjN/qmQ/38eoGjv5kyefWRWUGclIkoRoIi0PU2seG69wOhtaRgoPMhmJydMQPmw9Wvglmco3iK4VWON/ddaZmk69moUdmV3Ywez1C1DVm5M" Version="1.3">
+<License Key="dwnrAQD6L5lhoO/wj5lrUwKMO33j2gTPZ1lhuN2VFgLUXnDb8AcEWtTxaNuu4w1t8fL0DTwoP9h+VLEleF1Guf+yZ6rkI+kC+jnRp7T6GE5fsm7ux01HpyEL7a3MITHLYyNC2k+k0bfe5a3tSO1TK8KY0rDtMEBqi7AcETnYXs/ZdGbvg8325stZu4wLyrcJ/nGlh/2ZutYTyZuFbySTnEr7l4E8bP/0Du0Nplk6sKhEoccc6inKb5bLs0gJenV4vQ2cXKzWuTg3hdbfVaJahRIHiJThJHrklsJQE7WbMYAvuFXCGq/1cVr3WeqNspgqMPNVsupDxdF+skTgnTVHrxIohS6tkO+PCbtRWST92AhHpDXJdTxPcqk9pvz1RjPgu2wSgBkkU8x7g9v5M5IZDJ0hlDPYg7DnZGMfftWeeRRffnPD5wRG3snFznEfFfHv1CpXjHYjYvQdMoZVQTQKlIMy1lJQVug8AGj15FcHWFQ3JSeITQGsPMPCwbPtb5mpmpuLVRAFUYEgNx6wPgA+7T/6D3BBTzeE5izFW+vSL/87EZXzw0SSiQaYRzuOF5OJeusu6n4B6cDt1r8r9Hn31Kt7xyfelv76dXVwJGXBv4wHoW4IlzKHZue6lnNC8jLzD8j0kDONv3IaNR5F5zyPglc6wW2PfLOTAfMbfkZlmSk9UTvdum4nW+WI+aJzdu4PF+2ZyVP/FOhlAa39RaJuCIPxlHHRaIhF5cxf4u4J7ScWFJMkwxlGKf+/tyDq9P9+XrrUm41cdP4SQXNsQQz7G9pivq9c7LRU5k3Wj24CxaiKNl0JxHO1epq2XlAnQLbx4xJXEzSN7jFWyA1E99bRfteEXEDle+fgi9iK4gogIdLe4StbNjSQScVlPwJhmytvrS+kBIJZPPQ37PCpXHwghv7HbZ3IDQdHVMNjoZY52RWV/2ZR0CKXlmMmscsyaOtgfu/yHNYinIRNzKq65lrImTC+3sKWobR/TLt6jjFJ7245Sgt5QiCMEJD2/WGmsKKhCwq35pth6PqSBHLGyC3oQItwqoGoVWjP6SdPxiLf1UUeJbULg3gD/4Utlg7LYOHB2WIr2vxwHl8ASrzESuF4ollJqDDxknLiG3fUN0jO+AoFEgRo8FFqtQBJHAGPwJ6F5atrcmoK+magoQ/TiOOv/nRl2R2Zzn9oalLTC7qU2c/M76J3V7l2pU6Gpa31O05r9sn9kHMFdLTqq/cBo0joFw3czGLxHWsUOw07PoZZznYPACwl7m3sVNPCs0HBAileDcI3iROONLetxPBsHl/o6xDirK0uo+wCRI/o4kWS7v2KzBRS2Q2sypumeHUdyyipaWunfW/QlamGN6h8sKB9Wmglah/z/BG0pleMVJfS3JpjIu+HpPgSNoEumzlOtNRZwXWzTiLlhCtYjq9Ip/QeC32YH02EHv6g4IE+J+bKVRshSBvXkc06PZK/WEuYBgYkgbFR8h1KmSCq/42fuKyebvuBGrOQ4Ht0" Version="1.3">
    <Type>Runtime</Type>
    <Username>VERAG Spedition AG</Username>
    <Email>al@verag.ag</Email>
    <Organization>VERAG Spedition AG</Organization>
-    <LicensedDate>2020-08-12T00:00:00Z</LicensedDate>
-    <ExpiredDate>2021-08-12T00:00:00Z</ExpiredDate>
+    <LicensedDate>2021-08-11T12:00:00Z</LicensedDate>
+    <ExpiredDate>2022-08-11T12:00:00Z</ExpiredDate>
    <Products>
        <Product>
            <Name>Spire.PDF Platinum</Name>
-            <Version>6.5</Version>
+            <Version>7.5</Version>
            <Subscription>
                <NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
                <NumberOfPermittedSite>1</NumberOfPermittedSite>
--- a/Aviso/Resources/sprinter.png
+++ b/Aviso/Resources/sprinter.png
--- a/Aviso/Resources/sprinter_white.png
+++ b/Aviso/Resources/sprinter_white.png
--- a/Aviso/cTESTT.Designer.vb
+++ b/Aviso/cTESTT.Designer.vb
@@ -0,0 +1,30 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class cTESTT
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        components = New System.ComponentModel.Container
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(800, 450)
+        Me.Text = "cTESTT"
+    End Sub
+End Class
--- a/Aviso/cTESTT.vb
+++ b/Aviso/cTESTT.vb
@@ -0,0 +1,3 @@
+Public Class cTESTT
+
+End Class
--- a/Aviso/frmEintragAviso.designer.vb
+++ b/Aviso/frmEintragAviso.designer.vb
@@ -72,7 +72,7 @@ Partial Class frmEintragAviso
        Me.optTelefonisch = New System.Windows.Forms.RadioButton()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.cbxHandling = New System.Windows.Forms.CheckBox()
-        Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox
+        Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.lblAktenuebersicht = New System.Windows.Forms.Label()
        Me.grpAviso = New System.Windows.Forms.GroupBox()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
@@ -149,6 +149,8 @@ Partial Class frmEintragAviso
        Me.UsrCntlAviso_Vorpapiere1 = New AVISO.usrCntlAviso_Vorpapiere()
        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label2 = New System.Windows.Forms.Label()
+        Me.cboTransportmittelart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label4 = New System.Windows.Forms.Label()
        Me.panAdmin.SuspendLayout()
        Me.grpAviso.SuspendLayout()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -166,10 +168,10 @@ Partial Class frmEintragAviso
        Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnOK.Location = New System.Drawing.Point(12, 650)
+        Me.btnOK.Location = New System.Drawing.Point(12, 687)
        Me.btnOK.Name = "btnOK"
        Me.btnOK.Size = New System.Drawing.Size(306, 45)
-        Me.btnOK.TabIndex = 18
+        Me.btnOK.TabIndex = 24
        Me.btnOK.Text = "OK"
        Me.btnOK.UseVisualStyleBackColor = True
        '
@@ -179,7 +181,7 @@ Partial Class frmEintragAviso
        Me.lblErfAm.Location = New System.Drawing.Point(220, 12)
        Me.lblErfAm.Name = "lblErfAm"
        Me.lblErfAm.Size = New System.Drawing.Size(59, 13)
-        Me.lblErfAm.TabIndex = 1
+        Me.lblErfAm.TabIndex = 2
        Me.lblErfAm.Text = "Erfasst am:"
        '
        'btnAbbruch
@@ -187,10 +189,10 @@ Partial Class frmEintragAviso
        Me.btnAbbruch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.btnAbbruch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnAbbruch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnAbbruch.Location = New System.Drawing.Point(324, 650)
+        Me.btnAbbruch.Location = New System.Drawing.Point(324, 687)
        Me.btnAbbruch.Name = "btnAbbruch"
        Me.btnAbbruch.Size = New System.Drawing.Size(91, 45)
-        Me.btnAbbruch.TabIndex = 19
+        Me.btnAbbruch.TabIndex = 27
        Me.btnAbbruch.Text = "Abbruch"
        Me.btnAbbruch.UseVisualStyleBackColor = True
        '
@@ -198,40 +200,40 @@ Partial Class frmEintragAviso
        '
        Me.txtInfo.AcceptsReturn = True
        Me.txtInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.txtInfo.Location = New System.Drawing.Point(424, 620)
+        Me.txtInfo.Location = New System.Drawing.Point(424, 657)
        Me.txtInfo.MaxLength = 240
        Me.txtInfo.Multiline = True
        Me.txtInfo.Name = "txtInfo"
        Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtInfo.Size = New System.Drawing.Size(360, 75)
-        Me.txtInfo.TabIndex = 49
+        Me.txtInfo.TabIndex = 25
        '
        'Label3
        '
        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(421, 604)
+        Me.Label3.Location = New System.Drawing.Point(421, 641)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(25, 13)
-        Me.Label3.TabIndex = 48
+        Me.Label3.TabIndex = 21
        Me.Label3.Text = "Info"
        '
        'lblFraecher
        '
        Me.lblFraecher.AutoSize = True
-        Me.lblFraecher.Location = New System.Drawing.Point(6, 199)
+        Me.lblFraecher.Location = New System.Drawing.Point(6, 230)
        Me.lblFraecher.Name = "lblFraecher"
        Me.lblFraecher.Size = New System.Drawing.Size(46, 13)
-        Me.lblFraecher.TabIndex = 24
+        Me.lblFraecher.TabIndex = 25
        Me.lblFraecher.Text = "Frächter"
        '
        'lblAvisierer
        '
        Me.lblAvisierer.AutoSize = True
-        Me.lblAvisierer.Location = New System.Drawing.Point(6, 238)
+        Me.lblAvisierer.Location = New System.Drawing.Point(6, 269)
        Me.lblAvisierer.Name = "lblAvisierer"
        Me.lblAvisierer.Size = New System.Drawing.Size(47, 13)
-        Me.lblAvisierer.TabIndex = 30
+        Me.lblAvisierer.TabIndex = 31
        Me.lblAvisierer.Text = "Avisierer"
        '
        'lblLkwKennzeichen
@@ -240,7 +242,7 @@ Partial Class frmEintragAviso
        Me.lblLkwKennzeichen.Location = New System.Drawing.Point(25, 125)
        Me.lblLkwKennzeichen.Name = "lblLkwKennzeichen"
        Me.lblLkwKennzeichen.Size = New System.Drawing.Size(48, 13)
-        Me.lblLkwKennzeichen.TabIndex = 13
+        Me.lblLkwKennzeichen.TabIndex = 11
        Me.lblLkwKennzeichen.Text = "LKW-Nr:"
        '
        'txtÄnderungen
@@ -256,7 +258,7 @@ Partial Class frmEintragAviso
        Me.txtÄnderungen.Name = "txtÄnderungen"
        Me.txtÄnderungen.ReadOnly = True
        Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.txtÄnderungen.Size = New System.Drawing.Size(360, 352)
+        Me.txtÄnderungen.Size = New System.Drawing.Size(360, 389)
        Me.txtÄnderungen.TabIndex = 13
        Me.txtÄnderungen.TabStop = False
        '
@@ -266,7 +268,7 @@ Partial Class frmEintragAviso
        Me.lblAenderungen.Location = New System.Drawing.Point(426, 232)
        Me.lblAenderungen.Name = "lblAenderungen"
        Me.lblAenderungen.Size = New System.Drawing.Size(65, 13)
-        Me.lblAenderungen.TabIndex = 10
+        Me.lblAenderungen.TabIndex = 12
        Me.lblAenderungen.Text = "Änderungen"
        '
        'dtpDatum
@@ -276,7 +278,7 @@ Partial Class frmEintragAviso
        Me.dtpDatum.Location = New System.Drawing.Point(285, 7)
        Me.dtpDatum.Name = "dtpDatum"
        Me.dtpDatum.Size = New System.Drawing.Size(130, 20)
-        Me.dtpDatum.TabIndex = 2
+        Me.dtpDatum.TabIndex = 0
        '
        'txtLKW_Nr
        '
@@ -285,7 +287,7 @@ Partial Class frmEintragAviso
        Me.txtLKW_Nr.MaxLength = 30
        Me.txtLKW_Nr.Name = "txtLKW_Nr"
        Me.txtLKW_Nr.Size = New System.Drawing.Size(162, 26)
-        Me.txtLKW_Nr.TabIndex = 18
+        Me.txtLKW_Nr.TabIndex = 15
        '
        'lblStatus
        '
@@ -335,10 +337,10 @@ Partial Class frmEintragAviso
        Me.panAdmin.Controls.Add(Me.Label8)
        Me.panAdmin.Controls.Add(Me.lblFreigabe)
        Me.panAdmin.Controls.Add(Me.lblAnkunft)
-        Me.panAdmin.Location = New System.Drawing.Point(543, 413)
+        Me.panAdmin.Location = New System.Drawing.Point(543, 450)
        Me.panAdmin.Name = "panAdmin"
        Me.panAdmin.Size = New System.Drawing.Size(253, 187)
-        Me.panAdmin.TabIndex = 20
+        Me.panAdmin.TabIndex = 18
        Me.panAdmin.Visible = False
        '
        'optVorgeschrieben
@@ -582,10 +584,10 @@ Partial Class frmEintragAviso
        '
        Me.lblGrenze.AutoSize = True
        Me.lblGrenze.ForeColor = System.Drawing.Color.Black
-        Me.lblGrenze.Location = New System.Drawing.Point(240, 125)
+        Me.lblGrenze.Location = New System.Drawing.Point(25, 171)
        Me.lblGrenze.Name = "lblGrenze"
        Me.lblGrenze.Size = New System.Drawing.Size(59, 13)
-        Me.lblGrenze.TabIndex = 16
+        Me.lblGrenze.TabIndex = 18
        Me.lblGrenze.Text = "Grenzstelle"
        '
        'dtpAvisoEingangDatum
@@ -676,10 +678,10 @@ Partial Class frmEintragAviso
        '
        Me.Label12.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Label12.BackColor = System.Drawing.Color.Transparent
-        Me.Label12.Location = New System.Drawing.Point(421, 696)
+        Me.Label12.Location = New System.Drawing.Point(421, 733)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(372, 32)
-        Me.Label12.TabIndex = 52
+        Me.Label12.TabIndex = 29
        Me.Label12.Text = "Achtung: im Feld Info nur allgemeine Infos erfassen. " & Global.Microsoft.VisualBasic.ChrW(10) & "Ab Status ANKUNFT kann dies" &
    "es Infofeld nicht mehr geändert werden!"
        '
@@ -687,23 +689,26 @@ Partial Class frmEintragAviso
        '
        Me.cbxHandling.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
        Me.cbxHandling.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.cbxHandling.Location = New System.Drawing.Point(272, 330)
+        Me.cbxHandling.Location = New System.Drawing.Point(272, 361)
        Me.cbxHandling.Name = "cbxHandling"
        Me.cbxHandling.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
        Me.cbxHandling.Size = New System.Drawing.Size(123, 24)
-        Me.cbxHandling.TabIndex = 45
+        Me.cbxHandling.TabIndex = 46
        Me.cbxHandling.Text = "Handling"
        Me.cbxHandling.UseVisualStyleBackColor = False
        '
        'cboGrenzstelle
        '
+        Me.cboGrenzstelle._allowedValuesFreiText = Nothing
+        Me.cboGrenzstelle._allowFreiText = False
+        Me.cboGrenzstelle._value = ""
        Me.cboGrenzstelle.BackColor = System.Drawing.Color.White
        Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboGrenzstelle.FormattingEnabled = True
        Me.cboGrenzstelle.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "WO_GE", "???"})
-        Me.cboGrenzstelle.Location = New System.Drawing.Point(243, 139)
+        Me.cboGrenzstelle.Location = New System.Drawing.Point(28, 185)
        Me.cboGrenzstelle.Name = "cboGrenzstelle"
        Me.cboGrenzstelle.Size = New System.Drawing.Size(74, 28)
        Me.cboGrenzstelle.TabIndex = 20
@@ -715,12 +720,15 @@ Partial Class frmEintragAviso
        Me.lblAktenuebersicht.Location = New System.Drawing.Point(12, 9)
        Me.lblAktenuebersicht.Name = "lblAktenuebersicht"
        Me.lblAktenuebersicht.Size = New System.Drawing.Size(130, 20)
-        Me.lblAktenuebersicht.TabIndex = 0
+        Me.lblAktenuebersicht.TabIndex = 1
        Me.lblAktenuebersicht.Text = "Aktenübersicht"
        '
        'grpAviso
        '
+        Me.grpAviso.Controls.Add(Me.cboTransportmittelart)
+        Me.grpAviso.Controls.Add(Me.Label4)
        Me.grpAviso.Controls.Add(Me.PictureBox1)
+        Me.grpAviso.Controls.Add(Me.Button1)
        Me.grpAviso.Controls.Add(Me.lblErr_KdNr)
        Me.grpAviso.Controls.Add(Me.Button5)
        Me.grpAviso.Controls.Add(Me.lblErrVorraussuchtlEintreffen)
@@ -749,7 +757,6 @@ Partial Class frmEintragAviso
        Me.grpAviso.Controls.Add(Me.lblErr_Frächter)
        Me.grpAviso.Controls.Add(Me.lblErr_LKW)
        Me.grpAviso.Controls.Add(Me.lblErr_Grenzstelle)
-        Me.grpAviso.Controls.Add(Me.Button1)
        Me.grpAviso.Controls.Add(Me.cbxHandling)
        Me.grpAviso.Controls.Add(Me.cboGrenzstelle)
        Me.grpAviso.Controls.Add(Me.Label10)
@@ -771,8 +778,8 @@ Partial Class frmEintragAviso
        Me.grpAviso.Controls.Add(Me.pnl)
        Me.grpAviso.Location = New System.Drawing.Point(12, 49)
        Me.grpAviso.Name = "grpAviso"
-        Me.grpAviso.Size = New System.Drawing.Size(403, 406)
-        Me.grpAviso.TabIndex = 5
+        Me.grpAviso.Size = New System.Drawing.Size(403, 434)
+        Me.grpAviso.TabIndex = 7
        Me.grpAviso.TabStop = False
        Me.grpAviso.Text = "Aviso"
        '
@@ -790,19 +797,18 @@ Partial Class frmEintragAviso
        '
        Me.lblErr_KdNr.AutoSize = True
        Me.lblErr_KdNr.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_KdNr.Location = New System.Drawing.Point(130, 238)
+        Me.lblErr_KdNr.Location = New System.Drawing.Point(130, 269)
        Me.lblErr_KdNr.Name = "lblErr_KdNr"
        Me.lblErr_KdNr.Size = New System.Drawing.Size(136, 13)
-        Me.lblErr_KdNr.TabIndex = 32
+        Me.lblErr_KdNr.TabIndex = 33
        Me.lblErr_KdNr.Text = "Kunden-Nummer eingeben!"
        Me.lblErr_KdNr.Visible = False
        '
        'Button5
        '
-        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.Button5.Location = New System.Drawing.Point(272, 47)
+        Me.Button5.Location = New System.Drawing.Point(272, 48)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(119, 21)
        Me.Button5.TabIndex = 7
@@ -824,19 +830,19 @@ Partial Class frmEintragAviso
        'txtAvisiererAuftragsNr
        '
        Me.txtAvisiererAuftragsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        Me.txtAvisiererAuftragsNr.Location = New System.Drawing.Point(9, 370)
+        Me.txtAvisiererAuftragsNr.Location = New System.Drawing.Point(9, 401)
        Me.txtAvisiererAuftragsNr.MaxLength = 30
        Me.txtAvisiererAuftragsNr.Name = "txtAvisiererAuftragsNr"
        Me.txtAvisiererAuftragsNr.Size = New System.Drawing.Size(388, 20)
-        Me.txtAvisiererAuftragsNr.TabIndex = 47
+        Me.txtAvisiererAuftragsNr.TabIndex = 48
        '
        'lblAvisiererAtrNr
        '
        Me.lblAvisiererAtrNr.AutoSize = True
-        Me.lblAvisiererAtrNr.Location = New System.Drawing.Point(6, 356)
+        Me.lblAvisiererAtrNr.Location = New System.Drawing.Point(6, 387)
        Me.lblAvisiererAtrNr.Name = "lblAvisiererAtrNr"
        Me.lblAvisiererAtrNr.Size = New System.Drawing.Size(106, 13)
-        Me.lblAvisiererAtrNr.TabIndex = 46
+        Me.lblAvisiererAtrNr.TabIndex = 47
        Me.lblAvisiererAtrNr.Text = "Avisierer-AuftragsNr.:"
        '
        'kdAuftraggeber
@@ -857,12 +863,12 @@ Partial Class frmEintragAviso
        Me.kdAuftraggeber.KdNr = "-1"
        Me.kdAuftraggeber.kdNrField = Nothing
        Me.kdAuftraggeber.KdNrNullInt = Nothing
-        Me.kdAuftraggeber.Location = New System.Drawing.Point(9, 293)
+        Me.kdAuftraggeber.Location = New System.Drawing.Point(9, 324)
        Me.kdAuftraggeber.Name = "kdAuftraggeber"
        Me.kdAuftraggeber.nurAktive = False
        Me.kdAuftraggeber.searchActive = True
        Me.kdAuftraggeber.Size = New System.Drawing.Size(343, 20)
-        Me.kdAuftraggeber.TabIndex = 41
+        Me.kdAuftraggeber.TabIndex = 42
        Me.kdAuftraggeber.TIMER_SEARCH = True
        Me.kdAuftraggeber.usrcntl = Nothing
        Me.kdAuftraggeber.Visible = False
@@ -885,12 +891,12 @@ Partial Class frmEintragAviso
        Me.kdAvisierer.KdNr = "-1"
        Me.kdAvisierer.kdNrField = Nothing
        Me.kdAvisierer.KdNrNullInt = Nothing
-        Me.kdAvisierer.Location = New System.Drawing.Point(9, 254)
+        Me.kdAvisierer.Location = New System.Drawing.Point(9, 285)
        Me.kdAvisierer.Name = "kdAvisierer"
        Me.kdAvisierer.nurAktive = False
        Me.kdAvisierer.searchActive = True
        Me.kdAvisierer.Size = New System.Drawing.Size(343, 20)
-        Me.kdAvisierer.TabIndex = 35
+        Me.kdAvisierer.TabIndex = 36
        Me.kdAvisierer.TIMER_SEARCH = True
        Me.kdAvisierer.usrcntl = Nothing
        '
@@ -912,12 +918,12 @@ Partial Class frmEintragAviso
        Me.kdFrächter.KdNr = "-1"
        Me.kdFrächter.kdNrField = Nothing
        Me.kdFrächter.KdNrNullInt = Nothing
-        Me.kdFrächter.Location = New System.Drawing.Point(9, 215)
+        Me.kdFrächter.Location = New System.Drawing.Point(9, 246)
        Me.kdFrächter.Name = "kdFrächter"
        Me.kdFrächter.nurAktive = False
        Me.kdFrächter.searchActive = True
        Me.kdFrächter.Size = New System.Drawing.Size(343, 20)
-        Me.kdFrächter.TabIndex = 27
+        Me.kdFrächter.TabIndex = 28
        Me.kdFrächter.TIMER_SEARCH = True
        Me.kdFrächter.usrcntl = Nothing
        '
@@ -927,10 +933,10 @@ Partial Class frmEintragAviso
        Me.Button4.FlatAppearance.BorderSize = 0
        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button4.Image = Global.AVISO.My.Resources.Resources.person_add
-        Me.Button4.Location = New System.Drawing.Point(377, 211)
+        Me.Button4.Location = New System.Drawing.Point(377, 242)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(25, 25)
-        Me.Button4.TabIndex = 29
+        Me.Button4.TabIndex = 30
        Me.Button4.TabStop = False
        Me.Button4.Tag = "Kunde hinzufügen"
        Me.Button4.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -961,7 +967,7 @@ Partial Class frmEintragAviso
        Me.sbLkwNationalitaet.SQL_SELECT = Nothing
        Me.sbLkwNationalitaet.SQL_WHERE = Nothing
        Me.sbLkwNationalitaet.SQL_WhereParamList = Nothing
-        Me.sbLkwNationalitaet.TabIndex = 19
+        Me.sbLkwNationalitaet.TabIndex = 16
        Me.sbLkwNationalitaet.usrcntl = Nothing
        '
        'lblNat
@@ -970,17 +976,17 @@ Partial Class frmEintragAviso
        Me.lblNat.Location = New System.Drawing.Point(187, 125)
        Me.lblNat.Name = "lblNat"
        Me.lblNat.Size = New System.Drawing.Size(27, 13)
-        Me.lblNat.TabIndex = 15
+        Me.lblNat.TabIndex = 13
        Me.lblNat.Text = "Nat."
        '
        'txtFahrerHandy
        '
        Me.txtFahrerHandy.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        Me.txtFahrerHandy.Location = New System.Drawing.Point(24, 332)
+        Me.txtFahrerHandy.Location = New System.Drawing.Point(24, 363)
        Me.txtFahrerHandy.MaxLength = 30
        Me.txtFahrerHandy.Name = "txtFahrerHandy"
        Me.txtFahrerHandy.Size = New System.Drawing.Size(234, 20)
-        Me.txtFahrerHandy.TabIndex = 44
+        Me.txtFahrerHandy.TabIndex = 45
        '
        'Button2
        '
@@ -988,10 +994,10 @@ Partial Class frmEintragAviso
        Me.Button2.FlatAppearance.BorderSize = 0
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.Image = Global.AVISO.My.Resources.Resources.person_add
-        Me.Button2.Location = New System.Drawing.Point(377, 251)
+        Me.Button2.Location = New System.Drawing.Point(377, 282)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(25, 24)
-        Me.Button2.TabIndex = 37
+        Me.Button2.TabIndex = 38
        Me.Button2.TabStop = False
        Me.Button2.Tag = "Kunde hinzufügen"
        Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -1002,7 +1008,7 @@ Partial Class frmEintragAviso
        '
        Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.handy
        Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.pic.Location = New System.Drawing.Point(5, 332)
+        Me.pic.Location = New System.Drawing.Point(5, 363)
        Me.pic.Name = "pic"
        Me.pic.Size = New System.Drawing.Size(20, 20)
        Me.pic.TabIndex = 40
@@ -1011,19 +1017,19 @@ Partial Class frmEintragAviso
        'lblFahrerHandyNr
        '
        Me.lblFahrerHandyNr.AutoSize = True
-        Me.lblFahrerHandyNr.Location = New System.Drawing.Point(6, 318)
+        Me.lblFahrerHandyNr.Location = New System.Drawing.Point(6, 349)
        Me.lblFahrerHandyNr.Name = "lblFahrerHandyNr"
        Me.lblFahrerHandyNr.Size = New System.Drawing.Size(116, 13)
-        Me.lblFahrerHandyNr.TabIndex = 43
+        Me.lblFahrerHandyNr.TabIndex = 44
        Me.lblFahrerHandyNr.Text = "Fahrer Handy-Nummer:"
        '
        'cbxFrächterUnbekannt
        '
        Me.cbxFrächterUnbekannt.AutoSize = True
-        Me.cbxFrächterUnbekannt.Location = New System.Drawing.Point(122, 198)
+        Me.cbxFrächterUnbekannt.Location = New System.Drawing.Point(122, 229)
        Me.cbxFrächterUnbekannt.Name = "cbxFrächterUnbekannt"
        Me.cbxFrächterUnbekannt.Size = New System.Drawing.Size(104, 17)
-        Me.cbxFrächterUnbekannt.TabIndex = 25
+        Me.cbxFrächterUnbekannt.TabIndex = 26
        Me.cbxFrächterUnbekannt.Text = "noch unbekannt"
        Me.cbxFrächterUnbekannt.UseVisualStyleBackColor = True
        Me.cbxFrächterUnbekannt.Visible = False
@@ -1035,10 +1041,10 @@ Partial Class frmEintragAviso
        Me.btnAuftraggeber.FlatAppearance.BorderSize = 0
        Me.btnAuftraggeber.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnAuftraggeber.Image = CType(resources.GetObject("btnAuftraggeber.Image"), System.Drawing.Image)
-        Me.btnAuftraggeber.Location = New System.Drawing.Point(352, 289)
+        Me.btnAuftraggeber.Location = New System.Drawing.Point(352, 320)
        Me.btnAuftraggeber.Name = "btnAuftraggeber"
        Me.btnAuftraggeber.Size = New System.Drawing.Size(25, 25)
-        Me.btnAuftraggeber.TabIndex = 42
+        Me.btnAuftraggeber.TabIndex = 43
        Me.btnAuftraggeber.TabStop = False
        Me.btnAuftraggeber.Tag = "Kunde hinzufügen"
        Me.btnAuftraggeber.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -1053,10 +1059,10 @@ Partial Class frmEintragAviso
        Me.btnAvisiererKd.FlatAppearance.BorderSize = 0
        Me.btnAvisiererKd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnAvisiererKd.Image = CType(resources.GetObject("btnAvisiererKd.Image"), System.Drawing.Image)
-        Me.btnAvisiererKd.Location = New System.Drawing.Point(352, 250)
+        Me.btnAvisiererKd.Location = New System.Drawing.Point(352, 281)
        Me.btnAvisiererKd.Name = "btnAvisiererKd"
        Me.btnAvisiererKd.Size = New System.Drawing.Size(25, 25)
-        Me.btnAvisiererKd.TabIndex = 36
+        Me.btnAvisiererKd.TabIndex = 37
        Me.btnAvisiererKd.TabStop = False
        Me.btnAvisiererKd.Tag = "Kunde hinzufügen"
        Me.btnAvisiererKd.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -1070,10 +1076,10 @@ Partial Class frmEintragAviso
        Me.btnFraechterKd.FlatAppearance.BorderSize = 0
        Me.btnFraechterKd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnFraechterKd.Image = CType(resources.GetObject("btnFraechterKd.Image"), System.Drawing.Image)
-        Me.btnFraechterKd.Location = New System.Drawing.Point(352, 211)
+        Me.btnFraechterKd.Location = New System.Drawing.Point(352, 242)
        Me.btnFraechterKd.Name = "btnFraechterKd"
        Me.btnFraechterKd.Size = New System.Drawing.Size(25, 25)
-        Me.btnFraechterKd.TabIndex = 28
+        Me.btnFraechterKd.TabIndex = 29
        Me.btnFraechterKd.TabStop = False
        Me.btnFraechterKd.Tag = "Kunde hinzufügen"
        Me.btnFraechterKd.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@@ -1084,10 +1090,10 @@ Partial Class frmEintragAviso
        '
        Me.lblErrImex.AutoSize = True
        Me.lblErrImex.ForeColor = System.Drawing.Color.Red
-        Me.lblErrImex.Location = New System.Drawing.Point(236, 109)
+        Me.lblErrImex.Location = New System.Drawing.Point(72, 217)
        Me.lblErrImex.Name = "lblErrImex"
        Me.lblErrImex.Size = New System.Drawing.Size(119, 13)
-        Me.lblErrImex.TabIndex = 11
+        Me.lblErrImex.TabIndex = 24
        Me.lblErrImex.Text = "Import/Export angeben!"
        Me.lblErrImex.Visible = False
        '
@@ -1099,7 +1105,7 @@ Partial Class frmEintragAviso
        Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboImEx.FormattingEnabled = True
        Me.cboImEx.Items.AddRange(New Object() {"", "IMPORT", "EXPORT"})
-        Me.cboImEx.Location = New System.Drawing.Point(323, 139)
+        Me.cboImEx.Location = New System.Drawing.Point(108, 185)
        Me.cboImEx.Name = "cboImEx"
        Me.cboImEx.Size = New System.Drawing.Size(79, 28)
        Me.cboImEx.TabIndex = 21
@@ -1109,10 +1115,10 @@ Partial Class frmEintragAviso
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.Color.Black
-        Me.Label1.Location = New System.Drawing.Point(320, 125)
+        Me.Label1.Location = New System.Drawing.Point(105, 171)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(35, 13)
-        Me.Label1.TabIndex = 17
+        Me.Label1.TabIndex = 19
        Me.Label1.Text = "Im/Ex"
        Me.Label1.Visible = False
        '
@@ -1131,10 +1137,10 @@ Partial Class frmEintragAviso
        '
        Me.lblErr_Avisierer.AutoSize = True
        Me.lblErr_Avisierer.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Avisierer.Location = New System.Drawing.Point(194, 238)
+        Me.lblErr_Avisierer.Location = New System.Drawing.Point(194, 269)
        Me.lblErr_Avisierer.Name = "lblErr_Avisierer"
        Me.lblErr_Avisierer.Size = New System.Drawing.Size(97, 13)
-        Me.lblErr_Avisierer.TabIndex = 33
+        Me.lblErr_Avisierer.TabIndex = 34
        Me.lblErr_Avisierer.Text = "Avisierer eingeben!"
        Me.lblErr_Avisierer.Visible = False
        '
@@ -1142,10 +1148,10 @@ Partial Class frmEintragAviso
        '
        Me.lblErr_Frächter.AutoSize = True
        Me.lblErr_Frächter.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Frächter.Location = New System.Drawing.Point(92, 238)
+        Me.lblErr_Frächter.Location = New System.Drawing.Point(92, 269)
        Me.lblErr_Frächter.Name = "lblErr_Frächter"
        Me.lblErr_Frächter.Size = New System.Drawing.Size(96, 13)
-        Me.lblErr_Frächter.TabIndex = 31
+        Me.lblErr_Frächter.TabIndex = 32
        Me.lblErr_Frächter.Text = "Frächter eingeben!"
        Me.lblErr_Frächter.Visible = False
        '
@@ -1156,7 +1162,7 @@ Partial Class frmEintragAviso
        Me.lblErr_LKW.Location = New System.Drawing.Point(75, 125)
        Me.lblErr_LKW.Name = "lblErr_LKW"
        Me.lblErr_LKW.Size = New System.Drawing.Size(95, 13)
-        Me.lblErr_LKW.TabIndex = 14
+        Me.lblErr_LKW.TabIndex = 12
        Me.lblErr_LKW.Text = "LKW-Nr eingeben!"
        Me.lblErr_LKW.Visible = False
        '
@@ -1164,10 +1170,10 @@ Partial Class frmEintragAviso
        '
        Me.lblErr_Grenzstelle.AutoSize = True
        Me.lblErr_Grenzstelle.ForeColor = System.Drawing.Color.Red
-        Me.lblErr_Grenzstelle.Location = New System.Drawing.Point(157, 109)
+        Me.lblErr_Grenzstelle.Location = New System.Drawing.Point(13, 217)
        Me.lblErr_Grenzstelle.Name = "lblErr_Grenzstelle"
        Me.lblErr_Grenzstelle.Size = New System.Drawing.Size(109, 13)
-        Me.lblErr_Grenzstelle.TabIndex = 10
+        Me.lblErr_Grenzstelle.TabIndex = 23
        Me.lblErr_Grenzstelle.Text = "Grenzstelle eingeben!"
        Me.lblErr_Grenzstelle.Visible = False
        '
@@ -1176,10 +1182,10 @@ Partial Class frmEintragAviso
        Me.Button1.FlatAppearance.BorderSize = 0
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
-        Me.Button1.Location = New System.Drawing.Point(360, 149)
+        Me.Button1.Location = New System.Drawing.Point(357, 85)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(37, 20)
-        Me.Button1.TabIndex = 22
+        Me.Button1.TabIndex = 10
        Me.Button1.UseVisualStyleBackColor = True
        Me.Button1.Visible = False
        '
@@ -1189,20 +1195,20 @@ Partial Class frmEintragAviso
        Me.lblAtrAvis.Cursor = System.Windows.Forms.Cursors.Hand
        Me.lblAtrAvis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblAtrAvis.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.lblAtrAvis.Location = New System.Drawing.Point(296, 278)
+        Me.lblAtrAvis.Location = New System.Drawing.Point(296, 309)
        Me.lblAtrAvis.Name = "lblAtrAvis"
        Me.lblAtrAvis.Size = New System.Drawing.Size(56, 13)
-        Me.lblAtrAvis.TabIndex = 40
+        Me.lblAtrAvis.TabIndex = 41
        Me.lblAtrAvis.Text = "= Avisierer"
        Me.lblAtrAvis.Visible = False
        '
        'lblAtr
        '
        Me.lblAtr.AutoSize = True
-        Me.lblAtr.Location = New System.Drawing.Point(6, 278)
+        Me.lblAtr.Location = New System.Drawing.Point(6, 309)
        Me.lblAtr.Name = "lblAtr"
        Me.lblAtr.Size = New System.Drawing.Size(71, 13)
-        Me.lblAtr.TabIndex = 38
+        Me.lblAtr.TabIndex = 39
        Me.lblAtr.Text = "Auftraggeber:"
        Me.lblAtr.Visible = False
        '
@@ -1212,19 +1218,19 @@ Partial Class frmEintragAviso
        Me.Label17.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label17.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Label17.Location = New System.Drawing.Point(297, 238)
+        Me.Label17.Location = New System.Drawing.Point(297, 269)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(55, 13)
-        Me.Label17.TabIndex = 34
+        Me.Label17.TabIndex = 35
        Me.Label17.Text = "= Frächter"
        '
        'cbxAuftraggeberfurAlleSendungen
        '
        Me.cbxAuftraggeberfurAlleSendungen.AutoSize = True
-        Me.cbxAuftraggeberfurAlleSendungen.Location = New System.Drawing.Point(122, 276)
+        Me.cbxAuftraggeberfurAlleSendungen.Location = New System.Drawing.Point(122, 307)
        Me.cbxAuftraggeberfurAlleSendungen.Name = "cbxAuftraggeberfurAlleSendungen"
        Me.cbxAuftraggeberfurAlleSendungen.Size = New System.Drawing.Size(194, 17)
-        Me.cbxAuftraggeberfurAlleSendungen.TabIndex = 39
+        Me.cbxAuftraggeberfurAlleSendungen.TabIndex = 40
        Me.cbxAuftraggeberfurAlleSendungen.Text = "= Auftraggeber (für alle Sendungen)"
        Me.cbxAuftraggeberfurAlleSendungen.UseVisualStyleBackColor = True
        '
@@ -1234,10 +1240,10 @@ Partial Class frmEintragAviso
        Me.Label22.Cursor = System.Windows.Forms.Cursors.Hand
        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Label22.Location = New System.Drawing.Point(296, 199)
+        Me.Label22.Location = New System.Drawing.Point(296, 230)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(56, 13)
-        Me.Label22.TabIndex = 26
+        Me.Label22.TabIndex = 27
        Me.Label22.Text = "= Avisierer"
        '
        'lblVoraussEintreff
@@ -1264,23 +1270,23 @@ Partial Class frmEintragAviso
        'pnl
        '
        Me.pnl.BackColor = System.Drawing.Color.PapayaWhip
-        Me.pnl.Controls.Add(Me.cbxWarenort)
        Me.pnl.Controls.Add(Me.txtBestimmungszollstelle)
+        Me.pnl.Controls.Add(Me.cbxWarenort)
        Me.pnl.Controls.Add(Me.lblZA)
-        Me.pnl.Location = New System.Drawing.Point(0, 170)
+        Me.pnl.Location = New System.Drawing.Point(193, 176)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(402, 24)
-        Me.pnl.TabIndex = 23
+        Me.pnl.Size = New System.Drawing.Size(204, 40)
+        Me.pnl.TabIndex = 22
        Me.pnl.Visible = False
        '
        'cbxWarenort
        '
        Me.cbxWarenort.AutoSize = True
        Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.cbxWarenort.Location = New System.Drawing.Point(321, 4)
+        Me.cbxWarenort.Location = New System.Drawing.Point(134, 2)
        Me.cbxWarenort.Name = "cbxWarenort"
        Me.cbxWarenort.Size = New System.Drawing.Size(70, 17)
-        Me.cbxWarenort.TabIndex = 2
+        Me.cbxWarenort.TabIndex = 1
        Me.cbxWarenort.Text = "Warenort"
        Me.cbxWarenort.UseVisualStyleBackColor = True
        '
@@ -1298,22 +1304,22 @@ Partial Class frmEintragAviso
        Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
        Me.txtBestimmungszollstelle.key_visible = False
        Me.txtBestimmungszollstelle.KEYPARAM = Nothing
-        Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(52, 2)
+        Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(4, 17)
        Me.txtBestimmungszollstelle.MaxLength = 50
        Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
        Me.txtBestimmungszollstelle.searchActive = True
-        Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(265, 20)
+        Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(197, 20)
        Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
        Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
        Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
        Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
-        Me.txtBestimmungszollstelle.TabIndex = 1
+        Me.txtBestimmungszollstelle.TabIndex = 2
        Me.txtBestimmungszollstelle.usrcntl = Nothing
        '
        'lblZA
        '
        Me.lblZA.AutoSize = True
-        Me.lblZA.Location = New System.Drawing.Point(6, 5)
+        Me.lblZA.Location = New System.Drawing.Point(1, 3)
        Me.lblZA.Name = "lblZA"
        Me.lblZA.Size = New System.Drawing.Size(44, 13)
        Me.lblZA.TabIndex = 0
@@ -1327,7 +1333,7 @@ Partial Class frmEintragAviso
        Me.btnAbsSrch.Location = New System.Drawing.Point(447, 411)
        Me.btnAbsSrch.Name = "btnAbsSrch"
        Me.btnAbsSrch.Size = New System.Drawing.Size(37, 20)
-        Me.btnAbsSrch.TabIndex = 12
+        Me.btnAbsSrch.TabIndex = 16
        Me.btnAbsSrch.UseVisualStyleBackColor = True
        Me.btnAbsSrch.Visible = False
        '
@@ -1337,21 +1343,21 @@ Partial Class frmEintragAviso
        Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.Transparent
        Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
-        Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(464, 658)
+        Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(464, 695)
        Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
        Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
        Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
-        Me.UsrCntlTestsystem1.TabIndex = 51
+        Me.UsrCntlTestsystem1.TabIndex = 28
        '
        'lblErrFmZollKdNr
        '
        Me.lblErrFmZollKdNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.lblErrFmZollKdNr.AutoSize = True
        Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red
-        Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 636)
+        Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 673)
        Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr"
        Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26)
-        Me.lblErrFmZollKdNr.TabIndex = 50
+        Me.lblErrFmZollKdNr.TabIndex = 26
        Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!"
        Me.lblErrFmZollKdNr.Visible = False
        '
@@ -1363,7 +1369,7 @@ Partial Class frmEintragAviso
        Me.grp.Location = New System.Drawing.Point(483, 455)
        Me.grp.Name = "grp"
        Me.grp.Size = New System.Drawing.Size(98, 67)
-        Me.grp.TabIndex = 17
+        Me.grp.TabIndex = 19
        Me.grp.TabStop = False
        Me.grp.Visible = False
        '
@@ -1374,7 +1380,7 @@ Partial Class frmEintragAviso
        Me.txtDyRef.MaxLength = 30
        Me.txtDyRef.Name = "txtDyRef"
        Me.txtDyRef.Size = New System.Drawing.Size(234, 20)
-        Me.txtDyRef.TabIndex = 16
+        Me.txtDyRef.TabIndex = 15
        Me.txtDyRef.Visible = False
        '
        'picDy
@@ -1394,7 +1400,7 @@ Partial Class frmEintragAviso
        Me.lblDy.Location = New System.Drawing.Point(491, 386)
        Me.lblDy.Name = "lblDy"
        Me.lblDy.Size = New System.Drawing.Size(109, 13)
-        Me.lblDy.TabIndex = 15
+        Me.lblDy.TabIndex = 14
        Me.lblDy.Text = "Dakosy-Referenz-Nr.:"
        Me.lblDy.Visible = False
        '
@@ -1409,7 +1415,7 @@ Partial Class frmEintragAviso
        Me.grpAktVerzollung.Location = New System.Drawing.Point(424, 73)
        Me.grpAktVerzollung.Name = "grpAktVerzollung"
        Me.grpAktVerzollung.Size = New System.Drawing.Size(359, 110)
-        Me.grpAktVerzollung.TabIndex = 8
+        Me.grpAktVerzollung.TabIndex = 10
        Me.grpAktVerzollung.TabStop = False
        Me.grpAktVerzollung.Text = "Sendungen - Details"
        '
@@ -1635,7 +1641,7 @@ Partial Class frmEintragAviso
        Me.Button3.Location = New System.Drawing.Point(424, 189)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(359, 37)
-        Me.Button3.TabIndex = 9
+        Me.Button3.TabIndex = 11
        Me.Button3.Text = "Weiter zu den Sendungsdetails"
        Me.Button3.UseVisualStyleBackColor = True
        '
@@ -1648,7 +1654,7 @@ Partial Class frmEintragAviso
        Me.cbxSendungsvorlagen.Location = New System.Drawing.Point(446, 49)
        Me.cbxSendungsvorlagen.Name = "cbxSendungsvorlagen"
        Me.cbxSendungsvorlagen.Size = New System.Drawing.Size(205, 21)
-        Me.cbxSendungsvorlagen.TabIndex = 7
+        Me.cbxSendungsvorlagen.TabIndex = 9
        Me.cbxSendungsvorlagen.Text = "Sendungsvorlagen erfassen"
        Me.cbxSendungsvorlagen.UseVisualStyleBackColor = True
        '
@@ -1657,10 +1663,10 @@ Partial Class frmEintragAviso
        Me.cbxAktenzettelDrucken.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.cbxAktenzettelDrucken.BackColor = System.Drawing.Color.WhiteSmoke
        Me.cbxAktenzettelDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxAktenzettelDrucken.Location = New System.Drawing.Point(12, 620)
+        Me.cbxAktenzettelDrucken.Location = New System.Drawing.Point(12, 657)
        Me.cbxAktenzettelDrucken.Name = "cbxAktenzettelDrucken"
        Me.cbxAktenzettelDrucken.Size = New System.Drawing.Size(403, 33)
-        Me.cbxAktenzettelDrucken.TabIndex = 11
+        Me.cbxAktenzettelDrucken.TabIndex = 22
        Me.cbxAktenzettelDrucken.Text = "Aktenzettel ausdrucken:"
        Me.cbxAktenzettelDrucken.UseVisualStyleBackColor = False
        Me.cbxAktenzettelDrucken.Visible = False
@@ -1673,10 +1679,10 @@ Partial Class frmEintragAviso
        Me.cboPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboPrinter.FormattingEnabled = True
-        Me.cboPrinter.Location = New System.Drawing.Point(209, 625)
+        Me.cboPrinter.Location = New System.Drawing.Point(209, 662)
        Me.cboPrinter.Name = "cboPrinter"
        Me.cboPrinter.Size = New System.Drawing.Size(206, 21)
-        Me.cboPrinter.TabIndex = 12
+        Me.cboPrinter.TabIndex = 23
        Me.cboPrinter.Visible = False
        '
        'dgvAnhaenge
@@ -1692,13 +1698,13 @@ Partial Class frmEintragAviso
        Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvAnhaenge.ColumnHeadersVisible = False
        Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName, Me.clmnPfad})
-        Me.dgvAnhaenge.Location = New System.Drawing.Point(424, 395)
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(424, 432)
        Me.dgvAnhaenge.Name = "dgvAnhaenge"
        Me.dgvAnhaenge.ReadOnly = True
        Me.dgvAnhaenge.RowHeadersVisible = False
        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.dgvAnhaenge.Size = New System.Drawing.Size(360, 205)
-        Me.dgvAnhaenge.TabIndex = 14
+        Me.dgvAnhaenge.TabIndex = 17
        Me.dgvAnhaenge.Visible = False
        '
        'columnName
@@ -1721,28 +1727,27 @@ Partial Class frmEintragAviso
        Me.UsrCntlEintragAvisoAtilla.Location = New System.Drawing.Point(424, 49)
        Me.UsrCntlEintragAvisoAtilla.Name = "UsrCntlEintragAvisoAtilla"
        Me.UsrCntlEintragAvisoAtilla.Size = New System.Drawing.Size(360, 487)
-        Me.UsrCntlEintragAvisoAtilla.TabIndex = 6
+        Me.UsrCntlEintragAvisoAtilla.TabIndex = 8
        Me.UsrCntlEintragAvisoAtilla.Visible = False
        '
        'UsrCntlAviso_Vorpapiere1
        '
        Me.UsrCntlAviso_Vorpapiere1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(12, 466)
+        Me.UsrCntlAviso_Vorpapiere1.Location = New System.Drawing.Point(12, 489)
        Me.UsrCntlAviso_Vorpapiere1.Name = "UsrCntlAviso_Vorpapiere1"
        Me.UsrCntlAviso_Vorpapiere1.Size = New System.Drawing.Size(410, 157)
-        Me.UsrCntlAviso_Vorpapiere1.TabIndex = 63
+        Me.UsrCntlAviso_Vorpapiere1.TabIndex = 20
        '
        'cboFirma
        '
        Me.cboFirma._allowedValuesFreiText = Nothing
        Me.cboFirma._allowFreiText = False
        Me.cboFirma._value = ""
-        Me.cboFirma.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.cboFirma.FormattingEnabled = True
        Me.cboFirma.Location = New System.Drawing.Point(285, 28)
        Me.cboFirma.Name = "cboFirma"
        Me.cboFirma.Size = New System.Drawing.Size(130, 21)
-        Me.cboFirma.TabIndex = 70
+        Me.cboFirma.TabIndex = 6
        '
        'Label2
        '
@@ -1750,16 +1755,42 @@ Partial Class frmEintragAviso
        Me.Label2.Location = New System.Drawing.Point(220, 31)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(43, 13)
-        Me.Label2.TabIndex = 71
+        Me.Label2.TabIndex = 5
        Me.Label2.Text = "FIRMA:"
        '
+        'cboTransportmittelart
+        '
+        Me.cboTransportmittelart._allowedValuesFreiText = Nothing
+        Me.cboTransportmittelart._allowFreiText = False
+        Me.cboTransportmittelart._value = ""
+        Me.cboTransportmittelart.BackColor = System.Drawing.Color.White
+        Me.cboTransportmittelart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboTransportmittelart.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboTransportmittelart.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboTransportmittelart.FormattingEnabled = True
+        Me.cboTransportmittelart.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "WO_GE", "???"})
+        Me.cboTransportmittelart.Location = New System.Drawing.Point(245, 139)
+        Me.cboTransportmittelart.Name = "cboTransportmittelart"
+        Me.cboTransportmittelart.Size = New System.Drawing.Size(146, 28)
+        Me.cboTransportmittelart.TabIndex = 17
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.ForeColor = System.Drawing.Color.Black
+        Me.Label4.Location = New System.Drawing.Point(242, 125)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(120, 13)
+        Me.Label4.TabIndex = 14
+        Me.Label4.Text = "Art des Transportmittels:"
+        '
        'frmEintragAviso
        '
        Me.AcceptButton = Me.btnOK
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(792, 728)
+        Me.ClientSize = New System.Drawing.Size(792, 765)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.cboFirma)
        Me.Controls.Add(Me.UsrCntlAviso_Vorpapiere1)
@@ -1945,4 +1976,6 @@ Partial Class frmEintragAviso
    Friend WithEvents UsrCntlAviso_Vorpapiere1 As usrCntlAviso_Vorpapiere
    Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
    Friend WithEvents Label2 As Label
+    Friend WithEvents cboTransportmittelart As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label4 As Label
 End Class
--- a/Aviso/frmEintragAviso.resx
+++ b/Aviso/frmEintragAviso.resx
@@ -118,6 +118,25 @@
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
+        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
+        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
+        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
+        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
+        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
+        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
+        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
+        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
+        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
+        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
+        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
+        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
+        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
+        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
+</value>
+  </data>
  <data name="btnAuftraggeber.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
@@ -170,25 +189,6 @@
        GeuhGHJlLIWZ87MMo3smaqZiqexlR2tlklE0Gx7LORD5N1Oi7H7DhgBjpESOJjE+4mJgKrF6j/k3Q1QP
        RI3PGQGtXO0esRjCewqiCUGsiPkqQDjfRUDyER/d8fpwN3PTe69ruEMf5x159iQ1Gdw8XEF5sGJMpWDY
        +nZayU2yE6UbN06v1D2SXlXjZ6zdOnKSjgggkZEqRDfyFJwG0cC4FwLgXA//2Q==
-</value>
-  </data>
-  <data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
-        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
-        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
-        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
-        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
-        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
 </value>
  </data>
  <data name="btnAbsSrch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -216,6 +216,12 @@
  <metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
+  <metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA
--- a/Aviso/frmEintragAviso.vb
+++ b/Aviso/frmEintragAviso.vb
@@ -97,7 +97,12 @@ Public Class frmEintragAviso
        cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
        cboGrenzstelle.changeItem("")

-
+        cboTransportmittelart.Items.Clear()
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW"))
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SPRINTER", "SPRINTER"))
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CONTAINER", "CONTAINER"))
+        cboTransportmittelart.changeItem("")

        sbLkwNationalitaet.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)

@@ -331,6 +336,8 @@ Public Class frmEintragAviso
                    optUnbekannt.Checked = True
                End If
            cboGrenzstelle.changeItem(myAviso.Grenzstelle)
+            cboTransportmittelart.changeItem(myAviso.Transportmittelart)
+
            cboImEx.Text = If(myAviso.ImEx, "")
                hStatus = myAviso.Status
                If myAviso.Ankunft = LeerDatum Then
@@ -830,6 +837,9 @@ Public Class frmEintragAviso
                ' MsgBox(myAviso.Grenzstelle)
            End If

+            myAviso.Transportmittelart = cboTransportmittelart._value
+
+
            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
                myAviso.Grenzstelle = "AMB"
            End If
@@ -1637,6 +1647,13 @@ Public Class frmEintragAviso

    End Sub

+    Private Sub cboTransportmittelart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTransportmittelart.SelectedIndexChanged
+        If cboTransportmittelart._value = "CONTAINER" Then
+            lblLkwKennzeichen.Text = "Container-Nr:"
+        Else
+            lblLkwKennzeichen.Text = "LKW-Nr:"
+        End If
+    End Sub
    Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged

        pnl.Visible = False
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -24,12 +24,12 @@ 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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
        Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -183,6 +183,12 @@ Partial Class frmHauptfenster
        Me.EORIUKGeneriertenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.KAPKentAccessPermitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuFragezeichen = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VerfahrenshandbücherToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ChecklistenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ChecklisteWOCHECKLISTEZEallgemein = New System.Windows.Forms.ToolStripMenuItem()
+        Me.WOCECKLISTEZEWDHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.HandbuchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnWoche = New System.Windows.Forms.Button()
        Me.btnGestern = New System.Windows.Forms.Button()
@@ -363,7 +369,7 @@ Partial Class frmHauptfenster
        'mnuInfo
        '
        Me.mnuInfo.Name = "mnuInfo"
-        Me.mnuInfo.Size = New System.Drawing.Size(130, 22)
+        Me.mnuInfo.Size = New System.Drawing.Size(193, 22)
        Me.mnuInfo.Text = "Info"
        '
        'conÜbernehmen
@@ -1312,17 +1318,55 @@ Partial Class frmHauptfenster
        '
        'mnuFragezeichen
        '
-        Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInfo, Me.HandbuchToolStripMenuItem})
+        Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInfo, Me.VerfahrenshandbücherToolStripMenuItem, Me.ChecklistenToolStripMenuItem, Me.HandbuchToolStripMenuItem})
        Me.mnuFragezeichen.ForeColor = System.Drawing.Color.Black
        Me.mnuFragezeichen.ImageTransparentColor = System.Drawing.Color.Brown
        Me.mnuFragezeichen.Name = "mnuFragezeichen"
        Me.mnuFragezeichen.Size = New System.Drawing.Size(24, 20)
        Me.mnuFragezeichen.Text = "?"
        '
+        'VerfahrenshandbücherToolStripMenuItem
+        '
+        Me.VerfahrenshandbücherToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem})
+        Me.VerfahrenshandbücherToolStripMenuItem.Name = "VerfahrenshandbücherToolStripMenuItem"
+        Me.VerfahrenshandbücherToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
+        Me.VerfahrenshandbücherToolStripMenuItem.Text = "Verfahrenshandbücher"
+        '
+        'VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem
+        '
+        Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Name = "VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem"
+        Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
+        Me.VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Text = "Verfahrenshandbuch VERAG GmbH Zoll WO"
+        '
+        'ChecklistenToolStripMenuItem
+        '
+        Me.ChecklistenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ChecklisteWOCHECKLISTEZEallgemein, Me.WOCECKLISTEZEWDHToolStripMenuItem, Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem})
+        Me.ChecklistenToolStripMenuItem.Name = "ChecklistenToolStripMenuItem"
+        Me.ChecklistenToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
+        Me.ChecklistenToolStripMenuItem.Text = "Checklisten"
+        '
+        'ChecklisteWOCHECKLISTEZEallgemein
+        '
+        Me.ChecklisteWOCHECKLISTEZEallgemein.Name = "ChecklisteWOCHECKLISTEZEallgemein"
+        Me.ChecklisteWOCHECKLISTEZEallgemein.Size = New System.Drawing.Size(311, 22)
+        Me.ChecklisteWOCHECKLISTEZEallgemein.Text = "WO CHECKLISTE ZE allgemein"
+        '
+        'WOCECKLISTEZEWDHToolStripMenuItem
+        '
+        Me.WOCECKLISTEZEWDHToolStripMenuItem.Name = "WOCECKLISTEZEWDHToolStripMenuItem"
+        Me.WOCECKLISTEZEWDHToolStripMenuItem.Size = New System.Drawing.Size(311, 22)
+        Me.WOCECKLISTEZEWDHToolStripMenuItem.Text = "WO CHECKLISTE ZE WDH"
+        '
+        'WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem
+        '
+        Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Name = "WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem"
+        Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Size = New System.Drawing.Size(311, 22)
+        Me.WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Text = "WO CHECKLISTE Abgang Verwahrungsort ZV"
+        '
        'HandbuchToolStripMenuItem
        '
        Me.HandbuchToolStripMenuItem.Name = "HandbuchToolStripMenuItem"
-        Me.HandbuchToolStripMenuItem.Size = New System.Drawing.Size(130, 22)
+        Me.HandbuchToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
        Me.HandbuchToolStripMenuItem.Text = "Handbuch"
        '
        'btnWoche
@@ -1867,7 +1911,7 @@ Partial Class frmHauptfenster
        Me.SplitContainer2.Panel2.Controls.Add(Me.SplitContainer3)
        Me.SplitContainer2.Panel2MinSize = 650
        Me.SplitContainer2.Size = New System.Drawing.Size(884, 300)
-        Me.SplitContainer2.SplitterDistance = 210
+        Me.SplitContainer2.SplitterDistance = 216
        Me.SplitContainer2.SplitterWidth = 1
        Me.SplitContainer2.TabIndex = 0
        '
@@ -1881,7 +1925,7 @@ Partial Class frmHauptfenster
        Me.pnlLinks.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlLinks.Location = New System.Drawing.Point(0, 86)
        Me.pnlLinks.Name = "pnlLinks"
-        Me.pnlLinks.Size = New System.Drawing.Size(210, 214)
+        Me.pnlLinks.Size = New System.Drawing.Size(216, 214)
        Me.pnlLinks.TabIndex = 0
        '
        'Panel2
@@ -1894,7 +1938,7 @@ Partial Class frmHauptfenster
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Location = New System.Drawing.Point(0, 0)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(210, 111)
+        Me.Panel2.Size = New System.Drawing.Size(216, 111)
        Me.Panel2.TabIndex = 10
        '
        'Label7
@@ -1916,7 +1960,7 @@ Partial Class frmHauptfenster
        Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red
        Me.lblErrVermerk.Location = New System.Drawing.Point(12, 158)
        Me.lblErrVermerk.Name = "lblErrVermerk"
-        Me.lblErrVermerk.Size = New System.Drawing.Size(184, 27)
+        Me.lblErrVermerk.Size = New System.Drawing.Size(190, 27)
        Me.lblErrVermerk.TabIndex = 1
        Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!"
        Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -1991,7 +2035,7 @@ Partial Class frmHauptfenster
        Me.pnlLinksOben.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlLinksOben.Location = New System.Drawing.Point(0, 0)
        Me.pnlLinksOben.Name = "pnlLinksOben"
-        Me.pnlLinksOben.Size = New System.Drawing.Size(210, 86)
+        Me.pnlLinksOben.Size = New System.Drawing.Size(216, 86)
        Me.pnlLinksOben.TabIndex = 1
        '
        'Label22
@@ -2052,8 +2096,8 @@ Partial Class frmHauptfenster
        'SplitContainer3.Panel2
        '
        Me.SplitContainer3.Panel2.Controls.Add(Me.pnl)
-        Me.SplitContainer3.Size = New System.Drawing.Size(673, 300)
-        Me.SplitContainer3.SplitterDistance = 169
+        Me.SplitContainer3.Size = New System.Drawing.Size(667, 300)
+        Me.SplitContainer3.SplitterDistance = 167
        Me.SplitContainer3.TabIndex = 3
        '
        'UsrCntlBenachrichtigungen1
@@ -2062,7 +2106,7 @@ Partial Class frmHauptfenster
        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
-        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(169, 300)
+        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(167, 300)
        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
        '
        'pnl
@@ -2073,7 +2117,7 @@ Partial Class frmHauptfenster
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(500, 300)
+        Me.pnl.Size = New System.Drawing.Size(496, 300)
        Me.pnl.TabIndex = 0
        '
        'Button10
@@ -2097,8 +2141,8 @@ Partial Class frmHauptfenster
        Me.gridMyAviso.AllowUserToDeleteRows = False
        Me.gridMyAviso.AllowUserToOrderColumns = True
        Me.gridMyAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
+        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
        Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
        Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Top
@@ -2107,7 +2151,7 @@ Partial Class frmHauptfenster
        Me.gridMyAviso.ReadOnly = True
        Me.gridMyAviso.RowHeadersVisible = False
        Me.gridMyAviso.RowHeadersWidth = 62
-        Me.gridMyAviso.Size = New System.Drawing.Size(500, 277)
+        Me.gridMyAviso.Size = New System.Drawing.Size(496, 277)
        Me.gridMyAviso.TabIndex = 0
        '
        'Panel6
@@ -2125,7 +2169,7 @@ Partial Class frmHauptfenster
        Me.Panel6.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel6.Location = New System.Drawing.Point(0, 0)
        Me.Panel6.Name = "Panel6"
-        Me.Panel6.Size = New System.Drawing.Size(500, 21)
+        Me.Panel6.Size = New System.Drawing.Size(496, 21)
        Me.Panel6.TabIndex = 1
        '
        'lblMeineAviso
@@ -2151,7 +2195,7 @@ Partial Class frmHauptfenster
        Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
        Me.cboMy_Grenzstelle.FormattingEnabled = True
-        Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(181, 1)
+        Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(177, 1)
        Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
        Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
        Me.cboMy_Grenzstelle.TabIndex = 26
@@ -2161,7 +2205,7 @@ Partial Class frmHauptfenster
        Me.Label18.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label18.AutoSize = True
        Me.Label18.ForeColor = System.Drawing.Color.White
-        Me.Label18.Location = New System.Drawing.Point(113, 4)
+        Me.Label18.Location = New System.Drawing.Point(109, 4)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(62, 13)
        Me.Label18.TabIndex = 25
@@ -2172,7 +2216,7 @@ Partial Class frmHauptfenster
        Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.cbx_My_LKW.AutoSize = True
        Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
-        Me.cbx_My_LKW.Location = New System.Drawing.Point(57, 3)
+        Me.cbx_My_LKW.Location = New System.Drawing.Point(53, 3)
        Me.cbx_My_LKW.Name = "cbx_My_LKW"
        Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
        Me.cbx_My_LKW.TabIndex = 24
@@ -2186,7 +2230,7 @@ Partial Class frmHauptfenster
        Me.cboMy_QS.Checked = True
        Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
        Me.cboMy_QS.ForeColor = System.Drawing.Color.White
-        Me.cboMy_QS.Location = New System.Drawing.Point(443, 3)
+        Me.cboMy_QS.Location = New System.Drawing.Point(439, 3)
        Me.cboMy_QS.Name = "cboMy_QS"
        Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
        Me.cboMy_QS.TabIndex = 23
@@ -2200,7 +2244,7 @@ Partial Class frmHauptfenster
        Me.cboMy_VB.Checked = True
        Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
        Me.cboMy_VB.ForeColor = System.Drawing.Color.White
-        Me.cboMy_VB.Location = New System.Drawing.Point(464, 3)
+        Me.cboMy_VB.Location = New System.Drawing.Point(460, 3)
        Me.cboMy_VB.Name = "cboMy_VB"
        Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
        Me.cboMy_VB.TabIndex = 22
@@ -2218,7 +2262,7 @@ Partial Class frmHauptfenster
        Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
        Me.cboMyAvisoAnzeige.FormattingEnabled = True
-        Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(300, 1)
+        Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(296, 1)
        Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
        Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21)
        Me.cboMyAvisoAnzeige.TabIndex = 21
@@ -2228,7 +2272,7 @@ Partial Class frmHauptfenster
        Me.Label17.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label17.AutoSize = True
        Me.Label17.ForeColor = System.Drawing.Color.White
-        Me.Label17.Location = New System.Drawing.Point(251, 3)
+        Me.Label17.Location = New System.Drawing.Point(247, 3)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(48, 13)
        Me.Label17.TabIndex = 20
@@ -2238,7 +2282,7 @@ Partial Class frmHauptfenster
        '
        Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblAkte.ForeColor = System.Drawing.Color.White
-        Me.lblAkte.Location = New System.Drawing.Point(829, 6)
+        Me.lblAkte.Location = New System.Drawing.Point(825, 6)
        Me.lblAkte.Name = "lblAkte"
        Me.lblAkte.Size = New System.Drawing.Size(207, 19)
        Me.lblAkte.TabIndex = 1
@@ -2272,7 +2316,7 @@ Partial Class frmHauptfenster
        Me.tabVorgeschrieben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34)
        Me.tabVorgeschrieben.Name = "tabVorgeschrieben"
-        Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3)
        Me.tabVorgeschrieben.Size = New System.Drawing.Size(753, 0)
        Me.tabVorgeschrieben.TabIndex = 3
        Me.tabVorgeschrieben.Text = "3.Vorgeschrieben"
@@ -2283,7 +2327,7 @@ Partial Class frmHauptfenster
        Me.tabFreigegeben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34)
        Me.tabFreigegeben.Name = "tabFreigegeben"
-        Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3)
        Me.tabFreigegeben.Size = New System.Drawing.Size(753, 0)
        Me.tabFreigegeben.TabIndex = 5
        Me.tabFreigegeben.Text = "5. Freigegeben"
@@ -2294,7 +2338,7 @@ Partial Class frmHauptfenster
        Me.tabNichtEingetroffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
        Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen"
-        Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3)
        Me.tabNichtEingetroffen.Size = New System.Drawing.Size(753, 0)
        Me.tabNichtEingetroffen.TabIndex = 6
        Me.tabNichtEingetroffen.Text = "Nicht eingetroffen"
@@ -2305,7 +2349,7 @@ Partial Class frmHauptfenster
        Me.tabAnkunft.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tabAnkunft.Location = New System.Drawing.Point(4, 34)
        Me.tabAnkunft.Name = "tabAnkunft"
-        Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3)
        Me.tabAnkunft.Size = New System.Drawing.Size(753, 0)
        Me.tabAnkunft.TabIndex = 4
        Me.tabAnkunft.Text = "4. Ankunft"
@@ -2316,7 +2360,7 @@ Partial Class frmHauptfenster
        Me.tabVorbereitet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34)
        Me.tabVorbereitet.Name = "tabVorbereitet"
-        Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3)
        Me.tabVorbereitet.Size = New System.Drawing.Size(753, 0)
        Me.tabVorbereitet.TabIndex = 2
        Me.tabVorbereitet.Text = "2.Vorbereitet QS"
@@ -2369,7 +2413,7 @@ Partial Class frmHauptfenster
        Me.tabAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.tabAlle.Location = New System.Drawing.Point(4, 34)
        Me.tabAlle.Name = "tabAlle"
-        Me.tabAlle.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tabAlle.Padding = New System.Windows.Forms.Padding(3)
        Me.tabAlle.Size = New System.Drawing.Size(753, 0)
        Me.tabAlle.TabIndex = 0
        Me.tabAlle.Text = "Alle"
@@ -2380,7 +2424,7 @@ Partial Class frmHauptfenster
        Me.tabErfasst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tabErfasst.Location = New System.Drawing.Point(4, 34)
        Me.tabErfasst.Name = "tabErfasst"
-        Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3, 3, 3, 3)
+        Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3)
        Me.tabErfasst.Size = New System.Drawing.Size(753, 0)
        Me.tabErfasst.TabIndex = 1
        Me.tabErfasst.Text = "1. Erfasst"
@@ -2470,47 +2514,47 @@ Partial Class frmHauptfenster
        Me.gridAviso.AllowUserToAddRows = False
        Me.gridAviso.AllowUserToDeleteRows = False
        Me.gridAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
        Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
        Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9
        Me.gridAviso.ColumnHeadersHeight = 25
        Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle10
        Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridAviso.Location = New System.Drawing.Point(0, 208)
        Me.gridAviso.MultiSelect = False
        Me.gridAviso.Name = "gridAviso"
        Me.gridAviso.ReadOnly = True
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle11
        Me.gridAviso.RowHeadersVisible = False
        Me.gridAviso.RowHeadersWidth = 62
        Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle12
        Me.gridAviso.RowTemplate.ReadOnly = True
        Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
        Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -3488,4 +3532,10 @@ Partial Class frmHauptfenster
    Friend WithEvents DEGesamtsicherheitVeragGmbHToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ATGesamtsicherheitVeragCSToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents VerfahrenshandbücherToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ChecklistenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ChecklisteWOCHECKLISTEZEallgemein As ToolStripMenuItem
+    Friend WithEvents WOCECKLISTEZEWDHToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmHauptfenster.resx
+++ b/Aviso/frmHauptfenster.resx
@@ -225,6 +225,9 @@
        pOTzPwAAAABJRU5ErkJggg==
 </value>
  </data>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>598, 17</value>
+  </metadata>
  <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>697, 17</value>
  </metadata>
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -421,7 +421,7 @@ Public Class frmHauptfenster

        'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
-            Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & "  And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'  "
+            Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & "  And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and  Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND Grenzstelle IN ('AMB','NKD','SBG','SUB','WAI')  "
            'dateadd(DAY,10,VoraussichtlichesEintreffen)  --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten
            Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL)
            If anz > 0 Then
@@ -530,6 +530,7 @@ Public Class frmHauptfenster
            End If

            .Columns("TageBisEintreffen").Visible = False
+            .Columns("Transportmittelart").Visible = False

            .Columns("Status").Width = 25
            .Columns("Status").HeaderText = "St."
@@ -765,7 +766,7 @@ Public Class frmHauptfenster


        Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben,  Freigabe, "
-        hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen "
+        hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen,isnull(Transportmittelart,'')Transportmittelart"
        hSQL &= " FROM Aviso "
        hSQL &= " WHERE 1=1 "

@@ -2555,6 +2556,14 @@ Public Class frmHauptfenster
        'VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolderCat("C:\Users\test01\Desktop\TEST.pdf", "12345", "", "Import ab Jänner 2021", "Import ab Jänner 2021")
        'Exit Sub

+        Dim dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", 717858, {3})
+
+        For Each d In dt.Rows
+            MsgBox(d("LKW_Nr"))
+        Next
+
+
+        Exit Sub
        CHMRC.hmrcTEST()

        Exit Sub
@@ -3736,6 +3745,45 @@ Public Class frmHauptfenster
        frm.Standort = "Verag CS"
        frm.Show()
    End Sub
+
+    Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAviso.CellPainting
+        If e.RowIndex <> -1 AndAlso gridAviso.Columns(e.ColumnIndex).Name = "Status" Then
+            If gridAviso.Rows(e.RowIndex).Cells("Transportmittelart").Value = "SPRINTER" Then
+                If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
+                    e.Graphics.DrawImage(My.Resources.sprinter_white, e.CellBounds)
+                    'e.CellStyle.BackColor = Color.White
+                End If
+
+
+                If Not e.Handled Then
+                    e.Handled = True
+                    e.PaintContent(e.CellBounds)
+                End If
+            End If
+        End If
+
+    End Sub
+
+    Private Sub VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VerfahrenshandbuchVERAGGmbHZollWOToolStripMenuItem.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "VerfahrenshandbuchVERAGGmbHZollWO")
+        DS.OPEN_SINGLE()
+
+    End Sub
+
+    Private Sub ChecklisteWOVERAGGmbHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChecklisteWOCHECKLISTEZEallgemein.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "ChecklisteWOCHECKLISTEZEallgemein")
+        DS.OPEN_SINGLE()
+    End Sub
+
+    Private Sub WOCECKLISTEZEWDHToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEZEWDHToolStripMenuItem.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEZEWDH")
+        DS.OPEN_SINGLE()
+    End Sub
+
+    Private Sub WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WOCECKLISTEAbgangVerwahrungsortZVToolStripMenuItem.Click
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "WOCECKLISTEAbgangVerwahrungsortZV")
+        DS.OPEN_SINGLE()
+    End Sub
 End Class

 Public Class AvisoStatusFunctions
@@ -5236,14 +5284,14 @@ Public Class AvisoStatusFunctions

        SENDUNG_TMP.saveSachbearbeiter = True

-        If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
-            MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
-            Return False
-        End If
-        If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
-            MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
-            Return False
-        End If
+        'If SENDUNG_TMP.tblSnd_Vorgeschrieben IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'Vorgeschrieben' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If
+        'If SENDUNG_TMP.tblSnd_Vorbereitet IsNot Nothing Then
+        '    MsgBox("Sendung wurde bereits auf 'QS Vorbereitet' gesetzt - Status nicht mehr möglich!")
+        '    Return False
+        'End If


        If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then
--- a/Aviso/frmLaufzettel.vb
+++ b/Aviso/frmLaufzettel.vb
@@ -186,6 +186,15 @@ Public Class frmLaufzettel
    End Sub

    Private Sub btnLaufzettelDrucken_Click(sender As Object, e As EventArgs) Handles btnLaufzettelDrucken.Click
+        If CheckBox2.Checked Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "WAI" Then
+                If Not CheckBox3.Checked And Not CheckBox4.Checked Then
+                    MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
+                    Exit Sub
+                End If
+            End If
+        End If
+
        doLZ(False)
        Me.Close()
    End Sub
@@ -246,11 +255,21 @@ Public Class frmLaufzettel
                        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
                    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
                Else
+                    If Not CheckBox3.Checked And Not CheckBox4.Checked Then
+                        MsgBox("Bitte 'AT ZOLL' oder 'DE ZOLL' auswählen!")
+                        Exit Sub
+                    End If
+
                    Try
-                        Dim path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
+                        'If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO(AVISO, If(CheckBox3.Checked, "AT", If(CheckBox4.Checked, "DE", "")))
+                        Dim path = ""
+                        If CheckBox3.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_AT(AVISO)
+                        If CheckBox4.Checked Then path = SDL.FormularManagerNEU.zumZOLL_AVISO_DE(AVISO)
+
                        If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, cboPrinter.SelectedItem.ToString) '(New System.Drawing.Printing.PrinterSettings).PrinterName)
                    Catch ex As Exception : MsgBox(ex.Message & ex.StackTrace) : End Try
                End If
+
            End If
        End If

--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -24,13 +24,13 @@ Partial Class frmSendungsdetailsNEU
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -130,10 +130,8 @@ Partial Class frmSendungsdetailsNEU
        Me.Button14 = New System.Windows.Forms.Button()
        Me.Button12 = New System.Windows.Forms.Button()
        Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.lblWarenbezeichnung = New System.Windows.Forms.Label()
        Me.Label35 = New System.Windows.Forms.Label()
-        Me.lblZuKass = New System.Windows.Forms.Label()
        Me.lblCollGew = New System.Windows.Forms.Label()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button8 = New System.Windows.Forms.Button()
@@ -144,6 +142,9 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAnmerkung = New System.Windows.Forms.Label()
        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.rtbAnmerkung = New System.Windows.Forms.RichTextBox()
+        Me.Panel22 = New System.Windows.Forms.Panel()
+        Me.txtBARzuKassieren = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblZuKass = New System.Windows.Forms.Label()
        Me.tbVorkosten = New System.Windows.Forms.TabPage()
        Me.lblVK_BEarbeitungAbbrechen = New System.Windows.Forms.LinkLabel()
        Me.btnVorkostenAdd = New System.Windows.Forms.Button()
@@ -327,6 +328,7 @@ Partial Class frmSendungsdetailsNEU
        Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.LaufzetteldruckJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.GestellungslisteAnfügenJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
@@ -376,7 +378,6 @@ Partial Class frmSendungsdetailsNEU
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
        Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnl.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.TabControl1.SuspendLayout()
@@ -401,6 +402,7 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlDetails.SuspendLayout()
        Me.tbcntr.SuspendLayout()
        Me.TabPage4.SuspendLayout()
+        Me.Panel22.SuspendLayout()
        Me.tbVorkosten.SuspendLayout()
        CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.tbBAR.SuspendLayout()
@@ -455,9 +457,9 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel4.Controls.Add(Me.TabControl1)
        Me.Panel4.Controls.Add(Me.Panel14)
        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel4.Location = New System.Drawing.Point(0, 439)
+        Me.Panel4.Location = New System.Drawing.Point(0, 452)
        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1214, 337)
+        Me.Panel4.Size = New System.Drawing.Size(1214, 324)
        Me.Panel4.TabIndex = 2
        '
        'TabControl1
@@ -472,7 +474,7 @@ Partial Class frmSendungsdetailsNEU
        Me.TabControl1.Location = New System.Drawing.Point(0, 37)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(1214, 300)
+        Me.TabControl1.Size = New System.Drawing.Size(1214, 287)
        Me.TabControl1.TabIndex = 1
        '
        'tbAnhang
@@ -482,7 +484,7 @@ Partial Class frmSendungsdetailsNEU
        Me.tbAnhang.Controls.Add(Me.Panel19)
        Me.tbAnhang.Location = New System.Drawing.Point(4, 22)
        Me.tbAnhang.Name = "tbAnhang"
-        Me.tbAnhang.Size = New System.Drawing.Size(1206, 274)
+        Me.tbAnhang.Size = New System.Drawing.Size(1206, 261)
        Me.tbAnhang.TabIndex = 4
        Me.tbAnhang.Text = "Anhang"
        Me.tbAnhang.UseVisualStyleBackColor = True
@@ -496,7 +498,7 @@ Partial Class frmSendungsdetailsNEU
        Me.btnDirektAnfuegen.Location = New System.Drawing.Point(648, 75)
        Me.btnDirektAnfuegen.Name = "btnDirektAnfuegen"
        Me.btnDirektAnfuegen.Size = New System.Drawing.Size(142, 34)
-        Me.btnDirektAnfuegen.TabIndex = 4
+        Me.btnDirektAnfuegen.TabIndex = 2
        Me.btnDirektAnfuegen.Text = "Direkt anfügen ..."
        Me.btnDirektAnfuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnDirektAnfuegen.UseVisualStyleBackColor = True
@@ -510,14 +512,14 @@ Partial Class frmSendungsdetailsNEU
        Me.dgvAnhang.AllowUserToResizeColumns = False
        Me.dgvAnhang.AllowUserToResizeRows = False
        Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle8
        Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
        Me.dgvAnhang.Name = "dgvAnhang"
@@ -525,7 +527,7 @@ Partial Class frmSendungsdetailsNEU
        Me.dgvAnhang.RowHeadersVisible = False
        Me.dgvAnhang.RowTemplate.Height = 40
        Me.dgvAnhang.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 229)
+        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 216)
        Me.dgvAnhang.TabIndex = 1
        '
        'Panel19
@@ -552,7 +554,7 @@ Partial Class frmSendungsdetailsNEU
        Me.btnQuckScan.Location = New System.Drawing.Point(631, 5)
        Me.btnQuckScan.Name = "btnQuckScan"
        Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
-        Me.btnQuckScan.TabIndex = 108
+        Me.btnQuckScan.TabIndex = 4
        Me.btnQuckScan.Text = "Quick-Scan"
        Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnQuckScan.UseVisualStyleBackColor = True
@@ -722,7 +724,7 @@ Partial Class frmSendungsdetailsNEU
        Me.tbKundenInfo.Controls.Add(Me.Panel20)
        Me.tbKundenInfo.Location = New System.Drawing.Point(4, 22)
        Me.tbKundenInfo.Name = "tbKundenInfo"
-        Me.tbKundenInfo.Size = New System.Drawing.Size(1206, 274)
+        Me.tbKundenInfo.Size = New System.Drawing.Size(1206, 261)
        Me.tbKundenInfo.TabIndex = 5
        Me.tbKundenInfo.Text = "Kundeninfo"
        Me.tbKundenInfo.UseVisualStyleBackColor = True
@@ -734,7 +736,7 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlKundenInfo.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlKundenInfo.Location = New System.Drawing.Point(0, 10)
        Me.pnlKundenInfo.Name = "pnlKundenInfo"
-        Me.pnlKundenInfo.Size = New System.Drawing.Size(1206, 264)
+        Me.pnlKundenInfo.Size = New System.Drawing.Size(1206, 251)
        Me.pnlKundenInfo.TabIndex = 1
        '
        'Panel20
@@ -751,7 +753,7 @@ Partial Class frmSendungsdetailsNEU
        Me.tbZollabfertigung.Controls.Add(Me.Panel16)
        Me.tbZollabfertigung.Location = New System.Drawing.Point(4, 22)
        Me.tbZollabfertigung.Name = "tbZollabfertigung"
-        Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 274)
+        Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 261)
        Me.tbZollabfertigung.TabIndex = 2
        Me.tbZollabfertigung.Text = "Zollabfertigung"
        Me.tbZollabfertigung.UseVisualStyleBackColor = True
@@ -764,7 +766,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel16.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel16.Location = New System.Drawing.Point(0, 0)
        Me.Panel16.Name = "Panel16"
-        Me.Panel16.Size = New System.Drawing.Size(1206, 274)
+        Me.Panel16.Size = New System.Drawing.Size(1206, 261)
        Me.Panel16.TabIndex = 0
        '
        'dgvZollAnmeldungen
@@ -781,7 +783,7 @@ Partial Class frmSendungsdetailsNEU
        Me.dgvZollAnmeldungen.ReadOnly = True
        Me.dgvZollAnmeldungen.RowTemplate.Height = 30
        Me.dgvZollAnmeldungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 212)
+        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 199)
        Me.dgvZollAnmeldungen.TabIndex = 1
        '
        'Panel17
@@ -790,7 +792,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel17.Controls.Add(Me.Button6)
        Me.Panel17.Controls.Add(Me.Button5)
        Me.Panel17.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel17.Location = New System.Drawing.Point(0, 236)
+        Me.Panel17.Location = New System.Drawing.Point(0, 223)
        Me.Panel17.Name = "Panel17"
        Me.Panel17.Size = New System.Drawing.Size(1206, 38)
        Me.Panel17.TabIndex = 2
@@ -886,7 +888,6 @@ Partial Class frmSendungsdetailsNEU
        '
        'ToolStripMenuItem11
        '
-        Me.ToolStripMenuItem11.Enabled = False
        Me.ToolStripMenuItem11.Image = Global.AVISO.My.Resources.Resources.plus
        Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
        Me.ToolStripMenuItem11.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
@@ -978,7 +979,7 @@ Partial Class frmSendungsdetailsNEU
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1206, 274)
+        Me.TabPage1.Size = New System.Drawing.Size(1206, 261)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Kunden - Zolltarif"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -994,7 +995,7 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlKundenZolltarif.Location = New System.Drawing.Point(3, 36)
        Me.pnlKundenZolltarif.MinimumSize = New System.Drawing.Size(2, 103)
        Me.pnlKundenZolltarif.Name = "pnlKundenZolltarif"
-        Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 235)
+        Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 222)
        Me.pnlKundenZolltarif.TabIndex = 1
        Me.pnlKundenZolltarif.TabStop = True
        '
@@ -1003,7 +1004,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Label22.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label22.AutoSize = True
-        Me.Label22.Location = New System.Drawing.Point(4, 194)
+        Me.Label22.Location = New System.Drawing.Point(4, 181)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(209, 13)
        Me.Label22.TabIndex = 0
@@ -1015,7 +1016,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.AutoSize = True
-        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 208)
+        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 195)
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Name = "lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden"
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Size = New System.Drawing.Size(338, 13)
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.TabIndex = 1
@@ -1060,7 +1061,7 @@ Partial Class frmSendungsdetailsNEU
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(1206, 274)
+        Me.TabPage2.Size = New System.Drawing.Size(1206, 261)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Speditionsbuch"
        Me.TabPage2.UseVisualStyleBackColor = True
@@ -1077,7 +1078,7 @@ Partial Class frmSendungsdetailsNEU
        Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
        Me.DataGridView.Location = New System.Drawing.Point(3, 94)
        Me.DataGridView.Name = "DataGridView"
-        Me.DataGridView.Size = New System.Drawing.Size(1200, 177)
+        Me.DataGridView.Size = New System.Drawing.Size(1200, 164)
        Me.DataGridView.TabIndex = 1
        '
        'pnlSpedBuchNacherfassung
@@ -1382,7 +1383,7 @@ Partial Class frmSendungsdetailsNEU
        Me.TabPage3.Controls.Add(Me.gridVermerke)
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
-        Me.TabPage3.Size = New System.Drawing.Size(1206, 274)
+        Me.TabPage3.Size = New System.Drawing.Size(1206, 261)
        Me.TabPage3.TabIndex = 3
        Me.TabPage3.Text = "Vermerke"
        Me.TabPage3.UseVisualStyleBackColor = True
@@ -1392,51 +1393,51 @@ Partial Class frmSendungsdetailsNEU
        Me.gridVermerke.AllowUserToAddRows = False
        Me.gridVermerke.AllowUserToDeleteRows = False
        Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
        Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle11
        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
        Me.gridVermerke.MultiSelect = False
        Me.gridVermerke.Name = "gridVermerke"
        Me.gridVermerke.ReadOnly = True
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
        Me.gridVermerke.RowHeadersVisible = False
        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle13
        Me.gridVermerke.RowTemplate.Height = 20
        Me.gridVermerke.RowTemplate.ReadOnly = True
        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
        Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.gridVermerke.ShowCellErrors = False
        Me.gridVermerke.ShowRowErrors = False
-        Me.gridVermerke.Size = New System.Drawing.Size(1206, 274)
+        Me.gridVermerke.Size = New System.Drawing.Size(1206, 261)
        Me.gridVermerke.TabIndex = 0
        Me.gridVermerke.TabStop = False
        '
@@ -1461,7 +1462,7 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlDetails.Location = New System.Drawing.Point(0, 55)
        Me.pnlDetails.MinimumSize = New System.Drawing.Size(0, 310)
        Me.pnlDetails.Name = "pnlDetails"
-        Me.pnlDetails.Size = New System.Drawing.Size(1214, 384)
+        Me.pnlDetails.Size = New System.Drawing.Size(1214, 397)
        Me.pnlDetails.TabIndex = 1
        '
        'tbcntr
@@ -1473,7 +1474,7 @@ Partial Class frmSendungsdetailsNEU
        Me.tbcntr.Location = New System.Drawing.Point(837, 69)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(377, 312)
+        Me.tbcntr.Size = New System.Drawing.Size(377, 325)
        Me.tbcntr.TabIndex = 2
        Me.tbcntr.TabStop = False
        '
@@ -1493,10 +1494,8 @@ Partial Class frmSendungsdetailsNEU
        Me.TabPage4.Controls.Add(Me.Button14)
        Me.TabPage4.Controls.Add(Me.Button12)
        Me.TabPage4.Controls.Add(Me.txtGewicht)
-        Me.TabPage4.Controls.Add(Me.txtBARzuKassieren)
        Me.TabPage4.Controls.Add(Me.lblWarenbezeichnung)
        Me.TabPage4.Controls.Add(Me.Label35)
-        Me.TabPage4.Controls.Add(Me.lblZuKass)
        Me.TabPage4.Controls.Add(Me.lblCollGew)
        Me.TabPage4.Controls.Add(Me.Button3)
        Me.TabPage4.Controls.Add(Me.Button8)
@@ -1507,10 +1506,11 @@ Partial Class frmSendungsdetailsNEU
        Me.TabPage4.Controls.Add(Me.lblAnmerkung)
        Me.TabPage4.Controls.Add(Me.cboPrinter)
        Me.TabPage4.Controls.Add(Me.rtbAnmerkung)
+        Me.TabPage4.Controls.Add(Me.Panel22)
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage4.Size = New System.Drawing.Size(369, 286)
+        Me.TabPage4.Size = New System.Drawing.Size(369, 299)
        Me.TabPage4.TabIndex = 0
        Me.TabPage4.Text = "Aktendeckel"
        Me.TabPage4.UseVisualStyleBackColor = True
@@ -1528,31 +1528,31 @@ Partial Class frmSendungsdetailsNEU
        Me.txtFrachtkosten._Waehrung = True
        Me.txtFrachtkosten._WaehrungZeichen = True
        Me.txtFrachtkosten.ForeColor = System.Drawing.Color.Black
-        Me.txtFrachtkosten.Location = New System.Drawing.Point(300, 69)
+        Me.txtFrachtkosten.Location = New System.Drawing.Point(300, 77)
        Me.txtFrachtkosten.MaxLineLength = -1
        Me.txtFrachtkosten.MaxLines_Warning = ""
        Me.txtFrachtkosten.MaxLines_Warning_Label = Nothing
        Me.txtFrachtkosten.Name = "txtFrachtkosten"
        Me.txtFrachtkosten.Size = New System.Drawing.Size(64, 20)
-        Me.txtFrachtkosten.TabIndex = 14
+        Me.txtFrachtkosten.TabIndex = 13
        Me.txtFrachtkosten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Label1
        '
        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(232, 72)
+        Me.Label1.Location = New System.Drawing.Point(232, 80)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(55, 13)
-        Me.Label1.TabIndex = 13
+        Me.Label1.TabIndex = 12
        Me.Label1.Text = "Fracht (€):"
        '
        'cbx
        '
        Me.cbx.AutoSize = True
-        Me.cbx.Location = New System.Drawing.Point(310, 152)
+        Me.cbx.Location = New System.Drawing.Point(310, 168)
        Me.cbx.Name = "cbx"
        Me.cbx.Size = New System.Drawing.Size(55, 17)
-        Me.cbx.TabIndex = 21
+        Me.cbx.TabIndex = 20
        Me.cbx.Text = "Laufz."
        Me.cbx.UseVisualStyleBackColor = True
        Me.cbx.Visible = False
@@ -1571,7 +1571,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtWarenwertWaehrung.INVISIBLE_COLUMNS = Nothing
        Me.txtWarenwertWaehrung.key_visible = False
        Me.txtWarenwertWaehrung.KEYPARAM = Nothing
-        Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(186, 69)
+        Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(186, 77)
        Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung"
        Me.txtWarenwertWaehrung.searchActive = True
        Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20)
@@ -1579,16 +1579,16 @@ Partial Class frmSendungsdetailsNEU
        Me.txtWarenwertWaehrung.SQL_SELECT = Nothing
        Me.txtWarenwertWaehrung.SQL_WHERE = Nothing
        Me.txtWarenwertWaehrung.SQL_WhereParamList = Nothing
-        Me.txtWarenwertWaehrung.TabIndex = 12
+        Me.txtWarenwertWaehrung.TabIndex = 11
        Me.txtWarenwertWaehrung.usrcntl = Nothing
        '
        'lblWW
        '
        Me.lblWW.AutoSize = True
-        Me.lblWW.Location = New System.Drawing.Point(4, 72)
+        Me.lblWW.Location = New System.Drawing.Point(4, 80)
        Me.lblWW.Name = "lblWW"
        Me.lblWW.Size = New System.Drawing.Size(62, 13)
-        Me.lblWW.TabIndex = 10
+        Me.lblWW.TabIndex = 9
        Me.lblWW.Text = "Warenwert:"
        '
        'txtWarenwert
@@ -1604,13 +1604,13 @@ Partial Class frmSendungsdetailsNEU
        Me.txtWarenwert._Waehrung = False
        Me.txtWarenwert._WaehrungZeichen = True
        Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
-        Me.txtWarenwert.Location = New System.Drawing.Point(78, 69)
+        Me.txtWarenwert.Location = New System.Drawing.Point(78, 77)
        Me.txtWarenwert.MaxLineLength = -1
        Me.txtWarenwert.MaxLines_Warning = ""
        Me.txtWarenwert.MaxLines_Warning_Label = Nothing
        Me.txtWarenwert.Name = "txtWarenwert"
        Me.txtWarenwert.Size = New System.Drawing.Size(109, 20)
-        Me.txtWarenwert.TabIndex = 11
+        Me.txtWarenwert.TabIndex = 10
        Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'Button21
@@ -1619,11 +1619,11 @@ Partial Class frmSendungsdetailsNEU
        Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
        Me.Button21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button21.Location = New System.Drawing.Point(233, 253)
+        Me.Button21.Location = New System.Drawing.Point(233, 269)
        Me.Button21.Name = "Button21"
        Me.Button21.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
        Me.Button21.Size = New System.Drawing.Size(131, 30)
-        Me.Button21.TabIndex = 27
+        Me.Button21.TabIndex = 26
        Me.Button21.Text = "weitere Formulare"
        Me.Button21.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button21.UseVisualStyleBackColor = True
@@ -1631,18 +1631,18 @@ Partial Class frmSendungsdetailsNEU
        'lblAnmerkungDispoliste
        '
        Me.lblAnmerkungDispoliste.AutoSize = True
-        Me.lblAnmerkungDispoliste.Location = New System.Drawing.Point(3, 238)
+        Me.lblAnmerkungDispoliste.Location = New System.Drawing.Point(3, 254)
        Me.lblAnmerkungDispoliste.Name = "lblAnmerkungDispoliste"
        Me.lblAnmerkungDispoliste.Size = New System.Drawing.Size(112, 13)
-        Me.lblAnmerkungDispoliste.TabIndex = 24
+        Me.lblAnmerkungDispoliste.TabIndex = 23
        Me.lblAnmerkungDispoliste.Text = "Anmerkung Dispoliste:"
        '
        'rtbAnmerkungDispoliste
        '
-        Me.rtbAnmerkungDispoliste.Location = New System.Drawing.Point(6, 252)
+        Me.rtbAnmerkungDispoliste.Location = New System.Drawing.Point(6, 268)
        Me.rtbAnmerkungDispoliste.Name = "rtbAnmerkungDispoliste"
        Me.rtbAnmerkungDispoliste.Size = New System.Drawing.Size(224, 31)
-        Me.rtbAnmerkungDispoliste.TabIndex = 26
+        Me.rtbAnmerkungDispoliste.TabIndex = 25
        Me.rtbAnmerkungDispoliste.Text = ""
        '
        'btnImportaviso
@@ -1652,11 +1652,11 @@ Partial Class frmSendungsdetailsNEU
        Me.btnImportaviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
        Me.btnImportaviso.Image = Global.AVISO.My.Resources.Resources.auftrag3
        Me.btnImportaviso.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnImportaviso.Location = New System.Drawing.Point(233, 195)
+        Me.btnImportaviso.Location = New System.Drawing.Point(233, 211)
        Me.btnImportaviso.Name = "btnImportaviso"
        Me.btnImportaviso.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
        Me.btnImportaviso.Size = New System.Drawing.Size(131, 30)
-        Me.btnImportaviso.TabIndex = 23
+        Me.btnImportaviso.TabIndex = 22
        Me.btnImportaviso.Text = "Importaviso"
        Me.btnImportaviso.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnImportaviso.UseVisualStyleBackColor = True
@@ -1669,11 +1669,11 @@ Partial Class frmSendungsdetailsNEU
        Me.btnVorauszahlung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
        Me.btnVorauszahlung.Image = Global.AVISO.My.Resources.Resources.vorauszahlung3
        Me.btnVorauszahlung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnVorauszahlung.Location = New System.Drawing.Point(233, 224)
+        Me.btnVorauszahlung.Location = New System.Drawing.Point(233, 240)
        Me.btnVorauszahlung.Name = "btnVorauszahlung"
        Me.btnVorauszahlung.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
        Me.btnVorauszahlung.Size = New System.Drawing.Size(131, 30)
-        Me.btnVorauszahlung.TabIndex = 25
+        Me.btnVorauszahlung.TabIndex = 24
        Me.btnVorauszahlung.Text = "Vorauskasse"
        Me.btnVorauszahlung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnVorauszahlung.UseVisualStyleBackColor = True
@@ -1689,21 +1689,21 @@ Partial Class frmSendungsdetailsNEU
        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
        Me.Button14.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.Button14.Location = New System.Drawing.Point(350, 24)
+        Me.Button14.Location = New System.Drawing.Point(349, 61)
        Me.Button14.Name = "Button14"
        Me.Button14.Padding = New System.Windows.Forms.Padding(0, 13, 0, 0)
        Me.Button14.Size = New System.Drawing.Size(15, 15)
-        Me.Button14.TabIndex = 2
+        Me.Button14.TabIndex = 8
        Me.Button14.TabStop = False
        Me.Button14.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.Button14.UseVisualStyleBackColor = True
        '
        'Button12
        '
-        Me.Button12.Location = New System.Drawing.Point(49, 145)
+        Me.Button12.Location = New System.Drawing.Point(49, 161)
        Me.Button12.Name = "Button12"
        Me.Button12.Size = New System.Drawing.Size(75, 23)
-        Me.Button12.TabIndex = 18
+        Me.Button12.TabIndex = 17
        Me.Button12.Text = "ATLAS"
        Me.Button12.UseVisualStyleBackColor = True
        Me.Button12.Visible = False
@@ -1721,82 +1721,50 @@ Partial Class frmSendungsdetailsNEU
        Me.txtGewicht._Waehrung = False
        Me.txtGewicht._WaehrungZeichen = True
        Me.txtGewicht.ForeColor = System.Drawing.Color.Black
-        Me.txtGewicht.Location = New System.Drawing.Point(146, 50)
+        Me.txtGewicht.Location = New System.Drawing.Point(81, 22)
        Me.txtGewicht.MaxLineLength = -1
        Me.txtGewicht.MaxLines_Warning = ""
        Me.txtGewicht.MaxLines_Warning_Label = Nothing
        Me.txtGewicht.Name = "txtGewicht"
-        Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
-        Me.txtGewicht.TabIndex = 6
+        Me.txtGewicht.Size = New System.Drawing.Size(69, 20)
+        Me.txtGewicht.TabIndex = 4
        Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
-        'txtBARzuKassieren
-        '
-        Me.txtBARzuKassieren._DateTimeOnly = False
-        Me.txtBARzuKassieren._numbersOnly = False
-        Me.txtBARzuKassieren._numbersOnlyKommastellen = ""
-        Me.txtBARzuKassieren._Prozent = False
-        Me.txtBARzuKassieren._ShortDateNew = False
-        Me.txtBARzuKassieren._ShortDateOnly = False
-        Me.txtBARzuKassieren._TimeOnly = False
-        Me.txtBARzuKassieren._value = ""
-        Me.txtBARzuKassieren._Waehrung = True
-        Me.txtBARzuKassieren._WaehrungZeichen = True
-        Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black
-        Me.txtBARzuKassieren.Location = New System.Drawing.Point(300, 50)
-        Me.txtBARzuKassieren.MaxLineLength = -1
-        Me.txtBARzuKassieren.MaxLines_Warning = ""
-        Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing
-        Me.txtBARzuKassieren.Name = "txtBARzuKassieren"
-        Me.txtBARzuKassieren.Size = New System.Drawing.Size(64, 20)
-        Me.txtBARzuKassieren.TabIndex = 8
-        Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'lblWarenbezeichnung
        '
        Me.lblWarenbezeichnung.AutoSize = True
-        Me.lblWarenbezeichnung.Location = New System.Drawing.Point(3, 3)
+        Me.lblWarenbezeichnung.Location = New System.Drawing.Point(4, 34)
        Me.lblWarenbezeichnung.Name = "lblWarenbezeichnung"
-        Me.lblWarenbezeichnung.Size = New System.Drawing.Size(100, 13)
-        Me.lblWarenbezeichnung.TabIndex = 0
-        Me.lblWarenbezeichnung.Text = "Warenbezeichnung"
+        Me.lblWarenbezeichnung.Size = New System.Drawing.Size(0, 13)
+        Me.lblWarenbezeichnung.TabIndex = 6
        '
        'Label35
        '
        Me.Label35.AutoSize = True
-        Me.Label35.Location = New System.Drawing.Point(232, 95)
+        Me.Label35.Location = New System.Drawing.Point(232, 111)
        Me.Label35.Name = "Label35"
        Me.Label35.Size = New System.Drawing.Size(131, 13)
-        Me.Label35.TabIndex = 16
+        Me.Label35.TabIndex = 15
        Me.Label35.Text = "Aktenzettel drucken/PDF:"
        '
-        'lblZuKass
-        '
-        Me.lblZuKass.AutoSize = True
-        Me.lblZuKass.Location = New System.Drawing.Point(232, 53)
-        Me.lblZuKass.Name = "lblZuKass"
-        Me.lblZuKass.Size = New System.Drawing.Size(69, 13)
-        Me.lblZuKass.TabIndex = 9
-        Me.lblZuKass.Text = "zu kassieren:"
-        '
        'lblCollGew
        '
        Me.lblCollGew.AutoSize = True
-        Me.lblCollGew.Location = New System.Drawing.Point(4, 53)
+        Me.lblCollGew.Location = New System.Drawing.Point(3, 5)
        Me.lblCollGew.Name = "lblCollGew"
-        Me.lblCollGew.Size = New System.Drawing.Size(73, 13)
-        Me.lblCollGew.TabIndex = 3
-        Me.lblCollGew.Text = "Colli/Gewicht:"
+        Me.lblCollGew.Size = New System.Drawing.Size(171, 13)
+        Me.lblCollGew.TabIndex = 0
+        Me.lblCollGew.Text = "Colli/Gewicht/Warenbezeichnung:"
        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
-        Me.Button3.Location = New System.Drawing.Point(233, 111)
+        Me.Button3.Location = New System.Drawing.Point(233, 127)
        Me.Button3.Margin = New System.Windows.Forms.Padding(0, 3, 0, 3)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(78, 60)
-        Me.Button3.TabIndex = 19
+        Me.Button3.TabIndex = 18
        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button3.UseVisualStyleBackColor = True
        '
@@ -1805,10 +1773,10 @@ Partial Class frmSendungsdetailsNEU
        Me.Button8.BackgroundImage = CType(resources.GetObject("Button8.BackgroundImage"), System.Drawing.Image)
        Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button8.Location = New System.Drawing.Point(310, 111)
+        Me.Button8.Location = New System.Drawing.Point(310, 127)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(54, 60)
-        Me.Button8.TabIndex = 20
+        Me.Button8.TabIndex = 19
        Me.Button8.UseVisualStyleBackColor = True
        '
        'txtColli
@@ -1824,50 +1792,50 @@ Partial Class frmSendungsdetailsNEU
        Me.txtColli._Waehrung = False
        Me.txtColli._WaehrungZeichen = True
        Me.txtColli.ForeColor = System.Drawing.Color.Black
-        Me.txtColli.Location = New System.Drawing.Point(78, 50)
+        Me.txtColli.Location = New System.Drawing.Point(7, 22)
        Me.txtColli.MaxLineLength = -1
        Me.txtColli.MaxLines_Warning = ""
        Me.txtColli.MaxLines_Warning_Label = Nothing
        Me.txtColli.Name = "txtColli"
        Me.txtColli.Size = New System.Drawing.Size(46, 20)
-        Me.txtColli.TabIndex = 4
+        Me.txtColli.TabIndex = 3
        Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
        'rtbWarenbezeichnung
        '
        Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam
-        Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(6, 19)
+        Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(6, 41)
        Me.rtbWarenbezeichnung.MaxLength = 500
        Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
-        Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
-        Me.rtbWarenbezeichnung.TabIndex = 1
+        Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 36)
+        Me.rtbWarenbezeichnung.TabIndex = 7
        Me.rtbWarenbezeichnung.Text = ""
        '
        'Label23
        '
        Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(123, 53)
+        Me.Label23.Location = New System.Drawing.Point(52, 25)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(23, 13)
-        Me.Label23.TabIndex = 5
+        Me.Label23.TabIndex = 1
        Me.Label23.Text = "Pk."
        '
        'Label24
        '
        Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(207, 53)
+        Me.Label24.Location = New System.Drawing.Point(152, 25)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(19, 13)
-        Me.Label24.TabIndex = 7
+        Me.Label24.TabIndex = 5
        Me.Label24.Text = "kg"
        '
        'lblAnmerkung
        '
        Me.lblAnmerkung.AutoSize = True
-        Me.lblAnmerkung.Location = New System.Drawing.Point(6, 95)
+        Me.lblAnmerkung.Location = New System.Drawing.Point(6, 111)
        Me.lblAnmerkung.Name = "lblAnmerkung"
        Me.lblAnmerkung.Size = New System.Drawing.Size(64, 13)
-        Me.lblAnmerkung.TabIndex = 15
+        Me.lblAnmerkung.TabIndex = 14
        Me.lblAnmerkung.Text = "Anmerkung:"
        '
        'cboPrinter
@@ -1878,19 +1846,62 @@ Partial Class frmSendungsdetailsNEU
        Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cboPrinter.DropDownWidth = 300
        Me.cboPrinter.FormattingEnabled = True
-        Me.cboPrinter.Location = New System.Drawing.Point(233, 171)
+        Me.cboPrinter.Location = New System.Drawing.Point(233, 187)
        Me.cboPrinter.Name = "cboPrinter"
        Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
-        Me.cboPrinter.TabIndex = 22
+        Me.cboPrinter.TabIndex = 21
        '
        'rtbAnmerkung
        '
-        Me.rtbAnmerkung.Location = New System.Drawing.Point(6, 111)
+        Me.rtbAnmerkung.Location = New System.Drawing.Point(6, 127)
        Me.rtbAnmerkung.Name = "rtbAnmerkung"
        Me.rtbAnmerkung.Size = New System.Drawing.Size(224, 124)
-        Me.rtbAnmerkung.TabIndex = 17
+        Me.rtbAnmerkung.TabIndex = 16
        Me.rtbAnmerkung.Text = ""
        '
+        'Panel22
+        '
+        Me.Panel22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Panel22.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.Panel22.Controls.Add(Me.txtBARzuKassieren)
+        Me.Panel22.Controls.Add(Me.lblZuKass)
+        Me.Panel22.Location = New System.Drawing.Point(254, 0)
+        Me.Panel22.Name = "Panel22"
+        Me.Panel22.Size = New System.Drawing.Size(115, 41)
+        Me.Panel22.TabIndex = 2
+        Me.Panel22.TabStop = True
+        '
+        'txtBARzuKassieren
+        '
+        Me.txtBARzuKassieren._DateTimeOnly = False
+        Me.txtBARzuKassieren._numbersOnly = False
+        Me.txtBARzuKassieren._numbersOnlyKommastellen = ""
+        Me.txtBARzuKassieren._Prozent = False
+        Me.txtBARzuKassieren._ShortDateNew = False
+        Me.txtBARzuKassieren._ShortDateOnly = False
+        Me.txtBARzuKassieren._TimeOnly = False
+        Me.txtBARzuKassieren._value = ""
+        Me.txtBARzuKassieren._Waehrung = True
+        Me.txtBARzuKassieren._WaehrungZeichen = True
+        Me.txtBARzuKassieren.ForeColor = System.Drawing.Color.Black
+        Me.txtBARzuKassieren.Location = New System.Drawing.Point(10, 16)
+        Me.txtBARzuKassieren.MaxLineLength = -1
+        Me.txtBARzuKassieren.MaxLines_Warning = ""
+        Me.txtBARzuKassieren.MaxLines_Warning_Label = Nothing
+        Me.txtBARzuKassieren.Name = "txtBARzuKassieren"
+        Me.txtBARzuKassieren.Size = New System.Drawing.Size(100, 20)
+        Me.txtBARzuKassieren.TabIndex = 1
+        Me.txtBARzuKassieren.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'lblZuKass
+        '
+        Me.lblZuKass.AutoSize = True
+        Me.lblZuKass.Location = New System.Drawing.Point(8, 3)
+        Me.lblZuKass.Name = "lblZuKass"
+        Me.lblZuKass.Size = New System.Drawing.Size(100, 13)
+        Me.lblZuKass.TabIndex = 0
+        Me.lblZuKass.Text = "zu kassieren (BAR):"
+        '
        'tbVorkosten
        '
        Me.tbVorkosten.Controls.Add(Me.lblVK_BEarbeitungAbbrechen)
@@ -1901,7 +1912,7 @@ Partial Class frmSendungsdetailsNEU
        Me.tbVorkosten.Controls.Add(Me.dgvVorkosten)
        Me.tbVorkosten.Location = New System.Drawing.Point(4, 22)
        Me.tbVorkosten.Name = "tbVorkosten"
-        Me.tbVorkosten.Size = New System.Drawing.Size(369, 286)
+        Me.tbVorkosten.Size = New System.Drawing.Size(369, 299)
        Me.tbVorkosten.TabIndex = 2
        Me.tbVorkosten.Text = "Vorkosten"
        Me.tbVorkosten.UseVisualStyleBackColor = True
@@ -2045,8 +2056,8 @@ Partial Class frmSendungsdetailsNEU
        'clmnPreis
        '
        Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle7.Format = "C2"
-        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle14.Format = "C2"
+        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle14
        Me.clmnPreis.HeaderText = "Preis"
        Me.clmnPreis.MaxInputLength = 15
        Me.clmnPreis.Name = "clmnPreis"
@@ -2061,7 +2072,7 @@ Partial Class frmSendungsdetailsNEU
        Me.tbBAR.Location = New System.Drawing.Point(4, 22)
        Me.tbBAR.Name = "tbBAR"
        Me.tbBAR.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbBAR.Size = New System.Drawing.Size(369, 286)
+        Me.tbBAR.Size = New System.Drawing.Size(369, 299)
        Me.tbBAR.TabIndex = 1
        Me.tbBAR.Text = "Abrechnung/BAR-Belege"
        Me.tbBAR.UseVisualStyleBackColor = True
@@ -2235,7 +2246,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel6.Location = New System.Drawing.Point(0, 69)
        Me.Panel6.MinimumSize = New System.Drawing.Size(2, 235)
        Me.Panel6.Name = "Panel6"
-        Me.Panel6.Size = New System.Drawing.Size(838, 310)
+        Me.Panel6.Size = New System.Drawing.Size(838, 325)
        Me.Panel6.TabIndex = 1
        '
        'picKdAtrNr_Fraechter
@@ -3005,7 +3016,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel15.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel15.Location = New System.Drawing.Point(0, 0)
        Me.Panel15.Name = "Panel15"
-        Me.Panel15.Size = New System.Drawing.Size(5, 310)
+        Me.Panel15.Size = New System.Drawing.Size(5, 325)
        Me.Panel15.TabIndex = 1
        '
        'txtAvisierer
@@ -3721,7 +3732,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtAnzahlPos.MaxLines_Warning_Label = Nothing
        Me.txtAnzahlPos.Name = "txtAnzahlPos"
        Me.txtAnzahlPos.Size = New System.Drawing.Size(41, 24)
-        Me.txtAnzahlPos.TabIndex = 17
+        Me.txtAnzahlPos.TabIndex = 14
        Me.txtAnzahlPos.Visible = False
        '
        'Label4
@@ -3732,7 +3743,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Label4.Location = New System.Drawing.Point(799, 6)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(64, 17)
-        Me.Label4.TabIndex = 16
+        Me.Label4.TabIndex = 5
        Me.Label4.Text = "Pos.Anz:"
        Me.Label4.Visible = False
        '
@@ -3744,7 +3755,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAbfNrExists.Location = New System.Drawing.Point(117, 52)
        Me.lblAbfNrExists.Name = "lblAbfNrExists"
        Me.lblAbfNrExists.Size = New System.Drawing.Size(215, 13)
-        Me.lblAbfNrExists.TabIndex = 15
+        Me.lblAbfNrExists.TabIndex = 17
        Me.lblAbfNrExists.Text = "Abfertigungsnummer existiert bereits!"
        Me.lblAbfNrExists.Visible = False
        '
@@ -3756,7 +3767,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cbxFremdspedition.Location = New System.Drawing.Point(639, 7)
        Me.cbxFremdspedition.Name = "cbxFremdspedition"
        Me.cbxFremdspedition.Size = New System.Drawing.Size(97, 17)
-        Me.cbxFremdspedition.TabIndex = 1
+        Me.cbxFremdspedition.TabIndex = 7
        Me.cbxFremdspedition.Text = "Fremdspedition"
        Me.cbxFremdspedition.UseVisualStyleBackColor = False
        '
@@ -3768,7 +3779,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAbfNr_Err.Location = New System.Drawing.Point(99, 52)
        Me.lblAbfNr_Err.Name = "lblAbfNr_Err"
        Me.lblAbfNr_Err.Size = New System.Drawing.Size(235, 13)
-        Me.lblAbfNr_Err.TabIndex = 14
+        Me.lblAbfNr_Err.TabIndex = 16
        Me.lblAbfNr_Err.Text = "Abfertigungsnummer im falschen Format!"
        Me.lblAbfNr_Err.Visible = False
        '
@@ -3782,7 +3793,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel1.Location = New System.Drawing.Point(1102, 0)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(105, 63)
-        Me.Panel1.TabIndex = 3
+        Me.Panel1.TabIndex = 15
        Me.Panel1.TabStop = True
        '
        'Button13
@@ -3839,7 +3850,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cboAbfertigungsart.Location = New System.Drawing.Point(422, 27)
        Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
        Me.cboAbfertigungsart.Size = New System.Drawing.Size(315, 24)
-        Me.cboAbfertigungsart.TabIndex = 2
+        Me.cboAbfertigungsart.TabIndex = 12
        '
        'lblAbfertigungsart
        '
@@ -3849,7 +3860,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAbfertigungsart.Location = New System.Drawing.Point(418, 7)
        Me.lblAbfertigungsart.Name = "lblAbfertigungsart"
        Me.lblAbfertigungsart.Size = New System.Drawing.Size(109, 17)
-        Me.lblAbfertigungsart.TabIndex = 0
+        Me.lblAbfertigungsart.TabIndex = 6
        Me.lblAbfertigungsart.Text = "Abfertigungsart:"
        '
        'pnlFremd
@@ -3863,7 +3874,7 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlFremd.Location = New System.Drawing.Point(3, 5)
        Me.pnlFremd.Name = "pnlFremd"
        Me.pnlFremd.Size = New System.Drawing.Size(24, 63)
-        Me.pnlFremd.TabIndex = 4
+        Me.pnlFremd.TabIndex = 0
        '
        'Label9
        '
@@ -3986,7 +3997,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAnzahl.Location = New System.Drawing.Point(738, 6)
        Me.lblAnzahl.Name = "lblAnzahl"
        Me.lblAnzahl.Size = New System.Drawing.Size(55, 17)
-        Me.lblAnzahl.TabIndex = 8
+        Me.lblAnzahl.TabIndex = 4
        Me.lblAnzahl.Text = "Anzahl:"
        Me.lblAnzahl.Visible = False
        '
@@ -3997,7 +4008,7 @@ Partial Class frmSendungsdetailsNEU
        Me.btnNeueAbfertigungNrVergeben.Location = New System.Drawing.Point(120, 27)
        Me.btnNeueAbfertigungNrVergeben.Name = "btnNeueAbfertigungNrVergeben"
        Me.btnNeueAbfertigungNrVergeben.Size = New System.Drawing.Size(224, 25)
-        Me.btnNeueAbfertigungNrVergeben.TabIndex = 10
+        Me.btnNeueAbfertigungNrVergeben.TabIndex = 9
        Me.btnNeueAbfertigungNrVergeben.Text = "Neue Abfertigung-Nr. vergeben"
        Me.btnNeueAbfertigungNrVergeben.UseVisualStyleBackColor = False
        Me.btnNeueAbfertigungNrVergeben.Visible = False
@@ -4010,7 +4021,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblFiliale.Location = New System.Drawing.Point(30, 6)
        Me.lblFiliale.Name = "lblFiliale"
        Me.lblFiliale.Size = New System.Drawing.Size(44, 17)
-        Me.lblFiliale.TabIndex = 5
+        Me.lblFiliale.TabIndex = 1
        Me.lblFiliale.Text = "Filiale"
        '
        'txtUnterNr
@@ -4032,7 +4043,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtUnterNr.MaxLines_Warning_Label = Nothing
        Me.txtUnterNr.Name = "txtUnterNr"
        Me.txtUnterNr.Size = New System.Drawing.Size(39, 24)
-        Me.txtUnterNr.TabIndex = 12
+        Me.txtUnterNr.TabIndex = 11
        Me.txtUnterNr.Visible = False
        '
        'lblAbfertigungsnummer
@@ -4043,7 +4054,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAbfertigungsnummer.Location = New System.Drawing.Point(116, 6)
        Me.lblAbfertigungsnummer.Name = "lblAbfertigungsnummer"
        Me.lblAbfertigungsnummer.Size = New System.Drawing.Size(139, 17)
-        Me.lblAbfertigungsnummer.TabIndex = 6
+        Me.lblAbfertigungsnummer.TabIndex = 2
        Me.lblAbfertigungsnummer.Text = "Abfertigungsnummer"
        '
        'lblUnterNr
@@ -4054,7 +4065,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblUnterNr.Location = New System.Drawing.Point(344, 6)
        Me.lblUnterNr.Name = "lblUnterNr"
        Me.lblUnterNr.Size = New System.Drawing.Size(58, 17)
-        Me.lblUnterNr.TabIndex = 7
+        Me.lblUnterNr.TabIndex = 3
        Me.lblUnterNr.Text = "UnterNr"
        Me.lblUnterNr.Visible = False
        '
@@ -4069,7 +4080,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cboFiliale.Location = New System.Drawing.Point(33, 27)
        Me.cboFiliale.Name = "cboFiliale"
        Me.cboFiliale.Size = New System.Drawing.Size(80, 24)
-        Me.cboFiliale.TabIndex = 9
+        Me.cboFiliale.TabIndex = 8
        '
        'txtAbfertigungsnummer
        '
@@ -4090,7 +4101,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(224, 24)
-        Me.txtAbfertigungsnummer.TabIndex = 11
+        Me.txtAbfertigungsnummer.TabIndex = 10
        '
        'Panel2
        '
@@ -4468,7 +4479,7 @@ Partial Class frmSendungsdetailsNEU
        '
        Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem})
        Me.cntxtAnh.Name = "cntxtAnh"
-        Me.cntxtAnh.Size = New System.Drawing.Size(286, 158)
+        Me.cntxtAnh.Size = New System.Drawing.Size(286, 136)
        '
        'MarkiertePDFsDruckenToolStripMenuItem
        '
@@ -4502,6 +4513,13 @@ Partial Class frmSendungsdetailsNEU
        Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
        Me.GestellungslisteAnfügenJANEINToolStripMenuItem.Text = "Gestellungsliste anfügen JA/NEIN"
        '
+        'AbrechungFremdeGrenzeAktDruckenToolStripMenuItem
+        '
+        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.printer
+        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Name = "AbrechungFremdeGrenzeAktDruckenToolStripMenuItem"
+        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
+        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Text = "Abrechung: Fremde Grenze Akt drucken"
+        '
        'ToolStripMenuItem3
        '
        Me.ToolStripMenuItem3.Image = Global.AVISO.My.Resources.Resources.plus
@@ -4836,13 +4854,6 @@ Partial Class frmSendungsdetailsNEU
        Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22)
        Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
        '
-        'AbrechungFremdeGrenzeAktDruckenToolStripMenuItem
-        '
-        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.printer
-        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Name = "AbrechungFremdeGrenzeAktDruckenToolStripMenuItem"
-        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Size = New System.Drawing.Size(285, 22)
-        Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Text = "Abrechung: Fremde Grenze Akt drucken"
-        '
        'frmSendungsdetailsNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -4891,6 +4902,8 @@ Partial Class frmSendungsdetailsNEU
        Me.tbcntr.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        Me.TabPage4.PerformLayout()
+        Me.Panel22.ResumeLayout(False)
+        Me.Panel22.PerformLayout()
        Me.tbVorkosten.ResumeLayout(False)
        Me.tbVorkosten.PerformLayout()
        CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).EndInit()
@@ -5284,4 +5297,5 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem24 As ToolStripMenuItem
    Friend WithEvents AbrechungFremdeGrenzeAktDruckenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Panel22 As Panel
 End Class
--- a/Aviso/frmSendungsdetailsNEU.resx
+++ b/Aviso/frmSendungsdetailsNEU.resx
@@ -118,6 +118,103 @@
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
+        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
+        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
+        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
+        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
+        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
+        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
+        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
+        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
+        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
+        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
+        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
+        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
+        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
+        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
+        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
+        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
+        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
+        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
+        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
+        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
+        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
+        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
+        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
+        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
+        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
+        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
+        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
+        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
+        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
+        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
+        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
+        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
+        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
+        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
+        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
+        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
+        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
+        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
+        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
+        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
+        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
+        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
+        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
+        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
+        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
+        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
+        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
+        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
+        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
+        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
+        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
+        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
+        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
+        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
+        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
+        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
+        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
+        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
+        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
+        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
+        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
+        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
+        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
+        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
+        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
+        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
+        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
+        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
+        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
+        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
+        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
+        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
+        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
+        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
+        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
+        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
+        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
+        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
+        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
+        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
+        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
+        AElFTkSuQmCC
+</value>
+  </data>
  <data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1531,6 +1628,9 @@
        mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
 </value>
  </data>
+  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>296, 17</value>
+  </metadata>
  <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1542,103 +1642,18 @@
  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>296, 17</value>
  </metadata>
-  <data name="Button14.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABIAAAASCAYAAABWzo5XAAAABGdBTUEAALGPC/xhBQAAAytJREFUOE+d
-        kmtIU2EYx3df01qiZYX0JfuYBEFF2U2JEgqESCgScYpQZlYalV20mpUVRuk03+k2L7Plpt0sO5ouK7tf
-        zcsSnYlCecl5vLy7uXOezuYpEhOqHzzwwvv8f/CHh/MTHo/H9/PznxUt25+kLiQGr98wkunpWTG+vn4+
-        fD6fy679EZIkJx5CoVAUvDYsVqU1jpdXN43nEv2WHMJC3qlpHG9u73VGRspC/f3ne09sT8Uj4nJ5/OUr
-        N8Yo9C3DOY8HB98NA27HgHtsgM1WwPc7qd6OfiupUun2sbkpeERSqa/05Nky52F9f9+tLsCPBwC7ZZ9G
-        AX8YAfzMAriszTXwtOF997JlK9ew2Ul4ROvWb086eqnKcbEBsLoZsFv2sBdwPSOs6wdc2QO4qNk1ml5q
-        /pKRka1ns5PwiKJk578HJzc1h2TaamN1zobLL6iurNd0i/wRZUwhXLXKRtqS+ZweOWjAnUplEcFmJ+ER
-        7Yw8M7TqwMfWoNQxtC3fUXCkiiqT19Pa1Ic0SqqkmHHd3qF23N2lHG3IzdVMLwoJjZKFx+QNbM1xoORK
-        F1K8pZHeDOhmF6DCFkByI41kWkeBvNT8LSUlY3qRROLts+9o4VCczqa5+opGNb2AmuyATE5AL4YBlZgA
-        pVVTqvonr1tFIrEXm52ER8QcAGfJkuCQs4r7HZpGu/rN0Hj+IEWjURpQu51SVXW71ApFOWRmFn/dvGlL
-        uFjAEXvSv8GKOByBQCRZsWJzXOL+C905xcSn9j6LvmeALLtn/NhXcfNBa3LyxdaiwsrOiuxjddd2Lyzx
-        9ebOnUhO8Ev0kwULAleHhcl00dGHiLi4I0RERAIhEAi9REKh+FxCrMGkDQer6TRk7w0smT+bG8DGpoqm
-        Q8DjiOPXzdR2KIPAZToJuOkEXNmzWDOPlf21yM1MMWdOYqikpA0tZWTHYYyRZcUvKmZqzvknkRufGdyA
-        hA1emrY8t+wEU/MM5MUvNNjGyBnsyt/jI+EGJIZIis3ump/ToOelBiinXcp+/xtMzbmJG7wMhqvHQH7q
-        GthsjMjd738Gj5ASh80mtVrtUpqmOT8ASDXvdskQmQUAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
-        mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8
-        i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI
-        p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym
-        hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq
-        Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u
-        XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ
-        4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3
-        k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp
-        uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq
-        dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t
-        lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh
-        AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm
-        CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO
-        oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK
-        F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99
-        O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW
-        pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P
-        rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E
-        XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1
-        tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7
-        kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl
-        NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5
-        mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8
-        sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH
-        vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH
-        PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu
-        a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW
-        etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v
-        zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg
-        HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ
-        9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T
-        sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q
-        EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3
-        nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg
-        Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu
-        Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0
-        581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1
-        GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW
-        Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="Button8.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAABoxJREFUSEut
-        l3lM1EcUx0EREAU5mxi1VmPUmvYvQyKi4t0ijabVABZtAItSTWvBWLEgVlJERU0abVCr9QBBMESrHAKK
-        lUus3CLHLrIILJew7MHuciy/b9+MuwRxUUh8yTfz25n3e5+Z+c3x1mQ0s7S0tNq/f/+hn4ODQ/cGBYWy
-        8l1iPsH79oUvcXFZqw8xqgHQP5mYWJAsh8nczt5+rkKnE+qkUoibm8FKphd61TO1tECiV11jIypFInQr
-        FEJAQEAExRjVOHiHvX2YfOlSdeeSJcoOZ2dl2+LFypbPPlc22NuryhwchKKZM5FtZ4cUW1skT5uGRHqO
-        sbHBKWtrrmNTp+LIlCkIIwVZWuL4rl0oefZM6+vrG6rnvGUc/IOd3UnB3R29GzZAvX495GvWoGvjRmjz
-        8qB98gTi1avRdfMm1OVlEIeEIGvWLEiTktCWno6sVasQR8DLBLw4aRJOUcwoPz9kPXoEnU4HT0/Pn/Ss
-        N4yDA+3sooW1a6Fetw4qgshWuqFz+3aoUlJQO3MGZHfuQFNdjRTy7y4oQE1EBARBwEVzc8TSaK8Q+C8C
-        xxD4OPmcCAjAo8ePMTg4iL6+PmHLli0het6QcfD3trbRupUroWBQNzd0LFuOdm9vDHR1QVNeDsnu3dA2
-        NOAB+b84eRIt1CEG7nn5EneXL8dlKytcsLBAjJkZjpHPyZ07kV9UxH0GBgYgl8s13t7eB/VMbhzsN21a
-        tGbZMnSuWIF2KluWLkXL1q3QVFSgatEiFNPUaqXNyKZ6JdWVBAbyoLE0yms02r8JfJ5G/+fEiYiimKfo
-        GxeRX35+PtLS0pCTk4Pa2lp4eXn9qOe+Bn9nYxOtcHVFK/VeSsGbXFzQ6OGB7thYlH88C6ULF0Lx8CEG
-        e3tRvHkzUubOwasHD5BE0xxPukpgNu3nCXyCgaljz8VixMXFISoqCuHh4QgKCsLZs2cFV1fX3UPgrdbW
-        xyULF6By/nxUzJuHUtJ/s2cj18kJ96ZPxz9UJtDorlDwGHMLnCFQ1IQJiKSpPURlKK3sIIpFw8EO0h97
-        9uBlayuePn2Kh9ThB9RJptTUVNaZmiHwBBOTT8xNTL4coS9srK2/vZ+VJdykFcyUZFBi4lCZeP06Lvnu
-        wI2EBCTS7xs3bqCstBQdHR1oampCfX09l0QiQV1dHSoqKpqHwKOZg4PDnEH6mGq1Gj09PW+Lpr7jfjZU
-        7R1QKRRD9Qp6lslkXF20QA3q7OxEVVWVlMV+H3gucQWlUsmDvSWtFi2p6eh8XgW5rNu4zwjV1NS8H+zo
-        6MjBbBQqlcqoOouKUbf/VyjpmxprH6kPBlbWvcBjiqNqazfaPlLjAmtpSjUajXHRZyhxnAFNlwwaWgtG
-        fYaJ9vPYwb20iBjcmNQVz1C04FPI/32Ed/kZNC4wnbc86Ej103EoPR7Nz2TRZi/oqOyl4MZ8DRoXuL+/
-        nx32b4tWsvhrT9CWQ3dGJur9AviNZNRXL5FINHYwO+gZfLhYXdPBMLyKu04jp9802ldX49AUdgR9tK8H
-        8PqC6CcYaxvQvzcuMBsFCzJcVI26Ld58tEw6qlNX16Lj/CWUOXwEkdt6SH/7HY1790Gy3R/tMRf4e+MC
-        s2/I4Aax35JtvlDlF6CntAzytAwoC59AKxJDWy9BP51Yytx8SMMj0BoVje47KehOz8QAbcsxgZ2cnDiY
-        jI+Qi8AM2EBgHW2fQZrKN9pHiLVramrRdS0eA2xNiMXjB2uKStDXTAnexm/4qA31YxHz56tfJHr/JWEA
-        kxPkSclQF5dAGvQLVDl5rIobOxRWU+bSQlkmsxDKycopa2HGbqOMjAz+bDC6qdpYbHrkDKNmAPc1NqHt
-        SCRkV2IhS7j5OoLeWPDpdGcz2N27d+Hs7Izs7GyEhoaigdIlSnORnJyM4uJixMTEsOuxlcWmVznDqA2f
-        asW9TPTSNLPn4ZZHmWgsZSrx8fEIDg7G4cOH4b7BnScBlOQhNzcXWymN8tjgwcvKysp2Cm1Kr76GGLPh
-        Uz2aHT16FIWFhXxkBw4cgL+/PzZt2oTbt28jkFIg1iEfHx94UCrFZoVmaEzbaQ5tH5YIGBXdWsKtW7cE
-        unWE9PR0gRI74cyZM0J1dbUQGRkpUHYpnD59WsjMzBQKCgqEc+fOCXRkvn9xkU0hfWVqarqN5DNS1OZj
-        YWHBS3Nzcx8zMzMf+r/F26ysrHg5efJk3qav20a+7iQLDqZcaTSZ6jXxA4rHBGDyP2IuNJzUb+7ZAAAA
-        AElFTkSuQmCC
-</value>
-  </data>
+  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
@@ -1883,6 +1898,9 @@
  <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>174, 17</value>
  </metadata>
+  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>404, 17</value>
+  </metadata>
  <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>596, 17</value>
  </metadata>
--- a/Aviso/usrcntlAktDetails.Designer.vb
+++ b/Aviso/usrcntlAktDetails.Designer.vb
@@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
        Me.Panel3 = New System.Windows.Forms.Panel()
        Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -162,6 +162,7 @@ Partial Class usrcntlAktDetails
        Me.btnLöschen = New System.Windows.Forms.Button()
        Me.btnÄndern = New System.Windows.Forms.Button()
        Me.btnTV = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
        Me.pnlDetailsRechts.SuspendLayout()
        Me.Panel3.SuspendLayout()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -581,46 +582,46 @@ Partial Class usrcntlAktDetails
        Me.dgvSendungen.AllowUserToAddRows = False
        Me.dgvSendungen.AllowUserToDeleteRows = False
        Me.dgvSendungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
        Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
        Me.dgvSendungen.ColumnHeadersHeight = 34
        Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13
        Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvSendungen.Location = New System.Drawing.Point(0, 0)
        Me.dgvSendungen.MultiSelect = False
        Me.dgvSendungen.Name = "dgvSendungen"
        Me.dgvSendungen.ReadOnly = True
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
        Me.dgvSendungen.RowHeadersVisible = False
        Me.dgvSendungen.RowHeadersWidth = 62
        Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15
        Me.dgvSendungen.RowTemplate.Height = 20
        Me.dgvSendungen.RowTemplate.ReadOnly = True
        Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -956,46 +957,46 @@ Partial Class usrcntlAktDetails
        Me.gridVermerke.AllowUserToAddRows = False
        Me.gridVermerke.AllowUserToDeleteRows = False
        Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
        Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
        Me.gridVermerke.ColumnHeadersHeight = 34
        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
-        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.ControlText
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18
        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridVermerke.Location = New System.Drawing.Point(0, 30)
        Me.gridVermerke.MultiSelect = False
        Me.gridVermerke.Name = "gridVermerke"
        Me.gridVermerke.ReadOnly = True
-        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
        Me.gridVermerke.RowHeadersVisible = False
        Me.gridVermerke.RowHeadersWidth = 62
        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
        Me.gridVermerke.RowTemplate.Height = 20
        Me.gridVermerke.RowTemplate.ReadOnly = True
        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1932,6 +1933,7 @@ Partial Class usrcntlAktDetails
        Me.pnlOptionen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pnlOptionen.BackColor = System.Drawing.Color.Black
        Me.pnlOptionen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlOptionen.Controls.Add(Me.Button4)
        Me.pnlOptionen.Controls.Add(Me.btnWlanTicket)
        Me.pnlOptionen.Controls.Add(Me.Button13)
        Me.pnlOptionen.Controls.Add(Me.Button14)
@@ -2038,6 +2040,22 @@ Partial Class usrcntlAktDetails
        Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnTV.UseVisualStyleBackColor = False
        '
+        'Button4
+        '
+        Me.Button4.BackColor = System.Drawing.Color.White
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Button4.ForeColor = System.Drawing.Color.Black
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.Location = New System.Drawing.Point(3, 185)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(109, 28)
+        Me.Button4.TabIndex = 104
+        Me.Button4.TabStop = False
+        Me.Button4.Text = "Status SMS"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.UseVisualStyleBackColor = False
+        '
        'usrcntlAktDetails
        '
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2226,4 +2244,5 @@ Partial Class usrcntlAktDetails
    Friend WithEvents Button2 As Button
    Friend WithEvents btnQuckScan As Button
    Friend WithEvents btnWlanTicket As Button
+    Friend WithEvents Button4 As Button
 End Class
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1196,14 +1196,17 @@ Public Class usrcntlAktDetails
                                        optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
                                    Case 3
                                        optionCell.Value = "OK - Empfangen!"
-                                        optionCell.Style.BackColor = Color.Green
-                                        optionCell.LinkColor = Color.White
-                                        optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
-                                    Case 4 : optionCell.Value = "Sende-Fehler!"
+                                        optionCell.LinkColor = Color.Green
+                                        ' optionCell.Style.BackColor = Color.Green
+                                        ' optionCell.LinkColor = Color.White
+                                        'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
+                                    Case 4 : optionCell.Value = "SMS: Sendefehler!"
                                        optionCell.ToolTipText = "Sendefehler: " & SMS.sms_Failure
-                                        optionCell.Style.BackColor = Color.Red
-                                        optionCell.LinkColor = Color.White
-                                        optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
+                                        optionCell.LinkColor = Color.Red
+                                        optionCell.Style.BackColor = Color.PapayaWhip
+                                        optionCell.Style.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
+                                        'optionCell.LinkColor = Color.White
+                                        'optionCell.Style.SelectionBackColor = optionCell.Style.BackColor
                                End Select
                            End If
                        Case 53
@@ -1815,7 +1818,7 @@ Public Class usrcntlAktDetails
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
-        pnlOptionen.Height = 183 '157 '125
+        pnlOptionen.Height = 220 '183 '157 '125
        pnlOptionen.Visible = Not pnlOptionen.Visible

        If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, btnOptionen.Height + pnl.Height + FlowLayoutPanel.Height)
@@ -2657,11 +2660,44 @@ Public Class usrcntlAktDetails
                            Dim outl As New Outlook.Application
                            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                            Mail = outl.CreateItem(0)
-                            Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
+
+                            Dim lan = "DE"
+
+                            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Auftraggeber_KdNr)
+                            Select Case AD.LandKz
+                                Case "TR" : lan = "TR"
+                                Case "GB" : lan = "EN"
+                                Case "RS" : lan = "SRB"
+                                Case "SRB" : lan = "SRB"
+                            End Select
+                            Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", "Dispoliste", lan, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+                            If AD.hasEntry And tX.hasEntry Then
+
+                                Dim TextHTML = ""
+                                TextHTML &= tX.txt_text
+                                TextHTML &= SDL.cFakturierung.getSignature(lan, tX.txt_firmaSig, True, True)
+                                TextHTML &= "<br>"
+                                TextHTML &= "Mit freundlichen Grüßen<br>"
+                                TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
+                                TextHTML &= "<br>"
+
+                                Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
+
+
+                                Mail.Subject = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
+                            Else
+                                Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
+                            End If
+
                            '   Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
                            Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
                            Mail.Display()

+
+
+
+
+
                        Catch ex As Exception
                            MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
                            Process.Start(path)
@@ -3262,6 +3298,11 @@ Public Class usrcntlAktDetails

    End Sub

+    Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
+        If VERAG_PROG_ALLGEMEIN.cSMS.SEND_StatusSMS(AVISO) Then
+            MsgBox("Nur TEST!")
+        End If
+    End Sub

 End Class

--- a/Aviso/usrcntlAktDetailsATILLANeu.vb
+++ b/Aviso/usrcntlAktDetailsATILLANeu.vb
@@ -92,6 +92,7 @@ Public Class usrcntlAktDetailsATILLANeu

        loaded = True
        initTbCntr()
+        Vermerke_anzeigen()

        'bei selchanged:
        'Vermerke_anzeigen()
@@ -1381,7 +1382,7 @@ Public Class usrcntlAktDetailsATILLANeu
        ElseIf tbcntr.SelectedTab Is tbZollanmeldungen Then
            initdgvZollAnmeldungen()
        ElseIf tbcntr.SelectedTab Is tbVermerke Then
-            Vermerke_anzeigen()
+            If loaded Then Vermerke_anzeigen()
        End If
    End Sub

--- a/AvisoTV/AvisoTV.vbproj
+++ b/AvisoTV/AvisoTV.vbproj
@@ -33,7 +33,7 @@
    <BootstrapperEnabled>true</BootstrapperEnabled>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
-    <PlatformTarget>x86</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
--- a/Diverses/Verfahrenshandbücker
+++ b/Diverses/Verfahrenshandbücker
--- a/Diverses/Verfahrenshandbücker
+++ b/Diverses/Verfahrenshandbücker
--- a/Diverses/Verfahrenshandbücker
+++ b/Diverses/Verfahrenshandbücker
--- a/Diverses/Verfahrenshandbücker
+++ b/Diverses/Verfahrenshandbücker
--- a/Diverses/sprinter.png
+++ b/Diverses/sprinter.png
--- a/Diverses/sprinter_white.png
+++ b/Diverses/sprinter_white.png
--- a/Gemeinsames/Gemeinsames.vbproj
+++ b/Gemeinsames/Gemeinsames.vbproj
@@ -35,7 +35,7 @@
    <BootstrapperEnabled>true</BootstrapperEnabled>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x64</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
@@ -187,7 +187,6 @@
    <EmbeddedResource Include="frmGrayOut.resx">
      <DependentUpon>frmGrayOut.vb</DependentUpon>
    </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
    <EmbeddedResource Include="My Project\Resources.resx">
      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
--- a/Project/licenses.licx
+++ b/Project/licenses.licx
@@ -1,2 +0,0 @@
-GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
-GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff