neu

2021-01-19 20:26:05 +01:00
parent f25ff457b2
commit 2f7746d9ca
28 changed files with 2921 additions and 329 deletions
--- a/AVISO_CHECKIN/AVISO_CHECKIN.vbproj
+++ b/AVISO_CHECKIN/AVISO_CHECKIN.vbproj
@@ -293,5 +293,8 @@
  <ItemGroup>
    <None Include="Resources\fragezeichen.png" />
  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\brexit.png" />
+  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>
--- 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", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
--- a/AVISO_CHECKIN/Resources/brexit.png
+++ b/AVISO_CHECKIN/Resources/brexit.png
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -106,6 +106,9 @@
    <Reference Include="BouncyCastle.Crypto, Version=1.8.5.0, Culture=neutral, PublicKeyToken=0e99375e54769942, processorArchitecture=MSIL">
      <HintPath>..\packages\Portable.BouncyCastle.1.8.5\lib\net40\BouncyCastle.Crypto.dll</HintPath>
    </Reference>
+    <Reference Include="ChilkatDotNet47">
+      <HintPath>..\..\..\dll\HMRC\ChilkatDotNet47.dll</HintPath>
+    </Reference>
    <Reference Include="com.esendex.sdk, Version=3.8.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL">
      <HintPath>..\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
    </Reference>
@@ -389,6 +392,7 @@
    </Compile>
    <Compile Include="cBinding.vb" />
    <Compile Include="cEasyBinding.vb" />
+    <Compile Include="CHMRC.vb" />
    <Compile Include="Classes\cSendungsoptions.vb" />
    <Compile Include="cProgramFunctions.vb" />
    <Compile Include="cServerClient.vb" />
@@ -693,6 +697,12 @@
    <Compile Include="frmZoll.vb">
      <SubType>Form</SubType>
    </Compile>
+    <Compile Include="frmZollstopp.Designer.vb">
+      <DependentUpon>frmZollstopp.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmZollstopp.vb">
+      <SubType>Form</SubType>
+    </Compile>
    <Compile Include="My Project\AssemblyInfo.vb" />
    <Compile Include="My Project\Application.Designer.vb">
      <AutoGen>True</AutoGen>
@@ -1013,6 +1023,9 @@
    <EmbeddedResource Include="frmZoll.resx">
      <DependentUpon>frmZoll.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="frmZollstopp.resx">
+      <DependentUpon>frmZollstopp.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="My Project\licenses.licx" />
    <EmbeddedResource Include="My Project\Resources.resx">
      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
@@ -1206,6 +1219,7 @@
    <None Include="Resources\abklaerungTR_Inaktiv.jpg" />
    <None Include="Resources\abklaerungTR_Aktiv.jpg" />
    <None Include="Resources\fragezeichen1.png" />
+    <None Include="Resources\AMB.png" />
    <Content Include="Resources\UNISPED.png">
      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
    </Content>
--- a/Aviso/CHMRC.vb
+++ b/Aviso/CHMRC.vb
@@ -0,0 +1,167 @@
+Public Class CHMRC
+
+    Shared Sub hmrcTEST()
+        Debug.WriteLine("HMRC Start")
+        Dim oauth2 As Chilkat.OAuth2 = New Chilkat.OAuth2()
+        Dim success As Boolean
+        oauth2.ListenPort = 3017
+        oauth2.AuthorizationEndpoint = "https://test-api.service.hmrc.gov.uk/oauth/authorize"
+        oauth2.TokenEndpoint = "https://test-api.service.hmrc.gov.uk/oauth/token"
+        oauth2.ClientId = "xybTOMaQWcuifeW5xnGggojlACWC"
+        oauth2.ClientSecret = "bf1cfb6e-1bcb-4282-b7a0-3d3ccb2b1dc1"
+        oauth2.Scope = "read:vat write:vat"
+        Dim url As String = oauth2.StartAuth()
+
+        If oauth2.LastMethodSuccess <> True Then
+            Debug.WriteLine(oauth2.LastErrorText)
+            Exit Sub
+        End If
+
+        Dim http As Chilkat.Http = New Chilkat.Http()
+
+        System.Diagnostics.Process.Start(url)
+
+
+        Dim numMsWaited As Integer = 0
+
+
+        While (numMsWaited < 120000) AndAlso (oauth2.AuthFlowState < 3)
+            oauth2.SleepMs(100)
+            numMsWaited = numMsWaited + 100
+        End While
+        ' If there was no response from the browser within 30 seconds, then 
+        ' the AuthFlowState will be equal to 1 Or 2.
+        ' 1: Waiting for Redirect. The OAuth2 background thread Is waiting to receive the redirect HTTP request from the browser.
+        ' 2: Waiting for Final Response. The OAuth2 background thread Is waiting for the final access token response.
+        ' In that case, cancel the background task started in the call to StartAuth.
+
+        If oauth2.AuthFlowState < 3 Then
+            oauth2.Cancel()
+            Debug.WriteLine("No response from the browser!")
+            Exit Sub
+        End If
+
+        Debug.WriteLine("HMRC here")
+
+
+        ' Check the AuthFlowState to see if authorization was granted, denied, Or if some error occurred
+        ' The possible AuthFlowState values are:
+        ' 3 Completed with Success. The OAuth2 flow has completed, the background thread exited, And the successful JSON response Is available in AccessTokenResponse property.
+        ' 4: Completed with Access Denied. The OAuth2 flow has completed, the background thread exited, And the error JSON Is available in AccessTokenResponse property.
+        ' 5: Failed Prior To Completion. The OAuth2 flow failed To complete, the background thread exited, And the error information Is available in the FailureInfo property.
+
+        If oauth2.AuthFlowState = 5 Then
+            Debug.WriteLine("OAuth2 failed to complete.")
+            Debug.WriteLine(oauth2.FailureInfo)
+            Exit Sub
+        End If
+
+        If oauth2.AuthFlowState = 4 Then
+            Debug.WriteLine("OAuth2 authorization was denied.")
+            Debug.WriteLine(oauth2.AccessTokenResponse)
+            Exit Sub
+        End If
+
+        If oauth2.AuthFlowState <> 3 Then
+            Debug.WriteLine("Unexpected AuthFlowState:" & Convert.ToString(oauth2.AuthFlowState))
+            Exit Sub
+        End If
+
+        Debug.WriteLine("OAuth2 authorization granted!")
+        Debug.WriteLine("Access Token = " & oauth2.AccessToken)
+        Dim json As Chilkat.JsonObject = New Chilkat.JsonObject()
+        json.Load(oauth2.AccessTokenResponse)
+        json.EmitCompact = False
+        Debug.WriteLine(json.Emit())
+
+
+        ' The JSON response looks Like this
+
+        ' {
+        '   "token_type": "Bearer",
+        '   "scope": "user_impersonation",
+        '   "expires_in": "3599",
+        '   "ext_expires_in": "0",
+        '   "expires_on": "1524783438",
+        '   "not_before": "1524779538",
+        '   "resource": "https://mydomain.api.crm.dynamics.com",
+        '   "access_token": "...",
+        '   "refresh_token": "...",
+        '   "id_token": "..."
+        ' }
+
+        ' If an "expires_on" member does Not exist, then add the JSON member by
+        ' getting the current system date/time And adding the "expires_in" seconds.
+        ' This way we'll know when the token expires.
+
+        If json.HasMember("expires_on") <> True Then
+            Dim dtExpire As Chilkat.CkDateTime = New Chilkat.CkDateTime()
+            dtExpire.SetFromCurrentSystemTime()
+            dtExpire.AddSeconds(json.IntOf("expires_in"))
+            json.AppendString("expires_on", dtExpire.GetAsUnixTimeStr(False))
+        End If
+
+        Debug.WriteLine(json.Emit())
+        Dim fac As Chilkat.FileAccess = New Chilkat.FileAccess()
+        fac.WriteEntireTextFile("qa_data/tokens/hmrc.json", json.Emit(), "utf-8", False)
+
+
+    End Sub
+
+    Shared Sub VATTEST(hmrc_app_server_token)
+
+        Dim rest As New Chilkat.Rest
+        Dim success As Boolean
+
+        '  URL: https://test-api.service.hmrc.gov.uk/organisations/vat/123456789/returns
+        Dim bTls As Boolean = True
+        Dim port As Integer = 443
+        Dim bAutoReconnect As Boolean = True
+        success = rest.Connect("test-api.service.hmrc.gov.uk", port, bTls, bAutoReconnect)
+        If (success <> True) Then
+            Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
+            Debug.WriteLine(rest.LastErrorText)
+            Exit Sub
+        End If
+
+
+        '  See the Online Tool for Generating JSON Creation Code
+        Dim json As New Chilkat.JsonObject
+        json.UpdateString("periodKey", "#001")
+        json.UpdateNumber("vatDueSales", "100.00")
+        json.UpdateNumber("vatDueAcquisitions", "100.00")
+        json.UpdateNumber("totalVatDue", "200")
+        json.UpdateNumber("vatReclaimedCurrPeriod", "100.00")
+        json.UpdateNumber("netVatDue", "100")
+        json.UpdateNumber("totalValueSalesExVAT", "500")
+        json.UpdateNumber("totalValuePurchasesExVAT", "500")
+        json.UpdateNumber("totalValueGoodsSuppliedExVAT", "500")
+        json.UpdateNumber("totalAcquisitionsExVAT", "500")
+        json.UpdateBool("finalised", True)
+
+        rest.AddHeader("Content-Type", "application/json")
+        rest.AddHeader("Authorization", "Bearer " & hmrc_app_server_token)
+        rest.AddHeader("Accept", "application/vnd.hmrc.1.0+json")
+
+        Dim sbRequestBody As New Chilkat.StringBuilder
+        json.EmitSb(sbRequestBody)
+        Dim sbResponseBody As New Chilkat.StringBuilder
+        success = rest.FullRequestSb("POST", "/organisations/vat/123456789/returns", sbRequestBody, sbResponseBody)
+        If (success <> True) Then
+            Debug.WriteLine(rest.LastErrorText)
+            Exit Sub
+        End If
+
+        Dim respStatusCode As Integer = rest.ResponseStatusCode
+        If (respStatusCode >= 400) Then
+            Debug.WriteLine("Response Status Code = " & respStatusCode)
+            Debug.WriteLine("Response Header:")
+            Debug.WriteLine(rest.ResponseHeader)
+            Debug.WriteLine("Response Body:")
+            Debug.WriteLine(sbResponseBody.GetAsString())
+            Exit Sub
+        End If
+
+
+    End Sub
+End Class
--- a/Aviso/Classes/cSendungsoptions.vb
+++ b/Aviso/Classes/cSendungsoptions.vb
@@ -407,7 +407,7 @@ Public Class SendungOptions
            ElseIf SENDUNG.FilialenNr = "5601" Then
                imgpath = resPath & "UNISPED.png"
            ElseIf SENDUNG.FilialenNr = "5701" Then
-                imgpath = resPath & "AMBAR.png"
+                imgpath = resPath & "AMB.png"
            Else
                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
                    Case "SUB"
@@ -429,9 +429,12 @@ Public Class SendungOptions
                ZOLLANMELDUNG = Nothing
            End If

+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+                SENDUNG.LOAD_VORKOSTEN()
+            End If


-            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING)
+            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG, SENDUNG.HANDLING, SENDUNG.VORKOSTEN)
            rpt.Document.CacheToDisk = False

            'rpt.Document.CacheToDisk = True
--- 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.5.8.9")>
-<Assembly: AssemblyFileVersion("3.5.8.9")>
+<Assembly: AssemblyVersion("3.6.0.0")>
+<Assembly: AssemblyFileVersion("3.6.0.0")>
--- 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", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -149,6 +149,16 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property AMB() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("AMB", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
@@ -699,15 +709,6 @@ Namespace My.Resources
            End Get
        End Property
        
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property jkjjk8jkl87978978jh() As String
-            Get
-                Return ResourceManager.GetString("jkjjk8jkl87978978jh", resourceCulture)
-            End Get
-        End Property
-        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
@@ -1458,7 +1459,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 3.5.8.9 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 3.6.0.0 ä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.5.8.9</value>
+    <value>3.6.0.0</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>
@@ -592,7 +592,7 @@
  <data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="jkjjk8jkl87978978jh" xml:space="preserve">
-    <value />
+  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
 </root>
--- a/Aviso/Resources/AMB.png
+++ b/Aviso/Resources/AMB.png
--- a/Aviso/frmAvisoWeiterleiten.Designer.vb
+++ b/Aviso/frmAvisoWeiterleiten.Designer.vb
@@ -109,9 +109,8 @@ Partial Class frmAvisoWeiterleiten
        Me.pnl.Controls.Add(Me.Button3)
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnl.Location = New System.Drawing.Point(0, 0)
-        Me.pnl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(1469, 57)
+        Me.pnl.Size = New System.Drawing.Size(979, 37)
        Me.pnl.TabIndex = 0
        '
        'Label3
@@ -119,10 +118,9 @@ Partial Class frmAvisoWeiterleiten
        Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
-        Me.Label3.Location = New System.Drawing.Point(1234, 11)
-        Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label3.Location = New System.Drawing.Point(823, 7)
        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(167, 32)
+        Me.Label3.Size = New System.Drawing.Size(109, 24)
        Me.Label3.TabIndex = 8
        Me.Label3.Text = "Weiterleiten"
        '
@@ -130,20 +128,18 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pic.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
-        Me.pic.Location = New System.Drawing.Point(1403, 5)
-        Me.pic.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.pic.Location = New System.Drawing.Point(935, 3)
        Me.pic.Name = "pic"
-        Me.pic.Size = New System.Drawing.Size(66, 49)
+        Me.pic.Size = New System.Drawing.Size(44, 32)
        Me.pic.TabIndex = 7
        Me.pic.TabStop = False
        '
        'lbl
        '
        Me.lbl.AutoSize = True
-        Me.lbl.Location = New System.Drawing.Point(18, 14)
-        Me.lbl.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.lbl.Location = New System.Drawing.Point(12, 9)
        Me.lbl.Name = "lbl"
-        Me.lbl.Size = New System.Drawing.Size(309, 20)
+        Me.lbl.Size = New System.Drawing.Size(207, 13)
        Me.lbl.TabIndex = 0
        Me.lbl.Text = "Bitte geben Sie das Weiterleitungs-Ziel an:"
        '
@@ -151,10 +147,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button3.Location = New System.Drawing.Point(596, 163)
-        Me.Button3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button3.Location = New System.Drawing.Point(397, 106)
        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(286, 65)
+        Me.Button3.Size = New System.Drawing.Size(191, 42)
        Me.Button3.TabIndex = 6
        Me.Button3.Text = "UNISPED"
        Me.Button3.UseVisualStyleBackColor = True
@@ -168,36 +163,35 @@ Partial Class frmAvisoWeiterleiten
        Me.Panel2.Controls.Add(Me.dgvMitarbeiter)
        Me.Panel2.Controls.Add(Me.MyTextBox1)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
-        Me.Panel2.Location = New System.Drawing.Point(0, 57)
-        Me.Panel2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Panel2.Location = New System.Drawing.Point(0, 37)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(479, 921)
+        Me.Panel2.Size = New System.Drawing.Size(320, 702)
        Me.Panel2.TabIndex = 17
        '
        'btnTeam
        '
+        Me.btnTeam.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.btnTeam.BackColor = System.Drawing.Color.SteelBlue
        Me.btnTeam.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.btnTeam.ForeColor = System.Drawing.Color.White
-        Me.btnTeam.Location = New System.Drawing.Point(242, 831)
-        Me.btnTeam.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnTeam.Location = New System.Drawing.Point(161, 643)
        Me.btnTeam.Name = "btnTeam"
-        Me.btnTeam.Size = New System.Drawing.Size(210, 65)
+        Me.btnTeam.Size = New System.Drawing.Size(140, 42)
        Me.btnTeam.TabIndex = 14
        Me.btnTeam.Text = "senden an" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "TEAM"
        Me.btnTeam.UseVisualStyleBackColor = False
        '
        'btnBenutzer
        '
+        Me.btnBenutzer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.btnBenutzer.BackColor = System.Drawing.Color.SteelBlue
        Me.btnBenutzer.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnBenutzer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.btnBenutzer.ForeColor = System.Drawing.Color.White
-        Me.btnBenutzer.Location = New System.Drawing.Point(22, 831)
-        Me.btnBenutzer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnBenutzer.Location = New System.Drawing.Point(15, 643)
        Me.btnBenutzer.Name = "btnBenutzer"
-        Me.btnBenutzer.Size = New System.Drawing.Size(210, 65)
+        Me.btnBenutzer.Size = New System.Drawing.Size(140, 42)
        Me.btnBenutzer.TabIndex = 13
        Me.btnBenutzer.Text = "senden an" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BENUTZER"
        Me.btnBenutzer.UseVisualStyleBackColor = False
@@ -205,10 +199,9 @@ Partial Class frmAvisoWeiterleiten
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(18, 14)
-        Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label2.Location = New System.Drawing.Point(12, 9)
        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(59, 20)
+        Me.Label2.Size = New System.Drawing.Size(41, 13)
        Me.Label2.TabIndex = 11
        Me.Label2.Text = "Suche:"
        '
@@ -218,15 +211,16 @@ Partial Class frmAvisoWeiterleiten
        Me.dgvMitarbeiter.AllowUserToDeleteRows = False
        Me.dgvMitarbeiter.AllowUserToResizeColumns = False
        Me.dgvMitarbeiter.AllowUserToResizeRows = False
+        Me.dgvMitarbeiter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.dgvMitarbeiter.BackgroundColor = System.Drawing.Color.White
        Me.dgvMitarbeiter.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvMitarbeiter.Location = New System.Drawing.Point(22, 74)
-        Me.dgvMitarbeiter.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.dgvMitarbeiter.Location = New System.Drawing.Point(15, 48)
        Me.dgvMitarbeiter.MultiSelect = False
        Me.dgvMitarbeiter.Name = "dgvMitarbeiter"
        Me.dgvMitarbeiter.RowHeadersVisible = False
        Me.dgvMitarbeiter.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvMitarbeiter.Size = New System.Drawing.Size(429, 748)
+        Me.dgvMitarbeiter.Size = New System.Drawing.Size(286, 589)
        Me.dgvMitarbeiter.TabIndex = 10
        '
        'MyTextBox1
@@ -242,13 +236,12 @@ Partial Class frmAvisoWeiterleiten
        Me.MyTextBox1._Waehrung = False
        Me.MyTextBox1._WaehrungZeichen = True
        Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
-        Me.MyTextBox1.Location = New System.Drawing.Point(22, 38)
-        Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MyTextBox1.Location = New System.Drawing.Point(15, 25)
        Me.MyTextBox1.MaxLineLength = -1
        Me.MyTextBox1.MaxLines_Warning = ""
        Me.MyTextBox1.MaxLines_Warning_Label = Nothing
        Me.MyTextBox1.Name = "MyTextBox1"
-        Me.MyTextBox1.Size = New System.Drawing.Size(427, 26)
+        Me.MyTextBox1.Size = New System.Drawing.Size(286, 20)
        Me.MyTextBox1.TabIndex = 9
        '
        'Panel4
@@ -259,10 +252,9 @@ Partial Class frmAvisoWeiterleiten
        Me.Panel4.Controls.Add(Me.MyFlowLayoutPanel1)
        Me.Panel4.Controls.Add(Me.Panel5)
        Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel4.Location = New System.Drawing.Point(479, 57)
-        Me.Panel4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Panel4.Location = New System.Drawing.Point(320, 37)
        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(990, 921)
+        Me.Panel4.Size = New System.Drawing.Size(659, 702)
        Me.Panel4.TabIndex = 20
        '
        'Panel1
@@ -272,19 +264,17 @@ Partial Class frmAvisoWeiterleiten
        Me.Panel1.Controls.Add(Me.Panel3)
        Me.Panel1.Controls.Add(Me.MyFlowLayoutPanel2)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.Panel1.Location = New System.Drawing.Point(299, 88)
-        Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Panel1.Location = New System.Drawing.Point(200, 57)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(672, 562)
+        Me.Panel1.Size = New System.Drawing.Size(449, 468)
        Me.Panel1.TabIndex = 20
        '
        'flpFirma
        '
        Me.flpFirma.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.flpFirma.Location = New System.Drawing.Point(0, 43)
-        Me.flpFirma.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.flpFirma.Location = New System.Drawing.Point(0, 28)
        Me.flpFirma.Name = "flpFirma"
-        Me.flpFirma.Size = New System.Drawing.Size(670, 517)
+        Me.flpFirma.Size = New System.Drawing.Size(447, 438)
        Me.flpFirma.TabIndex = 1
        '
        'Panel3
@@ -294,28 +284,25 @@ Partial Class frmAvisoWeiterleiten
        Me.Panel3.Controls.Add(Me.MyFlowLayoutPanel4)
        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel3.Location = New System.Drawing.Point(0, 0)
-        Me.Panel3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(670, 43)
+        Me.Panel3.Size = New System.Drawing.Size(447, 28)
        Me.Panel3.TabIndex = 2
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
-        Me.Label1.Location = New System.Drawing.Point(4, 9)
-        Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label1.Location = New System.Drawing.Point(3, 6)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(73, 25)
+        Me.Label1.Size = New System.Drawing.Size(53, 17)
        Me.Label1.TabIndex = 2
        Me.Label1.Text = "Firma:"
        '
        'MyFlowLayoutPanel3
        '
-        Me.MyFlowLayoutPanel3.Location = New System.Drawing.Point(255, 143)
-        Me.MyFlowLayoutPanel3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MyFlowLayoutPanel3.Location = New System.Drawing.Point(170, 93)
        Me.MyFlowLayoutPanel3.Name = "MyFlowLayoutPanel3"
-        Me.MyFlowLayoutPanel3.Size = New System.Drawing.Size(890, 663)
+        Me.MyFlowLayoutPanel3.Size = New System.Drawing.Size(593, 431)
        Me.MyFlowLayoutPanel3.TabIndex = 1
        '
        'MyFlowLayoutPanel4
@@ -324,20 +311,18 @@ Partial Class frmAvisoWeiterleiten
        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button11)
        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button12)
        Me.MyFlowLayoutPanel4.Controls.Add(Me.Button13)
-        Me.MyFlowLayoutPanel4.Location = New System.Drawing.Point(86, 408)
-        Me.MyFlowLayoutPanel4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MyFlowLayoutPanel4.Location = New System.Drawing.Point(57, 265)
        Me.MyFlowLayoutPanel4.Name = "MyFlowLayoutPanel4"
-        Me.MyFlowLayoutPanel4.Size = New System.Drawing.Size(300, 663)
+        Me.MyFlowLayoutPanel4.Size = New System.Drawing.Size(200, 431)
        Me.MyFlowLayoutPanel4.TabIndex = 1
        '
        'Button10
        '
        Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button10.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button10.Location = New System.Drawing.Point(4, 5)
-        Me.Button10.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button10.Location = New System.Drawing.Point(3, 3)
        Me.Button10.Name = "Button10"
-        Me.Button10.Size = New System.Drawing.Size(286, 65)
+        Me.Button10.Size = New System.Drawing.Size(191, 42)
        Me.Button10.TabIndex = 3
        Me.Button10.Text = "TEAM"
        Me.Button10.UseVisualStyleBackColor = True
@@ -346,10 +331,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button11.Location = New System.Drawing.Point(4, 80)
-        Me.Button11.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button11.Location = New System.Drawing.Point(3, 51)
        Me.Button11.Name = "Button11"
-        Me.Button11.Size = New System.Drawing.Size(286, 65)
+        Me.Button11.Size = New System.Drawing.Size(191, 42)
        Me.Button11.TabIndex = 1
        Me.Button11.Text = "NIEDERLASSUNG"
        Me.Button11.UseVisualStyleBackColor = True
@@ -358,10 +342,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button12.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button12.Location = New System.Drawing.Point(4, 155)
-        Me.Button12.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button12.Location = New System.Drawing.Point(3, 99)
        Me.Button12.Name = "Button12"
-        Me.Button12.Size = New System.Drawing.Size(286, 65)
+        Me.Button12.Size = New System.Drawing.Size(191, 42)
        Me.Button12.TabIndex = 2
        Me.Button12.Text = "ABTEILUNG"
        Me.Button12.UseVisualStyleBackColor = True
@@ -371,10 +354,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button13.Location = New System.Drawing.Point(4, 230)
-        Me.Button13.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button13.Location = New System.Drawing.Point(3, 147)
        Me.Button13.Name = "Button13"
-        Me.Button13.Size = New System.Drawing.Size(286, 65)
+        Me.Button13.Size = New System.Drawing.Size(191, 42)
        Me.Button13.TabIndex = 4
        Me.Button13.Text = "FIRMA"
        Me.Button13.UseVisualStyleBackColor = True
@@ -385,20 +367,18 @@ Partial Class frmAvisoWeiterleiten
        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button4)
        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button5)
        Me.MyFlowLayoutPanel2.Controls.Add(Me.Button7)
-        Me.MyFlowLayoutPanel2.Location = New System.Drawing.Point(86, 408)
-        Me.MyFlowLayoutPanel2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MyFlowLayoutPanel2.Location = New System.Drawing.Point(57, 265)
        Me.MyFlowLayoutPanel2.Name = "MyFlowLayoutPanel2"
-        Me.MyFlowLayoutPanel2.Size = New System.Drawing.Size(300, 663)
+        Me.MyFlowLayoutPanel2.Size = New System.Drawing.Size(200, 431)
        Me.MyFlowLayoutPanel2.TabIndex = 1
        '
        'Button6
        '
        Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button6.Location = New System.Drawing.Point(4, 5)
-        Me.Button6.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button6.Location = New System.Drawing.Point(3, 3)
        Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(286, 65)
+        Me.Button6.Size = New System.Drawing.Size(191, 42)
        Me.Button6.TabIndex = 3
        Me.Button6.Text = "TEAM"
        Me.Button6.UseVisualStyleBackColor = True
@@ -407,10 +387,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button4.Location = New System.Drawing.Point(4, 80)
-        Me.Button4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button4.Location = New System.Drawing.Point(3, 51)
        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(286, 65)
+        Me.Button4.Size = New System.Drawing.Size(191, 42)
        Me.Button4.TabIndex = 1
        Me.Button4.Text = "NIEDERLASSUNG"
        Me.Button4.UseVisualStyleBackColor = True
@@ -419,10 +398,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button5.Location = New System.Drawing.Point(4, 155)
-        Me.Button5.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button5.Location = New System.Drawing.Point(3, 99)
        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(286, 65)
+        Me.Button5.Size = New System.Drawing.Size(191, 42)
        Me.Button5.TabIndex = 2
        Me.Button5.Text = "ABTEILUNG"
        Me.Button5.UseVisualStyleBackColor = True
@@ -432,10 +410,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button7.Location = New System.Drawing.Point(4, 230)
-        Me.Button7.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button7.Location = New System.Drawing.Point(3, 147)
        Me.Button7.Name = "Button7"
-        Me.Button7.Size = New System.Drawing.Size(286, 65)
+        Me.Button7.Size = New System.Drawing.Size(191, 42)
        Me.Button7.TabIndex = 4
        Me.Button7.Text = "FIRMA"
        Me.Button7.UseVisualStyleBackColor = True
@@ -447,19 +424,17 @@ Partial Class frmAvisoWeiterleiten
        Me.Panel7.Controls.Add(Me.Panel8)
        Me.Panel7.Controls.Add(Me.MyFlowLayoutPanel16)
        Me.Panel7.Dock = System.Windows.Forms.DockStyle.Left
-        Me.Panel7.Location = New System.Drawing.Point(0, 88)
-        Me.Panel7.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Panel7.Location = New System.Drawing.Point(0, 57)
        Me.Panel7.Name = "Panel7"
-        Me.Panel7.Size = New System.Drawing.Size(299, 562)
+        Me.Panel7.Size = New System.Drawing.Size(200, 468)
        Me.Panel7.TabIndex = 19
        '
        'flpTeams
        '
        Me.flpTeams.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.flpTeams.Location = New System.Drawing.Point(0, 43)
-        Me.flpTeams.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.flpTeams.Location = New System.Drawing.Point(0, 28)
        Me.flpTeams.Name = "flpTeams"
-        Me.flpTeams.Size = New System.Drawing.Size(297, 517)
+        Me.flpTeams.Size = New System.Drawing.Size(198, 438)
        Me.flpTeams.TabIndex = 1
        '
        'Panel8
@@ -469,28 +444,25 @@ Partial Class frmAvisoWeiterleiten
        Me.Panel8.Controls.Add(Me.MyFlowLayoutPanel15)
        Me.Panel8.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel8.Location = New System.Drawing.Point(0, 0)
-        Me.Panel8.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.Panel8.Name = "Panel8"
-        Me.Panel8.Size = New System.Drawing.Size(297, 43)
+        Me.Panel8.Size = New System.Drawing.Size(198, 28)
        Me.Panel8.TabIndex = 2
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
-        Me.Label4.Location = New System.Drawing.Point(4, 9)
-        Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label4.Location = New System.Drawing.Point(3, 6)
        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(74, 25)
+        Me.Label4.Size = New System.Drawing.Size(53, 17)
        Me.Label4.TabIndex = 2
        Me.Label4.Text = "Team:"
        '
        'MyFlowLayoutPanel14
        '
-        Me.MyFlowLayoutPanel14.Location = New System.Drawing.Point(255, 143)
-        Me.MyFlowLayoutPanel14.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MyFlowLayoutPanel14.Location = New System.Drawing.Point(170, 93)
        Me.MyFlowLayoutPanel14.Name = "MyFlowLayoutPanel14"
-        Me.MyFlowLayoutPanel14.Size = New System.Drawing.Size(890, 663)
+        Me.MyFlowLayoutPanel14.Size = New System.Drawing.Size(593, 431)
        Me.MyFlowLayoutPanel14.TabIndex = 1
        '
        'MyFlowLayoutPanel15
@@ -499,20 +471,18 @@ Partial Class frmAvisoWeiterleiten
        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button31)
        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button32)
        Me.MyFlowLayoutPanel15.Controls.Add(Me.Button33)
-        Me.MyFlowLayoutPanel15.Location = New System.Drawing.Point(86, 408)
-        Me.MyFlowLayoutPanel15.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MyFlowLayoutPanel15.Location = New System.Drawing.Point(57, 265)
        Me.MyFlowLayoutPanel15.Name = "MyFlowLayoutPanel15"
-        Me.MyFlowLayoutPanel15.Size = New System.Drawing.Size(300, 663)
+        Me.MyFlowLayoutPanel15.Size = New System.Drawing.Size(200, 431)
        Me.MyFlowLayoutPanel15.TabIndex = 1
        '
        'Button30
        '
        Me.Button30.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button30.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button30.Location = New System.Drawing.Point(4, 5)
-        Me.Button30.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button30.Location = New System.Drawing.Point(3, 3)
        Me.Button30.Name = "Button30"
-        Me.Button30.Size = New System.Drawing.Size(286, 65)
+        Me.Button30.Size = New System.Drawing.Size(191, 42)
        Me.Button30.TabIndex = 3
        Me.Button30.Text = "TEAM"
        Me.Button30.UseVisualStyleBackColor = True
@@ -521,10 +491,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button31.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button31.Location = New System.Drawing.Point(4, 80)
-        Me.Button31.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button31.Location = New System.Drawing.Point(3, 51)
        Me.Button31.Name = "Button31"
-        Me.Button31.Size = New System.Drawing.Size(286, 65)
+        Me.Button31.Size = New System.Drawing.Size(191, 42)
        Me.Button31.TabIndex = 1
        Me.Button31.Text = "NIEDERLASSUNG"
        Me.Button31.UseVisualStyleBackColor = True
@@ -533,10 +502,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button32.Location = New System.Drawing.Point(4, 155)
-        Me.Button32.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button32.Location = New System.Drawing.Point(3, 99)
        Me.Button32.Name = "Button32"
-        Me.Button32.Size = New System.Drawing.Size(286, 65)
+        Me.Button32.Size = New System.Drawing.Size(191, 42)
        Me.Button32.TabIndex = 2
        Me.Button32.Text = "ABTEILUNG"
        Me.Button32.UseVisualStyleBackColor = True
@@ -546,10 +514,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button33.Location = New System.Drawing.Point(4, 230)
-        Me.Button33.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button33.Location = New System.Drawing.Point(3, 147)
        Me.Button33.Name = "Button33"
-        Me.Button33.Size = New System.Drawing.Size(286, 65)
+        Me.Button33.Size = New System.Drawing.Size(191, 42)
        Me.Button33.TabIndex = 4
        Me.Button33.Text = "FIRMA"
        Me.Button33.UseVisualStyleBackColor = True
@@ -560,20 +527,18 @@ Partial Class frmAvisoWeiterleiten
        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button35)
        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button36)
        Me.MyFlowLayoutPanel16.Controls.Add(Me.Button37)
-        Me.MyFlowLayoutPanel16.Location = New System.Drawing.Point(86, 408)
-        Me.MyFlowLayoutPanel16.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.MyFlowLayoutPanel16.Location = New System.Drawing.Point(57, 265)
        Me.MyFlowLayoutPanel16.Name = "MyFlowLayoutPanel16"
-        Me.MyFlowLayoutPanel16.Size = New System.Drawing.Size(300, 663)
+        Me.MyFlowLayoutPanel16.Size = New System.Drawing.Size(200, 431)
        Me.MyFlowLayoutPanel16.TabIndex = 1
        '
        'Button34
        '
        Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button34.Location = New System.Drawing.Point(4, 5)
-        Me.Button34.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button34.Location = New System.Drawing.Point(3, 3)
        Me.Button34.Name = "Button34"
-        Me.Button34.Size = New System.Drawing.Size(286, 65)
+        Me.Button34.Size = New System.Drawing.Size(191, 42)
        Me.Button34.TabIndex = 3
        Me.Button34.Text = "TEAM"
        Me.Button34.UseVisualStyleBackColor = True
@@ -582,10 +547,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button35.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button35.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button35.Location = New System.Drawing.Point(4, 80)
-        Me.Button35.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button35.Location = New System.Drawing.Point(3, 51)
        Me.Button35.Name = "Button35"
-        Me.Button35.Size = New System.Drawing.Size(286, 65)
+        Me.Button35.Size = New System.Drawing.Size(191, 42)
        Me.Button35.TabIndex = 1
        Me.Button35.Text = "NIEDERLASSUNG"
        Me.Button35.UseVisualStyleBackColor = True
@@ -594,10 +558,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button36.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button36.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button36.Location = New System.Drawing.Point(4, 155)
-        Me.Button36.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button36.Location = New System.Drawing.Point(3, 99)
        Me.Button36.Name = "Button36"
-        Me.Button36.Size = New System.Drawing.Size(286, 65)
+        Me.Button36.Size = New System.Drawing.Size(191, 42)
        Me.Button36.TabIndex = 2
        Me.Button36.Text = "ABTEILUNG"
        Me.Button36.UseVisualStyleBackColor = True
@@ -607,10 +570,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.Button37.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.Button37.Location = New System.Drawing.Point(4, 230)
-        Me.Button37.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button37.Location = New System.Drawing.Point(3, 147)
        Me.Button37.Name = "Button37"
-        Me.Button37.Size = New System.Drawing.Size(286, 65)
+        Me.Button37.Size = New System.Drawing.Size(191, 42)
        Me.Button37.TabIndex = 4
        Me.Button37.Text = "FIRMA"
        Me.Button37.UseVisualStyleBackColor = True
@@ -626,19 +588,17 @@ Partial Class frmAvisoWeiterleiten
        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAMBAR)
        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
-        Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
-        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(988, 88)
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(657, 57)
        Me.MyFlowLayoutPanel1.TabIndex = 21
        '
        'btnVERAG
        '
        Me.btnVERAG.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnVERAG.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.btnVERAG.Location = New System.Drawing.Point(4, 5)
-        Me.btnVERAG.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnVERAG.Location = New System.Drawing.Point(3, 3)
        Me.btnVERAG.Name = "btnVERAG"
-        Me.btnVERAG.Size = New System.Drawing.Size(129, 66)
+        Me.btnVERAG.Size = New System.Drawing.Size(86, 43)
        Me.btnVERAG.TabIndex = 4
        Me.btnVERAG.Text = "VERAG"
        Me.btnVERAG.UseVisualStyleBackColor = True
@@ -647,10 +607,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.btnUNIPED.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnUNIPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.btnUNIPED.Location = New System.Drawing.Point(141, 5)
-        Me.btnUNIPED.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnUNIPED.Location = New System.Drawing.Point(95, 3)
        Me.btnUNIPED.Name = "btnUNIPED"
-        Me.btnUNIPED.Size = New System.Drawing.Size(129, 66)
+        Me.btnUNIPED.Size = New System.Drawing.Size(86, 43)
        Me.btnUNIPED.TabIndex = 7
        Me.btnUNIPED.Text = "UNISPED"
        Me.btnUNIPED.UseVisualStyleBackColor = True
@@ -659,10 +618,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.btnIMEX.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.btnIMEX.Location = New System.Drawing.Point(278, 5)
-        Me.btnIMEX.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnIMEX.Location = New System.Drawing.Point(187, 3)
        Me.btnIMEX.Name = "btnIMEX"
-        Me.btnIMEX.Size = New System.Drawing.Size(129, 66)
+        Me.btnIMEX.Size = New System.Drawing.Size(86, 43)
        Me.btnIMEX.TabIndex = 5
        Me.btnIMEX.Text = "IMEX"
        Me.btnIMEX.UseVisualStyleBackColor = True
@@ -671,10 +629,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.btnFrontoffice.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnFrontoffice.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.btnFrontoffice.Location = New System.Drawing.Point(415, 5)
-        Me.btnFrontoffice.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnFrontoffice.Location = New System.Drawing.Point(279, 3)
        Me.btnFrontoffice.Name = "btnFrontoffice"
-        Me.btnFrontoffice.Size = New System.Drawing.Size(180, 66)
+        Me.btnFrontoffice.Size = New System.Drawing.Size(120, 43)
        Me.btnFrontoffice.TabIndex = 8
        Me.btnFrontoffice.Text = "FRONTOFFICE"
        Me.btnFrontoffice.UseVisualStyleBackColor = True
@@ -683,10 +640,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.btnVERIMEX.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnVERIMEX.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.btnVERIMEX.Location = New System.Drawing.Point(603, 5)
-        Me.btnVERIMEX.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnVERIMEX.Location = New System.Drawing.Point(405, 3)
        Me.btnVERIMEX.Name = "btnVERIMEX"
-        Me.btnVERIMEX.Size = New System.Drawing.Size(180, 66)
+        Me.btnVERIMEX.Size = New System.Drawing.Size(120, 43)
        Me.btnVERIMEX.TabIndex = 9
        Me.btnVERIMEX.Text = "VERIMEX" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Istanbul)"
        Me.btnVERIMEX.UseVisualStyleBackColor = True
@@ -695,10 +651,9 @@ Partial Class frmAvisoWeiterleiten
        '
        Me.btnAMBAR.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.btnAMBAR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
-        Me.btnAMBAR.Location = New System.Drawing.Point(791, 5)
-        Me.btnAMBAR.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.btnAMBAR.Location = New System.Drawing.Point(531, 3)
        Me.btnAMBAR.Name = "btnAMBAR"
-        Me.btnAMBAR.Size = New System.Drawing.Size(180, 66)
+        Me.btnAMBAR.Size = New System.Drawing.Size(120, 43)
        Me.btnAMBAR.TabIndex = 10
        Me.btnAMBAR.Text = "AMBAR"
        Me.btnAMBAR.UseVisualStyleBackColor = True
@@ -712,19 +667,17 @@ Partial Class frmAvisoWeiterleiten
        Me.Panel5.Controls.Add(Me.Label5)
        Me.Panel5.Controls.Add(Me.rtbVermerk)
        Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel5.Location = New System.Drawing.Point(0, 650)
-        Me.Panel5.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Panel5.Location = New System.Drawing.Point(0, 525)
        Me.Panel5.Name = "Panel5"
-        Me.Panel5.Size = New System.Drawing.Size(988, 269)
+        Me.Panel5.Size = New System.Drawing.Size(657, 175)
        Me.Panel5.TabIndex = 22
        '
        'Label6
        '
        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(3, 138)
-        Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label6.Location = New System.Drawing.Point(2, 90)
        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(78, 20)
+        Me.Label6.Size = New System.Drawing.Size(53, 13)
        Me.Label6.TabIndex = 18
        Me.Label6.Text = "Anhänge:"
        '
@@ -737,14 +690,13 @@ Partial Class frmAvisoWeiterleiten
        Me.dgvAnmhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvAnmhaenge.ColumnHeadersVisible = False
        Me.dgvAnmhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAnhFilePath, Me.clmnAnhFileName})
-        Me.dgvAnmhaenge.Location = New System.Drawing.Point(92, 138)
-        Me.dgvAnmhaenge.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.dgvAnmhaenge.Location = New System.Drawing.Point(61, 90)
        Me.dgvAnmhaenge.MultiSelect = False
        Me.dgvAnmhaenge.Name = "dgvAnmhaenge"
        Me.dgvAnmhaenge.ReadOnly = True
        Me.dgvAnmhaenge.RowHeadersVisible = False
        Me.dgvAnmhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvAnmhaenge.Size = New System.Drawing.Size(562, 108)
+        Me.dgvAnmhaenge.Size = New System.Drawing.Size(375, 70)
        Me.dgvAnmhaenge.TabIndex = 17
        '
        'clmnAnhFilePath
@@ -767,10 +719,9 @@ Partial Class frmAvisoWeiterleiten
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
        Me.Button1.ForeColor = System.Drawing.Color.White
-        Me.Button1.Location = New System.Drawing.Point(663, 182)
-        Me.Button1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.Button1.Location = New System.Drawing.Point(442, 118)
        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(123, 65)
+        Me.Button1.Size = New System.Drawing.Size(82, 42)
        Me.Button1.TabIndex = 15
        Me.Button1.Text = "+ Anhang"
        Me.Button1.UseVisualStyleBackColor = False
@@ -778,35 +729,32 @@ Partial Class frmAvisoWeiterleiten
        'Label5
        '
        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(3, 25)
-        Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
+        Me.Label5.Location = New System.Drawing.Point(2, 16)
        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(73, 20)
+        Me.Label5.Size = New System.Drawing.Size(49, 13)
        Me.Label5.TabIndex = 1
        Me.Label5.Text = "Vermerk:"
        '
        'rtbVermerk
        '
        Me.rtbVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.rtbVermerk.Location = New System.Drawing.Point(90, 25)
-        Me.rtbVermerk.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.rtbVermerk.Location = New System.Drawing.Point(60, 16)
        Me.rtbVermerk.MaxLength = 500
        Me.rtbVermerk.Name = "rtbVermerk"
-        Me.rtbVermerk.Size = New System.Drawing.Size(696, 107)
+        Me.rtbVermerk.Size = New System.Drawing.Size(465, 71)
        Me.rtbVermerk.TabIndex = 0
        Me.rtbVermerk.Text = ""
        '
        'frmAvisoWeiterleiten
        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!)
+        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(1469, 978)
+        Me.ClientSize = New System.Drawing.Size(979, 739)
        Me.Controls.Add(Me.Panel4)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.pnl)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.Name = "frmAvisoWeiterleiten"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Weiterleiten"
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmHauptfenster
    Inherits System.Windows.Forms.Form

    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
@@ -20,16 +20,16 @@ Partial Class frmHauptfenster
    '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
-        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 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()
        Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
        Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -154,6 +154,28 @@ Partial Class frmHauptfenster
        Me.EinheitspapierToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.CMRToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Einheitspapier0735VersandverfahrenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BREXITToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.GVMSUKIMportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.GVMSBeschreibungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TicketIBFBeschreibungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.IBFStatusToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator()
+        Me.FREnveloppeSmartBorderToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator16 = New System.Windows.Forms.ToolStripSeparator()
+        Me.WARENORTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ATFormularZa282ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ATInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator17 = New System.Windows.Forms.ToolStripSeparator()
+        Me.DEFormular0442ToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DEInfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem16 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator()
+        Me.ToolStripSeparator18 = New System.Windows.Forms.ToolStripSeparator()
+        Me.EORIUKGeneriertenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.KAPKentAccessPermitToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuFragezeichen = New System.Windows.Forms.ToolStripMenuItem()
        Me.HandbuchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnWoche = New System.Windows.Forms.Button()
@@ -164,6 +186,7 @@ Partial Class frmHauptfenster
        Me.Label6 = New System.Windows.Forms.Label()
        Me.txtSuche = New System.Windows.Forms.TextBox()
        Me.Top = New System.Windows.Forms.Panel()
+        Me.Button11 = New System.Windows.Forms.Button()
        Me.btnMAVerzeichnis = New System.Windows.Forms.Button()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.Button5 = New System.Windows.Forms.Button()
@@ -294,6 +317,8 @@ Partial Class frmHauptfenster
        Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
+        Me.PBNIrelandFähreToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator20 = New System.Windows.Forms.ToolStripSeparator()
        Me.conMenuAviso.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.Top.SuspendLayout()
@@ -412,7 +437,7 @@ Partial Class frmHauptfenster
        '
        Me.MenuStrip1.BackColor = System.Drawing.Color.White
        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.FunktionenToolStripMenuItem, Me.StatistikToolStripMenuItem, Me.ToolStripFormulare, Me.mnuFragezeichen})
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.FunktionenToolStripMenuItem, Me.StatistikToolStripMenuItem, Me.ToolStripFormulare, Me.BREXITToolStripMenuItem, Me.mnuFragezeichen})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(1372, 24)
@@ -1105,6 +1130,142 @@ Partial Class frmHauptfenster
        Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Size = New System.Drawing.Size(277, 22)
        Me.Einheitspapier0735VersandverfahrenToolStripMenuItem.Text = "Einheitspapier 0735 (Versandverfahren)"
        '
+        'BREXITToolStripMenuItem
+        '
+        Me.BREXITToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GVMSUKIMportToolStripMenuItem, Me.GVMSBeschreibungToolStripMenuItem, Me.ToolStripSeparator14, Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem, Me.TicketIBFBeschreibungToolStripMenuItem, Me.IBFStatusToolStripMenuItem, Me.ToolStripSeparator15, Me.FREnveloppeSmartBorderToolStripMenuItem, Me.ToolStripSeparator16, Me.PBNIrelandFähreToolStripMenuItem, Me.ToolStripSeparator20, Me.WARENORTToolStripMenuItem, Me.ToolStripMenuItem14, Me.ToolStripSeparator18, Me.EORIUKGeneriertenToolStripMenuItem, Me.KAPKentAccessPermitToolStripMenuItem})
+        Me.BREXITToolStripMenuItem.Name = "BREXITToolStripMenuItem"
+        Me.BREXITToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
+        Me.BREXITToolStripMenuItem.Text = "BREXIT"
+        Me.BREXITToolStripMenuItem.Visible = False
+        '
+        'GVMSUKIMportToolStripMenuItem
+        '
+        Me.GVMSUKIMportToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
+        Me.GVMSUKIMportToolStripMenuItem.Name = "GVMSUKIMportToolStripMenuItem"
+        Me.GVMSUKIMportToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.GVMSUKIMportToolStripMenuItem.Text = "GVMS (UK Import)"
+        '
+        'GVMSBeschreibungToolStripMenuItem
+        '
+        Me.GVMSBeschreibungToolStripMenuItem.Enabled = False
+        Me.GVMSBeschreibungToolStripMenuItem.Name = "GVMSBeschreibungToolStripMenuItem"
+        Me.GVMSBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.GVMSBeschreibungToolStripMenuItem.Text = "GVMS Beschreibung"
+        '
+        'ToolStripSeparator14
+        '
+        Me.ToolStripSeparator14.Name = "ToolStripSeparator14"
+        Me.ToolStripSeparator14.Size = New System.Drawing.Size(254, 6)
+        '
+        'TicketIBFInlandBorderFacilitiesToolStripMenuItem
+        '
+        Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
+        Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Name = "TicketIBFInlandBorderFacilitiesToolStripMenuItem"
+        Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.TicketIBFInlandBorderFacilitiesToolStripMenuItem.Text = "Ticket IBF (InlandBorderFacilities)"
+        '
+        'TicketIBFBeschreibungToolStripMenuItem
+        '
+        Me.TicketIBFBeschreibungToolStripMenuItem.Name = "TicketIBFBeschreibungToolStripMenuItem"
+        Me.TicketIBFBeschreibungToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.TicketIBFBeschreibungToolStripMenuItem.Text = "Ticket IBF Beschreibung"
+        '
+        'IBFStatusToolStripMenuItem
+        '
+        Me.IBFStatusToolStripMenuItem.Name = "IBFStatusToolStripMenuItem"
+        Me.IBFStatusToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.IBFStatusToolStripMenuItem.Text = "IBF Status"
+        '
+        'ToolStripSeparator15
+        '
+        Me.ToolStripSeparator15.Name = "ToolStripSeparator15"
+        Me.ToolStripSeparator15.Size = New System.Drawing.Size(254, 6)
+        '
+        'FREnveloppeSmartBorderToolStripMenuItem
+        '
+        Me.FREnveloppeSmartBorderToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
+        Me.FREnveloppeSmartBorderToolStripMenuItem.Name = "FREnveloppeSmartBorderToolStripMenuItem"
+        Me.FREnveloppeSmartBorderToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.FREnveloppeSmartBorderToolStripMenuItem.Text = "FR: Enveloppe (SmartBorder)"
+        '
+        'ToolStripSeparator16
+        '
+        Me.ToolStripSeparator16.Name = "ToolStripSeparator16"
+        Me.ToolStripSeparator16.Size = New System.Drawing.Size(254, 6)
+        '
+        'WARENORTToolStripMenuItem
+        '
+        Me.WARENORTToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATFormularZa282ToolStripMenuItem, Me.ATInfoToolStripMenuItem, Me.ToolStripSeparator17, Me.DEFormular0442ToolStripMenuItem, Me.DEInfoToolStripMenuItem})
+        Me.WARENORTToolStripMenuItem.Name = "WARENORTToolStripMenuItem"
+        Me.WARENORTToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.WARENORTToolStripMenuItem.Text = "REX"
+        '
+        'ATFormularZa282ToolStripMenuItem
+        '
+        Me.ATFormularZa282ToolStripMenuItem.Name = "ATFormularZa282ToolStripMenuItem"
+        Me.ATFormularZa282ToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+        Me.ATFormularZa282ToolStripMenuItem.Text = "AT Formular Za278"
+        '
+        'ATInfoToolStripMenuItem
+        '
+        Me.ATInfoToolStripMenuItem.Name = "ATInfoToolStripMenuItem"
+        Me.ATInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+        Me.ATInfoToolStripMenuItem.Text = "AT Info"
+        '
+        'ToolStripSeparator17
+        '
+        Me.ToolStripSeparator17.Name = "ToolStripSeparator17"
+        Me.ToolStripSeparator17.Size = New System.Drawing.Size(170, 6)
+        '
+        'DEFormular0442ToolStripMenuItem
+        '
+        Me.DEFormular0442ToolStripMenuItem.Name = "DEFormular0442ToolStripMenuItem"
+        Me.DEFormular0442ToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+        Me.DEFormular0442ToolStripMenuItem.Text = "DE Formular 0442"
+        '
+        'DEInfoToolStripMenuItem
+        '
+        Me.DEInfoToolStripMenuItem.Name = "DEInfoToolStripMenuItem"
+        Me.DEInfoToolStripMenuItem.Size = New System.Drawing.Size(173, 22)
+        Me.DEInfoToolStripMenuItem.Text = "DE Info"
+        '
+        'ToolStripMenuItem14
+        '
+        Me.ToolStripMenuItem14.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem16, Me.ToolStripSeparator19})
+        Me.ToolStripMenuItem14.Name = "ToolStripMenuItem14"
+        Me.ToolStripMenuItem14.Size = New System.Drawing.Size(257, 30)
+        Me.ToolStripMenuItem14.Text = "WARENORT"
+        '
+        'ToolStripMenuItem16
+        '
+        Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16"
+        Me.ToolStripMenuItem16.Size = New System.Drawing.Size(173, 22)
+        Me.ToolStripMenuItem16.Text = "AT Formular Za283"
+        '
+        'ToolStripSeparator19
+        '
+        Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
+        Me.ToolStripSeparator19.Size = New System.Drawing.Size(170, 6)
+        '
+        'ToolStripSeparator18
+        '
+        Me.ToolStripSeparator18.Name = "ToolStripSeparator18"
+        Me.ToolStripSeparator18.Size = New System.Drawing.Size(254, 6)
+        '
+        'EORIUKGeneriertenToolStripMenuItem
+        '
+        Me.EORIUKGeneriertenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen1
+        Me.EORIUKGeneriertenToolStripMenuItem.Name = "EORIUKGeneriertenToolStripMenuItem"
+        Me.EORIUKGeneriertenToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.EORIUKGeneriertenToolStripMenuItem.Text = "EORI UK generierten"
+        '
+        'KAPKentAccessPermitToolStripMenuItem
+        '
+        Me.KAPKentAccessPermitToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.fragezeichen
+        Me.KAPKentAccessPermitToolStripMenuItem.Name = "KAPKentAccessPermitToolStripMenuItem"
+        Me.KAPKentAccessPermitToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.KAPKentAccessPermitToolStripMenuItem.Text = "KAP (KentAccessPermit)"
+        '
        'mnuFragezeichen
        '
        Me.mnuFragezeichen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuInfo, Me.HandbuchToolStripMenuItem})
@@ -1202,6 +1363,7 @@ Partial Class frmHauptfenster
        'Top
        '
        Me.Top.BackColor = System.Drawing.Color.White
+        Me.Top.Controls.Add(Me.Button11)
        Me.Top.Controls.Add(Me.btnMAVerzeichnis)
        Me.Top.Controls.Add(Me.Button9)
        Me.Top.Controls.Add(Me.Button5)
@@ -1221,6 +1383,16 @@ Partial Class frmHauptfenster
        Me.Top.Size = New System.Drawing.Size(1372, 52)
        Me.Top.TabIndex = 6
        '
+        'Button11
+        '
+        Me.Button11.Location = New System.Drawing.Point(687, 26)
+        Me.Button11.Name = "Button11"
+        Me.Button11.Size = New System.Drawing.Size(75, 23)
+        Me.Button11.TabIndex = 14
+        Me.Button11.Text = "TEST"
+        Me.Button11.UseVisualStyleBackColor = True
+        Me.Button11.Visible = False
+        '
        'btnMAVerzeichnis
        '
        Me.btnMAVerzeichnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1880,8 +2052,8 @@ Partial Class frmHauptfenster
        Me.gridMyAviso.AllowUserToDeleteRows = False
        Me.gridMyAviso.AllowUserToOrderColumns = True
        Me.gridMyAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.Azure
-        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
        Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Top
@@ -2251,45 +2423,45 @@ Partial Class frmHauptfenster
        Me.gridAviso.AllowUserToAddRows = False
        Me.gridAviso.AllowUserToDeleteRows = False
        Me.gridAviso.AllowUserToResizeRows = False
-        DataGridViewCellStyle8.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
        Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
        Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
-        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
+        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
        Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        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
+        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
        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
-        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
+        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
        Me.gridAviso.RowHeadersVisible = False
        Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
        Me.gridAviso.RowTemplate.ReadOnly = True
        Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
        Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
@@ -2899,6 +3071,18 @@ Partial Class frmHauptfenster
        Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
        Me.UsrCntlTestsystem1.TabIndex = 8
        '
+        'PBNIrelandFähreToolStripMenuItem
+        '
+        Me.PBNIrelandFähreToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
+        Me.PBNIrelandFähreToolStripMenuItem.Name = "PBNIrelandFähreToolStripMenuItem"
+        Me.PBNIrelandFähreToolStripMenuItem.Size = New System.Drawing.Size(257, 30)
+        Me.PBNIrelandFähreToolStripMenuItem.Text = "PBN (Ireland Fähre)"
+        '
+        'ToolStripSeparator20
+        '
+        Me.ToolStripSeparator20.Name = "ToolStripSeparator20"
+        Me.ToolStripSeparator20.Size = New System.Drawing.Size(254, 6)
+        '
        'frmHauptfenster
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3235,4 +3419,29 @@ Partial Class frmHauptfenster
    Friend WithEvents SpracheWechselnToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents DeutschToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents TürkischToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Button11 As Button
+    Friend WithEvents BREXITToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents GVMSUKIMportToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents GVMSBeschreibungToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator14 As ToolStripSeparator
+    Friend WithEvents TicketIBFInlandBorderFacilitiesToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TicketIBFBeschreibungToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents IBFStatusToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator15 As ToolStripSeparator
+    Friend WithEvents FREnveloppeSmartBorderToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator16 As ToolStripSeparator
+    Friend WithEvents EORIUKGeneriertenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents KAPKentAccessPermitToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents WARENORTToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ATFormularZa282ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ATInfoToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator17 As ToolStripSeparator
+    Friend WithEvents DEFormular0442ToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DEInfoToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator18 As ToolStripSeparator
+    Friend WithEvents ToolStripMenuItem14 As ToolStripMenuItem
+    Friend WithEvents ToolStripMenuItem16 As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator19 As ToolStripSeparator
+    Friend WithEvents PBNIrelandFähreToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripSeparator20 As ToolStripSeparator
 End Class
--- a/Aviso/frmHauptfenster.resx
+++ b/Aviso/frmHauptfenster.resx
@@ -225,9 +225,6 @@
        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
@@ -319,6 +319,9 @@ Public Class frmHauptfenster
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
            btnMAVerzeichnis.Visible = True
        End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
+            BREXITToolStripMenuItem.Visible = True
+        End If

        'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
        '    btnSpedBuch.Visible = False
@@ -2510,6 +2513,12 @@ Public Class frmHauptfenster

    End Function
    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        '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
+
+        CHMRC.hmrcTEST()
+
+        Exit Sub
        Dim ep As New SDL.cEORIWebService
        MsgBox(ep.ValidateEoriNumber("ATEOS1000000199").Result(0).Name)

@@ -3600,6 +3609,62 @@ Public Class frmHauptfenster
            MsgBox("Keine Berechtigung!")
        End If
    End Sub
+
+    Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
+        CHMRC.VATTEST(InputBox("Token"))
+    End Sub
+
+    Private Sub GVMSUKIMportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GVMSUKIMportToolStripMenuItem.Click
+        Process.Start("https://www.tax.service.gov.uk/goods-movement-system/dashboard")
+    End Sub
+
+    Private Sub TicketIBFInlandBorderFacilitiesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFInlandBorderFacilitiesToolStripMenuItem.Click
+        Process.Start("https://attend-an-inland-border-facility.hmrc.gov.uk/login")
+    End Sub
+
+    Private Sub TicketIBFBeschreibungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TicketIBFBeschreibungToolStripMenuItem.Click
+        Process.Start("https://inlandborderfacilities.uk")
+    End Sub
+
+    Private Sub IBFStatusToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IBFStatusToolStripMenuItem.Click
+        Process.Start("https://inland-border-facility-site-availability.hmrc.gov.uk/dashboard")
+    End Sub
+
+    Private Sub FREnveloppeSmartBorderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FREnveloppeSmartBorderToolStripMenuItem.Click
+        Process.Start("https://www.douane.gouv.fr/enveloppe/en/enveloppe/creer")
+    End Sub
+
+    Private Sub EORIUKGeneriertenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EORIUKGeneriertenToolStripMenuItem.Click
+        Process.Start("https://www.gov.uk/eori")
+    End Sub
+
+    Private Sub KAPKentAccessPermitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KAPKentAccessPermitToolStripMenuItem.Click
+        Process.Start("https://www.gov.uk/check-hgv-border")
+    End Sub
+
+    Private Sub ATFormularZa282ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATFormularZa282ToolStripMenuItem.Click
+        Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za278.pdf")
+    End Sub
+
+    Private Sub ATInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATInfoToolStripMenuItem.Click
+        Process.Start("https://service.bmf.gv.at/service/anwend/formulare/show_mast.asp?s=Za278")
+    End Sub
+
+    Private Sub DEFormular0442ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEFormular0442ToolStripMenuItem.Click
+        Process.Start("https://www.formulare-bfinv.de/ffw/form/display.do?%24context=F11B5CC0E2F9CCCDE3E5")
+    End Sub
+
+    Private Sub DEInfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DEInfoToolStripMenuItem.Click
+        Process.Start("https://www.zoll.de/DE/Fachthemen/Warenursprung-Praeferenzen/Praeferenzen/Praeferenznachweise/Ausfertigung-nicht-foermlicher-Praeferenznachweise/Registrierter-Ausfuehrer/Allgemeines-REX/allgemeines-rex_node.html")
+    End Sub
+
+    Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
+        Process.Start("https://formulare.bmf.gv.at/service/formulare/inter-Zoll/pdfs/9999/Za283.pdf?open=inline")
+    End Sub
+
+    Private Sub PBNIrelandFähreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PBNIrelandFähreToolStripMenuItem.Click
+        Process.Start("https://www.ros.ie/customs-roro-control-web/ros/pbn/create")
+    End Sub
 End Class

 Public Class AvisoStatusFunctions
@@ -5298,6 +5363,8 @@ Public Class AvisoStatusFunctions
        End If
        Return hGrenzstelle
    End Function
+
+
    Shared Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String, abfertigungsNr As String, art As String, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, KundenNr As Integer, ByRef anhaenge As List(Of String)) As String
        If hText = "" Then
            Platzhalter_ersetzen = hText
@@ -5361,7 +5428,10 @@ Public Class AvisoStatusFunctions
                'Else
                '    SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
                'End If
-                SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td></tr>"
+                Dim showNCTSAdress = False
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FREIGABEMAIL_T1Adresse") Then showNCTSAdress = True
+                SendungslistTXT &= "<tr style=""font-size:18;min-width:180;font-weight: bolder""><td> Nr. </td><td>Spedition</td><td> PosNr </td><td> Art </td><td> Empfänger </td><td> ATC/MRN </td><td> Frist (T1/T2) </td>" & If(showNCTSAdress, "<td> Gestellungsadresse (T1/T2) </td>", "") & "</tr>"
+
                Dim cnt = 1
                For Each s In SENDUNG_LIST
                    If s.tblSnd_Abfertigungsart_ID <> 9 And isKdInSendData(KUNDE_ERW, AVISO, s) Then
@@ -5370,9 +5440,12 @@ Public Class AvisoStatusFunctions
                        Dim DsId = ""
                        Dim DsId2 = ""
                        Dim frist = ""
+                        Dim gestellungsadresse = "<td><td/>"
                        Dim found = False
                        Select Case s.tblSnd_Abfertigungsart_ID
-                            Case 5, 6, 18, 24, 32, 33, 34, 37, 40
+                            Case 5, 6, 18, 24, 32, 33, 34, 37, 40 'Versand
+                                gestellungsadresse = "<td>" & s.getNCTSAdress(True, True, False) & "</td>"
+
                                getDataFronDY_NCTS(s.tblSnd_SendungID, AtcMrn, frist, DsId, s.FilialenNr, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID, s.tblSnd_DakosyRef)
                                If KUNDE_ERW.EmailFreigabe_VBDPDF And IsNumeric(DsId) Then 'VBD anhängen
                                    Try
@@ -5421,7 +5494,7 @@ Public Class AvisoStatusFunctions
                        Dim txtCluster = ""
                        '   If VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
                        txtCluster = "<td>" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(s.FilialenNr, False) & "</td>"
-                        SendungslistTXT &= "<tr  style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td></tr> "
+                        SendungslistTXT &= "<tr  style=""font-size:18;min-width:180;""><td>" & cnt & "</td>" & txtCluster & "<td>" & If(s.FilialenNr > 0, s.FilialenNr, "") & "/" & If(s.AbfertigungsNr > 0, s.AbfertigungsNr, "") & "</td><td>" & getAbfertBez(s) & "</td><td>" & If(s.tblSnd_Empfaenger, "") & "</td><td>" & AtcMrn & "</td><td>" & frist & "</td>" & If(showNCTSAdress, gestellungsadresse, "") & "</tr> "
                        cnt += 1
                    End If
                Next
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -30,6 +30,7 @@ Partial Class frmSendungsdetailsNEU
        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()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -110,6 +111,8 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlDetails = New System.Windows.Forms.Panel()
        Me.tbcntr = New System.Windows.Forms.TabControl()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.txtFrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
        Me.cbx = New System.Windows.Forms.CheckBox()
        Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.lblWW = New System.Windows.Forms.Label()
@@ -136,7 +139,18 @@ 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.TabPage5 = New System.Windows.Forms.TabPage()
+        Me.tbVorkosten = New System.Windows.Forms.TabPage()
+        Me.lblVK_BEarbeitungAbbrechen = New System.Windows.Forms.LinkLabel()
+        Me.btnVorkostenAdd = New System.Windows.Forms.Button()
+        Me.txtVK_Preis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVK_Leistung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtVK_Firma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dgvVorkosten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnVK_id = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnLeistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnPreis = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.tbBAR = New System.Windows.Forms.TabPage()
        Me.dgvBelege = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Button9 = New System.Windows.Forms.Button()
        Me.btnKassenbuchEintrag = New System.Windows.Forms.Button()
@@ -349,6 +363,7 @@ 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.ZollstoppAMBARToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnl.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.TabControl1.SuspendLayout()
@@ -373,7 +388,9 @@ Partial Class frmSendungsdetailsNEU
        Me.pnlDetails.SuspendLayout()
        Me.tbcntr.SuspendLayout()
        Me.TabPage4.SuspendLayout()
-        Me.TabPage5.SuspendLayout()
+        Me.tbVorkosten.SuspendLayout()
+        CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.tbBAR.SuspendLayout()
        CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel6.SuspendLayout()
        CType(Me.picKdAtrNr_Fraechter, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -425,9 +442,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, 419)
+        Me.Panel4.Location = New System.Drawing.Point(0, 439)
        Me.Panel4.Name = "Panel4"
-        Me.Panel4.Size = New System.Drawing.Size(1214, 357)
+        Me.Panel4.Size = New System.Drawing.Size(1214, 337)
        Me.Panel4.TabIndex = 2
        '
        'TabControl1
@@ -439,10 +456,10 @@ Partial Class frmSendungsdetailsNEU
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Controls.Add(Me.TabPage3)
        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TabControl1.Location = New System.Drawing.Point(0, 5)
+        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, 352)
+        Me.TabControl1.Size = New System.Drawing.Size(1214, 300)
        Me.TabControl1.TabIndex = 1
        '
        'tbAnhang
@@ -451,7 +468,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, 326)
+        Me.tbAnhang.Size = New System.Drawing.Size(1206, 274)
        Me.tbAnhang.TabIndex = 4
        Me.tbAnhang.Text = "Anhang"
        Me.tbAnhang.UseVisualStyleBackColor = True
@@ -479,7 +496,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, 281)
+        Me.dgvAnhang.Size = New System.Drawing.Size(1206, 229)
        Me.dgvAnhang.TabIndex = 1
        '
        'Panel19
@@ -520,7 +537,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Label53.Location = New System.Drawing.Point(204, 2)
        Me.Label53.Name = "Label53"
        Me.Label53.Size = New System.Drawing.Size(59, 24)
-        Me.Label53.TabIndex = 3
+        Me.Label53.TabIndex = 2
        Me.Label53.Text = "FinanzOnline" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Stufe 2)"
        Me.Label53.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
@@ -578,7 +595,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblUID_Pruef.Location = New System.Drawing.Point(44, 7)
        Me.lblUID_Pruef.Name = "lblUID_Pruef"
        Me.lblUID_Pruef.Size = New System.Drawing.Size(205, 13)
-        Me.lblUID_Pruef.TabIndex = 2
+        Me.lblUID_Pruef.TabIndex = 3
        Me.lblUID_Pruef.Text = "-"
        '
        'lbleori_Pruef
@@ -675,7 +692,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, 326)
+        Me.tbKundenInfo.Size = New System.Drawing.Size(1206, 274)
        Me.tbKundenInfo.TabIndex = 5
        Me.tbKundenInfo.Text = "Kundeninfo"
        Me.tbKundenInfo.UseVisualStyleBackColor = True
@@ -687,7 +704,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, 316)
+        Me.pnlKundenInfo.Size = New System.Drawing.Size(1206, 264)
        Me.pnlKundenInfo.TabIndex = 1
        '
        'Panel20
@@ -704,7 +721,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, 326)
+        Me.tbZollabfertigung.Size = New System.Drawing.Size(1206, 274)
        Me.tbZollabfertigung.TabIndex = 2
        Me.tbZollabfertigung.Text = "Zollabfertigung"
        Me.tbZollabfertigung.UseVisualStyleBackColor = True
@@ -717,7 +734,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, 326)
+        Me.Panel16.Size = New System.Drawing.Size(1206, 274)
        Me.Panel16.TabIndex = 0
        '
        'dgvZollAnmeldungen
@@ -734,7 +751,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, 264)
+        Me.dgvZollAnmeldungen.Size = New System.Drawing.Size(1206, 212)
        Me.dgvZollAnmeldungen.TabIndex = 1
        '
        'Panel17
@@ -743,7 +760,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, 288)
+        Me.Panel17.Location = New System.Drawing.Point(0, 236)
        Me.Panel17.Name = "Panel17"
        Me.Panel17.Size = New System.Drawing.Size(1206, 38)
        Me.Panel17.TabIndex = 2
@@ -897,7 +914,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, 326)
+        Me.TabPage1.Size = New System.Drawing.Size(1206, 274)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Kunden - Zolltarif"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -913,7 +930,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, 287)
+        Me.pnlKundenZolltarif.Size = New System.Drawing.Size(1200, 235)
        Me.pnlKundenZolltarif.TabIndex = 1
        Me.pnlKundenZolltarif.TabStop = True
        '
@@ -922,7 +939,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, 246)
+        Me.Label22.Location = New System.Drawing.Point(4, 194)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(209, 13)
        Me.Label22.TabIndex = 0
@@ -934,7 +951,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, 260)
+        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Location = New System.Drawing.Point(4, 208)
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Name = "lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden"
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.Size = New System.Drawing.Size(338, 13)
        Me.lblBitteEinenEmpfangerAuswahlenUmDenKundenZolltarifEinzublenden.TabIndex = 1
@@ -979,7 +996,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, 326)
+        Me.TabPage2.Size = New System.Drawing.Size(1206, 274)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Speditionsbuch"
        Me.TabPage2.UseVisualStyleBackColor = True
@@ -996,7 +1013,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, 229)
+        Me.DataGridView.Size = New System.Drawing.Size(1200, 177)
        Me.DataGridView.TabIndex = 1
        '
        'pnlSpedBuchNacherfassung
@@ -1301,7 +1318,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, 326)
+        Me.TabPage3.Size = New System.Drawing.Size(1206, 274)
        Me.TabPage3.TabIndex = 3
        Me.TabPage3.Text = "Vermerke"
        Me.TabPage3.UseVisualStyleBackColor = True
@@ -1355,7 +1372,7 @@ Partial Class frmSendungsdetailsNEU
        Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.gridVermerke.ShowCellErrors = False
        Me.gridVermerke.ShowRowErrors = False
-        Me.gridVermerke.Size = New System.Drawing.Size(1206, 326)
+        Me.gridVermerke.Size = New System.Drawing.Size(1206, 274)
        Me.gridVermerke.TabIndex = 0
        Me.gridVermerke.TabStop = False
        '
@@ -1366,7 +1383,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel14.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Panel14.Location = New System.Drawing.Point(0, 0)
        Me.Panel14.Name = "Panel14"
-        Me.Panel14.Size = New System.Drawing.Size(1214, 5)
+        Me.Panel14.Size = New System.Drawing.Size(1214, 37)
        Me.Panel14.TabIndex = 0
        '
        'pnlDetails
@@ -1380,23 +1397,26 @@ 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, 364)
+        Me.pnlDetails.Size = New System.Drawing.Size(1214, 384)
        Me.pnlDetails.TabIndex = 1
        '
        'tbcntr
        '
        Me.tbcntr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tbcntr.Controls.Add(Me.TabPage4)
-        Me.tbcntr.Controls.Add(Me.TabPage5)
+        Me.tbcntr.Controls.Add(Me.tbVorkosten)
+        Me.tbcntr.Controls.Add(Me.tbBAR)
        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, 292)
+        Me.tbcntr.Size = New System.Drawing.Size(377, 312)
        Me.tbcntr.TabIndex = 2
        Me.tbcntr.TabStop = False
        '
        'TabPage4
        '
+        Me.TabPage4.Controls.Add(Me.txtFrachtkosten)
+        Me.TabPage4.Controls.Add(Me.Label1)
        Me.TabPage4.Controls.Add(Me.cbx)
        Me.TabPage4.Controls.Add(Me.txtWarenwertWaehrung)
        Me.TabPage4.Controls.Add(Me.lblWW)
@@ -1426,18 +1446,49 @@ Partial Class frmSendungsdetailsNEU
        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, 266)
+        Me.TabPage4.Size = New System.Drawing.Size(369, 286)
        Me.TabPage4.TabIndex = 0
        Me.TabPage4.Text = "Aktendeckel"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
+        'txtFrachtkosten
+        '
+        Me.txtFrachtkosten._DateTimeOnly = False
+        Me.txtFrachtkosten._numbersOnly = False
+        Me.txtFrachtkosten._numbersOnlyKommastellen = ""
+        Me.txtFrachtkosten._Prozent = False
+        Me.txtFrachtkosten._ShortDateNew = False
+        Me.txtFrachtkosten._ShortDateOnly = False
+        Me.txtFrachtkosten._TimeOnly = False
+        Me.txtFrachtkosten._value = ""
+        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.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.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(232, 72)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(55, 13)
+        Me.Label1.TabIndex = 13
+        Me.Label1.Text = "Fracht (€):"
+        '
        'cbx
        '
        Me.cbx.AutoSize = True
        Me.cbx.Location = New System.Drawing.Point(310, 152)
        Me.cbx.Name = "cbx"
        Me.cbx.Size = New System.Drawing.Size(55, 17)
-        Me.cbx.TabIndex = 20
+        Me.cbx.TabIndex = 21
        Me.cbx.Text = "Laufz."
        Me.cbx.UseVisualStyleBackColor = True
        Me.cbx.Visible = False
@@ -1456,7 +1507,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(190, 69)
+        Me.txtWarenwertWaehrung.Location = New System.Drawing.Point(186, 69)
        Me.txtWarenwertWaehrung.Name = "txtWarenwertWaehrung"
        Me.txtWarenwertWaehrung.searchActive = True
        Me.txtWarenwertWaehrung.Size = New System.Drawing.Size(40, 20)
@@ -1494,7 +1545,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtWarenwert.MaxLines_Warning = ""
        Me.txtWarenwert.MaxLines_Warning_Label = Nothing
        Me.txtWarenwert.Name = "txtWarenwert"
-        Me.txtWarenwert.Size = New System.Drawing.Size(114, 20)
+        Me.txtWarenwert.Size = New System.Drawing.Size(109, 20)
        Me.txtWarenwert.TabIndex = 11
        Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
@@ -1504,11 +1555,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, 236)
+        Me.Button21.Location = New System.Drawing.Point(233, 253)
        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 = 25
+        Me.Button21.TabIndex = 27
        Me.Button21.Text = "weitere Formulare"
        Me.Button21.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button21.UseVisualStyleBackColor = True
@@ -1516,18 +1567,18 @@ Partial Class frmSendungsdetailsNEU
        'lblAnmerkungDispoliste
        '
        Me.lblAnmerkungDispoliste.AutoSize = True
-        Me.lblAnmerkungDispoliste.Location = New System.Drawing.Point(3, 221)
+        Me.lblAnmerkungDispoliste.Location = New System.Drawing.Point(3, 238)
        Me.lblAnmerkungDispoliste.Name = "lblAnmerkungDispoliste"
        Me.lblAnmerkungDispoliste.Size = New System.Drawing.Size(112, 13)
-        Me.lblAnmerkungDispoliste.TabIndex = 22
+        Me.lblAnmerkungDispoliste.TabIndex = 24
        Me.lblAnmerkungDispoliste.Text = "Anmerkung Dispoliste:"
        '
        'rtbAnmerkungDispoliste
        '
-        Me.rtbAnmerkungDispoliste.Location = New System.Drawing.Point(6, 235)
+        Me.rtbAnmerkungDispoliste.Location = New System.Drawing.Point(6, 252)
        Me.rtbAnmerkungDispoliste.Name = "rtbAnmerkungDispoliste"
        Me.rtbAnmerkungDispoliste.Size = New System.Drawing.Size(224, 31)
-        Me.rtbAnmerkungDispoliste.TabIndex = 24
+        Me.rtbAnmerkungDispoliste.TabIndex = 26
        Me.rtbAnmerkungDispoliste.Text = ""
        '
        'btnImportaviso
@@ -1537,11 +1588,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, 178)
+        Me.btnImportaviso.Location = New System.Drawing.Point(233, 195)
        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 = 21
+        Me.btnImportaviso.TabIndex = 23
        Me.btnImportaviso.Text = "Importaviso"
        Me.btnImportaviso.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnImportaviso.UseVisualStyleBackColor = True
@@ -1554,11 +1605,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, 207)
+        Me.btnVorauszahlung.Location = New System.Drawing.Point(233, 224)
        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 = 23
+        Me.btnVorauszahlung.TabIndex = 25
        Me.btnVorauszahlung.Text = "Vorauskasse"
        Me.btnVorauszahlung.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnVorauszahlung.UseVisualStyleBackColor = True
@@ -1574,21 +1625,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, 4)
+        Me.Button14.Location = New System.Drawing.Point(350, 24)
        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 = 1
+        Me.Button14.TabIndex = 2
        Me.Button14.TabStop = False
        Me.Button14.TextAlign = System.Drawing.ContentAlignment.BottomCenter
        Me.Button14.UseVisualStyleBackColor = True
        '
        'Button12
        '
-        Me.Button12.Location = New System.Drawing.Point(49, 128)
+        Me.Button12.Location = New System.Drawing.Point(49, 145)
        Me.Button12.Name = "Button12"
        Me.Button12.Size = New System.Drawing.Size(75, 23)
-        Me.Button12.TabIndex = 17
+        Me.Button12.TabIndex = 18
        Me.Button12.Text = "ATLAS"
        Me.Button12.UseVisualStyleBackColor = True
        Me.Button12.Visible = False
@@ -1649,10 +1700,10 @@ Partial Class frmSendungsdetailsNEU
        'Label35
        '
        Me.Label35.AutoSize = True
-        Me.Label35.Location = New System.Drawing.Point(230, 95)
+        Me.Label35.Location = New System.Drawing.Point(232, 95)
        Me.Label35.Name = "Label35"
        Me.Label35.Size = New System.Drawing.Size(131, 13)
-        Me.Label35.TabIndex = 15
+        Me.Label35.TabIndex = 16
        Me.Label35.Text = "Aktenzettel drucken/PDF:"
        '
        'lblZuKass
@@ -1681,7 +1732,7 @@ Partial Class frmSendungsdetailsNEU
        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 = 18
+        Me.Button3.TabIndex = 19
        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button3.UseVisualStyleBackColor = True
        '
@@ -1693,7 +1744,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Button8.Location = New System.Drawing.Point(310, 111)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(54, 60)
-        Me.Button8.TabIndex = 19
+        Me.Button8.TabIndex = 20
        Me.Button8.UseVisualStyleBackColor = True
        '
        'txtColli
@@ -1725,7 +1776,7 @@ Partial Class frmSendungsdetailsNEU
        Me.rtbWarenbezeichnung.MaxLength = 500
        Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
        Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
-        Me.rtbWarenbezeichnung.TabIndex = 2
+        Me.rtbWarenbezeichnung.TabIndex = 1
        Me.rtbWarenbezeichnung.Text = ""
        '
        'Label23
@@ -1752,7 +1803,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblAnmerkung.Location = New System.Drawing.Point(6, 95)
        Me.lblAnmerkung.Name = "lblAnmerkung"
        Me.lblAnmerkung.Size = New System.Drawing.Size(64, 13)
-        Me.lblAnmerkung.TabIndex = 14
+        Me.lblAnmerkung.TabIndex = 15
        Me.lblAnmerkung.Text = "Anmerkung:"
        '
        'cboPrinter
@@ -1763,32 +1814,193 @@ 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, 69)
+        Me.cboPrinter.Location = New System.Drawing.Point(233, 171)
        Me.cboPrinter.Name = "cboPrinter"
        Me.cboPrinter.Size = New System.Drawing.Size(131, 21)
-        Me.cboPrinter.TabIndex = 13
+        Me.cboPrinter.TabIndex = 22
        '
        'rtbAnmerkung
        '
        Me.rtbAnmerkung.Location = New System.Drawing.Point(6, 111)
        Me.rtbAnmerkung.Name = "rtbAnmerkung"
-        Me.rtbAnmerkung.Size = New System.Drawing.Size(224, 107)
-        Me.rtbAnmerkung.TabIndex = 16
+        Me.rtbAnmerkung.Size = New System.Drawing.Size(224, 124)
+        Me.rtbAnmerkung.TabIndex = 17
        Me.rtbAnmerkung.Text = ""
        '
-        'TabPage5
+        'tbVorkosten
        '
-        Me.TabPage5.Controls.Add(Me.dgvBelege)
-        Me.TabPage5.Controls.Add(Me.Button9)
-        Me.TabPage5.Controls.Add(Me.btnKassenbuchEintrag)
-        Me.TabPage5.Controls.Add(Me.btnLeihgeld)
-        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage5.Name = "TabPage5"
-        Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(369, 266)
-        Me.TabPage5.TabIndex = 1
-        Me.TabPage5.Text = "Abrechnung/BAR-Belege"
-        Me.TabPage5.UseVisualStyleBackColor = True
+        Me.tbVorkosten.Controls.Add(Me.lblVK_BEarbeitungAbbrechen)
+        Me.tbVorkosten.Controls.Add(Me.btnVorkostenAdd)
+        Me.tbVorkosten.Controls.Add(Me.txtVK_Preis)
+        Me.tbVorkosten.Controls.Add(Me.txtVK_Leistung)
+        Me.tbVorkosten.Controls.Add(Me.txtVK_Firma)
+        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.TabIndex = 2
+        Me.tbVorkosten.Text = "Vorkosten"
+        Me.tbVorkosten.UseVisualStyleBackColor = True
+        '
+        'lblVK_BEarbeitungAbbrechen
+        '
+        Me.lblVK_BEarbeitungAbbrechen.AutoSize = True
+        Me.lblVK_BEarbeitungAbbrechen.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+        Me.lblVK_BEarbeitungAbbrechen.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(30, Byte), Integer), CType(CType(90, Byte), Integer))
+        Me.lblVK_BEarbeitungAbbrechen.Location = New System.Drawing.Point(246, 228)
+        Me.lblVK_BEarbeitungAbbrechen.Name = "lblVK_BEarbeitungAbbrechen"
+        Me.lblVK_BEarbeitungAbbrechen.Size = New System.Drawing.Size(117, 13)
+        Me.lblVK_BEarbeitungAbbrechen.TabIndex = 5
+        Me.lblVK_BEarbeitungAbbrechen.TabStop = True
+        Me.lblVK_BEarbeitungAbbrechen.Text = "Bearbeitung abbrechen"
+        Me.lblVK_BEarbeitungAbbrechen.Visible = False
+        '
+        'btnVorkostenAdd
+        '
+        Me.btnVorkostenAdd.BackColor = System.Drawing.Color.Transparent
+        Me.btnVorkostenAdd.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
+        Me.btnVorkostenAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnVorkostenAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVorkostenAdd.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVorkostenAdd.Location = New System.Drawing.Point(329, 204)
+        Me.btnVorkostenAdd.Name = "btnVorkostenAdd"
+        Me.btnVorkostenAdd.Size = New System.Drawing.Size(34, 21)
+        Me.btnVorkostenAdd.TabIndex = 3
+        Me.btnVorkostenAdd.TabStop = False
+        Me.btnVorkostenAdd.UseVisualStyleBackColor = False
+        '
+        'txtVK_Preis
+        '
+        Me.txtVK_Preis._DateTimeOnly = False
+        Me.txtVK_Preis._numbersOnly = False
+        Me.txtVK_Preis._numbersOnlyKommastellen = ""
+        Me.txtVK_Preis._Prozent = False
+        Me.txtVK_Preis._ShortDateNew = False
+        Me.txtVK_Preis._ShortDateOnly = False
+        Me.txtVK_Preis._TimeOnly = False
+        Me.txtVK_Preis._value = ""
+        Me.txtVK_Preis._Waehrung = True
+        Me.txtVK_Preis._WaehrungZeichen = True
+        Me.txtVK_Preis.ForeColor = System.Drawing.Color.Black
+        Me.txtVK_Preis.Location = New System.Drawing.Point(255, 205)
+        Me.txtVK_Preis.MaxLength = 15
+        Me.txtVK_Preis.MaxLineLength = -1
+        Me.txtVK_Preis.MaxLines_Warning = ""
+        Me.txtVK_Preis.MaxLines_Warning_Label = Nothing
+        Me.txtVK_Preis.Name = "txtVK_Preis"
+        Me.txtVK_Preis.Size = New System.Drawing.Size(75, 20)
+        Me.txtVK_Preis.TabIndex = 4
+        '
+        'txtVK_Leistung
+        '
+        Me.txtVK_Leistung._DateTimeOnly = False
+        Me.txtVK_Leistung._numbersOnly = False
+        Me.txtVK_Leistung._numbersOnlyKommastellen = ""
+        Me.txtVK_Leistung._Prozent = False
+        Me.txtVK_Leistung._ShortDateNew = False
+        Me.txtVK_Leistung._ShortDateOnly = False
+        Me.txtVK_Leistung._TimeOnly = False
+        Me.txtVK_Leistung._value = ""
+        Me.txtVK_Leistung._Waehrung = False
+        Me.txtVK_Leistung._WaehrungZeichen = True
+        Me.txtVK_Leistung.ForeColor = System.Drawing.Color.Black
+        Me.txtVK_Leistung.Location = New System.Drawing.Point(129, 205)
+        Me.txtVK_Leistung.MaxLength = 30
+        Me.txtVK_Leistung.MaxLineLength = -1
+        Me.txtVK_Leistung.MaxLines_Warning = ""
+        Me.txtVK_Leistung.MaxLines_Warning_Label = Nothing
+        Me.txtVK_Leistung.Name = "txtVK_Leistung"
+        Me.txtVK_Leistung.Size = New System.Drawing.Size(127, 20)
+        Me.txtVK_Leistung.TabIndex = 2
+        '
+        'txtVK_Firma
+        '
+        Me.txtVK_Firma._DateTimeOnly = False
+        Me.txtVK_Firma._numbersOnly = False
+        Me.txtVK_Firma._numbersOnlyKommastellen = ""
+        Me.txtVK_Firma._Prozent = False
+        Me.txtVK_Firma._ShortDateNew = False
+        Me.txtVK_Firma._ShortDateOnly = False
+        Me.txtVK_Firma._TimeOnly = False
+        Me.txtVK_Firma._value = ""
+        Me.txtVK_Firma._Waehrung = False
+        Me.txtVK_Firma._WaehrungZeichen = True
+        Me.txtVK_Firma.ForeColor = System.Drawing.Color.Black
+        Me.txtVK_Firma.Location = New System.Drawing.Point(3, 205)
+        Me.txtVK_Firma.MaxLength = 200
+        Me.txtVK_Firma.MaxLineLength = -1
+        Me.txtVK_Firma.MaxLines_Warning = ""
+        Me.txtVK_Firma.MaxLines_Warning_Label = Nothing
+        Me.txtVK_Firma.Name = "txtVK_Firma"
+        Me.txtVK_Firma.Size = New System.Drawing.Size(127, 20)
+        Me.txtVK_Firma.TabIndex = 1
+        '
+        'dgvVorkosten
+        '
+        Me.dgvVorkosten.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvVorkosten.AllowUserToAddRows = False
+        Me.dgvVorkosten.AllowUserToDeleteRows = False
+        Me.dgvVorkosten.AllowUserToResizeColumns = False
+        Me.dgvVorkosten.AllowUserToResizeRows = False
+        Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
+        Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis})
+        Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
+        Me.dgvVorkosten.MultiSelect = False
+        Me.dgvVorkosten.Name = "dgvVorkosten"
+        Me.dgvVorkosten.ReadOnly = True
+        Me.dgvVorkosten.RowHeadersVisible = False
+        Me.dgvVorkosten.RowTemplate.Height = 18
+        Me.dgvVorkosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvVorkosten.Size = New System.Drawing.Size(360, 194)
+        Me.dgvVorkosten.TabIndex = 0
+        '
+        'clmnVK_id
+        '
+        Me.clmnVK_id.HeaderText = "ID"
+        Me.clmnVK_id.Name = "clmnVK_id"
+        Me.clmnVK_id.ReadOnly = True
+        Me.clmnVK_id.Visible = False
+        '
+        'clmnFirma
+        '
+        Me.clmnFirma.HeaderText = "Firma"
+        Me.clmnFirma.MaxInputLength = 200
+        Me.clmnFirma.Name = "clmnFirma"
+        Me.clmnFirma.ReadOnly = True
+        Me.clmnFirma.Width = 127
+        '
+        'clmnLeistung
+        '
+        Me.clmnLeistung.HeaderText = "Leistung"
+        Me.clmnLeistung.MaxInputLength = 30
+        Me.clmnLeistung.Name = "clmnLeistung"
+        Me.clmnLeistung.ReadOnly = True
+        Me.clmnLeistung.Width = 129
+        '
+        'clmnPreis
+        '
+        Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        DataGridViewCellStyle7.Format = "C2"
+        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle7
+        Me.clmnPreis.HeaderText = "Preis"
+        Me.clmnPreis.MaxInputLength = 15
+        Me.clmnPreis.Name = "clmnPreis"
+        Me.clmnPreis.ReadOnly = True
+        '
+        'tbBAR
+        '
+        Me.tbBAR.Controls.Add(Me.dgvBelege)
+        Me.tbBAR.Controls.Add(Me.Button9)
+        Me.tbBAR.Controls.Add(Me.btnKassenbuchEintrag)
+        Me.tbBAR.Controls.Add(Me.btnLeihgeld)
+        Me.tbBAR.Location = New System.Drawing.Point(4, 22)
+        Me.tbBAR.Name = "tbBAR"
+        Me.tbBAR.Padding = New System.Windows.Forms.Padding(3)
+        Me.tbBAR.Size = New System.Drawing.Size(369, 286)
+        Me.tbBAR.TabIndex = 1
+        Me.tbBAR.Text = "Abrechnung/BAR-Belege"
+        Me.tbBAR.UseVisualStyleBackColor = True
        '
        'dgvBelege
        '
@@ -1959,7 +2171,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, 292)
+        Me.Panel6.Size = New System.Drawing.Size(838, 310)
        Me.Panel6.TabIndex = 1
        '
        'picKdAtrNr_Fraechter
@@ -2729,7 +2941,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, 292)
+        Me.Panel15.Size = New System.Drawing.Size(5, 310)
        Me.Panel15.TabIndex = 1
        '
        'txtAvisierer
@@ -3875,7 +4087,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Button24.Location = New System.Drawing.Point(357, -1)
        Me.Button24.Name = "Button24"
        Me.Button24.Size = New System.Drawing.Size(15, 15)
-        Me.Button24.TabIndex = 4
+        Me.Button24.TabIndex = 1
        Me.Button24.UseVisualStyleBackColor = False
        '
        'cboVorpapier3
@@ -3888,7 +4100,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cboVorpapier3.Location = New System.Drawing.Point(163, 62)
        Me.cboVorpapier3.Name = "cboVorpapier3"
        Me.cboVorpapier3.Size = New System.Drawing.Size(209, 24)
-        Me.cboVorpapier3.TabIndex = 11
+        Me.cboVorpapier3.TabIndex = 12
        '
        'cboVorpapier2
        '
@@ -3900,7 +4112,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cboVorpapier2.Location = New System.Drawing.Point(163, 39)
        Me.cboVorpapier2.Name = "cboVorpapier2"
        Me.cboVorpapier2.Size = New System.Drawing.Size(209, 24)
-        Me.cboVorpapier2.TabIndex = 8
+        Me.cboVorpapier2.TabIndex = 9
        '
        'txtVorpapier3Pos
        '
@@ -3909,7 +4121,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtVorpapier3Pos.MaxLength = 500
        Me.txtVorpapier3Pos.Name = "txtVorpapier3Pos"
        Me.txtVorpapier3Pos.Size = New System.Drawing.Size(88, 25)
-        Me.txtVorpapier3Pos.TabIndex = 10
+        Me.txtVorpapier3Pos.TabIndex = 11
        Me.txtVorpapier3Pos.Text = ""
        '
        'txtVorpapier2Pos
@@ -3919,7 +4131,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtVorpapier2Pos.MaxLength = 500
        Me.txtVorpapier2Pos.Name = "txtVorpapier2Pos"
        Me.txtVorpapier2Pos.Size = New System.Drawing.Size(88, 25)
-        Me.txtVorpapier2Pos.TabIndex = 6
+        Me.txtVorpapier2Pos.TabIndex = 7
        Me.txtVorpapier2Pos.Text = ""
        '
        'lblPos
@@ -3928,7 +4140,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblPos.Location = New System.Drawing.Point(375, 0)
        Me.lblPos.Name = "lblPos"
        Me.lblPos.Size = New System.Drawing.Size(28, 13)
-        Me.lblPos.TabIndex = 1
+        Me.lblPos.TabIndex = 2
        Me.lblPos.Text = "Pos:"
        '
        'txtVorpapierPos
@@ -3938,7 +4150,7 @@ Partial Class frmSendungsdetailsNEU
        Me.txtVorpapierPos.MaxLength = 500
        Me.txtVorpapierPos.Name = "txtVorpapierPos"
        Me.txtVorpapierPos.Size = New System.Drawing.Size(88, 25)
-        Me.txtVorpapierPos.TabIndex = 4
+        Me.txtVorpapierPos.TabIndex = 5
        Me.txtVorpapierPos.Text = ""
        '
        'lblZuweisungVP
@@ -3960,7 +4172,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cboVorpapier.Location = New System.Drawing.Point(163, 16)
        Me.cboVorpapier.Name = "cboVorpapier"
        Me.cboVorpapier.Size = New System.Drawing.Size(209, 24)
-        Me.cboVorpapier.TabIndex = 5
+        Me.cboVorpapier.TabIndex = 6
        '
        'lblGrenze
        '
@@ -3968,7 +4180,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblGrenze.Location = New System.Drawing.Point(483, 16)
        Me.lblGrenze.Name = "lblGrenze"
        Me.lblGrenze.Size = New System.Drawing.Size(202, 62)
-        Me.lblGrenze.TabIndex = 9
+        Me.lblGrenze.TabIndex = 10
        Me.lblGrenze.Text = "SUB"
        '
        'lblGrenzeSnd
@@ -3977,7 +4189,7 @@ Partial Class frmSendungsdetailsNEU
        Me.lblGrenzeSnd.Location = New System.Drawing.Point(484, 0)
        Me.lblGrenzeSnd.Name = "lblGrenzeSnd"
        Me.lblGrenzeSnd.Size = New System.Drawing.Size(44, 13)
-        Me.lblGrenzeSnd.TabIndex = 2
+        Me.lblGrenzeSnd.TabIndex = 3
        Me.lblGrenzeSnd.Text = "Grenze:"
        '
        'Panel3
@@ -3990,7 +4202,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel3.Location = New System.Drawing.Point(691, 0)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.Size = New System.Drawing.Size(228, 87)
-        Me.Panel3.TabIndex = 12
+        Me.Panel3.TabIndex = 13
        '
        'btnDelQS
        '
@@ -4055,7 +4267,7 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel9.Location = New System.Drawing.Point(919, 0)
        Me.Panel9.Name = "Panel9"
        Me.Panel9.Size = New System.Drawing.Size(295, 87)
-        Me.Panel9.TabIndex = 13
+        Me.Panel9.TabIndex = 14
        '
        'Button10
        '
@@ -4133,7 +4345,7 @@ Partial Class frmSendungsdetailsNEU
        Me.btnSpedBuch.Location = New System.Drawing.Point(6, 6)
        Me.btnSpedBuch.Name = "btnSpedBuch"
        Me.btnSpedBuch.Size = New System.Drawing.Size(125, 40)
-        Me.btnSpedBuch.TabIndex = 3
+        Me.btnSpedBuch.TabIndex = 4
        Me.btnSpedBuch.Text = "Eintrag" & Global.Microsoft.VisualBasic.ChrW(10) & "Speditionsbuch"
        Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnSpedBuch.UseVisualStyleBackColor = True
@@ -4147,7 +4359,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cbxSpedBuch.Location = New System.Drawing.Point(6, 46)
        Me.cbxSpedBuch.Name = "cbxSpedBuch"
        Me.cbxSpedBuch.Size = New System.Drawing.Size(113, 17)
-        Me.cbxSpedBuch.TabIndex = 7
+        Me.cbxSpedBuch.TabIndex = 8
        Me.cbxSpedBuch.Text = "Eintrag vorhanden"
        Me.cbxSpedBuch.UseVisualStyleBackColor = True
        '
@@ -4384,9 +4596,9 @@ Partial Class frmSendungsdetailsNEU
        '
        'ctxtWeitereFormulare
        '
-        Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem})
+        Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem})
        Me.ctxtWeitereFormulare.Name = "cntxt"
-        Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 70)
+        Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 114)
        '
        'toolGelangensbestätigung
        '
@@ -4485,6 +4697,12 @@ Partial Class frmSendungsdetailsNEU
        Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(247, 22)
        Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
        '
+        'ZollstoppAMBARToolStripMenuItem
+        '
+        Me.ZollstoppAMBARToolStripMenuItem.Name = "ZollstoppAMBARToolStripMenuItem"
+        Me.ZollstoppAMBARToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
+        Me.ZollstoppAMBARToolStripMenuItem.Text = "Zollstopp (AMBAR)"
+        '
        'frmSendungsdetailsNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -4533,7 +4751,10 @@ Partial Class frmSendungsdetailsNEU
        Me.tbcntr.ResumeLayout(False)
        Me.TabPage4.ResumeLayout(False)
        Me.TabPage4.PerformLayout()
-        Me.TabPage5.ResumeLayout(False)
+        Me.tbVorkosten.ResumeLayout(False)
+        Me.tbVorkosten.PerformLayout()
+        CType(Me.dgvVorkosten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.tbBAR.ResumeLayout(False)
        CType(Me.dgvBelege, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel6.ResumeLayout(False)
        Me.Panel6.PerformLayout()
@@ -4678,7 +4899,7 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents Label24 As System.Windows.Forms.Label
    Friend WithEvents lblAnmerkung As System.Windows.Forms.Label
    Friend WithEvents rtbAnmerkung As System.Windows.Forms.RichTextBox
-    Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
+    Friend WithEvents tbBAR As System.Windows.Forms.TabPage
    Friend WithEvents dgvBelege As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents Button9 As System.Windows.Forms.Button
    Friend WithEvents btnKassenbuchEintrag As System.Windows.Forms.Button
@@ -4896,4 +5117,18 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents txtVorpapier3Pos As RichTextBox
    Friend WithEvents txtVorpapier2Pos As RichTextBox
    Friend WithEvents GestellungslisteAnfügenJANEINToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tbVorkosten As TabPage
+    Friend WithEvents btnVorkostenAdd As Button
+    Friend WithEvents txtVK_Preis As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVK_Leistung As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtVK_Firma As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents dgvVorkosten As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents clmnVK_id As DataGridViewTextBoxColumn
+    Friend WithEvents clmnFirma As DataGridViewTextBoxColumn
+    Friend WithEvents clmnLeistung As DataGridViewTextBoxColumn
+    Friend WithEvents clmnPreis As DataGridViewTextBoxColumn
+    Friend WithEvents lblVK_BEarbeitungAbbrechen As LinkLabel
+    Friend WithEvents txtFrachtkosten As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents ZollstoppAMBARToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmSendungsdetailsNEU.resx
+++ b/Aviso/frmSendungsdetailsNEU.resx
@@ -1588,6 +1588,18 @@
        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>
  <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -109,10 +109,12 @@ Public Class frmSendungsdetailsNEU
            For Each s In SENDUNG_LIST
                If s.SAVE() = False Then SAVE_ME = False
                s.SAVE_HANDLING() 'derzeit ohne Funktion
+                s.SAVE_VORKOSTEN() 'derzeit ohne Funktion
            Next
        Else
            SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
            SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING() 'derzeit ohne Funktion
+            SENDUNG_LIST(CURRENT_INDEX).SAVE_VORKOSTEN() 'derzeit ohne Funktion
        End If
        SAVE_ABRECHUNG()

@@ -988,7 +990,7 @@ Public Class frmSendungsdetailsNEU

            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
                Case "FRONTOFFICE"
-                    whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801) "
+                    whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801) "
                    If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
                        whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701) "
                    End If
@@ -1030,6 +1032,8 @@ Public Class frmSendungsdetailsNEU



+            txtFrachtkosten.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten, "")
+
            txtWarenwert.Text = If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, "")
            txtWarenwertWaehrung.SET_VALUE(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung, ""))

@@ -1248,8 +1252,12 @@ Public Class frmSendungsdetailsNEU
            initTab()
            initGesColliGewicht()
            initKdInfo(-1)
-            If tbcntr.SelectedTab Is TabPage5 Then
+
+            SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN()
+            If tbcntr.SelectedTab Is tbBAR Then
                initDGVBelege()
+            ElseIf tbcntr.SelectedTab Is tbVorkosten Then
+                initDGVVorkosten()
            End If


@@ -1556,6 +1564,8 @@ Public Class frmSendungsdetailsNEU
        End Select


+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Frachtkosten = SQL.isNullNothingDbl(txtFrachtkosten.Text)
+
        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = SQL.isNullNothingDbl(txtWarenwert.Text)
        SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = SQL.isNullNothing(txtWarenwertWaehrung._value)

@@ -3575,11 +3585,20 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub tbcntr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntr.SelectedIndexChanged
-        If tbcntr.SelectedTab Is TabPage5 Then
+        If tbcntr.SelectedTab Is tbVorkosten Then
+            initDGVVorkosten
+        ElseIf tbcntr.SelectedTab Is tbBAR Then
            initDGVBelege()
-        End If
+            End If
    End Sub

+    Sub initDGVVorkosten()
+        dgvVorkosten.Rows.Clear()
+        For Each VK In SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN
+            dgvVorkosten.Rows.Add(SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.IndexOf(VK), VK.sndvk_Firma, VK.sndvk_LeistungsBez, VK.sndvk_Preis)
+        Next
+
+    End Sub
    Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click

    End Sub
@@ -4136,4 +4155,90 @@ Public Class frmSendungsdetailsNEU

        'End If
    End Sub
+
+    Private Sub Button17_Click_1(sender As Object, e As EventArgs) Handles btnVorkostenAdd.Click
+        If txtVK_Leistung.Text.Trim = "" Then Exit Sub
+        If txtVK_Firma.Text.Trim = "" Then Exit Sub
+        If txtVK_Preis._value = "" Then Exit Sub
+
+        Try
+            If VK_ID >= 0 Then
+                'Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = VK_ID)
+                Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN(VK_ID)
+                VK.sndvk_LeistungsNr = 499
+                VK.sndvk_LeistungsBez = txtVK_Leistung.Text.Trim
+                VK.sndvk_Firma = txtVK_Firma.Text.Trim
+                VK.sndvk_Preis = txtVK_Preis._value
+                'SENDUNG_LIST(CURRENT_INDEX).SAVE()
+                btnVorkostenAdd.BackgroundImage = My.Resources.plus
+            Else
+                Dim VK As New VERAG_PROG_ALLGEMEIN.cSendVorkosten
+                VK.sndvk_LeistungsNr = 499
+                VK.sndvk_LeistungsBez = txtVK_Leistung.Text.Trim
+                VK.sndvk_Firma = txtVK_Firma.Text.Trim
+                VK.sndvk_Preis = txtVK_Preis._value
+                SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Add(VK)
+            End If
+            VK_ID = -1
+            lblVK_BEarbeitungAbbrechen.Visible = False
+            txtVK_Leistung.Text = ""
+            txtVK_Firma.Text = ""
+            txtVK_Preis.Text = ""
+            initDGVVorkosten()
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+
+    Private Sub dgvVorkosten_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvVorkosten.KeyDown
+        If dgvVorkosten.SelectedRows.Count = 0 Then Exit Sub
+
+        If e.KeyCode = Keys.Delete Then
+            If vbYes = MsgBox("Möchten Sie die Vorkosten-Position wirklich löschen?", vbYesNoCancel) Then
+                Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
+                SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Remove(VK)
+                SENDUNG_LIST(CURRENT_INDEX).SAVE()
+                initDGVVorkosten()
+            End If
+        End If
+    End Sub
+
+    Dim VK_ID = -1
+    Private Sub dgvVorkosten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorkosten.CellDoubleClick, dgvVorkosten.CellContentDoubleClick
+        If e.RowIndex >=0 Then
+            Try
+                ' Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
+                Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN(dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
+                txtVK_Firma.Text = VK.sndvk_Firma
+                txtVK_Leistung.Text = VK.sndvk_LeistungsBez
+                txtVK_Preis.Text = CDbl(VK.sndvk_Preis).ToString("N2")
+                'VK_ID = VK.sndvk_id
+                VK_ID = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value
+                lblVK_BEarbeitungAbbrechen.Visible = True
+                btnVorkostenAdd.BackgroundImage = My.Resources.stift
+
+            Catch ex As Exception
+                MsgBox(ex.Message & ex.StackTrace)
+            End Try
+        End If
+    End Sub
+
+    Private Sub lblVK_BEarbeitungAbbrechen_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblVK_BEarbeitungAbbrechen.LinkClicked
+        VK_ID = -1
+        lblVK_BEarbeitungAbbrechen.Visible = False
+        btnVorkostenAdd.BackgroundImage = My.Resources.plus
+        txtVK_Leistung.Text = ""
+        txtVK_Firma.Text = ""
+        txtVK_Preis.Text = ""
+    End Sub
+
+    Private Sub ZollstoppAMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollstoppAMBARToolStripMenuItem.Click
+        Me.Cursor = Cursors.WaitCursor
+        SAVE_ME()
+        Dim f As New frmZollstopp(SENDUNG_LIST(CURRENT_INDEX))
+        f.ShowDialog(Me)
+        Me.Cursor = DefaultCursor
+    End Sub
 End Class
--- a/Aviso/frmZollstopp.Designer.vb
+++ b/Aviso/frmZollstopp.Designer.vb
@@ -0,0 +1,175 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmZollstopp
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmZollstopp))
+        Me.rtbZollstop = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.rtbEntladestelle = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.rtbKommentare = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.lbl1ZOLLSTOP = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnOffnen = New System.Windows.Forms.Button()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.rtbAbsender = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
+        Me.SuspendLayout()
+        '
+        'rtbZollstop
+        '
+        Me.rtbZollstop.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbZollstop.Location = New System.Drawing.Point(13, 114)
+        Me.rtbZollstop.MaxLineLength = -1
+        Me.rtbZollstop.MaxLines_Warning = ""
+        Me.rtbZollstop.MaxLines_Warning_Label = Nothing
+        Me.rtbZollstop.Name = "rtbZollstop"
+        Me.rtbZollstop.Size = New System.Drawing.Size(526, 121)
+        Me.rtbZollstop.TabIndex = 3
+        Me.rtbZollstop.Text = ""
+        '
+        'rtbEntladestelle
+        '
+        Me.rtbEntladestelle.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbEntladestelle.Location = New System.Drawing.Point(13, 277)
+        Me.rtbEntladestelle.MaxLineLength = -1
+        Me.rtbEntladestelle.MaxLines_Warning = ""
+        Me.rtbEntladestelle.MaxLines_Warning_Label = Nothing
+        Me.rtbEntladestelle.Name = "rtbEntladestelle"
+        Me.rtbEntladestelle.Size = New System.Drawing.Size(526, 121)
+        Me.rtbEntladestelle.TabIndex = 5
+        Me.rtbEntladestelle.Text = ""
+        '
+        'rtbKommentare
+        '
+        Me.rtbKommentare.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbKommentare.Location = New System.Drawing.Point(13, 429)
+        Me.rtbKommentare.MaxLineLength = -1
+        Me.rtbKommentare.MaxLines_Warning = ""
+        Me.rtbKommentare.MaxLines_Warning_Label = Nothing
+        Me.rtbKommentare.Name = "rtbKommentare"
+        Me.rtbKommentare.Size = New System.Drawing.Size(526, 121)
+        Me.rtbKommentare.TabIndex = 7
+        Me.rtbKommentare.Text = ""
+        '
+        'lbl1ZOLLSTOP
+        '
+        Me.lbl1ZOLLSTOP.AutoSize = True
+        Me.lbl1ZOLLSTOP.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.lbl1ZOLLSTOP.Location = New System.Drawing.Point(12, 91)
+        Me.lbl1ZOLLSTOP.Name = "lbl1ZOLLSTOP"
+        Me.lbl1ZOLLSTOP.Size = New System.Drawing.Size(119, 20)
+        Me.lbl1ZOLLSTOP.TabIndex = 2
+        Me.lbl1ZOLLSTOP.Text = "1. ZOLLSTOP"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
+        Me.Label1.Location = New System.Drawing.Point(12, 254)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(176, 20)
+        Me.Label1.TabIndex = 4
+        Me.Label1.Text = "2. ENTLADESTELLE"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.Label2.Location = New System.Drawing.Point(12, 406)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(100, 20)
+        Me.Label2.TabIndex = 6
+        Me.Label2.Text = "Kommentare"
+        '
+        'btnOffnen
+        '
+        Me.btnOffnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnOffnen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.btnOffnen.Image = Global.AVISO.My.Resources.Resources.pdf1
+        Me.btnOffnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnOffnen.Location = New System.Drawing.Point(379, 557)
+        Me.btnOffnen.Name = "btnOffnen"
+        Me.btnOffnen.Size = New System.Drawing.Size(160, 59)
+        Me.btnOffnen.TabIndex = 8
+        Me.btnOffnen.Text = "         Öffnen"
+        Me.btnOffnen.UseVisualStyleBackColor = True
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.Label3.Location = New System.Drawing.Point(11, 13)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(78, 20)
+        Me.Label3.TabIndex = 0
+        Me.Label3.Text = "Absender"
+        '
+        'rtbAbsender
+        '
+        Me.rtbAbsender.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.rtbAbsender.Location = New System.Drawing.Point(12, 36)
+        Me.rtbAbsender.MaxLineLength = -1
+        Me.rtbAbsender.MaxLines_Warning = ""
+        Me.rtbAbsender.MaxLines_Warning_Label = Nothing
+        Me.rtbAbsender.Name = "rtbAbsender"
+        Me.rtbAbsender.Size = New System.Drawing.Size(526, 38)
+        Me.rtbAbsender.TabIndex = 1
+        Me.rtbAbsender.Text = ""
+        '
+        'frmZollstopp
+        '
+        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(551, 626)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.rtbAbsender)
+        Me.Controls.Add(Me.btnOffnen)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.lbl1ZOLLSTOP)
+        Me.Controls.Add(Me.rtbKommentare)
+        Me.Controls.Add(Me.rtbEntladestelle)
+        Me.Controls.Add(Me.rtbZollstop)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmZollstopp"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Zollstop"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents rtbZollstop As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Friend WithEvents rtbEntladestelle As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Friend WithEvents rtbKommentare As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+    Friend WithEvents lbl1ZOLLSTOP As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents btnOffnen As Button
+    Friend WithEvents Label3 As Label
+    Friend WithEvents rtbAbsender As VERAG_PROG_ALLGEMEIN.MyRichTextBox
+End Class
--- a/Aviso/frmZollstopp.resx
+++ b/Aviso/frmZollstopp.resx
--- a/Aviso/frmZollstopp.vb
+++ b/Aviso/frmZollstopp.vb
@@ -0,0 +1,34 @@
+Public Class frmZollstopp
+
+    Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.SND = SND
+    End Sub
+
+    Private Sub frmZollstopp_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If SND Is Nothing Then Me.Close()
+        rtbAbsender.Text = SND.tblSnd_Absender
+        rtbEntladestelle.Text = SND.getEmpfaengerAdress()
+        rtbZollstop.Text = SND.getNCTSAdress()
+    End Sub
+
+    Private Sub btnOffnen_Click(sender As Object, e As EventArgs) Handles btnOffnen.Click
+        Me.Cursor = Cursors.WaitCursor
+
+        Try
+            Dim path = SDL.FormularManagerNEU.Zollstopp(rtbZollstop.Text, rtbEntladestelle.Text, rtbKommentare.Text, rtbAbsender.Text)
+            If path <> "" Then
+                    Process.Start(path)
+                End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = DefaultCursor
+    End Sub
+End Class
--- a/Gemeinsames/Gemeinsames.vbproj
+++ b/Gemeinsames/Gemeinsames.vbproj
@@ -164,6 +164,12 @@
    <Compile Include="subRptSendungenATA.vb">
      <SubType>Component</SubType>
    </Compile>
+    <Compile Include="subRptSendungenVorkosten.Designer.vb">
+      <DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="subRptSendungenVorkosten.vb">
+      <SubType>Component</SubType>
+    </Compile>
    <Compile Include="subRptSendungenZollpruefung.Designer.vb">
      <DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
    </Compile>
@@ -197,6 +203,9 @@
    <EmbeddedResource Include="subRptSendungenATA.resx">
      <DependentUpon>subRptSendungenATA.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="subRptSendungenVorkosten.resx">
+      <DependentUpon>subRptSendungenVorkosten.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="subRptSendungenZollpruefung.resx">
      <DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
    </EmbeddedResource>
@@ -269,6 +278,11 @@
  <ItemGroup>
    <None Include="Resources\IMEX.png" />
  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\AMB.png">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
       Other similar extension points exist, see Microsoft.Common.targets.
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -70,6 +70,16 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property AMB() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("AMB", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
        '''</summary>
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -118,6 +118,9 @@
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
  <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
--- a/Gemeinsames/Resources/AMB.png
+++ b/Gemeinsames/Resources/AMB.png
--- a/Gemeinsames/rptSendungen.vb
+++ b/Gemeinsames/rptSendungen.vb
@@ -6,6 +6,7 @@ Public Class rptSendungen
    Public imgPath As String
    Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
    Public HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) = Nothing
+    Public VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing

    Sub New()

@@ -16,12 +17,13 @@ Public Class rptSendungen

    End Sub

-    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling))
+    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung, HANDLING As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
        InitializeComponent()
        Me.VALUES = VALUES
        Me.imgPath = imgPath
        Me.ZOLLANMELDUNG = ZOLLANMELDUNG
        Me.HANDLING = HANDLING
+        Me.VORKOSTEN = VORKOSTEN
        init()
    End Sub

@@ -178,13 +180,17 @@ Public Class rptSendungen
            End If
        End If

-
-        If ZOLLANMELDUNG IsNot Nothing Then
-            Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
-            SubReport.Report = s
-        ElseIf HANDLING IsNot Nothing Then
-            Dim s = New subRptSendungenATA(HANDLING)
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+            Dim s = New subRptSendungenVorkosten(VORKOSTEN)
            SubReport.Report = s
+        Else
+            If ZOLLANMELDUNG IsNot Nothing Then
+                Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
+                SubReport.Report = s
+            ElseIf HANDLING IsNot Nothing Then
+                Dim s = New subRptSendungenATA(HANDLING)
+                SubReport.Report = s
+            End If
        End If

    End Sub
--- a/Gemeinsames/subRptSendungenVorkosten.Designer.vb
+++ b/Gemeinsames/subRptSendungenVorkosten.Designer.vb
@@ -0,0 +1,167 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subRptSendungenVorkosten
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptSendungenVorkosten))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirma, Me.txtLeistung, Me.txtPreis})
+        Me.Detail.Height = 0.1665355!
+        Me.Detail.Name = "Detail"
+        '
+        'txtFirma
+        '
+        Me.txtFirma.CanGrow = False
+        Me.txtFirma.Height = 0.1665355!
+        Me.txtFirma.Left = 0!
+        Me.txtFirma.Name = "txtFirma"
+        Me.txtFirma.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.txtFirma.Text = "Firma"
+        Me.txtFirma.Top = 0!
+        Me.txtFirma.Width = 1.46063!
+        '
+        'txtLeistung
+        '
+        Me.txtLeistung.CanGrow = False
+        Me.txtLeistung.Height = 0.1665355!
+        Me.txtLeistung.Left = 1.46063!
+        Me.txtLeistung.Name = "txtLeistung"
+        Me.txtLeistung.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.txtLeistung.Text = "Leistung"
+        Me.txtLeistung.Top = 0!
+        Me.txtLeistung.Width = 1.527559!
+        '
+        'txtPreis
+        '
+        Me.txtPreis.CanGrow = False
+        Me.txtPreis.Height = 0.1665355!
+        Me.txtPreis.Left = 2.98819!
+        Me.txtPreis.Name = "txtPreis"
+        Me.txtPreis.Style = "font-size: 9pt; text-align: right; ddo-char-set: 1"
+        Me.txtPreis.Text = "Preis"
+        Me.txtPreis.Top = 0!
+        Me.txtPreis.Width = 0.9228347!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox10, Me.TextBox11, Me.TextBox12, Me.TextBox1})
+        Me.GroupHeader1.Height = 0.4791666!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'TextBox10
+        '
+        Me.TextBox10.CanGrow = False
+        Me.TextBox10.Height = 0.1456693!
+        Me.TextBox10.Left = 0!
+        Me.TextBox10.Name = "TextBox10"
+        Me.TextBox10.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.TextBox10.Text = "Firma"
+        Me.TextBox10.Top = 0.2862205!
+        Me.TextBox10.Width = 1.46063!
+        '
+        'TextBox11
+        '
+        Me.TextBox11.CanGrow = False
+        Me.TextBox11.Height = 0.1456693!
+        Me.TextBox11.Left = 1.46063!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.TextBox11.Text = "Leistung"
+        Me.TextBox11.Top = 0.2862205!
+        Me.TextBox11.Width = 1.527559!
+        '
+        'TextBox12
+        '
+        Me.TextBox12.CanGrow = False
+        Me.TextBox12.Height = 0.1456693!
+        Me.TextBox12.Left = 2.988189!
+        Me.TextBox12.Name = "TextBox12"
+        Me.TextBox12.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.TextBox12.Text = "Preis"
+        Me.TextBox12.Top = 0.2862205!
+        Me.TextBox12.Width = 0.9228347!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.CanGrow = False
+        Me.TextBox1.Height = 0.2393701!
+        Me.TextBox1.Left = 0!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: left; text-decoration: underline;" &
+    " ddo-char-set: 1"
+        Me.TextBox1.Text = "Vorkosten"
+        Me.TextBox1.Top = 0!
+        Me.TextBox1.Width = 1.46063!
+        '
+        'subRptSendungenVorkosten
+        '
+        Me.MasterReport = False
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 4.03189!
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+End Class
--- a/Gemeinsames/subRptSendungenVorkosten.resx
+++ b/Gemeinsames/subRptSendungenVorkosten.resx
@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>
--- a/Gemeinsames/subRptSendungenVorkosten.vb
+++ b/Gemeinsames/subRptSendungenVorkosten.vb
@@ -0,0 +1,37 @@
+
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports System.Data
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class subRptSendungenVorkosten
+
+    Dim VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten) = Nothing
+
+    Sub New(VORKOSTEN As List(Of VERAG_PROG_ALLGEMEIN.cSendVorkosten))
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me.VORKOSTEN = VORKOSTEN
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+
+        txtFirma.Text = CStr(Me.Fields.Item("FIRMA").Value)
+        txtLeistung.Text = CStr(Me.Fields.Item("LEISTUNG").Value)
+        txtPreis.Text = CDbl(Me.Fields.Item("PREIS").Value).ToString("C2")
+
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        Dim dt As New DataTable
+        dt.Columns.Add("FIRMA", System.Type.GetType("System.String"))
+        dt.Columns.Add("LEISTUNG", System.Type.GetType("System.String"))
+        dt.Columns.Add("PREIS", System.Type.GetType("System.String"))
+        For Each s In VORKOSTEN
+            dt.Rows.Add({s.sndvk_Firma, s.sndvk_LeistungsBez, s.sndvk_Preis})
+        Next
+        Me.DataSource = dt
+    End Sub
+End Class