neu

2019-10-31 09:22:40 +01:00
parent 6ae299259e
commit 12f63bb4bc
41 changed files with 1078 additions and 278 deletions
--- 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)
-        initSendungen()
-        initFlpANH_LIST()
+        If f.ShowDialog(Me) = DialogResult.OK Then
+            initSendungen()
+            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
-        For Each s In SENDUNG_LIST
-            If s.SAVE() = False Then SAVE_ME = False
-        Next
-
+        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()
-        initDgvSendungen()
+        AddHandler frmSendungsdetails.FormClosed, Sub()
+                                                      initDgvSendungen()
+                                                  End Sub

    End Sub