neu

2019-10-31 09:22:40 +01:00
parent 6ae299259e
commit 12f63bb4bc
41 changed files with 1078 additions and 278 deletions
--- a/AVISOUPDATER/AVISOUPDATER_Settings.txt
+++ b/AVISOUPDATER/AVISOUPDATER_Settings.txt
@@ -6,4 +6,4 @@ F:\Programme\AVISO\
 172.16.1.**|\\172.16.1.100\f\PROGRAMME\AVISO
 192.168.32.**|\\192.168.32.253\Files\Programme\AVISO
 192.168.100.**|\\192.168.100.11\Daten\Programme\AVISO
-10.4.3.**|\\10.4.3.17\VERAG gemeinsam\AVISO
+10.4.**|\\10.4.3.17\VERAG gemeinsam\AVISO
--- a/AVISOUPDATER/UPDATERfrm.vb
+++ b/AVISOUPDATER/UPDATERfrm.vb
@@ -51,6 +51,8 @@ Public Class UPDATERfrm
        If FIRMA = "ATILLA" Then F = F_ATILLA 'Sichere Verbindung


+        If F.Contains("10.4.3.17") Then buildConnectionUNISPED()
+
        'Falls Settings existiert, wird der Pfad daraus verwendet.
        ' F = System.IO.File.ReadAllLines(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")(0)
        '   F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER_Settings.txt")
@@ -163,7 +165,6 @@ Public Class UPDATERfrm
                getFByIP = F
            End If
        End If
-        If F.Contains("10.4.3.17") Then buildConnectionUNISPED()
    End Function


@@ -171,6 +172,14 @@ Public Class UPDATERfrm
        Try

            writeLine(RichTextBox, "UNISPED Netzwerkzugriff einrichten...")
+            'Dim netuse1 As New System.Diagnostics.ProcessStartInfo()
+
+            'netuse1.FileName = "C:\Windows\system32\net"
+            'netuse1.Arguments = "use \\10.4.3.17 /User:VERAG 1VerSub9#"
+            'netuse1.CreateNoWindow = True
+            'netuse1.WindowStyle = ProcessWindowStyle.Hidden
+            'System.Diagnostics.Process.Start(netuse1)
+
            Dim netuse As New System.Diagnostics.ProcessStartInfo()

            netuse.FileName = "C:\Windows\system32\net"
--- a/Aviso/Anhänge/frmAddSendnung.vb
+++ b/Aviso/Anhänge/frmAddSendnung.vb
@@ -3,6 +3,7 @@
    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim AvisoId As Integer
+    Public SendungsId As Integer = -1
    Sub New(AvisoId)

        ' Dieser Aufruf ist für den Designer erforderlich.
@@ -30,6 +31,7 @@
            Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text

            If Sendung.SAVE Then
+                SendungsId = Sendung.tblSnd_SendungID
                Me.DialogResult = DialogResult.OK
            Else
                Me.DialogResult = DialogResult.None
--- a/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.Designer.vb
@@ -126,6 +126,7 @@ Partial Class frmSendungAnhangImport
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.flpnlSendungen.AutoScroll = True
        Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.flpnlSendungen.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
        Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 62)
        Me.flpnlSendungen.Name = "flpnlSendungen"
        Me.flpnlSendungen.Size = New System.Drawing.Size(230, 731)
--- a/Aviso/Anhänge/frmSendungAnhangImport.vb
+++ b/Aviso/Anhänge/frmSendungAnhangImport.vb
@@ -154,6 +154,7 @@ Public Class frmSendungAnhangImport
        Dim cntl = getAcitveCntl()
        Dim cntlID = If(cntl IsNot Nothing, getAcitveCntl().FILE_ANHID, -1)

+
        For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
            If u.ACTIVE Then
                If u.FILE_TYPE <> "PDF" Then Exit Sub
@@ -203,7 +204,7 @@ Public Class frmSendungAnhangImport
        clearPnlAnfuegen()
        '   initSendungen()

-        initFlpANH_LIST()
+        initFlpANH_LIST(, False)

        If flpnlAviso.Controls.Count > 0 Then
            If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
@@ -270,6 +271,8 @@ Public Class frmSendungAnhangImport

                If cbxDelPDF.Checked Then
                    ANH.anh_SendungsId = SendngsId
+                    ANH.anh_Name = getPDFSplitName(ANH.anh_Name)
+
                    ANH.SAVE() 'Eintrag wird überschreiben
                    flpnlAviso.Controls.Remove(u)
                    ' If cbxDelPDF.Checked Then tryDelete(u.FILE_PATH)
@@ -740,7 +743,13 @@ Public Class frmSendungAnhangImport

    End Sub

-    Sub initFlpANH_LIST(Optional pnl As FlowLayoutPanel = Nothing)
+    Sub initFlpANH_LIST(Optional pnl As FlowLayoutPanel = Nothing, Optional keepActive As Boolean = True)
+        Dim aktiveId = -1
+        For Each i As usrCntlSendungAnhangElement In flpnlAviso.Controls
+            If i.ACTIVE Then
+                aktiveId = i.FILE_ANHID
+            End If
+        Next
        Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
        'If cboSendungen._value > 0 Then
        '    VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST, cboSendungen._value) 'LÄDT alle Aviso-Anhänge
@@ -762,6 +771,12 @@ Public Class frmSendungAnhangImport
            USRCNTL.FILE_ANHID = a.anh_id
            USRCNTL.FILE_DOCID = a.anh_docId

+            If keepActive Then
+                If a.anh_id = aktiveId Then
+                    USRCNTL.ACTIVE = True
+                End If
+            End If
+
            initElement(USRCNTL)

            If If(a.anh_SendungsId, 0) > 0 Then
@@ -935,7 +950,7 @@ Public Class frmSendungAnhangImport
    End Function

    Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
-        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.sss"), "", fileName, -1, False)
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", fileName, -1, False)
        If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
        If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
        da_id = DS.da_id
@@ -952,9 +967,12 @@ Public Class frmSendungAnhangImport

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnAddSnd.Click
        Dim f As New frmAddSendnung(AvisoId)
-        f.ShowDialog(Me)
+        If f.ShowDialog(Me) = DialogResult.OK Then
            initSendungen()
-        initFlpANH_LIST()
+            cboSendungen.changeItem(f.SendungsId)
+            initFlpANH_LIST(flpnlSendungen)
+        End If
+        txtSeiten.Focus()
    End Sub

    Private Sub AusZwischenablageeinfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AusZwischenablageeinfügenToolStripMenuItem.Click
@@ -1008,6 +1026,7 @@ Public Class frmSendungAnhangImport
                End If
                If e.KeyCode = Keys.Add Then
                    btnAddSnd.PerformClick()
+                    e.IsInputKey = True ' Damit Event abgefangen ist, sonst steht "+" im Feld
                End If
            Else
                If e.KeyCode = Keys.PageDown Then
@@ -1048,7 +1067,7 @@ Public Class frmSendungAnhangImport
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        If txtSeiten.Text = "" Then Exit Sub
        '   If cboArt._value = "" Then Exit Sub
-        If cboSendungen._value = "" Then Exit Sub
+        ' If cboSendungen._value = "" Then Exit Sub
        If Not checkSeiten() Then Exit Sub

        Dim CurrentPageNumber = PdfViewer.CurrentPageNumber
@@ -1060,7 +1079,7 @@ Public Class frmSendungAnhangImport
            If u.ACTIVE Then
                If u.FILE_TYPE <> "PDF" Then Exit Sub
                Dim fi As New FileInfo(u.FILE_PATH)
-                Dim SendngsId As Integer = cboSendungen._value
+                '  Dim SendngsId As Integer = cboSendungen._value
                Dim TMP_Path_Old = u.FILE_PATH
                Dim TMP_Path_New = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(u.FILE_NAME, fi.Extension,, True, "SendungsAnhaenge")
                Dim PagesLeft = 0
@@ -1087,7 +1106,7 @@ Public Class frmSendungAnhangImport
        clearPnlAnfuegen()
        '   initSendungen()

-        initFlpANH_LIST()
+        initFlpANH_LIST(, False)

        If flpnlAviso.Controls.Count > 0 Then
            If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
@@ -1106,6 +1125,10 @@ Public Class frmSendungAnhangImport
        End If
    End Sub

+    Private Sub txtBezeichnung_TextChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
    'Private Sub txtBezeichnung_GotFocus(sender As Object, e As EventArgs) Handles txtBezeichnung.GotFocus
    '    txtBezeichnung.SelectAll()
    'End Sub
--- a/Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb
+++ b/Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb
@@ -26,8 +26,8 @@ Partial Class usrCntlSendungAnhangElement
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.lbl = New System.Windows.Forms.Label()
        Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.lbl = New System.Windows.Forms.Label()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.cntxt.SuspendLayout()
        Me.SuspendLayout()
@@ -41,7 +41,7 @@ Partial Class usrCntlSendungAnhangElement
        Me.pic.ContextMenuStrip = Me.cntxt
        Me.pic.Location = New System.Drawing.Point(3, 0)
        Me.pic.Name = "pic"
-        Me.pic.Size = New System.Drawing.Size(174, 43)
+        Me.pic.Size = New System.Drawing.Size(32, 27)
        Me.pic.TabIndex = 0
        Me.pic.TabStop = False
        '
@@ -49,32 +49,32 @@ Partial Class usrCntlSendungAnhangElement
        '
        Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem})
        Me.cntxt.Name = "cntxt"
-        Me.cntxt.Size = New System.Drawing.Size(181, 70)
+        Me.cntxt.Size = New System.Drawing.Size(147, 48)
        '
        'UmbenennenToolStripMenuItem
        '
        Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
-        Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
        Me.UmbenennenToolStripMenuItem.Text = "Umbenennen"
        '
+        'LöschenToolStripMenuItem
+        '
+        Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
+        Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
+        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
+        Me.LöschenToolStripMenuItem.Text = "Löschen"
+        '
        'lbl
        '
        Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lbl.ContextMenuStrip = Me.cntxt
-        Me.lbl.Location = New System.Drawing.Point(4, 46)
+        Me.lbl.Location = New System.Drawing.Point(36, 0)
        Me.lbl.Name = "lbl"
-        Me.lbl.Size = New System.Drawing.Size(173, 18)
+        Me.lbl.Size = New System.Drawing.Size(140, 27)
        Me.lbl.TabIndex = 1
        Me.lbl.Text = "NAME"
-        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        '
-        'LöschenToolStripMenuItem
-        '
-        Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
-        Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
-        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.LöschenToolStripMenuItem.Text = "Löschen"
+        Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'usrCntlSendungAnhangElement
        '
@@ -85,7 +85,7 @@ Partial Class usrCntlSendungAnhangElement
        Me.Controls.Add(Me.lbl)
        Me.Controls.Add(Me.pic)
        Me.Name = "usrCntlSendungAnhangElement"
-        Me.Size = New System.Drawing.Size(180, 64)
+        Me.Size = New System.Drawing.Size(180, 28)
        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
        Me.cntxt.ResumeLayout(False)
        Me.ResumeLayout(False)
--- a/Aviso/Aviso.vbproj
+++ b/Aviso/Aviso.vbproj
@@ -1134,6 +1134,15 @@
      <Isolated>False</Isolated>
      <EmbedInteropTypes>True</EmbedInteropTypes>
    </COMReference>
+    <COMReference Include="Therefore.API">
+      <Guid>{37687F89-8603-4E42-A5F4-4FBAB011D5F3}</Guid>
+      <VersionMajor>3</VersionMajor>
+      <VersionMinor>0</VersionMinor>
+      <Lcid>0</Lcid>
+      <WrapperTool>tlbimp</WrapperTool>
+      <Isolated>False</Isolated>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
+    </COMReference>
    <COMReference Include="VBIDE">
      <Guid>{0002E157-0000-0000-C000-000000000046}</Guid>
      <VersionMajor>5</VersionMajor>
--- a/Aviso/Classes/cSendungsoptions.vb
+++ b/Aviso/Classes/cSendungsoptions.vb
@@ -408,8 +408,13 @@ Public Class SendungOptions

                End Select
            End If
-            'MsgBox(imgpath)
-            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath)
+
+            Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+            If Not ZOLLANMELDUNG.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
+                ZOLLANMELDUNG = Nothing
+            End If
+
+            Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, ZOLLANMELDUNG)
            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.3.5.1")>
-<Assembly: AssemblyFileVersion("3.3.5.1")>
+<Assembly: AssemblyVersion("3.3.5.4")>
+<Assembly: AssemblyFileVersion("3.3.5.4")>
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -489,6 +489,15 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''</summary>
+        Friend ReadOnly Property hhhhh7hhhhhhhh() As String
+            Get
+                Return ResourceManager.GetString("hhhhh7hhhhhhhh", resourceCulture)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
@@ -1149,7 +1158,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 3.3.5.1 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 3.3.5.4 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -344,7 +344,7 @@
    <value>..\Resources\akt_ATILLA.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.3.5.1</value>
+    <value>3.3.5.4</value>
  </data>
  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -496,4 +496,7 @@
  <data name="dakosy_dy" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\dakosy_dy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="hhhhh7hhhhhhhh" xml:space="preserve">
+    <value />
+  </data>
 </root>
--- a/Aviso/Resources/IMEX.png
+++ b/Aviso/Resources/IMEX.png
--- a/Aviso/Resources/LEX.png
+++ b/Aviso/Resources/LEX.png
--- a/Aviso/Resources/NKD.png
+++ b/Aviso/Resources/NKD.png
--- a/Aviso/Resources/QS.png
+++ b/Aviso/Resources/QS.png
--- a/Aviso/Resources/SBG.png
+++ b/Aviso/Resources/SBG.png
--- a/Aviso/Resources/SUB.png
+++ b/Aviso/Resources/SUB.png
--- a/Aviso/Resources/UNISPED.png
+++ b/Aviso/Resources/UNISPED.png
--- a/Aviso/Resources/WAI.png
+++ b/Aviso/Resources/WAI.png
--- a/Aviso/frmHauptfenster.Designer.vb
+++ b/Aviso/frmHauptfenster.Designer.vb
@@ -71,6 +71,7 @@ Partial Class frmHauptfenster
        Me.UNISPEDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AMBARToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.NacherfassungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.VollständigesUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.LogoutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -253,7 +254,7 @@ Partial Class frmHauptfenster
        Me.BundesanzeigerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
-        Me.VollständigesUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.conMenuAviso.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.Top.SuspendLayout()
@@ -422,7 +423,7 @@ Partial Class frmHauptfenster
        '
        'AdministrationToolStripMenuItem
        '
-        Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem})
+        Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KdNrZuordnenToolStripMenuItem, Me.OptionenToolStripMenuItem1, Me.VorlagenUploadToolStripMenuItem, Me.BarcodeTestToolStripMenuItem, Me.TabellenToolStripMenuItem, Me.SMSTestToolStripMenuItem, Me.QSTeamsToolStripMenuItem, Me.LeereRechnungToolStripMenuItem, Me.EMAILTESTToolStripMenuItem, Me.FreigabeMailTestToolStripMenuItem, Me.SDLProgrammStartenToolStripMenuItem, Me.TESTToolStripMenuItem})
        Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
        Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
        Me.AdministrationToolStripMenuItem.Text = "Administration"
@@ -543,6 +544,12 @@ Partial Class frmHauptfenster
        Me.NacherfassungToolStripMenuItem.Text = "Nacherfassung"
        Me.NacherfassungToolStripMenuItem.Visible = False
        '
+        'VollständigesUpdateToolStripMenuItem
+        '
+        Me.VollständigesUpdateToolStripMenuItem.Name = "VollständigesUpdateToolStripMenuItem"
+        Me.VollständigesUpdateToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
+        Me.VollständigesUpdateToolStripMenuItem.Text = "Vollständiges Update"
+        '
        'UpdateToolStripMenuItem
        '
        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
@@ -2413,11 +2420,11 @@ Partial Class frmHauptfenster
        Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
        Me.UsrCntlTestsystem1.TabIndex = 8
        '
-        'VollständigesUpdateToolStripMenuItem
+        'TESTToolStripMenuItem
        '
-        Me.VollständigesUpdateToolStripMenuItem.Name = "VollständigesUpdateToolStripMenuItem"
-        Me.VollständigesUpdateToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
-        Me.VollständigesUpdateToolStripMenuItem.Text = "Vollständiges Update"
+        Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
+        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(193, 22)
+        Me.TESTToolStripMenuItem.Text = "TEST"
        '
        'frmHauptfenster
        '
@@ -2707,4 +2714,5 @@ Partial Class frmHauptfenster
    Friend WithEvents UNISPEDToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents AMBARToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents VollständigesUpdateToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TESTToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/Aviso/frmHauptfenster.vb
+++ b/Aviso/frmHauptfenster.vb
@@ -2697,6 +2697,21 @@ Public Class frmHauptfenster
    Private Sub VollständigesUpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollständigesUpdateToolStripMenuItem.Click
        frmLogin.UpdateAVISO(True)
    End Sub
+
+    Private Sub ZollvollmachtDEFiskalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtDEFiskalToolStripMenuItem.Click
+        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DE_Fiskal)
+
+    End Sub
+
+    Private Sub ZollvollmachtATEVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZollvollmachtATEVToolStripMenuItem.Click
+        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.AT_Vollmacht_EV)
+    End Sub
+
+    Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
+
+        VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
+
+    End Sub
 End Class

 Public Class AvisoStatusFunctions
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -24,12 +24,12 @@ Partial Class frmSendungsdetailsNEU
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -89,6 +89,7 @@ Partial Class frmSendungsdetailsNEU
        Me.EMailAnfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel19 = New System.Windows.Forms.Panel()
+        Me.Button23 = New System.Windows.Forms.Button()
        Me.Button22 = New System.Windows.Forms.Button()
        Me.Button20 = New System.Windows.Forms.Button()
        Me.Button19 = New System.Windows.Forms.Button()
@@ -98,6 +99,7 @@ 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.cbx = New System.Windows.Forms.CheckBox()
        Me.txtWarenwertWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.Label33 = New System.Windows.Forms.Label()
        Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -305,7 +307,6 @@ Partial Class frmSendungsdetailsNEU
        Me.LaufzettelDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem15 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Button23 = New System.Windows.Forms.Button()
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
        Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -972,44 +973,44 @@ Partial Class frmSendungsdetailsNEU
        Me.gridVermerke.AllowUserToAddRows = False
        Me.gridVermerke.AllowUserToDeleteRows = False
        Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
        Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle3
        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
        Me.gridVermerke.MultiSelect = False
        Me.gridVermerke.Name = "gridVermerke"
        Me.gridVermerke.ReadOnly = True
-        DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
        Me.gridVermerke.RowHeadersVisible = False
        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle5
        Me.gridVermerke.RowTemplate.Height = 20
        Me.gridVermerke.RowTemplate.ReadOnly = True
        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1040,14 +1041,14 @@ Partial Class frmSendungsdetailsNEU
        Me.dgvAnhang.AllowUserToResizeRows = False
        Me.dgvAnhang.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvAnhang.ContextMenuStrip = Me.cntxtAnh
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvAnhang.DefaultCellStyle = DataGridViewCellStyle6
        Me.dgvAnhang.Dock = System.Windows.Forms.DockStyle.Fill
        Me.dgvAnhang.Location = New System.Drawing.Point(0, 45)
        Me.dgvAnhang.Name = "dgvAnhang"
@@ -1098,6 +1099,19 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel19.Size = New System.Drawing.Size(1104, 45)
        Me.Panel19.TabIndex = 0
        '
+        'Button23
+        '
+        Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button23.Image = Global.AVISO.My.Resources.Resources.pdf11
+        Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button23.Location = New System.Drawing.Point(322, 5)
+        Me.Button23.Name = "Button23"
+        Me.Button23.Size = New System.Drawing.Size(156, 34)
+        Me.Button23.TabIndex = 5
+        Me.Button23.Text = "PDF zusammenführen"
+        Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button23.UseVisualStyleBackColor = True
+        '
        'Button22
        '
        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1201,6 +1215,7 @@ Partial Class frmSendungsdetailsNEU
        '
        'TabPage4
        '
+        Me.TabPage4.Controls.Add(Me.cbx)
        Me.TabPage4.Controls.Add(Me.txtWarenwertWaehrung)
        Me.TabPage4.Controls.Add(Me.Label33)
        Me.TabPage4.Controls.Add(Me.txtWarenwert)
@@ -1234,6 +1249,17 @@ Partial Class frmSendungsdetailsNEU
        Me.TabPage4.Text = "Aktendeckel"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
+        '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 = 25
+        Me.cbx.Text = "Laufz."
+        Me.cbx.UseVisualStyleBackColor = True
+        Me.cbx.Visible = False
+        '
        'txtWarenwertWaehrung
        '
        Me.txtWarenwertWaehrung._allowFreitext = False
@@ -3968,24 +3994,11 @@ Partial Class frmSendungsdetailsNEU
        Me.ToolStripMenuItem15.Size = New System.Drawing.Size(170, 22)
        Me.ToolStripMenuItem15.Text = "Fremdspeditionen"
        '
-        'Button23
-        '
-        Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button23.Image = Global.AVISO.My.Resources.Resources.pdf11
-        Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button23.Location = New System.Drawing.Point(322, 5)
-        Me.Button23.Name = "Button23"
-        Me.Button23.Size = New System.Drawing.Size(156, 34)
-        Me.Button23.TabIndex = 5
-        Me.Button23.Text = "PDF zusammenführen"
-        Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button23.UseVisualStyleBackColor = True
-        '
        'ContextMenuStrip2
        '
        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem14, Me.NurÖffnenToolStripMenuItem})
        Me.ContextMenuStrip2.Name = "cntxtAnh"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(248, 70)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(248, 48)
        Me.ContextMenuStrip2.Text = "nur öffnen"
        '
        'ToolStripMenuItem14
@@ -4363,4 +4376,5 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
    Friend WithEvents ToolStripMenuItem14 As ToolStripMenuItem
    Friend WithEvents NurÖffnenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents cbx As CheckBox
 End Class
--- a/Aviso/frmSendungsdetailsNEU.resx
+++ b/Aviso/frmSendungsdetailsNEU.resx
@@ -117,9 +117,6 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
-  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>296, 17</value>
-  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
@@ -484,9 +481,6 @@
  <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>174, 17</value>
  </metadata>
-  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>404, 17</value>
-  </metadata>
  <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>596, 17</value>
  </metadata>
@@ -498,136 +492,136 @@
  </metadata>
  <data name="ToolStripMenuItem14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAORUlEQVRoQ9VaCVhVR5oVIoui
-        yXR3dIyyiHFpE5eGMSpxAWLcAtFJNOkYl9g9PS5jN7ZmYquJJtGIG6BIUBFEccOobVyiaTWdiGJIu7AI
-        AeWxIzvI9tgfnj5/8R5B8oxPoTPfnO8736u6t6ruf6rq/6tu3dfhUWBjY/OUs7Oz65AhQ0YNHjz4xTZQ
-        1Zd2nJycXLt162arf8QjA4DiI2GMq6snK6GerNbpFGsaG3/EWiOsu3cPdS1+axoaUF1fj1q2kVtYiOXL
-        l4foH/NIaCnEjOxIdnoArUkrssNwF5f/qaAR6fn50Ny5o5iSk9PM1FZMMzA3F+mtmMq6yRkZSEhORhrT
-        9RS1KyjoCh8j9piMZiE9LSyGxvTvn57Qt2/2PxwdNVGOvTWRDr01EQ4Omr/b22vO2dlqztraav7avfvt
-        M46ORddHj0bkyJH4ZvhwnH9hGM4M+w+ccHbGUScnhA8din1DhiJk8GDsHPQ8Ap5/Hn4DB2LTr38N7wED
-        sKZ/f6zu1w8rn30Wy/r0wVJHR3g98wyWOtjjs717UUExwcHBX+ttNAnNQhwtLT3wwgvAxIlNHPcy8NJL
-        gJsb4DoWcGf6N78BfvlLlNrYIJ51E6ysEN+tO66YmePvzH9JniRPmZnhCwsLHOLvDuYDyE3kFvJT0ofc
-        QH5Cfqznu+SbZHBAAM5+/TVqamrg7+9/Xm/nQ9EspHfHjtMxZAjg6YmGqf+JOg8P1EyeDC1FlY8fj5IR
-        I1AybRoqd+9GXVQUtCdOIJUjktCzJ3JWrULpyZPQfnsFWWvXIOLfe+ALtn1t8itIXrMGyevWIZP1IqdM
-        wX5eD+/aFQfYGWHW1gi1tERYx45K5DtkCIWcunAB169fp13A2rVr2T8Pxw9CLCymNYqQCRNQRwE1NL7q
-        5ZdR+dI4lLm7oaB3b5StWKEa19292/RbVgbNK6+gNi1N5euLitRvA++foYE3Fy9WeQMS/XwRyGeG2XTB
-        7s6dEUwhO1kuiEI26oXs3bEDFyIjEcXOamAgEHzyyScPHRkWax6R1+s4p0EBNRwFEaEdNw7l7u646+aK
-        PAcHlK1erRpOpajbtr1UOs/XF/cqKpAfFqZG4eZbb6nrms2b8f2776r0kV/9SgnYR+MP/eIXCOtio4Ts
-        srLGjhZC5pD7d+1CxNWruHLliqpbwbYFH3300Vm9zUbBIk1CHCikio6JcS9BO2E8KvkrIkrpI8VjxyLH
-        3h53339fNZo7bx7y9aOTvWIlGvmwouPHlZ/wadAmJqIsPh5JeuGZ4eHIOnIE59kxwby/l9Nqd6dOFGKF
-        HfSloCc6Kp8RIQeCgxF54wYuX76s6grKy8vVL6fZOb3dPwJv/yCk/LnnoKPx5RyNMr2IEoooHD0G2ba2
-        KFn2nmrQgJKDhxDLiCMo+vxzJeQMWXEzXglJWL5c3TMgauFC5ewGIUHNQp5QQmaTIiQqLg7fffedvtb9
-        8Pb2NuozvNUkxJ5CShgia2l4KUWUuLqqkShkmM0bNQoZdOpi/SgU0yE1vH+dUyKGIVSQExKMz9heFAOA
-        QLPFDzeXLFHpE6y7W4zkdNr/1FPYw98QaxFiie0UspNC1uuFHAoJwQ2OqPjIHa4rqampSE9PRz7XrNLS
-        UtVeSEjIj8TwcpMQOwrJZ5yvouFFNFIE5FNA3osvIsfFBak9eqDw/ZWqobRJk3CddaPt7BDLdeMenbI2
-        Lw+FHBUDTnbpggS98BMsJ0L2cyT2PdkVoS0cPZCdcZ8QRrfb2dm4ePEiNm7ciPnz52MhR3IJO+WDDz7A
-        1q1bkUihrUeGj2kSYksh2VykKiigwNUNeWPGIJfpHIrJdnkRqX37InfuXNRy/qZNnYqbXLxiWT6G07GY
-        819XXMywVY+CI0dxkYteONuOnT8PxVwTTtO/wtnzh598EgcpUJx+j7UVQvSOvtvcHJtZfhYZHhqqdgdX
-        6fAHDx7Epk2bsGHDBqxhGF+5cqUSJAyn37399ttheh0/COHUmn6XBui4XlSMdEEZV+xSLpB3hw1DEVft
-        Ql7P4Yqcxl7VcDrF9X0W0YxeV+k7F2nIV2xLHP0YeZw9/AWj0yEauov5/fSFMAoJfsIcO8w6qAjmT/qR
-        IkAWyFXkW6QIyeSeK54+JqNy+vRpHGcgOXbsGI4ePYoj7DQRsYvR7fDhwxg0aBCrsaJBSM+OHV+9Qce9
-        6dgbUeztb9mLV8jLnBYR5Dc0+CvO9b890wOnueAde/ppHGZYPUCDQ7nABbGXA0l/CvXpbIMNTK+lgNXs
-        8ZUUsYy/f+bzFjP0enXvhvm89nvm55IyEr8l3yZP0ch8Rqk0rk1xdPpr164pfxFKABBKaBaR4j9eXl4H
-        7xPCHZptZzOzN8lFei40sNMPXMA67wzq2zf8AJ1y+5Yt+JTriIEBLenji20+PtjG9DZfH/hzXQkIDMRW
-        b2+sn/Ym/D78EP6Bn2Iry/hx+mzh/UNcixI4EkVcWMW5MzMzlbEajUYxJSVFUdK3bt2CjjvmVatWnbhP
-        CPEEaU7KDld2uq0p1y3JDi+4uPyxjLVSOQWSuYMValowxUAGgFQ902hYFnfMV5etxPXVHyPx7JfI5PqT
-        znvCDN7PY1QSESX0t2KykO2LoDzeb8lctp1DPxJwbeH27n4hJmPs2LF/kEbq6upQVVVlEuWdpZJGaub+
-        N6qKilFNEVqyZRmtVqtW8jJufSTUCu9yu9OaJSUligIGgscXMmbMmPnSSHV1tXqwKdRyNEpuJ+PWnP9C
-        eV4+KmhsJY1vXU5WcVMp2Lx58+MLGT169AJpRHrR2AOMsYKjV8oF7tbvGJKjY1AUE4tKjpKxssLWAo1R
-        4OPj06YRUULknaGystIkajl6VXy9TV7wJ2QFbEfB+QuoYRvGyppKwc8upJLzv451Uv78v4gf8zIK/nYe
-        tcwbLWsiBe0ipLa2VjmoqZS3i5zg3Yjic4suXlLCjJUzlQJfX9/HF8KopYTIQYE4vKkUw8vjv0es3bOo
-        0KSovLFyplLg5+f3fyOkMj0DN/6tB0q/5Rsg89UMGMbKmkJBuwiRV1HxE5Oof3B+0G5c5nMzljXtjGs4
-        PY2WN4GCdhEiWwTxE5PIsvdYJ2mUO7JWrEbSK1NQcSMajbxWS6OM1nkIBVu2bPl5hYjBZRGXEPOMvVRF
-        9sdrkTjaXaXrHqVDWlDQLkIa5eiTC93DWEsKUqb9Fpqp01VaRuemA99x1m1Q+Tr6m7G6P0UBX7QeX4ir
-        q6sSco8LnDj8wyhGV6emIbZbT1RyVZe8oIrv9jfMO+PuiVMq38COqaeBxtowRoG/v//PJER/NpXCrXvy
-        ZHX2jXpdgxoBQdnZc7jRwQoFIXtVXkSKdB1/W7OBU7ClUEG7CBFI5PopCqq/T0Ts0z1RnZik8g00QowS
-        4wS1GZlIdpuIjD8sRN3dpgMGJYirdy238nXcYOo4WgZIut2FiMM/kBwxQfIkD6TNekelDdNKoKMxVYm3
-        UJ2SiqJdobhGe+Lt+iDZdQKS3Sch9+N1ipnzFiF9xjvqt3BnMHR0dIOsbdu2/euFCMq5OYzr5YBG/Zai
-        Ouk2yr48h6I9+5Dv648C2UBu/VTltfSZyuvRyPrjEiTY9cVtFzfkb/SFln5VV1CoRBf4B6LiUqRqS9Bu
-        QiRyGaOh5xMHOyNn1YcqXRFxGeXnLqCcflEVHYt6viQ9CI119SjZdxB3vN7FnaV/QSEFlB4/AS2FNlRU
-        NrffJiFubm7NQsThW7IlCtZvQtJzQ1W6vrAIjdyOtIbUaN1G63Z09BXtP66h8psI5H20DtrIKP0dICAg
-        oP2FCOSh9xp0aCgoQHz3XtC2mAYPMvon2VS1GfX5BajnG6YB7S5EUM1hL/u8aU1IcR+PO4uaPiu0FqCu
-        tcgbrgmMXW+dFxjSjFrHxSYm2ybEgPLjJ5Hzp6UqXbTZD7efc1Lp1hD/kTMqw+GBAREREYotIYcPcihn
-        WMWNITQ0VH07YbLtQipOnUHaxFdVWnvpChJ7OKL+TtNxTWvIORWbkINo/ZUmTJ8+HW+88YY+1wQ5bezV
-        q1fz4bUx7N279yuxicm2CWkoKkbaeE80yuLFBS+xm70S8yDI0SebkA83Ki+9ffbsWbi7u+N9/fcXb29v
-        dRAn51p8G8X27dubR0uOiuQcWA7oBHv27GmfESk9fJRTagkjyiVoho2C9uv7p0drLF26FJ6enpg3b57K
-        L168GP369YO9vb1MEwQGBsKhtwOmTJmC2NhYjBgxAhMmTICdnR2ys7PVgfbkyZPVCArCwsK+EJuYbJsQ
-        QU1sHAp9tqI+N09/5cGYOnWqOmWfM2eOOtd1dnZWb3syQpMmTYKHp4cqt2DBAmXs66+/rvKLFi3C8OHD
-        4enhqU7q+/Tpo45O6W8XaZI5i7RdiKmQ487+/ftj7ty5GDhwoPrW4eHRZLiPjw+cnJya/WTFihVqJGbN
-        nqXyIlRGRYTt3LkT69evV9cPHDhwSmxi8ucTIp8ChsiXY+K1115TvSxTSHxEfme8NUNdj4yMxIwZM5TP
-        DBgwANHR0Wokvby81LTKyspSbQjauo4sVK08IoKCguSNTqXF6UWYfCIQI+WrlKRjYmKUg0uvy5HPsr8s
-        w+zZs/Hee03fL+VbycSJE1UAELDc44/IyJEjfy/baDkRz8zM1JnCjIwMHXtSx/VDl5aWpisuLtaxPjcC
-        lTpGKHW9oKBAV1NTo0tISFD3Se41tTr6go4RTMcwrGOU0yUlJeni4uLUrpQR7DOx6XGEyKeH3mZmZq+S
-        s/Sc+TCyzkwrKytFSVtYWKi0ubn5TBsbm5nW1tbqmtzr2rXrTEtLS1VPysj9Tp06qXtSvkuXLrOYn838
-        G6QTaf04QuQ7ivyLSH47kzb/Yv7UMyxIscWiWYgh8f+b6PBPc+AVlMB2VU0AAAAASUVORK5CYII=
+        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAA5FSURBVGhD1VoJWFVHmhUii6LJdHd0jLKIcWkTl4Yx
+        KnEBYtwC0Uk06RiX2D09LmM3tmZiq4km0YgboEhQEURxw6htXKJpNZ2IYki7sAgB5bEjO8j22B+ePn/x
+        HkHyjE+hM9+c7zvfq7q3qu5/qur/q27d1+FRYGNj85Szs7PrkCFDRg0ePPjFNlDVl3acnJxcu3XrZqt/
+        xCMDgOIjYYyrqycroZ6s1ukUaxobf8RaI6y7dw91LX5rGhpQXV+PWraRW1iI5cuXh+gf80hoKcSM7Eh2
+        egCtSSuyw3AXl/+poBHp+fnQ3LmjmJKT08zUVkwzMDcX6a2YyrrJGRlISE5GGtP1FLUrKOgKHyP2mIxm
+        IT0tLIbG9O+fntC3b/Y/HB01UY69NZEOvTURDg6av9vba87Z2WrO2tpq/tq9++0zjo5F10ePRuTIkfhm
+        +HCcf2EYzgz7D5xwdsZRJyeEDx2KfUOGImTwYOwc9DwCnn8efgMHYtOvfw3vAQOwpn9/rO7XDyuffRbL
+        +vTBUkdHeD3zDJY62OOzvXtRQTHBwcFf6200Cc1CHC0tPfDCC8DEiU0c9zLw0kuAmxvgOhZwZ/o3vwF+
+        +UuU2tggnnUTrKwQ3607rpiZ4+/Mf0meJE+ZmeELCwsc4u8O5gPITeQW8lPSh9xAfkJ+rOe75JtkcEAA
+        zn79NWpqauDv739eb+dD0Sykd8eO0zFkCODpiYap/4k6Dw/UTJ4MLUWVjx+PkhEjUDJtGip370ZdVBS0
+        J04glSOS0LMnclatQunJk9B+ewVZa9cg4t974Au2fW3yK0heswbJ69Yhk/Uip0zBfl4P79oVB9gZYdbW
+        CLW0RFjHjkrkO2QIhZy6cAHXr1+nXcDatWvZPw/HD0IsLKY1ipAJE1BHATU0vurll1H50jiUubuhoHdv
+        lK1YoRrX3b3b9FtWBs0rr6A2LU3l64uK1G8D75+hgTcXL1Z5AxL9fBHIZ4bZdMHuzp0RTCE7WS6IQjbq
+        hezdsQMXIiMRxc5qYCAQfPLJJw8dGRZrHpHX6zinQQE1HAURoR03DuXu7rjr5oo8BweUrV6tGk6lqNu2
+        vVQ6z9cX9yoqkB8Wpkbh5ltvqeuazZvx/bvvqvSRX/1KCdhH4w/94hcI62KjhOyyssaOFkLmkPt37ULE
+        1au4cuWKqlvBtgUfffTRWb3NRsEiTUIcKKSKjolxL0E7YTwq+SsiSukjxWPHIsfeHnfff181mjtvHvL1
+        o5O9YiUa+bCi48eVn/Bp0CYmoiw+Hkl64Znh4cg6cgTn2THBvL+X02p3p04UYoUd9KWgJzoqnxEhB4KD
+        EXnjBi5fvqzqCsrLy9Uvp9k5vd0/Am//IKT8ueego/HlHI0yvYgSiigcPQbZtrYoWfaeatCAkoOHEMuI
+        Iyj6/HMl5AxZcTNeCUlYvlzdMyBq4ULl7AYhQc1CnlBCZpMiJCouDt99952+1v3w9vY26jO81STEnkJK
+        GCJraXgpRZS4uqqRKGSYzRs1Chl06mL9KBTTITW8f51TIoYhVJATEozP2F4UA4BAs8UPN5csUekTrLtb
+        jOR02v/UU9jD3xBrEWKJ7RSyk0LW64UcCgnBDY6o+MgdriupqalIT09HPtes0tJS1V5ISMiPxPBykxA7
+        CslnnK+i4UU0UgTkU0Deiy8ix8UFqT16oPD9laqhtEmTcJ11o+3sEMt14x6dsjYvD4UcFQNOdumCBL3w
+        EywnQvZzJPY92RWhLRw9kJ1xnxBGt9vZ2bh48SI2btyI+fPnYyFHcgk75YMPPsDWrVuRSKGtR4aPaRJi
+        SyHZXKQqKKDA1Q15Y8Ygl+kcisl2eRGpffsid+5c1HL+pk2diptcvGJZPobTsZjzX1dczLBVj4IjR3GR
+        i144246dPw/FXBNO07/C2fOHn3wSBylQnH6PtRVC9I6+29wcm1l+FhkeGqp2B1fp8AcPHsSmTZuwYcMG
+        rGEYX7lypRIkDKffvf3222F6HT8I4dSafpcG6LheVIx0QRlX7FIukHeHDUMRV+1CXs/hipzGXtVwOsX1
+        fRbRjF5X6TsXachXbEsc/Rh5nD38BaPTIRq6i/n99IUwCgl+whw7zDqoCOZP+pEiQBbIVeRbpAjJ5J4r
+        nj4mo3L69GkcZyA5duwYjh49iiPsNBGxi9Ht8OHDGDRoEKuxokFIz44dX71Bx73p2BtR7O1v2YtXyMuc
+        FhHkNzT4K871vz3TA6e54B17+mkcZlg9QINDucAFsZcDSX8K9elsgw1Mr6WA1ezxlRSxjL9/5vMWM/R6
+        de+G+bz2e+bnkjISvyXfJk/RyHxGqTSuTXF0+mvXril/EUoAEEpoFpHiP15eXgfvE8Idmm1nM7M3yUV6
+        LjSw0w9cwDrvDOrbN/wAnXL7li34lOuIgQEt6eOLbT4+2Mb0Nl8f+HNdCQgMxFZvb6yf9ib8PvwQ/oGf
+        YivL+HH6bOH9Q1yLEjgSRVxYxbkzMzOVsRqNRjElJUVR0rdu3YKOO+ZVq1aduE8I8QRpTsoOV3a6rSnX
+        LckOL7i4/LGMtVI5BZK5gxVqWjDFQAaAVD3TaFgWd8xXl63E9dUfI/Hsl8jk+pPOe8IM3s9jVBIRJfS3
+        YrKQ7YugPN5vyVy2nUM/EnBt4fbufiEmY+zYsX+QRurq6lBVVWUS5Z2lkkZq5v43qoqKUU0RWrJlGa1W
+        q1byMm59JNQK73K705olJSWKAgaCxxcyZsyY+dJIdXW1erAp1HI0Sm4n49ac/0J5Xj4qaGwljW9dTlZx
+        UynYvHnz4wsZPXr0AmlEetHYA4yxgqNXygXu1u8YkqNjUBQTi0qOkrGywtYCjVHg4+PTphFRQuSdobKy
+        0iRqOXpVfL1NXvAnZAVsR8H5C6hhG8bKmkrBzy6kkvO/jnVS/vy/iB/zMgr+dh61zBstayIF7SKktrZW
+        OaiplLeLnODdiOJziy5eUsKMlTOVAl9f38cXwqilhMhBgTi8qRTDy+O/R6zds6jQpKi8sXKmUuDn5/d/
+        I6QyPQM3/q0HSr/lGyDz1QwYxsqaQkG7CJFXUfETk6h/cH7QblzmczOWNe2Mazg9jZY3gYJ2ESJbBPET
+        k8iy91gnaZQ7slasRtIrU1BxIxqNvFZLo4zWeQgFW7Zs+XmFiMFlEZcQ84y9VEX2x2uRONpdpesepUNa
+        UNAuQhrl6JML3cNYSwpSpv0WmqnTVVpG56YD33HWbVD5Ovqbsbo/RQFftB5fiKurqxJyjwucOPzDKEZX
+        p6YhtltPVHJVl7ygiu/2N8w74+6JUyrfwI6pp4HG2jBGgb+//88kRH82lcKte/JkdfaNel2DGgFB2dlz
+        uNHBCgUhe1VeRIp0HX9bs4FTsKVQQbsIEUjk+ikKqr9PROzTPVGdmKTyDTRCjBLjBLUZmUh2m4iMPyxE
+        3d2mAwYliKt3Lbfyddxg6jhaBki63YWIwz+QHDFB8iQPpM16R6UN00qgozFVibdQnZKKol2huEZ74u36
+        INl1ApLdJyH343WKmfMWIX3GO+q3cGcwdHR0g6xt27b964UIyrk5jOvlgEb9lqI66TbKvjyHoj37kO/r
+        jwLZQG79VOW19JnK69HI+uMSJNj1xW0XN+Rv9IWWflVXUKhEF/gHouJSpGpL0G5CJHIZo6HnEwc7I2fV
+        hypdEXEZ5ecuoJx+URUdi3q+JD0IjXX1KNl3EHe83sWdpX9BIQWUHj8BLYU2VFQ2t98mIW5ubs1CxOFb
+        siUK1m9C0nNDVbq+sAiN3I60htRo3UbrdnT0Fe0/rqHymwjkfbQO2sgo/R0gICCg/YUI5KH3GnRoKChA
+        fPde0LaYBg8y+ifZVLUZ9fkFqOcbpgHtLkRQzWEv+7xpTUhxH487i5o+K7QWoK61yBuuCYxdb50XGNKM
+        WsfFJibbJsSA8uMnkfOnpSpdtNkPt59zUunWEP+RMyrD4YEBERERii0hhw9yKGdYxY0hNDRUfTthsu1C
+        Kk6dQdrEV1Vae+kKEns4ov5O03FNa8g5FZuQg2j9lSZMnz4db7zxhj7XBDlt7NWrV/PhtTHs3bv3K7GJ
+        ybYJaSgqRtp4TzTK4sUFL7GbvRLzIMjRJ5uQDzcqL7199uxZuLu743399xdvb291ECfnWnwbxfbt25tH
+        S46K5BxYDugEe/bsaZ8RKT18lFNqCSPKJWiGjYL26/unR2ssXboUnp6emDdvnsovXrwY/fr1g729vUwT
+        BAYGwqG3A6ZMmYLY2FiMGDECEyZMgJ2dHbKzs9WB9uTJk9UICsLCwr4Qm5hsmxBBTWwcCn22oj43T3/l
+        wZg6dao6ZZ8zZ44613V2dlZvezJCkyZNgoenhyq3YMECZezrr7+u8osWLcLw4cPh6eGpTur79Omjjk7p
+        bxdpkjmLtF2IqZDjzv79+2Pu3LkYOHCg+tbh4dFkuI+PD5ycnJr9ZMWKFWokZs2epfIiVEZFhO3cuRPr
+        169X1w8cOHBKbGLy5xMinwKGyJdj4rXXXlO9LFNIfER+Z7w1Q12PjIzEjBkzlM8MGDAA0dHRaiS9vLzU
+        tMrKylJtCNq6jixUrTwigoKC5I1OpcXpRZh8IhAj5auUpGNiYpSDS6/Lkc+yvyzD7Nmz8d57Td8v5VvJ
+        xIkTVQAQsNzjj8jIkSN/L9toORHPzMzUmcKMjAwde1LH9UOXlpamKy4u1rE+NwKVOkYodb2goEBXU1Oj
+        S0hIUPdJ7jW1OvqCjhFMxzCsY5TTJSUl6eLi4tSulBHsM7HpcYTIp4feZmZmr5Kz9Jz5MLLOTCsrK0VJ
+        W1hYqLS5uflMGxubmdbW1uqa3OvatetMS0tLVU/KyP1OnTqpe1K+S5cus5ifzfwbpBNp/ThC5DuK/ItI
+        fjuTNv9i/tQzLEixxaJZiCHx/5vo8E9z4BWUwHZVTQAAAABJRU5ErkJggg==
 </value>
  </data>
  <data name="NurÖffnenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
-        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAORUlEQVRoQ9VaCVhVR5oVIoui
-        yXR3dIyyiHFpE5eGMSpxAWLcAtFJNOkYl9g9PS5jN7ZmYquJJtGIG6BIUBFEccOobVyiaTWdiGJIu7AI
-        AeWxIzvI9tgfnj5/8R5B8oxPoTPfnO8736u6t6ruf6rq/6tu3dfhUWBjY/OUs7Oz65AhQ0YNHjz4xTZQ
-        1Zd2nJycXLt162arf8QjA4DiI2GMq6snK6GerNbpFGsaG3/EWiOsu3cPdS1+axoaUF1fj1q2kVtYiOXL
-        l4foH/NIaCnEjOxIdnoArUkrssNwF5f/qaAR6fn50Ny5o5iSk9PM1FZMMzA3F+mtmMq6yRkZSEhORhrT
-        9RS1KyjoCh8j9piMZiE9LSyGxvTvn57Qt2/2PxwdNVGOvTWRDr01EQ4Omr/b22vO2dlqztraav7avfvt
-        M46ORddHj0bkyJH4ZvhwnH9hGM4M+w+ccHbGUScnhA8din1DhiJk8GDsHPQ8Ap5/Hn4DB2LTr38N7wED
-        sKZ/f6zu1w8rn30Wy/r0wVJHR3g98wyWOtjjs717UUExwcHBX+ttNAnNQhwtLT3wwgvAxIlNHPcy8NJL
-        gJsb4DoWcGf6N78BfvlLlNrYIJ51E6ysEN+tO66YmePvzH9JniRPmZnhCwsLHOLvDuYDyE3kFvJT0ofc
-        QH5Cfqznu+SbZHBAAM5+/TVqamrg7+9/Xm/nQ9EspHfHjtMxZAjg6YmGqf+JOg8P1EyeDC1FlY8fj5IR
-        I1AybRoqd+9GXVQUtCdOIJUjktCzJ3JWrULpyZPQfnsFWWvXIOLfe+ALtn1t8itIXrMGyevWIZP1IqdM
-        wX5eD+/aFQfYGWHW1gi1tERYx45K5DtkCIWcunAB169fp13A2rVr2T8Pxw9CLCymNYqQCRNQRwE1NL7q
-        5ZdR+dI4lLm7oaB3b5StWKEa19292/RbVgbNK6+gNi1N5euLitRvA++foYE3Fy9WeQMS/XwRyGeG2XTB
-        7s6dEUwhO1kuiEI26oXs3bEDFyIjEcXOamAgEHzyyScPHRkWax6R1+s4p0EBNRwFEaEdNw7l7u646+aK
-        PAcHlK1erRpOpajbtr1UOs/XF/cqKpAfFqZG4eZbb6nrms2b8f2776r0kV/9SgnYR+MP/eIXCOtio4Ts
-        srLGjhZC5pD7d+1CxNWruHLliqpbwbYFH3300Vm9zUbBIk1CHCikio6JcS9BO2E8KvkrIkrpI8VjxyLH
-        3h53339fNZo7bx7y9aOTvWIlGvmwouPHlZ/wadAmJqIsPh5JeuGZ4eHIOnIE59kxwby/l9Nqd6dOFGKF
-        HfSloCc6Kp8RIQeCgxF54wYuX76s6grKy8vVL6fZOb3dPwJv/yCk/LnnoKPx5RyNMr2IEoooHD0G2ba2
-        KFn2nmrQgJKDhxDLiCMo+vxzJeQMWXEzXglJWL5c3TMgauFC5ewGIUHNQp5QQmaTIiQqLg7fffedvtb9
-        8Pb2NuozvNUkxJ5CShgia2l4KUWUuLqqkShkmM0bNQoZdOpi/SgU0yE1vH+dUyKGIVSQExKMz9heFAOA
-        QLPFDzeXLFHpE6y7W4zkdNr/1FPYw98QaxFiie0UspNC1uuFHAoJwQ2OqPjIHa4rqampSE9PRz7XrNLS
-        UtVeSEjIj8TwcpMQOwrJZ5yvouFFNFIE5FNA3osvIsfFBak9eqDw/ZWqobRJk3CddaPt7BDLdeMenbI2
-        Lw+FHBUDTnbpggS98BMsJ0L2cyT2PdkVoS0cPZCdcZ8QRrfb2dm4ePEiNm7ciPnz52MhR3IJO+WDDz7A
-        1q1bkUihrUeGj2kSYksh2VykKiigwNUNeWPGIJfpHIrJdnkRqX37InfuXNRy/qZNnYqbXLxiWT6G07GY
-        819XXMywVY+CI0dxkYteONuOnT8PxVwTTtO/wtnzh598EgcpUJx+j7UVQvSOvtvcHJtZfhYZHhqqdgdX
-        6fAHDx7Epk2bsGHDBqxhGF+5cqUSJAyn37399ttheh0/COHUmn6XBui4XlSMdEEZV+xSLpB3hw1DEVft
-        Ql7P4Yqcxl7VcDrF9X0W0YxeV+k7F2nIV2xLHP0YeZw9/AWj0yEauov5/fSFMAoJfsIcO8w6qAjmT/qR
-        IkAWyFXkW6QIyeSeK54+JqNy+vRpHGcgOXbsGI4ePYoj7DQRsYvR7fDhwxg0aBCrsaJBSM+OHV+9Qce9
-        6dgbUeztb9mLV8jLnBYR5Dc0+CvO9b890wOnueAde/ppHGZYPUCDQ7nABbGXA0l/CvXpbIMNTK+lgNXs
-        8ZUUsYy/f+bzFjP0enXvhvm89nvm55IyEr8l3yZP0ch8Rqk0rk1xdPpr164pfxFKABBKaBaR4j9eXl4H
-        7xPCHZptZzOzN8lFei40sNMPXMA67wzq2zf8AJ1y+5Yt+JTriIEBLenji20+PtjG9DZfH/hzXQkIDMRW
-        b2+sn/Ym/D78EP6Bn2Iry/hx+mzh/UNcixI4EkVcWMW5MzMzlbEajUYxJSVFUdK3bt2CjjvmVatWnbhP
-        CPEEaU7KDld2uq0p1y3JDi+4uPyxjLVSOQWSuYMValowxUAGgFQ902hYFnfMV5etxPXVHyPx7JfI5PqT
-        znvCDN7PY1QSESX0t2KykO2LoDzeb8lctp1DPxJwbeH27n4hJmPs2LF/kEbq6upQVVVlEuWdpZJGaub+
-        N6qKilFNEVqyZRmtVqtW8jJufSTUCu9yu9OaJSUligIGgscXMmbMmPnSSHV1tXqwKdRyNEpuJ+PWnP9C
-        eV4+KmhsJY1vXU5WcVMp2Lx58+MLGT169AJpRHrR2AOMsYKjV8oF7tbvGJKjY1AUE4tKjpKxssLWAo1R
-        4OPj06YRUULknaGystIkajl6VXy9TV7wJ2QFbEfB+QuoYRvGyppKwc8upJLzv451Uv78v4gf8zIK/nYe
-        tcwbLWsiBe0ipLa2VjmoqZS3i5zg3Yjic4suXlLCjJUzlQJfX9/HF8KopYTIQYE4vKkUw8vjv0es3bOo
-        0KSovLFyplLg5+f3fyOkMj0DN/6tB0q/5Rsg89UMGMbKmkJBuwiRV1HxE5Oof3B+0G5c5nMzljXtjGs4
-        PY2WN4GCdhEiWwTxE5PIsvdYJ2mUO7JWrEbSK1NQcSMajbxWS6OM1nkIBVu2bPl5hYjBZRGXEPOMvVRF
-        9sdrkTjaXaXrHqVDWlDQLkIa5eiTC93DWEsKUqb9Fpqp01VaRuemA99x1m1Q+Tr6m7G6P0UBX7QeX4ir
-        q6sSco8LnDj8wyhGV6emIbZbT1RyVZe8oIrv9jfMO+PuiVMq38COqaeBxtowRoG/v//PJER/NpXCrXvy
-        ZHX2jXpdgxoBQdnZc7jRwQoFIXtVXkSKdB1/W7OBU7ClUEG7CBFI5PopCqq/T0Ts0z1RnZik8g00QowS
-        4wS1GZlIdpuIjD8sRN3dpgMGJYirdy238nXcYOo4WgZIut2FiMM/kBwxQfIkD6TNekelDdNKoKMxVYm3
-        UJ2SiqJdobhGe+Lt+iDZdQKS3Sch9+N1ipnzFiF9xjvqt3BnMHR0dIOsbdu2/euFCMq5OYzr5YBG/Zai
-        Ouk2yr48h6I9+5Dv648C2UBu/VTltfSZyuvRyPrjEiTY9cVtFzfkb/SFln5VV1CoRBf4B6LiUqRqS9Bu
-        QiRyGaOh5xMHOyNn1YcqXRFxGeXnLqCcflEVHYt6viQ9CI119SjZdxB3vN7FnaV/QSEFlB4/AS2FNlRU
-        NrffJiFubm7NQsThW7IlCtZvQtJzQ1W6vrAIjdyOtIbUaN1G63Z09BXtP66h8psI5H20DtrIKP0dICAg
-        oP2FCOSh9xp0aCgoQHz3XtC2mAYPMvon2VS1GfX5BajnG6YB7S5EUM1hL/u8aU1IcR+PO4uaPiu0FqCu
-        tcgbrgmMXW+dFxjSjFrHxSYm2ybEgPLjJ5Hzp6UqXbTZD7efc1Lp1hD/kTMqw+GBAREREYotIYcPcihn
-        WMWNITQ0VH07YbLtQipOnUHaxFdVWnvpChJ7OKL+TtNxTWvIORWbkINo/ZUmTJ8+HW+88YY+1wQ5bezV
-        q1fz4bUx7N279yuxicm2CWkoKkbaeE80yuLFBS+xm70S8yDI0SebkA83Ki+9ffbsWbi7u+N9/fcXb29v
-        dRAn51p8G8X27dubR0uOiuQcWA7oBHv27GmfESk9fJRTagkjyiVoho2C9uv7p0drLF26FJ6enpg3b57K
-        L168GP369YO9vb1MEwQGBsKhtwOmTJmC2NhYjBgxAhMmTICdnR2ys7PVgfbkyZPVCArCwsK+EJuYbJsQ
-        QU1sHAp9tqI+N09/5cGYOnWqOmWfM2eOOtd1dnZWb3syQpMmTYKHp4cqt2DBAmXs66+/rvKLFi3C8OHD
-        4enhqU7q+/Tpo45O6W8XaZI5i7RdiKmQ487+/ftj7ty5GDhwoPrW4eHRZLiPjw+cnJya/WTFihVqJGbN
-        nqXyIlRGRYTt3LkT69evV9cPHDhwSmxi8ucTIp8ChsiXY+K1115TvSxTSHxEfme8NUNdj4yMxIwZM5TP
-        DBgwANHR0Wokvby81LTKyspSbQjauo4sVK08IoKCguSNTqXF6UWYfCIQI+WrlKRjYmKUg0uvy5HPsr8s
-        w+zZs/Hee03fL+VbycSJE1UAELDc44/IyJEjfy/baDkRz8zM1JnCjIwMHXtSx/VDl5aWpisuLtaxPjcC
-        lTpGKHW9oKBAV1NTo0tISFD3Se41tTr6go4RTMcwrGOU0yUlJeni4uLUrpQR7DOx6XGEyKeH3mZmZq+S
-        s/Sc+TCyzkwrKytFSVtYWKi0ubn5TBsbm5nW1tbqmtzr2rXrTEtLS1VPysj9Tp06qXtSvkuXLrOYn838
-        G6QTaf04QuQ7ivyLSH47kzb/Yv7UMyxIscWiWYgh8f+b6PBPc+AVlMB2VU0AAAAASUVORK5CYII=
+        iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAA5FSURBVGhD1VoJWFVHmhUii6LJdHd0jLKIcWkTl4Yx
+        KnEBYtwC0Uk06RiX2D09LmM3tmZiq4km0YgboEhQEURxw6htXKJpNZ2IYki7sAgB5bEjO8j22B+ePn/x
+        HkHyjE+hM9+c7zvfq7q3qu5/qur/q27d1+FRYGNj85Szs7PrkCFDRg0ePPjFNlDVl3acnJxcu3XrZqt/
+        xCMDgOIjYYyrqycroZ6s1ukUaxobf8RaI6y7dw91LX5rGhpQXV+PWraRW1iI5cuXh+gf80hoKcSM7Eh2
+        egCtSSuyw3AXl/+poBHp+fnQ3LmjmJKT08zUVkwzMDcX6a2YyrrJGRlISE5GGtP1FLUrKOgKHyP2mIxm
+        IT0tLIbG9O+fntC3b/Y/HB01UY69NZEOvTURDg6av9vba87Z2WrO2tpq/tq9++0zjo5F10ePRuTIkfhm
+        +HCcf2EYzgz7D5xwdsZRJyeEDx2KfUOGImTwYOwc9DwCnn8efgMHYtOvfw3vAQOwpn9/rO7XDyuffRbL
+        +vTBUkdHeD3zDJY62OOzvXtRQTHBwcFf6200Cc1CHC0tPfDCC8DEiU0c9zLw0kuAmxvgOhZwZ/o3vwF+
+        +UuU2tggnnUTrKwQ3607rpiZ4+/Mf0meJE+ZmeELCwsc4u8O5gPITeQW8lPSh9xAfkJ+rOe75JtkcEAA
+        zn79NWpqauDv739eb+dD0Sykd8eO0zFkCODpiYap/4k6Dw/UTJ4MLUWVjx+PkhEjUDJtGip370ZdVBS0
+        J04glSOS0LMnclatQunJk9B+ewVZa9cg4t974Au2fW3yK0heswbJ69Yhk/Uip0zBfl4P79oVB9gZYdbW
+        CLW0RFjHjkrkO2QIhZy6cAHXr1+nXcDatWvZPw/HD0IsLKY1ipAJE1BHATU0vurll1H50jiUubuhoHdv
+        lK1YoRrX3b3b9FtWBs0rr6A2LU3l64uK1G8D75+hgTcXL1Z5AxL9fBHIZ4bZdMHuzp0RTCE7WS6IQjbq
+        hezdsQMXIiMRxc5qYCAQfPLJJw8dGRZrHpHX6zinQQE1HAURoR03DuXu7rjr5oo8BweUrV6tGk6lqNu2
+        vVQ6z9cX9yoqkB8Wpkbh5ltvqeuazZvx/bvvqvSRX/1KCdhH4w/94hcI62KjhOyyssaOFkLmkPt37ULE
+        1au4cuWKqlvBtgUfffTRWb3NRsEiTUIcKKSKjolxL0E7YTwq+SsiSukjxWPHIsfeHnfff181mjtvHvL1
+        o5O9YiUa+bCi48eVn/Bp0CYmoiw+Hkl64Znh4cg6cgTn2THBvL+X02p3p04UYoUd9KWgJzoqnxEhB4KD
+        EXnjBi5fvqzqCsrLy9Uvp9k5vd0/Am//IKT8ueego/HlHI0yvYgSiigcPQbZtrYoWfaeatCAkoOHEMuI
+        Iyj6/HMl5AxZcTNeCUlYvlzdMyBq4ULl7AYhQc1CnlBCZpMiJCouDt99952+1v3w9vY26jO81STEnkJK
+        GCJraXgpRZS4uqqRKGSYzRs1Chl06mL9KBTTITW8f51TIoYhVJATEozP2F4UA4BAs8UPN5csUekTrLtb
+        jOR02v/UU9jD3xBrEWKJ7RSyk0LW64UcCgnBDY6o+MgdriupqalIT09HPtes0tJS1V5ISMiPxPBykxA7
+        CslnnK+i4UU0UgTkU0Deiy8ix8UFqT16oPD9laqhtEmTcJ11o+3sEMt14x6dsjYvD4UcFQNOdumCBL3w
+        EywnQvZzJPY92RWhLRw9kJ1xnxBGt9vZ2bh48SI2btyI+fPnYyFHcgk75YMPPsDWrVuRSKGtR4aPaRJi
+        SyHZXKQqKKDA1Q15Y8Ygl+kcisl2eRGpffsid+5c1HL+pk2diptcvGJZPobTsZjzX1dczLBVj4IjR3GR
+        i144246dPw/FXBNO07/C2fOHn3wSBylQnH6PtRVC9I6+29wcm1l+FhkeGqp2B1fp8AcPHsSmTZuwYcMG
+        rGEYX7lypRIkDKffvf3222F6HT8I4dSafpcG6LheVIx0QRlX7FIukHeHDUMRV+1CXs/hipzGXtVwOsX1
+        fRbRjF5X6TsXachXbEsc/Rh5nD38BaPTIRq6i/n99IUwCgl+whw7zDqoCOZP+pEiQBbIVeRbpAjJ5J4r
+        nj4mo3L69GkcZyA5duwYjh49iiPsNBGxi9Ht8OHDGDRoEKuxokFIz44dX71Bx73p2BtR7O1v2YtXyMuc
+        FhHkNzT4K871vz3TA6e54B17+mkcZlg9QINDucAFsZcDSX8K9elsgw1Mr6WA1ezxlRSxjL9/5vMWM/R6
+        de+G+bz2e+bnkjISvyXfJk/RyHxGqTSuTXF0+mvXril/EUoAEEpoFpHiP15eXgfvE8Idmm1nM7M3yUV6
+        LjSw0w9cwDrvDOrbN/wAnXL7li34lOuIgQEt6eOLbT4+2Mb0Nl8f+HNdCQgMxFZvb6yf9ib8PvwQ/oGf
+        YivL+HH6bOH9Q1yLEjgSRVxYxbkzMzOVsRqNRjElJUVR0rdu3YKOO+ZVq1aduE8I8QRpTsoOV3a6rSnX
+        LckOL7i4/LGMtVI5BZK5gxVqWjDFQAaAVD3TaFgWd8xXl63E9dUfI/Hsl8jk+pPOe8IM3s9jVBIRJfS3
+        YrKQ7YugPN5vyVy2nUM/EnBt4fbufiEmY+zYsX+QRurq6lBVVWUS5Z2lkkZq5v43qoqKUU0RWrJlGa1W
+        q1byMm59JNQK73K705olJSWKAgaCxxcyZsyY+dJIdXW1erAp1HI0Sm4n49ac/0J5Xj4qaGwljW9dTlZx
+        UynYvHnz4wsZPXr0AmlEetHYA4yxgqNXygXu1u8YkqNjUBQTi0qOkrGywtYCjVHg4+PTphFRQuSdobKy
+        0iRqOXpVfL1NXvAnZAVsR8H5C6hhG8bKmkrBzy6kkvO/jnVS/vy/iB/zMgr+dh61zBstayIF7SKktrZW
+        OaiplLeLnODdiOJziy5eUsKMlTOVAl9f38cXwqilhMhBgTi8qRTDy+O/R6zds6jQpKi8sXKmUuDn5/d/
+        I6QyPQM3/q0HSr/lGyDz1QwYxsqaQkG7CJFXUfETk6h/cH7QblzmczOWNe2Mazg9jZY3gYJ2ESJbBPET
+        k8iy91gnaZQ7slasRtIrU1BxIxqNvFZLo4zWeQgFW7Zs+XmFiMFlEZcQ84y9VEX2x2uRONpdpesepUNa
+        UNAuQhrl6JML3cNYSwpSpv0WmqnTVVpG56YD33HWbVD5Ovqbsbo/RQFftB5fiKurqxJyjwucOPzDKEZX
+        p6YhtltPVHJVl7ygiu/2N8w74+6JUyrfwI6pp4HG2jBGgb+//88kRH82lcKte/JkdfaNel2DGgFB2dlz
+        uNHBCgUhe1VeRIp0HX9bs4FTsKVQQbsIEUjk+ikKqr9PROzTPVGdmKTyDTRCjBLjBLUZmUh2m4iMPyxE
+        3d2mAwYliKt3Lbfyddxg6jhaBki63YWIwz+QHDFB8iQPpM16R6UN00qgozFVibdQnZKKol2huEZ74u36
+        INl1ApLdJyH343WKmfMWIX3GO+q3cGcwdHR0g6xt27b964UIyrk5jOvlgEb9lqI66TbKvjyHoj37kO/r
+        jwLZQG79VOW19JnK69HI+uMSJNj1xW0XN+Rv9IWWflVXUKhEF/gHouJSpGpL0G5CJHIZo6HnEwc7I2fV
+        hypdEXEZ5ecuoJx+URUdi3q+JD0IjXX1KNl3EHe83sWdpX9BIQWUHj8BLYU2VFQ2t98mIW5ubs1CxOFb
+        siUK1m9C0nNDVbq+sAiN3I60htRo3UbrdnT0Fe0/rqHymwjkfbQO2sgo/R0gICCg/YUI5KH3GnRoKChA
+        fPde0LaYBg8y+ifZVLUZ9fkFqOcbpgHtLkRQzWEv+7xpTUhxH487i5o+K7QWoK61yBuuCYxdb50XGNKM
+        WsfFJibbJsSA8uMnkfOnpSpdtNkPt59zUunWEP+RMyrD4YEBERERii0hhw9yKGdYxY0hNDRUfTthsu1C
+        Kk6dQdrEV1Vae+kKEns4ov5O03FNa8g5FZuQg2j9lSZMnz4db7zxhj7XBDlt7NWrV/PhtTHs3bv3K7GJ
+        ybYJaSgqRtp4TzTK4sUFL7GbvRLzIMjRJ5uQDzcqL7199uxZuLu743399xdvb291ECfnWnwbxfbt25tH
+        S46K5BxYDugEe/bsaZ8RKT18lFNqCSPKJWiGjYL26/unR2ssXboUnp6emDdvnsovXrwY/fr1g729vUwT
+        BAYGwqG3A6ZMmYLY2FiMGDECEyZMgJ2dHbKzs9WB9uTJk9UICsLCwr4Qm5hsmxBBTWwcCn22oj43T3/l
+        wZg6dao6ZZ8zZ44613V2dlZvezJCkyZNgoenhyq3YMECZezrr7+u8osWLcLw4cPh6eGpTur79Omjjk7p
+        bxdpkjmLtF2IqZDjzv79+2Pu3LkYOHCg+tbh4dFkuI+PD5ycnJr9ZMWKFWokZs2epfIiVEZFhO3cuRPr
+        169X1w8cOHBKbGLy5xMinwKGyJdj4rXXXlO9LFNIfER+Z7w1Q12PjIzEjBkzlM8MGDAA0dHRaiS9vLzU
+        tMrKylJtCNq6jixUrTwigoKC5I1OpcXpRZh8IhAj5auUpGNiYpSDS6/Lkc+yvyzD7Nmz8d57Td8v5VvJ
+        xIkTVQAQsNzjj8jIkSN/L9toORHPzMzUmcKMjAwde1LH9UOXlpamKy4u1rE+NwKVOkYodb2goEBXU1Oj
+        S0hIUPdJ7jW1OvqCjhFMxzCsY5TTJSUl6eLi4tSulBHsM7HpcYTIp4feZmZmr5Kz9Jz5MLLOTCsrK0VJ
+        W1hYqLS5uflMGxubmdbW1uqa3OvatetMS0tLVU/KyP1OnTqpe1K+S5cus5ifzfwbpBNp/ThC5DuK/ItI
+        fjuTNv9i/tQzLEixxaJZiCHx/5vo8E9z4BWUwHZVTQAAAABJRU5ErkJggg==
 </value>
  </data>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -42,7 +42,7 @@ Public Class frmSendungsdetailsNEU

    Private Sub frmSendungsdetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If Not closeWithoutSave Then
-            loadDataInLIST()
+            '  loadDataInLIST()
            If Not SAVE_ME() Then
                e.Cancel = True
            End If
@@ -92,17 +92,22 @@ Public Class frmSendungsdetailsNEU
        SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
    End Sub

-    Function SAVE_ME() As Boolean
+    Function SAVE_ME(Optional saveAll = False) As Boolean
+        loadDataInLIST()
+
        If AVISO.Abgeschlossen Then
            'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
            Return True
        End If

        SAVE_ME = True
+        If saveAll Then
            For Each s In SENDUNG_LIST
                If s.SAVE() = False Then SAVE_ME = False
            Next
-
+        Else
+            SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
+        End If
        SAVE_ABRECHUNG()

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -633,7 +638,7 @@ Public Class frmSendungsdetailsNEU
            b.value = SENDUNG_LIST.IndexOf(s)

            AddHandler b.MECLICK, Sub(send As Object)
-                                      Me.loadDataInLIST()
+                                      '  Me.loadDataInLIST()
                                      If SAVE_ME() Then
                                          Me.CURRENT_INDEX = send.value
                                          Me.initDataBinding()
@@ -730,7 +735,7 @@ Public Class frmSendungsdetailsNEU

                                    End Select

-                                    loadDataInLIST()
+                                    ' loadDataInLIST()
                                    If SAVE_ME() Then 'aktuelle Änderungen sichern
                                        ' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)

@@ -759,7 +764,7 @@ Public Class frmSendungsdetailsNEU


    Public Sub Duplicate(index)
-        loadDataInLIST()
+        ' loadDataInLIST()
        SAVE_ME()
        Dim newRow As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(index).Clone
        newRow.tblSnd_PosUnterNr = SENDUNG_LIST.Count + 1
@@ -1075,8 +1080,7 @@ Public Class frmSendungsdetailsNEU
            i.tblSnd_PosUnterNr = cnt
            cnt += 1
        Next
-        SAVE_ME()
-
+        SAVE_ME(True)
    End Sub


@@ -1303,7 +1307,7 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        loadDataInLIST()
+        ' loadDataInLIST()
        If SAVE_ME() Then
            Me.Close()
        End If
@@ -1342,7 +1346,7 @@ Public Class frmSendungsdetailsNEU

    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click, Button8.Click, LaufzettelDruckenToolStripMenuItem.Click
        Me.Cursor = Cursors.WaitCursor
-        loadDataInLIST()
+        '  loadDataInLIST()
        SAVE_ME()
        Dim Printername = cboPrinter.Text

@@ -1478,7 +1482,7 @@ Public Class frmSendungsdetailsNEU

    Private Sub btn_Click_1(sender As Object, e As EventArgs) Handles btn.Click

-        loadDataInLIST()
+        'loadDataInLIST()
        If Not SAVE_ME() Then
            If vbNo = MsgBox("Fehler beim Speichern. Möchten Sie das Speditionsbuch dennoch öffenen?" & vbNewLine & "(Einige Daten werden möglicherweise nicht übernommen)", vbYesNo) Then
                Exit Sub
@@ -1882,7 +1886,7 @@ Public Class frmSendungsdetailsNEU

    Private Sub btnNeueAbfertigungNrVergeben_Click(sender As Object, e As EventArgs) Handles btnNeueAbfertigungNrVergeben.Click
        increasePosNr()
-        loadDataInLIST()
+        ' loadDataInLIST()
        SAVE_ME()
        lblAbfNrExists.Visible = checkDoppelAbfNr()
    End Sub
@@ -1919,7 +1923,7 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
-        Me.loadDataInLIST()
+        'Me.loadDataInLIST()
        If SAVE_ME() Then
            Dim frmSendungsdetailsAbrechnung As New frmSendungsdetailsAbrechnung

@@ -1950,7 +1954,7 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub btnKassenbuchEintrag_Click(sender As Object, e As EventArgs) Handles btnKassenbuchEintrag.Click, Button1.Click
-        loadDataInLIST()
+        ' loadDataInLIST()
        SAVE_ME()
        Dim PERSONAL As SDL.cPersonal = Nothing
        Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
@@ -2211,7 +2215,7 @@ Public Class frmSendungsdetailsNEU
        If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
            'GC.Collect()
            Me.Cursor = Cursors.WaitCursor
-            loadDataInLIST()
+            'loadDataInLIST()
            SAVE_ME()
            For Each s In SENDUNG_LIST
                If Not s.tblSnd_Fremdspedition Then If CInt(s.AbfertigungsNr) < 100000 Then MsgBox("Es wurden nicht alle Abfertigungsnummern vergeben!") : Exit Sub
@@ -2230,7 +2234,7 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles GelangensbestätigungToolStripMenuItem.Click, toolGelangensbestätigung.Click
-        loadDataInLIST()
+        ' loadDataInLIST()
        SAVE_ME()
        Dim SND_TMP = SENDUNG_LIST(CURRENT_INDEX)
        Dim frmGB As New frmGelangensbestaetigung
@@ -2467,8 +2471,8 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Sub initAnhang()
-        Dim hSQL As String = "  SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN anh_SendungsId is null THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ]  FROM [tblAvisoAnhaenge] 
-                                         WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
+        Dim hSQL As String = "  SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN anh_SendungsId is null OR anh_SendungsId <=0 THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ]  FROM [tblAvisoAnhaenge] 
+                                         WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
                                       ORDER BY  anh_SendungsId desc,
 										  case	  
                                               when [anh_Art] ='ATR' then 0 
@@ -2511,7 +2515,7 @@ Public Class frmSendungsdetailsNEU
    End Sub
    Private Sub btnAutomatischeNacherfassung_Click(sender As Object, e As EventArgs) Handles btnAutomatischeNacherfassung.Click
        ' ZollSystem: 0=ATLAS  1= EZOLL
-        loadDataInLIST()
+        ' loadDataInLIST()
        SAVE_ME()
        Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
        ZOLL_IMPORT.AUTO_IMPORT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
@@ -2533,7 +2537,7 @@ Public Class frmSendungsdetailsNEU
    Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click
        lblZollsysErr.Text = ""
        Try
-            loadDataInLIST()
+            'loadDataInLIST()
            SAVE_ME()
            If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID <= 0 Then
                lblZollsysErr.Text = "Keine Abfertigungsart gewählt!" : Exit Sub
@@ -3066,7 +3070,8 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub EZAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
-        Me.loadDataInLIST() : SAVE_ME()
+        ' Me.loadDataInLIST()
+        SAVE_ME()
        If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
        Dim frMZA As New SDL.frmZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
        ' Dim u As New SDL.usrCntlATLAS_EZA(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.EZA, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
@@ -3080,7 +3085,8 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub NCTSToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
-        Me.loadDataInLIST() : SAVE_ME()
+        ' Me.loadDataInLIST()
+        SAVE_ME()
        If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
        Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
        frMZA.Show()
@@ -3090,7 +3096,8 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub NCTST2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
-        Me.loadDataInLIST() : SAVE_ME()
+        ' Me.loadDataInLIST()
+        SAVE_ME()
        If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
        Dim frMZA As New SDL.frmZollanmeldung("T2", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
        frMZA.Show()
@@ -3100,7 +3107,8 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub AESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
-        Me.loadDataInLIST() : SAVE_ME()
+        'Me.loadDataInLIST()
+        SAVE_ME()
        If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
        Dim frMZA As New SDL.frmZollanmeldung("AES", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
        frMZA.Show()
@@ -3117,7 +3125,8 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
-        Me.loadDataInLIST() : SAVE_ME()
+        '   Me.loadDataInLIST()
+        SAVE_ME()
        If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
        Dim frMZA As New SDL.frmZollanmeldung("ÜT", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
        frMZA.Show()
@@ -3205,7 +3214,7 @@ Public Class frmSendungsdetailsNEU
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
-        loadDataInLIST()
+        'loadDataInLIST()
        SAVE_ME()

        Dim f As New frmSendungAnhangImport(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
@@ -3332,7 +3341,8 @@ Public Class frmSendungsdetailsNEU

    Private Sub KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KdAuftragsNrInAlleSendungenÜbernehmenToolStripMenuItem.Click
        Dim Atrnr = txtKdAuftragsNrAvisierer.Text
-        loadDataInLIST()
+        ' loadDataInLIST()
+        SAVE_ME()

        For Each s In SENDUNG_LIST
            s.tblSnd_KdAuftragsNrAvisierer = Atrnr
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1026,7 +1026,9 @@ Public Class usrcntlAktDetails
        Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
        frmSendungsdetails.Show() 'Dialog() '     frmSendungsdetails.ShowDialog(frmGrayOut)
        ' frmGrayOut.Close()
+        AddHandler frmSendungsdetails.FormClosed, Sub()
                                                      initDgvSendungen()
+                                                  End Sub

    End Sub

--- a/Gemeinsames/Gemeinsames.vbproj
+++ b/Gemeinsames/Gemeinsames.vbproj
@@ -158,6 +158,12 @@
    <Compile Include="rptSendungen.vb">
      <SubType>Component</SubType>
    </Compile>
+    <Compile Include="subRptSendungenZollpruefung.Designer.vb">
+      <DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="subRptSendungenZollpruefung.vb">
+      <SubType>Component</SubType>
+    </Compile>
    <Compile Include="subRptSendungenOfferte.Designer.vb">
      <DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
    </Compile>
@@ -182,6 +188,9 @@
    <EmbeddedResource Include="rptSendungen.resx">
      <DependentUpon>rptSendungen.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="subRptSendungenZollpruefung.resx">
+      <DependentUpon>subRptSendungenZollpruefung.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="subRptSendungenOfferte.resx">
      <DependentUpon>subRptSendungenOfferte.vb</DependentUpon>
    </EmbeddedResource>
@@ -209,6 +218,10 @@
    <None Include="Resources\road.jpg" />
  </ItemGroup>
  <ItemGroup>
+    <ProjectReference Include="..\..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj">
+      <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
+      <Name>DAKOSY_Worker_lib</Name>
+    </ProjectReference>
    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
      <Name>VERAG_PROG_ALLGEMEIN</Name>
@@ -232,23 +245,20 @@
    </BootstrapperPackage>
  </ItemGroup>
  <ItemGroup>
-    <None Include="Resources\NKD.png">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </None>
+    <None Include="Resources\WAI.png" />
+    <None Include="Resources\QS.png" />
+    <None Include="Resources\NKD.png" />
+    <None Include="Resources\LEX.png" />
+    <None Include="Resources\SBG.png" />
  </ItemGroup>
  <ItemGroup>
-    <Content Include="Resources\SUB.png">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
-    <None Include="Resources\WAI.png">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </None>
-    <None Include="Resources\QS.png">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </None>
-    <Content Include="Resources\SBG.png">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
+    <None Include="Resources\SUB.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\UNISPED.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\IMEX.png" />
  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -60,6 +60,16 @@ Namespace My.Resources
            End Set
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property _SUB() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("_SUB", 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>
@@ -69,5 +79,75 @@ Namespace My.Resources
                Return CType(obj,System.Drawing.Icon)
            End Get
        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property IMEX() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("IMEX", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property LEX() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("LEX", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property NKD() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("NKD", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property QS() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("QS", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property SBG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SBG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property UNISPED() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("UNISPED", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property WAI() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("WAI", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
    End Module
 End Namespace
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -121,4 +121,28 @@
  <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>
+  <data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="LEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\LEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="NKD" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\NKD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="QS" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\QS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="UNISPED" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\UNISPED.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>
--- a/Gemeinsames/Resources/IMEX.png
+++ b/Gemeinsames/Resources/IMEX.png
--- a/Gemeinsames/Resources/LEX.png
+++ b/Gemeinsames/Resources/LEX.png
--- a/Gemeinsames/Resources/NKD.png
+++ b/Gemeinsames/Resources/NKD.png
--- a/Gemeinsames/Resources/QS.png
+++ b/Gemeinsames/Resources/QS.png
--- a/Gemeinsames/Resources/SBG.png
+++ b/Gemeinsames/Resources/SBG.png
--- a/Gemeinsames/Resources/SUB.png
+++ b/Gemeinsames/Resources/SUB.png
--- a/Gemeinsames/Resources/UNISPED.png
+++ b/Gemeinsames/Resources/UNISPED.png
--- a/Gemeinsames/Resources/WAI.png
+++ b/Gemeinsames/Resources/WAI.png
--- a/Gemeinsames/rptSendungen.Designer.vb
+++ b/Gemeinsames/rptSendungen.Designer.vb
@@ -1461,13 +1461,13 @@ Partial Public Class rptSendungen
        '
        Me.SubReport.CanGrow = False
        Me.SubReport.CloseBorder = False
-        Me.SubReport.Height = 1.181102!
+        Me.SubReport.Height = 2.762992!
        Me.SubReport.Left = 0.6704725!
        Me.SubReport.Name = "SubReport"
        Me.SubReport.Report = Nothing
        Me.SubReport.ReportName = "SubReport1"
-        Me.SubReport.Top = 9.55197!
-        Me.SubReport.Width = 3.346457!
+        Me.SubReport.Top = 8.886615!
+        Me.SubReport.Width = 4.137795!
        '
        'txtFrachtfuehrer_Bar_BelegNr2
        '
--- a/Gemeinsames/rptSendungen.vb
+++ b/Gemeinsames/rptSendungen.vb
@@ -4,6 +4,7 @@ Imports GrapeCity.ActiveReports.Document
 Public Class rptSendungen
    Public VALUES As New rptSendungenValues
    Public imgPath As String
+    Public ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing

    Sub New()

@@ -14,10 +15,11 @@ Public Class rptSendungen

    End Sub

-    Sub New(VALUES As rptSendungenValues, imgPath As String)
+    Sub New(VALUES As rptSendungenValues, imgPath As String, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
        InitializeComponent()
        Me.VALUES = VALUES
        Me.imgPath = imgPath
+        Me.ZOLLANMELDUNG = ZOLLANMELDUNG
        init()
    End Sub

@@ -163,6 +165,13 @@ Public Class rptSendungen
                SubReport.Report = s
            End If
        End If
+        If True Then
+            If ZOLLANMELDUNG IsNot Nothing Then
+                Dim s = New subRptSendungenZollpruefung(ZOLLANMELDUNG)
+                SubReport.Report = s
+            End If
+        End If
+

    End Sub

--- a/Gemeinsames/subRptSendungenZollpruefung.Designer.vb
+++ b/Gemeinsames/subRptSendungenZollpruefung.Designer.vb
@@ -0,0 +1,400 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subRptSendungenZollpruefung
+    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(subRptSendungenZollpruefung))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtWarenbezeichung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtColliGewichtPreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtATREUR1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtRg = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbgabenKto = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtAnmelder = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVertreter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtVerBestLandZst = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtPraefAufRef = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtSB = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtATCMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.barcodeATCMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtRg, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtSB, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3, Me.TextBox9, Me.TextBox1, Me.txtWarenbezeichung, Me.txtColliGewichtPreis, Me.txtATREUR1, Me.txtRg, Me.txtAbgabenKto, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.TextBox6, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAnmelder, Me.TextBox7, Me.txtVertreter, Me.txtVerBestLandZst, Me.txtPraefAufRef, Me.txtSB, Me.TextBox8, Me.txtATCMRN, Me.barcodeATCMRN})
+        Me.Detail.Height = 2.218504!
+        Me.Detail.Name = "Detail"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.CanGrow = False
+        Me.TextBox3.Height = 0.1456693!
+        Me.TextBox3.Left = 0!
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox3.Text = "Abgabenkto:"
+        Me.TextBox3.Top = 1.056299!
+        Me.TextBox3.Width = 0.9228347!
+        '
+        'TextBox9
+        '
+        Me.TextBox9.CanGrow = False
+        Me.TextBox9.Height = 0.1456693!
+        Me.TextBox9.Left = 0!
+        Me.TextBox9.Name = "TextBox9"
+        Me.TextBox9.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox9.Text = "Pr<EFBFBD>f. auf Rg.:"
+        Me.TextBox9.Top = 0.91063!
+        Me.TextBox9.Width = 0.9228347!
+        '
+        'TextBox1
+        '
+        Me.TextBox1.CanGrow = False
+        Me.TextBox1.Height = 0.1456693!
+        Me.TextBox1.Left = 0!
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox1.Text = "ATR/EUR1:"
+        Me.TextBox1.Top = 0.6192915!
+        Me.TextBox1.Width = 0.9228347!
+        '
+        'txtWarenbezeichung
+        '
+        Me.txtWarenbezeichung.CanGrow = False
+        Me.txtWarenbezeichung.Height = 0.2535433!
+        Me.txtWarenbezeichung.Left = 0!
+        Me.txtWarenbezeichung.Name = "txtWarenbezeichung"
+        Me.txtWarenbezeichung.Style = "font-size: 8pt; ddo-char-set: 1"
+        Me.txtWarenbezeichung.Text = Nothing
+        Me.txtWarenbezeichung.Top = 0.168504!
+        Me.txtWarenbezeichung.Width = 4.03189!
+        '
+        'txtColliGewichtPreis
+        '
+        Me.txtColliGewichtPreis.Height = 0.1685039!
+        Me.txtColliGewichtPreis.Left = 0!
+        Me.txtColliGewichtPreis.Name = "txtColliGewichtPreis"
+        Me.txtColliGewichtPreis.Style = "font-weight: bold; text-align: left"
+        Me.txtColliGewichtPreis.Text = Nothing
+        Me.txtColliGewichtPreis.Top = 0!
+        Me.txtColliGewichtPreis.Width = 2.988189!
+        '
+        'txtATREUR1
+        '
+        Me.txtATREUR1.Height = 0.1456693!
+        Me.txtATREUR1.Left = 0.8811024!
+        Me.txtATREUR1.Name = "txtATREUR1"
+        Me.txtATREUR1.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtATREUR1.Text = Nothing
+        Me.txtATREUR1.Top = 0.6192912!
+        Me.txtATREUR1.Width = 3.150787!
+        '
+        'txtRg
+        '
+        Me.txtRg.Height = 0.1456693!
+        Me.txtRg.Left = 0.8811024!
+        Me.txtRg.Name = "txtRg"
+        Me.txtRg.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtRg.Text = Nothing
+        Me.txtRg.Top = 0.7649607!
+        Me.txtRg.Width = 3.150787!
+        '
+        'txtAbgabenKto
+        '
+        Me.txtAbgabenKto.Height = 0.1456693!
+        Me.txtAbgabenKto.Left = 0.8811024!
+        Me.txtAbgabenKto.Name = "txtAbgabenKto"
+        Me.txtAbgabenKto.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtAbgabenKto.Text = Nothing
+        Me.txtAbgabenKto.Top = 1.056299!
+        Me.txtAbgabenKto.Width = 3.150787!
+        '
+        'TextBox2
+        '
+        Me.TextBox2.CanGrow = False
+        Me.TextBox2.Height = 0.1456693!
+        Me.TextBox2.Left = 0!
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox2.Text = "Handels-Rg.:"
+        Me.TextBox2.Top = 0.7649607!
+        Me.TextBox2.Width = 0.9228347!
+        '
+        'TextBox4
+        '
+        Me.TextBox4.CanGrow = False
+        Me.TextBox4.Height = 0.1456693!
+        Me.TextBox4.Left = 0!
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox4.Text = "Absender:"
+        Me.TextBox4.Top = 1.266142!
+        Me.TextBox4.Width = 0.8811023!
+        '
+        'TextBox5
+        '
+        Me.TextBox5.CanGrow = False
+        Me.TextBox5.Height = 0.1456693!
+        Me.TextBox5.Left = 0!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox5.Text = "Empf<EFBFBD>nger:"
+        Me.TextBox5.Top = 1.411811!
+        Me.TextBox5.Width = 0.8811023!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.CanGrow = False
+        Me.TextBox6.Height = 0.1456693!
+        Me.TextBox6.Left = 0!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox6.Text = "Anmelder:"
+        Me.TextBox6.Top = 1.55748!
+        Me.TextBox6.Width = 0.8811023!
+        '
+        'txtAbsender
+        '
+        Me.txtAbsender.CanGrow = False
+        Me.txtAbsender.Height = 0.1456693!
+        Me.txtAbsender.Left = 0.8811024!
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtAbsender.Text = Nothing
+        Me.txtAbsender.Top = 1.266143!
+        Me.txtAbsender.Width = 3.150787!
+        '
+        'txtEmpfaenger
+        '
+        Me.txtEmpfaenger.CanGrow = False
+        Me.txtEmpfaenger.Height = 0.1456693!
+        Me.txtEmpfaenger.Left = 0.8811024!
+        Me.txtEmpfaenger.Name = "txtEmpfaenger"
+        Me.txtEmpfaenger.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtEmpfaenger.Text = Nothing
+        Me.txtEmpfaenger.Top = 1.411811!
+        Me.txtEmpfaenger.Width = 3.150787!
+        '
+        'txtAnmelder
+        '
+        Me.txtAnmelder.CanGrow = False
+        Me.txtAnmelder.Height = 0.1456693!
+        Me.txtAnmelder.Left = 0.8811024!
+        Me.txtAnmelder.Name = "txtAnmelder"
+        Me.txtAnmelder.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtAnmelder.Text = Nothing
+        Me.txtAnmelder.Top = 1.55748!
+        Me.txtAnmelder.Width = 3.150787!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.CanGrow = False
+        Me.TextBox7.Height = 0.1456693!
+        Me.TextBox7.Left = 0!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox7.Text = "Vertreter:"
+        Me.TextBox7.Top = 1.70315!
+        Me.TextBox7.Width = 0.8811023!
+        '
+        'txtVertreter
+        '
+        Me.txtVertreter.CanGrow = False
+        Me.txtVertreter.Height = 0.1456693!
+        Me.txtVertreter.Left = 0.8811024!
+        Me.txtVertreter.Name = "txtVertreter"
+        Me.txtVertreter.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtVertreter.Text = Nothing
+        Me.txtVertreter.Top = 1.70315!
+        Me.txtVertreter.Width = 3.150787!
+        '
+        'txtVerBestLandZst
+        '
+        Me.txtVerBestLandZst.Height = 0.1456693!
+        Me.txtVerBestLandZst.Left = 0!
+        Me.txtVerBestLandZst.Name = "txtVerBestLandZst"
+        Me.txtVerBestLandZst.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtVerBestLandZst.Text = Nothing
+        Me.txtVerBestLandZst.Top = 0.4220473!
+        Me.txtVerBestLandZst.Width = 4.031889!
+        '
+        'txtPraefAufRef
+        '
+        Me.txtPraefAufRef.Height = 0.1456693!
+        Me.txtPraefAufRef.Left = 0.8811024!
+        Me.txtPraefAufRef.Name = "txtPraefAufRef"
+        Me.txtPraefAufRef.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtPraefAufRef.Text = Nothing
+        Me.txtPraefAufRef.Top = 0.91063!
+        Me.txtPraefAufRef.Width = 3.150787!
+        '
+        'txtSB
+        '
+        Me.txtSB.CanGrow = False
+        Me.txtSB.Height = 0.1685039!
+        Me.txtSB.Left = 2.791339!
+        Me.txtSB.Name = "txtSB"
+        Me.txtSB.Style = "font-weight: bold; text-align: right"
+        Me.txtSB.Text = Nothing
+        Me.txtSB.Top = 0!
+        Me.txtSB.Width = 1.169291!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Height = 0!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'TextBox8
+        '
+        Me.TextBox8.CanGrow = False
+        Me.TextBox8.Height = 0.1456693!
+        Me.TextBox8.Left = 0!
+        Me.TextBox8.Name = "TextBox8"
+        Me.TextBox8.Style = "font-size: 9pt; ddo-char-set: 1"
+        Me.TextBox8.Text = "ATC/MRN:"
+        Me.TextBox8.Top = 1.848819!
+        Me.TextBox8.Width = 0.8811023!
+        '
+        'txtATCMRN
+        '
+        Me.txtATCMRN.CanGrow = False
+        Me.txtATCMRN.Height = 0.1456693!
+        Me.txtATCMRN.Left = 0.8811024!
+        Me.txtATCMRN.Name = "txtATCMRN"
+        Me.txtATCMRN.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.txtATCMRN.Text = Nothing
+        Me.txtATCMRN.Top = 1.848819!
+        Me.txtATCMRN.Width = 3.150787!
+        '
+        'barcodeATCMRN
+        '
+        Me.barcodeATCMRN.Height = 0.1964569!
+        Me.barcodeATCMRN.HyperLink = Nothing
+        Me.barcodeATCMRN.ImageData = Nothing
+        Me.barcodeATCMRN.Left = 0.7889764!
+        Me.barcodeATCMRN.Name = "barcodeATCMRN"
+        Me.barcodeATCMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.BottomLeft
+        Me.barcodeATCMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.barcodeATCMRN.Top = 2.022048!
+        Me.barcodeATCMRN.Width = 3.242913!
+        '
+        'subRptSendungenZollpruefung
+        '
+        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.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtWarenbezeichung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtColliGewichtPreis, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtATREUR1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtRg, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbgabenKto, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtVerBestLandZst, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtPraefAufRef, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtSB, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.barcodeATCMRN, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents txtWarenbezeichung As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents txtColliGewichtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtATREUR1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtRg As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAbgabenKto As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtAnmelder As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVertreter As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtVerBestLandZst As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtPraefAufRef As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtSB As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtATCMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents barcodeATCMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
+End Class
--- a/Gemeinsames/subRptSendungenZollpruefung.resx
+++ b/Gemeinsames/subRptSendungenZollpruefung.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/subRptSendungenZollpruefung.vb
+++ b/Gemeinsames/subRptSendungenZollpruefung.vb
@@ -0,0 +1,47 @@
+Imports GrapeCity.ActiveReports
+Imports GrapeCity.ActiveReports.Document
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class subRptSendungenZollpruefung
+
+    Dim ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung = Nothing
+
+    Sub New(ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung)
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me.ZOLLANMELDUNG = ZOLLANMELDUNG
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        If ZOLLANMELDUNG IsNot Nothing Then
+
+            'Dim A As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+            'If A.getDataByBezugsnummer(SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr, SENDUNG.tblSnd_Abfertigungsart_ID.ToString) Then
+            txtColliGewichtPreis.Text = ZOLLANMELDUNG.Colli & "     " & ZOLLANMELDUNG.Gewicht & "     " & ZOLLANMELDUNG.Rechnungspreis
+            txtAbgabenKto.Text &= ZOLLANMELDUNG.AbgabenKonto
+            txtRg.Text &= ZOLLANMELDUNG.Handelsrechnung
+            txtPraefAufRef.Text = ZOLLANMELDUNG.Pr<EFBFBD>ferenzAufRechnung
+            txtATREUR1.Text &= ZOLLANMELDUNG.Praeferenznachweis
+            txtWarenbezeichung.Text = ZOLLANMELDUNG.Warenbezeichung
+            txtVerBestLandZst.Text = ZOLLANMELDUNG.VerBestLandZst
+            txtAbsender.Text = ZOLLANMELDUNG.Absender
+            txtEmpfaenger.Text = ZOLLANMELDUNG.Empfaenger
+            txtAnmelder.Text = ZOLLANMELDUNG.Anmelder
+            txtVertreter.Text = ZOLLANMELDUNG.Vertreter
+            txtATCMRN.Text = ZOLLANMELDUNG.ATCMRN
+            If ZOLLANMELDUNG.ATCMRN <> "" Then
+                barcodeATCMRN.Image = Code128Rendering.MakeBarcodeImage(ZOLLANMELDUNG.ATCMRN, 1, True, 20)
+            End If
+            txtSB.Text = ZOLLANMELDUNG.Sachbearbeiter
+
+        End If
+    End Sub
+
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        'If ABF_ART <= 0 Then Exit Sub
+        'If AbfKostKdnr <= 0 Then Exit Sub
+        'Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select isnull(LeistungsNr,'') as LeistungsNr,isnull(LeistungsBez,'' ) as LeistungsBez,isnull(Preis,'') as Preis FROM [Offertenpositionen] where KundenNr=" & AbfKostKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & ABF_ART & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL")
+    End Sub
+End Class