neu

Aviso/Anhänge/frmSendungAnhangImport.Designer.vb

@@ -32,6 +32,7 @@ Partial Class frmSendungAnhangImport
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.pnlAnfuegen = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.txtBezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Button6 = New System.Windows.Forms.Button()
@@ -157,6 +158,7 @@ Partial Class frmSendungAnhangImport
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pnlAnfuegen.BackColor = System.Drawing.Color.FloralWhite
         Me.pnlAnfuegen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlAnfuegen.Controls.Add(Me.Button1)
         Me.pnlAnfuegen.Controls.Add(Me.txtBezeichnung)
         Me.pnlAnfuegen.Controls.Add(Me.Label1)
         Me.pnlAnfuegen.Controls.Add(Me.Button6)
@@ -176,6 +178,18 @@ Partial Class frmSendungAnhangImport
         Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 162)
         Me.pnlAnfuegen.TabIndex = 8
         '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Wheat
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(523, 133)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(277, 28)
+        Me.Button1.TabIndex = 14
+        Me.Button1.Text = "Hardcore test"
+        Me.Button1.UseVisualStyleBackColor = False
+        Me.Button1.Visible = False
+        '
         'txtBezeichnung
         '
         Me.txtBezeichnung._DateTimeOnly = False
@@ -582,4 +596,5 @@ Partial Class frmSendungAnhangImport
     Friend WithEvents Button6 As Button
     Friend WithEvents txtBezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label1 As Label
+    Friend WithEvents Button1 As Button
 End Class

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -110,30 +110,6 @@ Public Class frmSendungAnhangImport
         Return Nothing
     End Function
 
-    'Public Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, ByVal IntStr As Integer, ByVal IntEnd As Integer)
-    '    Try
-    '        Dim impPage As pdf.PdfImportedPage = Nothing
-    '        Dim Reader As New PdfReader(SourceFile)
-
-    '        Dim srcDoc As New Document(Reader.GetPageSizeWithRotation(IntStr))
-    '        Dim PdfCopyProvider As New PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
-    '        PdfCopyProvider.SetFullCompression()
-    '        srcDoc.Open()
-    '        For X = IntStr To IntEnd
-    '            impPage = PdfCopyProvider.GetImportedPage(Reader, X)
-    '            ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
-    '            PdfCopyProvider.SetPageSize(New Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height))
-    '            ' ----- PDF Seite in das neue Dokument einfügen
-    '            PdfCopyProvider.AddPage(impPage)
-
-    '        Next
-    '        ' ----- neues PDF Dokument und den Reader schließen
-    '        srcDoc.Close()
-    '        Reader.Close()
-    '    Catch ex As Exception
-    '        Throw ex
-    '    End Try
-    'End Function
 
     Function getPDFSplitName(FILE_NAME)
         If txtBezeichnung.Text <> "" Then
@@ -195,36 +171,43 @@ Public Class frmSendungAnhangImport
                         End If
                     End If
 
-                    initLocationViewer("", "PDF")
+                    ' initLocationViewer("", "PDF") 
-
                 End If
                 '------------- 
             End If
         Next
-        clearPnlAnfuegen()
         '   initSendungen()
 
-        initFlpANH_LIST(, False)
+        initFlpANH_LIST(flpnlSendungen, False)
 
         If flpnlAviso.Controls.Count > 0 Then
             If Not setAvtiveById(flpnlAviso, CurrentPageNumber, pages, cntlID) Then
                 DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
             End If
+        Else
+            initLocationViewer("", "PDF")
         End If
+        clearPnlAnfuegen()
     End Sub
 
     Function setAvtiveById(pnl As FlowLayoutPanel, CurrentPageNumber As Integer, listDelPages As List(Of Integer), anhId As Integer) As Boolean
         Try
             For Each p As usrCntlSendungAnhangElement In flpnlAviso.Controls
                 If p.FILE_ANHID = anhId Then
-                    'p.ACTIVE = True
+                    If p.FILE_TYPE = "PDF" Then
-                    p.CLICK_Me()
+                        If p.ACTIVE Then
-                    Dim newCurrentPageNumber = CurrentPageNumber
+                            initLocationViewer(p.FILE_PATH, p.FILE_TYPE)
-                    For Each s In getPagesFromText() ' vorheirge Seiten, die gelöscht wurden werden abgezogen
+                        Else
-                        If s < CurrentPageNumber Then CurrentPageNumber -= 1
+                            p.CLICK_Me()
-                    Next
+                        End If
-                    If PdfViewer.IsDocumentLoaded Then
+                        Dim newCurrentPageNumber = CurrentPageNumber
-                        If newCurrentPageNumber > 0 Then PdfViewer.GoToPage(newCurrentPageNumber)
+                        For Each s In getPagesFromText() ' vorheirge Seiten, die gelöscht wurden werden abgezogen
+                            If s < CurrentPageNumber Then CurrentPageNumber -= 1
+                        Next
+                        If PdfViewer.IsDocumentLoaded Then
+                            If newCurrentPageNumber > 0 Then PdfViewer.GoToPage(newCurrentPageNumber)
+                        End If
+
                     End If
                     Return True
                 End If
@@ -284,9 +267,9 @@ Public Class frmSendungAnhangImport
                     ANH.anh_SendungsId = SendngsId
                     If cboArt._value <> "" Then ANH.anh_Art = cboArt._value
                     ANH.anh_id = -1 'neuer Eintrag
-                        ANH.SAVE()
+                    ANH.SAVE()
-                    End If
                 End If
+            End If
         Next
         clearPnlAnfuegen()
         '   initSendungen()
@@ -298,7 +281,6 @@ Public Class frmSendungAnhangImport
         txtSeiten.Text = ""
         cboArt.Text = ""
         txtBezeichnung.Text = ""
-        txtSeiten.Focus()
 
         Dim u As usrCntlSendungAnhangElement = getAcitveCntl()
         If u IsNot Nothing Then
@@ -308,9 +290,9 @@ Public Class frmSendungAnhangImport
         End If
 
         MyTextBox2.Text = cboSendungen.Text
+        txtSeiten.Focus()
     End Sub
     Sub tryDelete(TMP_Path_New)
-
         Try
             File.Delete(TMP_Path_New)
         Catch ex As Exception
@@ -466,6 +448,7 @@ Public Class frmSendungAnhangImport
 
             If delSource Then tryDelete(sourceFile)
 
+            'GC.Collect()
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
             Return False
@@ -529,7 +512,6 @@ Public Class frmSendungAnhangImport
             Next
             pdf1.SaveToFile(destinationFile)
 
-
             'MsgBox("P: " &pdf.Pages.Count)
             'Dim pdf1 As New PdfDocument()
             ''Dim page As New PdfPageBase
@@ -561,10 +543,12 @@ Public Class frmSendungAnhangImport
             '            doc.Close()
             '        End Using
             '    End Using
+
             'End Using
             pdf.Dispose()
             pdf1.Dispose()
 
+            'GC.Collect()
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
             Return False
@@ -572,11 +556,37 @@ Public Class frmSendungAnhangImport
         Return True
     End Function
 
+    'Public Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, ByVal IntStr As Integer, ByVal IntEnd As Integer)
+    '    Try
+    '        Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
+    '        Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
+
+    '        Dim srcDoc As New iTextSharp.text.Document(Reader.GetPageSizeWithRotation(IntStr))
+    '        Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
+    '        PdfCopyProvider.SetFullCompression()
+    '        srcDoc.Open()
+    '        For X = IntStr To IntEnd
+    '            impPage = PdfCopyProvider.GetImportedPage(Reader, X)
+    '            ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
+    '            PdfCopyProvider.SetPageSize(New iTextSharp.text.Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height))
+    '            ' ----- PDF Seite in das neue Dokument einfügen
+    '            PdfCopyProvider.AddPage(impPage)
+
+    '        Next
+    '        ' ----- neues PDF Dokument und den Reader schließen
+    '        srcDoc.Close()
+    '        Reader.Close()
+    '    Catch ex As Exception
+    '        Throw ex
+    '    End Try
+    'End Function
+
+
     'Public Sub removePagesFromPdf(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer)
 
     '    Try
     '        PagesLeft = 0
-    '        Dim r As PdfReader = New PdfReader(sourceFile)
+    '        Dim r As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sourceFile)
     '        Dim pagesToKeep As New List(Of Integer)
     '        For p = 1 To r.NumberOfPages
     '            Dim del = False
@@ -591,9 +601,9 @@ Public Class frmSendungAnhangImport
     '        Next
     '        Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)
 
-    '            Using doc As Document = New Document()
+    '            Using doc As iTextSharp.text.Document = New iTextSharp.text.Document()
 
-    '                Using w As PdfWriter = PdfWriter.GetInstance(doc, fs)
+    '                Using w As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, fs)
     '                    doc.Open()
     '                    For Each page As Integer In pagesToKeep
     '                        doc.NewPage()
@@ -696,7 +706,7 @@ Public Class frmSendungAnhangImport
 
         cboArt.Items.Clear()
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR", "ATR"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
@@ -762,34 +772,41 @@ Public Class frmSendungAnhangImport
 
         For Each a In ANH_LIST
 
-            Dim USRCNTL As New usrCntlSendungAnhangElement
-
-            USRCNTL.FILE_PATH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(a.anh_docId)
-            USRCNTL.FILE_NAME = a.anh_Name
-            USRCNTL.FILE_TYPE = a.anh_Typ
-
-            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
                 If cboSendungen._value <> "" AndAlso cboSendungen._value = a.anh_SendungsId Then
-                    If pnl Is Nothing OrElse pnl Is flpnlSendungen Then flpnlSendungen.Controls.Add(USRCNTL)
+                    If pnl Is Nothing OrElse pnl Is flpnlSendungen Then
+                        addtoPnl(a, flpnlSendungen, keepActive, aktiveId)
+                    End If
                 End If
             Else
-                If pnl Is Nothing OrElse pnl Is flpnlAviso Then flpnlAviso.Controls.Add(USRCNTL)
+                If pnl Is Nothing OrElse pnl Is flpnlAviso Then
+                    addtoPnl(a, flpnlAviso, keepActive, aktiveId)
+                End If
             End If
         Next
         'If act  Is Nothing Then initLocationViewer("", "PDF")
     End Sub
 
+    Sub addtoPnl(a As VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge, pnl As FlowLayoutPanel, keepActive As Boolean, aktiveId As Integer)
+
+        Dim USRCNTL As New usrCntlSendungAnhangElement
+
+        USRCNTL.FILE_PATH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(a.anh_docId)
+        USRCNTL.FILE_NAME = a.anh_Name
+        USRCNTL.FILE_TYPE = a.anh_Typ
+
+        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)
+        pnl.Controls.Add(USRCNTL)
+    End Sub
+
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click
         clearPnlAnfuegen()
     End Sub
@@ -904,10 +921,10 @@ Public Class frmSendungAnhangImport
                     ' MsgBox(TMP_Path)
                     '  File.Copy(F_listItem, TMP_Path)
                     Dim da_id = -1
-                Dim anhId = -1
+                    Dim anhId = -1
-                Dim destPath = ""
+                    Dim destPath = ""
 
-                Dim Typ = ""
+                    Dim Typ = ""
                     If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
                         If saveToDS(AvisoId, filename, F_listItem, "", Typ, da_id, anhId, destPath) Then
                             addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ)
@@ -1129,6 +1146,27 @@ Public Class frmSendungAnhangImport
 
     End Sub
 
+    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
+
+
+        For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
+            If u.ACTIVE Then
+                If u.FILE_TYPE <> "PDF" Then Exit Sub
+                '  Dim fi As New FileInfo(u.FILE_PATH)
+
+                Dim pdf As New PdfDocument()
+                pdf.LoadFromFile(u.FILE_PATH)
+                For Each p In pdf.Pages
+                    txtSeiten.Text = "1"
+                    btnAnfuegen.PerformClick()
+                Next
+            End If
+        Next
+
+
+    End Sub
+
+
     'Private Sub txtBezeichnung_GotFocus(sender As Object, e As EventArgs) Handles txtBezeichnung.GotFocus
     '    txtBezeichnung.SelectAll()
     'End Sub

Aviso/Aviso.vbproj

@@ -164,15 +164,17 @@
     <Reference Include="NumericBox">
       <HintPath>..\..\..\dll\NumericBox.dll</HintPath>
     </Reference>
-    <Reference Include="Spire.License, Version=1.3.7.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
+    <Reference Include="Spire.License, Version=1.3.7.40, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.License.dll</HintPath>
     </Reference>
-    <Reference Include="Spire.Pdf, Version=5.10.2.2046, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
+    <Reference Include="Spire.Pdf, Version=5.10.8.2040, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.Pdf.dll</HintPath>
     </Reference>
     <Reference Include="Spire.PdfViewer.Forms, Version=4.9.5.3046, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
-      <HintPath>..\packages\Spire.PDFViewer.4.9.5\lib\net46\Spire.PdfViewer.Forms.dll</HintPath>
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\..\tmp\Spire.PdfViewer.Forms.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
@@ -237,6 +239,12 @@
     <Compile Include="Anhänge\frmAddSendnung.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Anhänge\frmSendungAnhangImport.Designer.vb">
+      <DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Anhänge\frmSendungAnhangImport.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Anhänge\usrCntlSendungAnhangElement.Designer.vb">
       <DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
     </Compile>
@@ -602,12 +610,6 @@
     <Compile Include="rptLKWBericht.vb">
       <SubType>Component</SubType>
     </Compile>
-    <Compile Include="Anhänge\frmSendungAnhangImport.Designer.vb">
-      <DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
-    </Compile>
-    <Compile Include="Anhänge\frmSendungAnhangImport.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="Settings.vb" />
     <Compile Include="usrcntlAktDetailsATILLANeu.Designer.vb">
       <DependentUpon>usrcntlAktDetailsATILLANeu.vb</DependentUpon>
@@ -677,6 +679,9 @@
     <EmbeddedResource Include="Anhänge\frmAddSendnung.resx">
       <DependentUpon>frmAddSendnung.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Anhänge\frmSendungAnhangImport.resx">
+      <DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
       <DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
     </EmbeddedResource>
@@ -848,9 +853,6 @@
     <EmbeddedResource Include="rptLKWBericht.resx">
       <DependentUpon>rptLKWBericht.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="Anhänge\frmSendungAnhangImport.resx">
-      <DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="usrcntlAktDetailsATILLANeu.resx">
       <DependentUpon>usrcntlAktDetailsATILLANeu.vb</DependentUpon>
     </EmbeddedResource>
@@ -969,6 +971,7 @@
     <Content Include="My Project\aktAlt.jpg" />
     <None Include="Resources\dakosy.png" />
     <None Include="Resources\dakosy_dy.png" />
+    <None Include="Resources\FrontOfficeSUB.jpg" />
     <Content Include="Resources\UNISPED.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("3.3.5.4")>
+<Assembly: AssemblyVersion("3.3.5.7")>
-<Assembly: AssemblyFileVersion("3.3.5.4")>
+<Assembly: AssemblyFileVersion("3.3.5.7")>

Aviso/My Project/Resources.Designer.vb

@@ -459,6 +459,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property FrontOfficeSUB() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("FrontOfficeSUB", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -489,15 +499,6 @@ 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>
@@ -1158,7 +1159,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 3.3.5.4 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 3.3.5.7 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Aviso/My 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.4</value>
+    <value>3.3.5.7</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,7 +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">
+  <data name="FrontOfficeSUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value />
+    <value>..\Resources\FrontOfficeSUB.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

Aviso/frmAddAktenvermerkShort.Designer.vb

@@ -56,6 +56,7 @@ Partial Class frmAddAktenvermerkShort
         Me.Label24 = New System.Windows.Forms.Label()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
+        Me.btnDispoangefordert = New System.Windows.Forms.Button()
         Me.pnlAktenVermerk.SuspendLayout()
         Me.pnl.SuspendLayout()
         Me.SuspendLayout()
@@ -64,6 +65,7 @@ Partial Class frmAddAktenvermerkShort
         '
         Me.pnlAktenVermerk.BackColor = System.Drawing.Color.White
         Me.pnlAktenVermerk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlAktenVermerk.Controls.Add(Me.btnDispoangefordert)
         Me.pnlAktenVermerk.Controls.Add(Me.Button3)
         Me.pnlAktenVermerk.Controls.Add(Me.Label3)
         Me.pnlAktenVermerk.Controls.Add(Me.txtSonstiges)
@@ -92,7 +94,7 @@ Partial Class frmAddAktenvermerkShort
         Me.pnlAktenVermerk.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlAktenVermerk.Location = New System.Drawing.Point(0, 0)
         Me.pnlAktenVermerk.Name = "pnlAktenVermerk"
-        Me.pnlAktenVermerk.Size = New System.Drawing.Size(414, 479)
+        Me.pnlAktenVermerk.Size = New System.Drawing.Size(414, 517)
         Me.pnlAktenVermerk.TabIndex = 0
         '
         'Button3
@@ -209,7 +211,7 @@ Partial Class frmAddAktenvermerkShort
         Me.pnl.Controls.Add(Me.btnErfasst)
         Me.pnl.Controls.Add(Me.btnVorbereitet)
         Me.pnl.Controls.Add(Me.btnVorgeschrieben)
-        Me.pnl.Location = New System.Drawing.Point(216, 288)
+        Me.pnl.Location = New System.Drawing.Point(216, 326)
         Me.pnl.Name = "pnl"
         Me.pnl.Size = New System.Drawing.Size(197, 190)
         Me.pnl.TabIndex = 93
@@ -519,11 +521,24 @@ Partial Class frmAddAktenvermerkShort
         Me.Label14.TabIndex = 2
         Me.Label14.Text = "Aviso"
         '
+        'btnDispoangefordert
+        '
+        Me.btnDispoangefordert.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDispoangefordert.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnDispoangefordert.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnDispoangefordert.Location = New System.Drawing.Point(216, 285)
+        Me.btnDispoangefordert.Name = "btnDispoangefordert"
+        Me.btnDispoangefordert.Size = New System.Drawing.Size(182, 27)
+        Me.btnDispoangefordert.TabIndex = 103
+        Me.btnDispoangefordert.Text = "Dispoliste angefordert ..."
+        Me.btnDispoangefordert.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnDispoangefordert.UseVisualStyleBackColor = True
+        '
         'frmAddAktenvermerkShort
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(414, 479)
+        Me.ClientSize = New System.Drawing.Size(414, 517)
         Me.Controls.Add(Me.pnlAktenVermerk)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -571,4 +586,5 @@ Partial Class frmAddAktenvermerkShort
     Friend WithEvents txtSonstiges As System.Windows.Forms.TextBox
     Friend WithEvents btnSonstiges As System.Windows.Forms.Button
     Friend WithEvents Button3 As System.Windows.Forms.Button
+    Friend WithEvents btnDispoangefordert As Button
 End Class

Aviso/frmAddAktenvermerkShort.resx

@@ -184,154 +184,152 @@
   </data>
   <data name="btnZollDEEingereicht.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAACsAAAAqCAYAAAAqAaJlAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        iVBORw0KGgoAAAANSUhEUgAAACsAAAAqCAYAAAAqAaJlAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAQLUlEQVRYR71ZCViV1do9DAeE
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAABAtSURBVFhHvVkJWJXV2j0MB4SSRAmNy6Q4oYJDDoxO
-        kkQJjcukOKGCQw6MTiCIoJaZTU4XVEQzhzRTb5ZZoqY54JReRdE0Jypt0uy37GppmaKByCCIMp1z4MxM
+        IIiglplNThdURDOHNFNvllmipjnglF5F0TQnKm3S7LfsammZooHIIIgynXPgzEwHWP/a+wB/pt2/e+ve
-        B1j/2vsAf6bdv3vr3u951vOdbw/vXnvvd797vaBQ2Cj+TLQh/IjuRCfClXhQuxYA+N14oIF/AX0Vtjbb
+        73nW851vD+9ee+93v3u9oFDYKP5MtCH8iO5EJ8KVeFC7FgD43XiggX8BfRW2Nttt7Gyv811ta29X4/iQ
-        bexsr/NdbWtvV+P4kLOxlcvDBvG2VdrXsK5a6eh4zdbObjvb9/tVf0Xa7lOKlHVHFUPCYxRdu/kqunfx
+        s7GVy8MG8bZV2tewrlrp6HjN1s5uO9v3+1V/RdruU4qUdUcVQ8JjFF27+Sq6d/FRDBzQWxE8qK8iaGCf
-        UQwc0FsRPKivImhgnxb8AbI2q0ii9KG2bXQhURE1KRvX4+rJD6E9dhiVO3agcssmaLanoOzQPlw6fgjr
+        FvwBsjarSKL0obZtdCFRETUpG9fj6skPoT12GJU7dqByyyZotqeg7NA+XDp+COvXrkLoqJga1w4ddErH
-        165C6KiYGtcOHXRKx1ZlNra2yc220naf/s+QtbG1WWmnVOp6hIYY048fRt3+/UD8VDS4usLAHdUQJURp
+        VmU2trbJzbbSdp/+z5C1sbVZaadU6nqEhhjTjx9G3f79QPxUNLi6wsAd1RAlRGkTKgkjUd+2LRqfexrF
-        EyoJI1Hfti0an3saxVvX4v3Daeg9bJjJTmmvp82VR9K+UWzbkP6nknVXOjh807FvX/1XF74C1ryJBmdn
+        W9fi/cNp6D1smMlOaa+nzZVH0r5RbNuQ/qeSdVc6OHzTsW9f/VcXvgLWvIkGZ2cUk0g+UdD7ceTPnYOb
-        FJNIPlHQ+3Hkz52Dm+vfxY09u3Fj/wFk7d6N7HXvIG/OLBT0DEAB24kJWFxcYFm9El+c+wqePXvqnZwf
+        69/FjT27cWP/AWTt3o3sde8gb84sFPQMQAHbiQlYXFxgWb0SX5z7Cp49e+qdnB8+J+wPHTyKZH3+MFl3
-        PifsDx08imR9/jBZd65o9ZKUzajfvxfV7u1QxEFz/Loid1MKsnMy8bOxEpl1tciqr0V2tQlZZgOy+L7B
+        rmj1kpTNqN+/F9Xu7VDEQXP8uiJ3UwqyczLxs7ESmXW1yKqvRXa1CVlmA7L4vsHvrLpqZBgqkXczE+oN
-        76y6amQYKpF3MxPqDetR0NEHhexf7+2N6sMHMWfDOtja2dZwnPbd/Tsqunf998m689BUf3nhH8C0GbjD
+        61HQ0QeF7F/v7Y3qwwcxZ8M62NrZ1nCc9t39Oyq6d/33ybrz0FR/eeEfwLQZuMNBcts/htzdqSRjRiYa
-        QXLbP4bc3akkY0YmGvCzWo0bN28g69pVK36+1oQMZGVcRea1DGTmZOOapgzFqIXerEP5e1uR07ad3Bks
+        8LNajRs3byDr2lUrfr7WhAxkZVxF5rUMZOZk45qmDMWohd6sQ/l7W5HTtp3cGSyYjaOnT8POQVnF8dr3
-        mI2jp0/DzkFZxfHa96Ar/Dtk3W1INDMvB4gaYd3up8fjVlUV8tkzv6wIBbk3UJCfg1sFOSgozCX4mxDv
+        oCv8O2TdbUg0My8HiBph3e6nx+NWVRXy2TO/rAgFuTdQkJ+DWwU5KCjMJfibEO+Cwpssz8WtW7dQmM93
-        gsKbLM/FrVu3UJjPd14ectm+rKwAevbX6ypxJyZG2sXoWHxz+UeIhRHjBg/q9y+RdScaLl7PkERzaPDu
+        Xh5y2b6srAB69tfrKnEnJkbaxehYfHP5R4iFEeMGD+r3L5F1JxouXs+QRHNo8O4bK6BiD1V9HVTFRVCX
-        GyugYg9VfR1UxUVQl5dCpS6DSiXeAuW/AutkPX8TalUZyjUqlJSVovRuEUwNFtTQXsmChdI+nn4ap7iD
+        l0KlLoNKJd4C5b8C62Q9fxNqVRnKNSqUlJWi9G4RTA0W1NBeyYKF0j6efhqnuIMct1GMP3xIsGJw6IAW
-        HLdRjD98SLBicOiAFvw2WVubnA3704DZSXLmxetWQ8vWFSYTKstUqKzUQKOxQq2uQEVFJVHRVGb91shy
+        /DZZW5ucDfvTgNlJcubF61ZDy9YVJhMqy1SorNRAo7FCra5ARUUlUdFUZv3WyHIN21rL1WrxuxKVsq0W
-        Ddtay9Vq8bsSlbKtFqpyNfTVVbCIBfjbMuQJwkuXYdWePeD4eb6+HRTde/kpuvXoJPFbZNd0DAzU47NP
+        qnI19NVVsIgF+Nsy5AnCS5dh1Z494Ph5vr4dFN17+Sm69egk8Vtk13QMDNTjs0+kj95NmgkDW1aSqEal
-        pI/eTZoJA1tWkqhGpbYOzHedRQxjfXQ6HQwG0QowmcyoIGEL6ysrtSgrL4fRaES9pV4SFpNqRnk5J242
+        tg7Md51FDGN9dDodDAbRCjCZzKggYQvrKyu1KCsvh9FoRL2lXhIWk2pGeTknbjZJwqWTJ1l9+MwZePr7
-        ScKlkydZffjMGXj6+4uwttbRzVHh0NZBgk0eSLYh+/tL0NspUdi7L7SNgLamBpVNKyOJGQ34/tIlnDl7
+        i7C21tHNUeHQ1kGCTR5ItiH7+0vQ2ylR2LsvtI2AtqYGlU0rI4kZDfj+0iWcOXsGGXQVo8lImHDy08/o
-        Bhl0FaPJSJhw8tPP6It61NXV4XZhIbRaLdvrSbgMJaXF0Ov1LUQrxZv2VOUV0Dc2oIarXODrjSp3N2Rc
+        i3rU1dXhdmEhtFot2+tJuAwlpcXQ6/UtRCvFm/ZU5RXQNzaghqtc4OuNKnc3ZFy8KN3B3t5e4ermJvEA
-        vCjdwd7eXuHq5ibxALI2qQNHRlfhteUyLqq/uyAPg1jNSi23kMYNXCXxLHtlPsZED4NHBzccf/8AFi5Y
+        sjapA0dGV+G15TIuqr+7IA+DWM1KLbeQxg1cJfEse2U+xkQPg0cHNxx//wAWLliA1k4OeJ6HMOP6VTw7
-        gNZODniehzDj+lU8O2Ec8nOzZdsjR4/imXGjgcZ66A1GqztwIloxea6+igthYjv96S/kuKDb9R02TESH
+        YRzyc7Nl2yNHj+KZcaOBxnroDUarO3AiWjF5rr6KC2FiO/3pL+S4oNv1HTZMRIe9AT0CFL38e91Plleo
-        vQE9AhS9/HvdT5ZXqDnj9Ocw2fMmmjLFuv1cDZ1W10JWQPikeA4e+QDh/R/HNl63w8OCSaYWE0h2btJ0
+        OeP05zDZ8yaaMsW6/VwNnVbXQlZA+KR4Dh75AOH9H8c2XrfDw4JJphYTSHZu0nRMeW48Q9cV2e6DI4cR
-        THluPEPXFdnugyOHER0eBEt1NXfATBsVctWboavUyfMgCJeMH4uax9rgR4Yz8qnq6d9V0Tuw531kh3fw
+        HR4ES3U1d8BMGxVy1Zuhq9TJ8yAIl4wfi5rH2uBHhjPyqerp31XRO7DnfWSHd/Dx1mJfmvTVivPfylUV
-        8dZiX5r01Yrz38pVFQdC20RWGBYD1dTU0mfrERU5HGc/OYF0+nfSXycLXnjjzRWYlzgDC2YloahABDng
+        B0LbRFYYFgPV1NTSZ+sRFTkcZz85gXT6d9JfJwteeOPNFZiXOAMLZiWhqEAEOeCjjz/GlPHj5O+6hgZu
-        o48/xpTx4+TvuoYGbj/JctK/JCxcQyyOkasrfTf9GDr4+GjJKzKwR/d7yXIWn4ybPKkeY2NxNzwUuvpG
+        P8ly0r8kLFxDLI6Rqyt9N/0YOvj4aMkrMrBH93vJchafjJs8qR5jY3E3PBS6+kbo6Edy5vTTZqN6/hbP
-        6OhHcub002ajev4Wz8w5LyJmSJj8fZJkBwf1R05+Pp566kksX7wA8ZMm4TJ9TzxHj6cjNjoCmgo11IKU
+        zDkvImZImPx9kmQHB/VHTn4+nnrqSSxfvADxkybhMn1PPEePpyM2OgKaCjXUgpRBf59d6RKWWo5pRsmA
-        QX+fXekSllqOaUbJgEBg8nMY+/xz9fZK+8979/S/h+wWBuSKn059AbN7W5StWC5nqdUaYDabecK5RYRZ
+        QGDycxj7/HP19kr7z3v39L+H7BYG5IqfTn0Bs3tblK1YLmep1RpgNpt5wrlFhFmcXK6oeCY8+QSGBg9C
-        nFyuqHgmPPkEhgYPQkzkMGRcuoDdO7fDi1fx/ITJ0KpLMH3aVAwLG4SkhCk4QTd4cvQoRA0Nw7SJz8Jk
+        TOQwZFy6gN07t8OLV/H8hMnQqkswfdpUDAsbhKSEKThBN3hy9ChEDQ3DtInPwmSwTthq0yztmk1cGL1O
-        sE7YatMs7ZpNXBi9Tu5myZJ5sPTwwxfp6aDg0ZLbNha3rOp1oT9NR49ArbSD5uz/oEqa++3HUmXCXW5z
+        7mbJknmw9PDDF+npoODRkts2Fres6nWhP01Hj0CttIPm7P+gSpr77cdSZcJdbnPmT5eh06hlWWnhLdSy
-        5k+XodOoZVlp4S3Uslw8gtANHrQb9NtqRgs93Sjryk/IybwOC3XEbz1i3PKTR6GxpfDZkwqn1g8blI4O
+        XDyC0A0etBv022pGCz3dKOvKT8jJvA4LdcRvPWLc8pNHobGl8NmTCqfWDxuUjg6ZLG4iS6Hi2a2rzrIm
-        mSxuIkuh4tmtq86yJlmeRmN+Hhix8B616cSJEzF9+nQkJCRg2rRpLb9fpMp6+ZVFWPTKYsya/SKmsXze
+        WZ5GY34eGLHwHrXpxIkTMX36dCQkJGDatGktv1+kynr5lUVY9MpizJr9IqaxfN7ChZg5ew4S4hPw0tx5
-        woWYOXsOEuIT8NLceVi0aDFeXvQKkl6cjbnz52Ph4sVYwO/ExJlImGa1N2PGDH4nIj4+Hvv3pcpxdVd+
+        WLRoMV5e9AqSXpyNufPnY+HixVjA78TEmUiYZrU3Y8YMficiPj4e+/elynF1V37EXfLQJr8Nr27ddBQ6
-        xF3y0Ca/Da9u3XQUOtXNZJ1I1hIQEmzE0qW4LZybEWAebxXWwsvLG/7+/hJ+fn7w8fFhmVcTvJtg/fYW
+        1c1knUjWEhASbMTSpbgtnJsRYB5vFdbCy8sb/v7+En5+fvDx8WGZVxO8m2D99hZvTy/8xcsTnsT/tfOU
-        b08v/MXLE57E/7XzlHWerBP1Pt4+0la3bt2k3U6d/NCqlZMc77XkVbzS1FJOVi2ajx6DBhm58xbBU5Bt
+        dZ6sE/U+3j7SVrdu3aTdTp380KqVkxzvteRVvNLUUk5WLZqPHoMGGbnzFsFTkG3H9KN6wPBhZsyZC6PL
-        x/SjesDwYWbMmQujyyMoLihAOx8v2bl1axd4e3uhT98+CAsLxYjISMRQgIwcORLR0VGIonYYMWIEIiMi
+        IyguKEA7Hy/ZuXVrF3h7e6FP3z4ICwvFiMhIxFCAjBw5EtHRUYiidhgxYgQiIyIRERGB4cOHS0QIREbI
-        ERERgeHDh0tECERGyLroqCi2jZZ9RF/RJzw8DP369YOvry9cXFpDaW8vx/Pr2QOlmZkwPqJE/eyZ6BMe
+        uuioKLaNln1EX9EnPDwM/fr1g6+vL1xcWkNpby/H8+vZA6WZmTA+okT97JnoEx5uFvwET0G2ra3Srqbf
-        bhb8BE9Btq2t0q6m39BwE+bORUUrZ+hKSxEQPFB2trG1GhFQKh3Rpk1bPPaYB1emMwICAvF4//4ICgpC
+        0HAT5s5FRStn6EpLERA8UHa2sbUaEVAqHdGmTVs89pgHV6YzAgIC8Xj//ggKCkJwcAjCQsMkQkNDiXCW
-        cHAIwkLDJEJDQ4lwloWxLgT92SYgMACdO3eFh4cXXNu0g4OyVYtdWxtbOLayfgf074vymzdhdFSiNnE6
+        hbEuBP3ZJiAwAJ07d4WHhxdc27SDg7JVi11bG1s4trJ+B/Tvi/KbN2F0VKI2cToCQ0NMIpcTPAVZewqH
-        AkNDTCKXEzwFWXsKh0b/Af0NWP66VVBUmXHy7Jctxv6b2L33PaC4RMZa/eyX0LVfXwPdVCgxe0FWRAO9
+        Rv8B/Q1Y/rpVUFSZcfLsly3G/pvYvfc9oLhExlr97JfQtV9fA91UKDF7QVZEA727r4+2OmWrVPGaHy7R
-        u6+Ptjplq1Txmh8u0Z+Bi+fP4Q36za531+HEwQM4lrobKXT65GVLsW9LCtLT9mHjyhXY+NZKbF2zGm+/
+        n4GL58/hDfrNrnfX4cTBAziWuhspdPrkZUuxb0sK0tP2YePKFdj41kpsXbMab7+6GFtXJ2PDyjexasmr
-        uhhbVydjw8o3sWrJq9ixbi3Wr3gDya8txf7t27CFB3j9ytexd1sKtqxehSN/34mP30/DB7t3YRVtfp1+
+        2LFuLdaveAPJry3F/u3bsIUHeP3K17F3Wwq2rF6FI3/fiY/fT8MHu3dhFW1+nX5Ujlv5zTmUk0fh68vh
-        VI5b+c05lJNH4evL4e7jpbVT2omIxrlYyX7NWFZrPHwIajYqYv5UwdqGemtM1TAbOHToED6jUGl+sm5k
+        7uOltVPaiYjGuVjJfs1YVms8fAhqNipi/lTB2oZ6a0zVMBs4dOgQPqNQaX6ybmTj2LFjDEN1qOetZGbM
-        49ixYwxDdajnrWRmzBSP2chYzDLxGHhQ65tsFFHY1NXWoIFtS6hnGyleLv3wI/bs2YtPT57gVS3iAM82
+        FI/ZyFjMMvEYeFDrm2wUUdjU1daggW1LqGcbKV4u/fAj9uzZi09PnuBVLeIAzzZRvGYtdOTx3aaNsHdQ
-        UbxmLXTk8d2mjbB3UNY4ODqcY7GVLLGKZG+nHzpIXaBEEYWwuP0rmm6rSZOnwNlGAScHJZYsWSwFtEeH
+        1jg4OpxjsZUssYpkb6cfOkhdoEQRhbC4/SuabqtJk6fA2UYBJwcllixZLAW0R4f2ctsWLVyA7Tu2YeqU
-        9nLbFi1cgO07tmHqlImy7QT23cq8Sjwd2OZzXsficXvUDXN5BesphJ4YMwYHUlPRmYcrIjgI40ZFIS87
+        ibLtBPbdyrxKPB3Y5nNex+Jxe9QNc3kF6ymEnhgzBgdSU9GZhysiOAjjRkUhLzvLqm2JEh7GGvrwhvXr
-        y6ptiRIexhr68Ib162DvqLxDN0hmcQtZIbjThsaOqkbMGBQ6tIJKXItNs42Li8NhblVxSTHCBjyOOJ7m
+        YO+ovEM3SGZxC1khuNOGxo6qRswYFDq0gkpci02zjYuLw2FuVXFJMcIGPI44nuaFsxLRWFeDyMGDETci
-        hbMS0VhXg8jBgxE3IhIJk6xkR0ZFImXtGnz3PWUeJ/PyrJmyPHiQ9cB+SvLzKOrXJb+F0IH9cfz4MVxh
+        EgmTrGRHRkUiZe0afPc9ZR4n8/KsmbI8eJD1wH5K8vMo6tclv4XQgf1x/PgxXGGeZuCloWE7VWGRDFsV
-        nmbgpaFhO1VhkQxbFaOiETwiooYusH9IROi92oDo7vyIiwGffCKz1zKm1FYxCIx9YiyOcCUsJB/L67V/
+        o6IRPCKihi6wf0hE6L3agOju/IiLAZ98IrPXMqbUVjEIjH1iLI5wJSwkH8vrtX8Pf2zb8I6sG//kWAQH
-        D39s2/COrBv/5FgEB/bG4pfmyO+nJzyFZIqZ+BmJeHLUSIQEDUBR0R3M46o+QwJeHh6YOG4MPji0F906
+        9sbil+bI76cnPIVkipn4GYl4ctRIhAQNQFHRHczjqj5DAl4eHpg4bgw+OLQX3Tp3RuzQIdhM37bUmaxy
-        d0bs0CHYTN+21JmscnTjZkn2xq6tcHJpLUR4j+iIyPvI0nftCj+k39Z7eqKwaxepD8Qzmiu7ZP4CbNy+
+        dONmSfbGrq1wcmktRHiP6IjI+8jSd+0KP6Tf1nt6orBrF6kPxDOaK7tk/gJs3L4dkSHBWJiUSMUVQYl4
-        HZEhwViYlEjFFUGJeBghDEvzp8cjdmQUyilURjKmTn/hWfT2747YISH4i8djSOVBem78Ezh98iM8+8JE
+        GCEMS/OnxyN2ZBTKKVRGMqZOf+FZ9PbvjtghIfiLx2NI5UF6bvwTOH3yIzz7wkR40CX27NpO8TMIl8+d
-        eNAl9uzaTvEzCJfPncUPFPLqOosUTqXtO6Csc0es2bNTJJBFXXz9FF06db6fLDHas2sXHXbulLlX2YbN
+        xQ8U8uo6ixROpe07oKxzR6zZs1MkkEVdfP0UXTp1vp8sMdqzaxcddu6UuVfZhs2S7MbVa9D24VbwaP0w
-        kuzG1WvQ9uFW8Gj9MNJSNsqyic9MgB3bvPPaMvk9depkuc3z4idjxauvYHxMlCzfxEgyPm4kFs+djR8v
+        0lI2yrKJz0yAHdu889oy+T116mS5zfPiJ2PFq69gfEyULN/ESDI+biQWz52NHy9cQEFRISY8EYfzzDLi
-        XEBBUSEmPBGH88wy4mK40hQ/w+m3hTxwdevX4yZtFOzahPadOurIZ2x7t0cV7R+cKRC2NneP0o8YzZHL
+        YrjSFD/D6beFPHB169fjJm0U7NqE9p066shnbHu3RxXtH5wpELY2d4/SjxjNkcuO6tx86fjqwgImi6XU
-        jurcfOn46sICJoul1LE1MFVVU33VQlNyhylMLapqLVRQRvzEUGdiMikkoIZtzayrtdSh8FY+DDysauZj
+        sTUwVVVTfdVCU3KHKUwtqmotVFBG/MRQZ2IyKSSghm3NrKu11KHwVj4MPKxq5mNSZTEt0tJHq9jnLqNK
-        UmUxLdLSR6vY5y6jSklDI1RXr1pzvmFhWJP6nkhrirkYCmcnR4kHk7VRDHrI1VWHK1fl367yeM3qa2vR
+        SUMjVFevWnO+YWFYk/qeSGuKuRgKZydHiQeTtVEMesjVVYcrV+XfrvJ4zepra9HA1jW1ddDqDCgrLWN6
-        wNY1tXXQ6gwoKy1jemKQPqxjeBLfBoM1dBnNVUx9TJxAnSwXmrWWv42UgSKVUfHeF5MVGtZkNEvhUs93
+        YpA+rGN4Et8GgzV0Gc1VTH1MnECdLBeatZa/jZSBIpVR8d4XkxUa1mQ0S+FSz3d5F39kcLwr334Jp0dc
-        eRd/ZHC8K99+CadHXIToDurc1VfRyc9bgs0eSFbgqH8whc3Jk/KwFcbEQohAEXtVZWWMu8xwZZarYsba
+        hOgO6tzVV9HJz1uCzR5IVuCofzCFzcmT8rAVxsRCiEARe1VlZYy7zHBllqtixtqU8fKtavpuhiynfFSp
-        lPHyrWr6boYsp3xUqZvasZ+1Lb+FHdqTcTVsMC6KcVJ3oWOf3iaGquMhIf0UAwf1acE/I8vDZpOxbAev
+        m9qxn7Utv4Ud2pNxNWwwLopxUnehY5/eJoaq4yEh/RQDB/VpwT8jy8Nmk7FsB6++nTukErvF+15t1Mv4
-        vp07pBK7xftebdTL+KsWW1piJd1MVLx/jV+SbvnmaqspssXfIcxMxW/36YcLtH/zrb/hBd50Sgfl9emJ
+        qxZbWmIl3UxUvH+NX5Ju+eZqqymyxd8hzEzFb/fphwu0f/Otv+EF3nRKB+X16YlTFNNmTlUk8N2Mf0qW
-        UxTTZk5VJPDdjH9KlhB/lVG9+1E6M8MPZDjJdW2H8i++lIQFNHQBDf1QkhB/U+CKtZAVE5HlXMVy1qnK
+        EH+VUb37UTozww9kOMl1bYfyL76UhAU0dAEN/VCSEH9T4Iq1kBUTkeVcxXLWqcpRbrJOVoRELfOya85O
-        UW6yTlaERC3zsmvOTjhPu9ffXoaZ65PBFEYjxp01L1Exa+6Me/D/kRVw54G7HclcCOcvwNTGVZ7WorFj
+        OE+7199ehpnrk8EURiPGnTUvUTFr7ox78P+RFXDngbsdyVwI5y/A1MZVntaisWOhzr4p3UIMruVJruDB
-        oc6+Kd1CDK7lSa7gwVEzrbYSV3HrSVBkwhRFGuHbbCe8Wns9A7eiY/A17Vxu54or+7YgePSYBqquO2K8
+        UTOtthJXcetJUGTCFEUa4dtsJ7xaez0Dt6Jj8DXtXG7niiv7tiB49JgGqq47Yryk2fGK6bPiFYmzE+7B
-        pNnxiumz4hWJsxPuwe8hK/CIja3tWd9eAYZr3/8DSJoh/0gs1Fkhb6/igwehLrjNOFkniUu/JoQ/yonw
+        7yEr8IiNre1Z314Bhmvf/wNImiH/SCzUWSFvr+KDB6EuuM04WSeJS78mhD/KifBwavLyUcpLJZvyUfjm
-        cGry8lHKSyWb8lH45nfEzxOfwvsH98CjezeD80Otv+Y4rq8vWaiYmTRVMeMPkG3G83b29rVxf53aUElx
+        d8TPE5/C+wf3wKN7N4PzQ62/5jiury9ZqJiZNFUx4w+Qbcbzdvb2tXF/ndpQSXGMF+egytFRhhtJnMH/
-        jBfnoMrRUYYbSZzB/25cLG5Pm4FbM5Nwm6nPbcbR7Ec74CrrBcnrSltcHTMCp97fhfCxsQ3CHu1O/PvO
+        blwsbk+bgVszk3Cbqc9txtHsRzvgKusFyetKW1wdMwKn3t+F8LGxDcIe7U78+85TilNfZyleW/zyn0ZW
-        U4pTX2cpXlv88p9GVqCtvdLhhL2jg2n4+HGWb8+cQS3FD5iLIWQwLK5uMFJIiz/ZVyrsUEqhficwEEXP
+        oK290uGEvaODafj4cZZvz5xBLcUPmIshZDAsrm4wUkiLP9lXKuxQSqF+JzAQRc9PwMUVf0Pqts0YPCbO
-        T8DFFX9D6rbNGDwmzuLo7Gyimjoh7C19da1i06YPFZ9/dV2x/NU/b2V/CU8ijSHGKGJyr5Ag00rePmdP
+        4ujsbKKaOiHsLX11rWLTpg8Vn391XbH81T9vZX8JTyKNIcYoYnKvkCDTSt4+Z0+cwKWTH+Ny+oc4f+QY
-        nMClkx/jcvqHOH/kGI4fOIBFb7yOXkEDTS5ubjqupMmxlVMa+3o123p5wUpFyuaP/qNkf4m+RAqRTzQy
+        jh84gEVvvI5eQQNNLm5uOq6kybGVUxr7ejXbennBSkXK5o/+o2R/ib5ECpFPNDLk1djY21ZTI4tUpNFO
-        5NXY2NtWUyOLVKTRTqnMJ0lRL9rd1/+/TfbXEP+4c2t6P6j+HggSvw9Q/C+wj5aKeF+uKQAAAABJRU5E
+        qcwnSVEv2t3X/79N9tcQ/7hza3o/qP4eCBK/D1D8L7CPlop4X64pAAAAAElFTkSuQmCC
-        rkJggg==
 </value>
   </data>
   <data name="btnZollATEingereicht.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAACsAAAAqCAYAAAAqAaJlAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        iVBORw0KGgoAAAANSUhEUgAAACsAAAAqCAYAAAAqAaJlAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAQLUlEQVRYR71ZCViV1do9DAeE
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAABAtSURBVFhHvVkJWJXV2j0MB4SSRAmNy6Q4oYJDDoxO
-        kkQJjcukOKGCQw6MTiCIoJaZTU4XVEQzhzRTb5ZZoqY54JReRdE0Jypt0uy37GppmaKByCCIMp1z4MxM
+        IIiglplNThdURDOHNFNvllmipjnglF5F0TQnKm3S7LfsammZooHIIIgynXPgzEwHWP/a+wB/pt2/e+ve
-        B1j/2vsAf6bdv3vr3u951vOdbw/vXnvvd797vaBQ2Cj+TLQh/IjuRCfClXhQuxYA+N14oIF/AX0Vtjbb
+        73nW851vD+9ee+93v3u9oFDYKP5MtCH8iO5EJ8KVeFC7FgD43XiggX8BfRW2Nttt7Gyv811ta29X4/iQ
-        bexsr/NdbWtvV+P4kLOxlcvDBvG2VdrXsK5a6eh4zdbObjvb9/tVf0Xa7lOKlHVHFUPCYxRdu/kqunfx
+        s7GVy8MG8bZV2tewrlrp6HjN1s5uO9v3+1V/RdruU4qUdUcVQ8JjFF27+Sq6d/FRDBzQWxE8qK8iaGCf
-        UQwc0FsRPKivImhgnxb8AbI2q0ii9KG2bXQhURE1KRvX4+rJD6E9dhiVO3agcssmaLanoOzQPlw6fgjr
+        FvwBsjarSKL0obZtdCFRETUpG9fj6skPoT12GJU7dqByyyZotqeg7NA+XDp+COvXrkLoqJga1w4ddErH
-        165C6KiYGtcOHXRKx1ZlNra2yc220naf/s+QtbG1WWmnVOp6hIYY048fRt3+/UD8VDS4usLAHdUQJURp
+        VmU2trbJzbbSdp/+z5C1sbVZaadU6nqEhhjTjx9G3f79QPxUNLi6wsAd1RAlRGkTKgkjUd+2LRqfexrF
-        EyoJI1Hfti0an3saxVvX4v3Daeg9bJjJTmmvp82VR9K+UWzbkP6nknVXOjh807FvX/1XF74C1ryJBmdn
+        W9fi/cNp6D1smMlOaa+nzZVH0r5RbNuQ/qeSdVc6OHzTsW9f/VcXvgLWvIkGZ2cUk0g+UdD7ceTPnYOb
-        FJNIPlHQ+3Hkz52Dm+vfxY09u3Fj/wFk7d6N7HXvIG/OLBT0DEAB24kJWFxcYFm9El+c+wqePXvqnZwf
+        69/FjT27cWP/AWTt3o3sde8gb84sFPQMQAHbiQlYXFxgWb0SX5z7Cp49e+qdnB8+J+wPHTyKZH3+MFl3
-        PifsDx08imR9/jBZd65o9ZKUzajfvxfV7u1QxEFz/Loid1MKsnMy8bOxEpl1tciqr0V2tQlZZgOy+L7B
+        rmj1kpTNqN+/F9Xu7VDEQXP8uiJ3UwqyczLxs7ESmXW1yKqvRXa1CVlmA7L4vsHvrLpqZBgqkXczE+oN
-        76y6amQYKpF3MxPqDetR0NEHhexf7+2N6sMHMWfDOtja2dZwnPbd/Tsqunf998m689BUf3nhH8C0GbjD
+        61HQ0QeF7F/v7Y3qwwcxZ8M62NrZ1nCc9t39Oyq6d/33ybrz0FR/eeEfwLQZuMNBcts/htzdqSRjRiYa
-        QXLbP4bc3akkY0YmGvCzWo0bN28g69pVK36+1oQMZGVcRea1DGTmZOOapgzFqIXerEP5e1uR07ad3Bks
+        8LNajRs3byDr2lUrfr7WhAxkZVxF5rUMZOZk45qmDMWohd6sQ/l7W5HTtp3cGSyYjaOnT8POQVnF8dr3
-        mI2jp0/DzkFZxfHa96Ar/Dtk3W1INDMvB4gaYd3up8fjVlUV8tkzv6wIBbk3UJCfg1sFOSgozCX4mxDv
+        oCv8O2TdbUg0My8HiBph3e6nx+NWVRXy2TO/rAgFuTdQkJ+DWwU5KCjMJfibEO+Cwpssz8WtW7dQmM93
-        gsKbLM/FrVu3UJjPd14ectm+rKwAevbX6ypxJyZG2sXoWHxz+UeIhRHjBg/q9y+RdScaLl7PkERzaPDu
+        Xh5y2b6srAB69tfrKnEnJkbaxehYfHP5R4iFEeMGD+r3L5F1JxouXs+QRHNo8O4bK6BiD1V9HVTFRVCX
-        GyugYg9VfR1UxUVQl5dCpS6DSiXeAuW/AutkPX8TalUZyjUqlJSVovRuEUwNFtTQXsmChdI+nn4ap7iD
+        l0KlLoNKJd4C5b8C62Q9fxNqVRnKNSqUlJWi9G4RTA0W1NBeyYKF0j6efhqnuIMct1GMP3xIsGJw6IAW
-        HLdRjD98SLBicOiAFvw2WVubnA3704DZSXLmxetWQ8vWFSYTKstUqKzUQKOxQq2uQEVFJVHRVGb91shy
+        /DZZW5ucDfvTgNlJcubF61ZDy9YVJhMqy1SorNRAo7FCra5ARUUlUdFUZv3WyHIN21rL1WrxuxKVsq0W
-        Ddtay9Vq8bsSlbKtFqpyNfTVVbCIBfjbMuQJwkuXYdWePeD4eb6+HRTde/kpuvXoJPFbZNd0DAzU47NP
+        qnI19NVVsIgF+Nsy5AnCS5dh1Z494Ph5vr4dFN17+Sm69egk8Vtk13QMDNTjs0+kj95NmgkDW1aSqEal
-        pI/eTZoJA1tWkqhGpbYOzHedRQxjfXQ6HQwG0QowmcyoIGEL6ysrtSgrL4fRaES9pV4SFpNqRnk5J242
+        tg7Md51FDGN9dDodDAbRCjCZzKggYQvrKyu1KCsvh9FoRL2lXhIWk2pGeTknbjZJwqWTJ1l9+MwZePr7
-        ScKlkydZffjMGXj6+4uwttbRzVHh0NZBgk0eSLYh+/tL0NspUdi7L7SNgLamBpVNKyOJGQ34/tIlnDl7
+        i7C21tHNUeHQ1kGCTR5ItiH7+0vQ2ylR2LsvtI2AtqYGlU0rI4kZDfj+0iWcOXsGGXQVo8lImHDy08/o
-        Bhl0FaPJSJhw8tPP6It61NXV4XZhIbRaLdvrSbgMJaXF0Ov1LUQrxZv2VOUV0Dc2oIarXODrjSp3N2Rc
+        i3rU1dXhdmEhtFot2+tJuAwlpcXQ6/UtRCvFm/ZU5RXQNzaghqtc4OuNKnc3ZFy8KN3B3t5e4ermJvEA
-        vCjdwd7eXuHq5ibxALI2qQNHRlfhteUyLqq/uyAPg1jNSi23kMYNXCXxLHtlPsZED4NHBzccf/8AFi5Y
+        sjapA0dGV+G15TIuqr+7IA+DWM1KLbeQxg1cJfEse2U+xkQPg0cHNxx//wAWLliA1k4OeJ6HMOP6VTw7
-        gNZODniehzDj+lU8O2Ec8nOzZdsjR4/imXGjgcZ66A1GqztwIloxea6+igthYjv96S/kuKDb9R02TESH
+        YRzyc7Nl2yNHj+KZcaOBxnroDUarO3AiWjF5rr6KC2FiO/3pL+S4oNv1HTZMRIe9AT0CFL38e91Plleo
-        vQE9AhS9/HvdT5ZXqDnj9Ocw2fMmmjLFuv1cDZ1W10JWQPikeA4e+QDh/R/HNl63w8OCSaYWE0h2btJ0
+        OeP05zDZ8yaaMsW6/VwNnVbXQlZA+KR4Dh75AOH9H8c2XrfDw4JJphYTSHZu0nRMeW48Q9cV2e6DI4cR
-        THluPEPXFdnugyOHER0eBEt1NXfATBsVctWboavUyfMgCJeMH4uax9rgR4Yz8qnq6d9V0Tuw531kh3fw
+        HR4ES3U1d8BMGxVy1Zuhq9TJ8yAIl4wfi5rH2uBHhjPyqerp31XRO7DnfWSHd/Dx1mJfmvTVivPfylUV
-        8dZiX5r01Yrz38pVFQdC20RWGBYD1dTU0mfrERU5HGc/OYF0+nfSXycLXnjjzRWYlzgDC2YloahABDng
+        B0LbRFYYFgPV1NTSZ+sRFTkcZz85gXT6d9JfJwteeOPNFZiXOAMLZiWhqEAEOeCjjz/GlPHj5O+6hgZu
-        o48/xpTx4+TvuoYGbj/JctK/JCxcQyyOkasrfTf9GDr4+GjJKzKwR/d7yXIWn4ybPKkeY2NxNzwUuvpG
+        P8ly0r8kLFxDLI6Rqyt9N/0YOvj4aMkrMrBH93vJchafjJs8qR5jY3E3PBS6+kbo6Edy5vTTZqN6/hbP
-        6OhHcub002ajev4Wz8w5LyJmSJj8fZJkBwf1R05+Pp566kksX7wA8ZMm4TJ9TzxHj6cjNjoCmgo11IKU
+        zDkvImZImPx9kmQHB/VHTn4+nnrqSSxfvADxkybhMn1PPEePpyM2OgKaCjXUgpRBf59d6RKWWo5pRsmA
-        QX+fXekSllqOaUbJgEBg8nMY+/xz9fZK+8979/S/h+wWBuSKn059AbN7W5StWC5nqdUaYDabecK5RYRZ
+        QGDycxj7/HP19kr7z3v39L+H7BYG5IqfTn0Bs3tblK1YLmep1RpgNpt5wrlFhFmcXK6oeCY8+QSGBg9C
-        nFyuqHgmPPkEhgYPQkzkMGRcuoDdO7fDi1fx/ITJ0KpLMH3aVAwLG4SkhCk4QTd4cvQoRA0Nw7SJz8Jk
+        TOQwZFy6gN07t8OLV/H8hMnQqkswfdpUDAsbhKSEKThBN3hy9ChEDQ3DtInPwmSwTthq0yztmk1cGL1O
-        sE7YatMs7ZpNXBi9Tu5myZJ5sPTwwxfp6aDg0ZLbNha3rOp1oT9NR49ArbSD5uz/oEqa++3HUmXCXW5z
+        7mbJknmw9PDDF+npoODRkts2Fres6nWhP01Hj0CttIPm7P+gSpr77cdSZcJdbnPmT5eh06hlWWnhLdSy
-        5k+XodOoZVlp4S3Uslw8gtANHrQb9NtqRgs93Sjryk/IybwOC3XEbz1i3PKTR6GxpfDZkwqn1g8blI4O
+        XDyC0A0etBv022pGCz3dKOvKT8jJvA4LdcRvPWLc8pNHobGl8NmTCqfWDxuUjg6ZLG4iS6Hi2a2rzrIm
-        mSxuIkuh4tmtq86yJlmeRmN+Hhix8B616cSJEzF9+nQkJCRg2rRpLb9fpMp6+ZVFWPTKYsya/SKmsXze
+        WZ5GY34eGLHwHrXpxIkTMX36dCQkJGDatGktv1+kynr5lUVY9MpizJr9IqaxfN7ChZg5ew4S4hPw0tx5
-        woWYOXsOEuIT8NLceVi0aDFeXvQKkl6cjbnz52Ph4sVYwO/ExJlImGa1N2PGDH4nIj4+Hvv3pcpxdVd+
+        WLRoMV5e9AqSXpyNufPnY+HixVjA78TEmUiYZrU3Y8YMficiPj4e+/elynF1V37EXfLQJr8Nr27ddBQ6
-        xF3y0Ca/Da9u3XQUOtXNZJ1I1hIQEmzE0qW4LZybEWAebxXWwsvLG/7+/hJ+fn7w8fFhmVcTvJtg/fYW
+        1c1knUjWEhASbMTSpbgtnJsRYB5vFdbCy8sb/v7+En5+fvDx8WGZVxO8m2D99hZvTy/8xcsTnsT/tfOU
-        b08v/MXLE57E/7XzlHWerBP1Pt4+0la3bt2k3U6d/NCqlZMc77XkVbzS1FJOVi2ajx6DBhm58xbBU5Bt
+        dZ6sE/U+3j7SVrdu3aTdTp380KqVkxzvteRVvNLUUk5WLZqPHoMGGbnzFsFTkG3H9KN6wPBhZsyZC6PL
-        x/SjesDwYWbMmQujyyMoLihAOx8v2bl1axd4e3uhT98+CAsLxYjISMRQgIwcORLR0VGIonYYMWIEIiMi
+        IyguKEA7Hy/ZuXVrF3h7e6FP3z4ICwvFiMhIxFCAjBw5EtHRUYiidhgxYgQiIyIRERGB4cOHS0QIREbI
-        ERERgeHDh0tECERGyLroqCi2jZZ9RF/RJzw8DP369YOvry9cXFpDaW8vx/Pr2QOlmZkwPqJE/eyZ6BMe
+        uuioKLaNln1EX9EnPDwM/fr1g6+vL1xcWkNpby/H8+vZA6WZmTA+okT97JnoEx5uFvwET0G2ra3Srqbf
-        bhb8BE9Btq2t0q6m39BwE+bORUUrZ+hKSxEQPFB2trG1GhFQKh3Rpk1bPPaYB1emMwICAvF4//4ICgpC
+        0HAT5s5FRStn6EpLERA8UHa2sbUaEVAqHdGmTVs89pgHV6YzAgIC8Xj//ggKCkJwcAjCQsMkQkNDiXCW
-        cHAIwkLDJEJDQ4lwloWxLgT92SYgMACdO3eFh4cXXNu0g4OyVYtdWxtbOLayfgf074vymzdhdFSiNnE6
+        hbEuBP3ZJiAwAJ07d4WHhxdc27SDg7JVi11bG1s4trJ+B/Tvi/KbN2F0VKI2cToCQ0NMIpcTPAVZewqH
-        AkNDTCKXEzwFWXsKh0b/Af0NWP66VVBUmXHy7Jctxv6b2L33PaC4RMZa/eyX0LVfXwPdVCgxe0FWRAO9
+        Rv8B/Q1Y/rpVUFSZcfLsly3G/pvYvfc9oLhExlr97JfQtV9fA91UKDF7QVZEA727r4+2OmWrVPGaHy7R
-        u6+Ptjplq1Txmh8u0Z+Bi+fP4Q36za531+HEwQM4lrobKXT65GVLsW9LCtLT9mHjyhXY+NZKbF2zGm+/
+        n4GL58/hDfrNrnfX4cTBAziWuhspdPrkZUuxb0sK0tP2YePKFdj41kpsXbMab7+6GFtXJ2PDyjexasmr
-        uhhbVydjw8o3sWrJq9ixbi3Wr3gDya8txf7t27CFB3j9ytexd1sKtqxehSN/34mP30/DB7t3YRVtfp1+
+        2LFuLdaveAPJry3F/u3bsIUHeP3K17F3Wwq2rF6FI3/fiY/fT8MHu3dhFW1+nX5Ujlv5zTmUk0fh68vh
-        VI5b+c05lJNH4evL4e7jpbVT2omIxrlYyX7NWFZrPHwIajYqYv5UwdqGemtM1TAbOHToED6jUGl+sm5k
+        7uOltVPaiYjGuVjJfs1YVms8fAhqNipi/lTB2oZ6a0zVMBs4dOgQPqNQaX6ybmTj2LFjDEN1qOetZGbM
-        49ixYwxDdajnrWRmzBSP2chYzDLxGHhQ65tsFFHY1NXWoIFtS6hnGyleLv3wI/bs2YtPT57gVS3iAM82
+        FI/ZyFjMMvEYeFDrm2wUUdjU1daggW1LqGcbKV4u/fAj9uzZi09PnuBVLeIAzzZRvGYtdOTx3aaNsHdQ
-        UbxmLXTk8d2mjbB3UNY4ODqcY7GVLLGKZG+nHzpIXaBEEYWwuP0rmm6rSZOnwNlGAScHJZYsWSwFtEeH
+        1jg4OpxjsZUssYpkb6cfOkhdoEQRhbC4/SuabqtJk6fA2UYBJwcllixZLAW0R4f2ctsWLVyA7Tu2YeqU
-        9nLbFi1cgO07tmHqlImy7QT23cq8Sjwd2OZzXsficXvUDXN5BesphJ4YMwYHUlPRmYcrIjgI40ZFIS87
+        ibLtBPbdyrxKPB3Y5nNex+Jxe9QNc3kF6ymEnhgzBgdSU9GZhysiOAjjRkUhLzvLqm2JEh7GGvrwhvXr
-        y6ptiRIexhr68Ib162DvqLxDN0hmcQtZIbjThsaOqkbMGBQ6tIJKXItNs42Li8NhblVxSTHCBjyOOJ7m
+        YO+ovEM3SGZxC1khuNOGxo6qRswYFDq0gkpci02zjYuLw2FuVXFJMcIGPI44nuaFsxLRWFeDyMGDETci
-        hbMS0VhXg8jBgxE3IhIJk6xkR0ZFImXtGnz3PWUeJ/PyrJmyPHiQ9cB+SvLzKOrXJb+F0IH9cfz4MVxh
+        EgmTrGRHRkUiZe0afPc9ZR4n8/KsmbI8eJD1wH5K8vMo6tclv4XQgf1x/PgxXGGeZuCloWE7VWGRDFsV
-        nmbgpaFhO1VhkQxbFaOiETwiooYusH9IROi92oDo7vyIiwGffCKz1zKm1FYxCIx9YiyOcCUsJB/L67V/
+        o6IRPCKihi6wf0hE6L3agOju/IiLAZ98IrPXMqbUVjEIjH1iLI5wJSwkH8vrtX8Pf2zb8I6sG//kWAQH
-        D39s2/COrBv/5FgEB/bG4pfmyO+nJzyFZIqZ+BmJeHLUSIQEDUBR0R3M46o+QwJeHh6YOG4MPji0F906
+        9sbil+bI76cnPIVkipn4GYl4ctRIhAQNQFHRHczjqj5DAl4eHpg4bgw+OLQX3Tp3RuzQIdhM37bUmaxy
-        d0bs0CHYTN+21JmscnTjZkn2xq6tcHJpLUR4j+iIyPvI0nftCj+k39Z7eqKwaxepD8Qzmiu7ZP4CbNy+
+        dONmSfbGrq1wcmktRHiP6IjI+8jSd+0KP6Tf1nt6orBrF6kPxDOaK7tk/gJs3L4dkSHBWJiUSMUVQYl4
-        HZEhwViYlEjFFUGJeBghDEvzp8cjdmQUyilURjKmTn/hWfT2747YISH4i8djSOVBem78Ezh98iM8+8JE
+        GCEMS/OnxyN2ZBTKKVRGMqZOf+FZ9PbvjtghIfiLx2NI5UF6bvwTOH3yIzz7wkR40CX27NpO8TMIl8+d
-        eNAl9uzaTvEzCJfPncUPFPLqOosUTqXtO6Csc0es2bNTJJBFXXz9FF06db6fLDHas2sXHXbulLlX2YbN
+        xQ8U8uo6ixROpe07oKxzR6zZs1MkkEVdfP0UXTp1vp8sMdqzaxcddu6UuVfZhs2S7MbVa9D24VbwaP0w
-        kuzG1WvQ9uFW8Gj9MNJSNsqyic9MgB3bvPPaMvk9depkuc3z4idjxauvYHxMlCzfxEgyPm4kFs+djR8v
+        0lI2yrKJz0yAHdu889oy+T116mS5zfPiJ2PFq69gfEyULN/ESDI+biQWz52NHy9cQEFRISY8EYfzzDLi
-        XEBBUSEmPBGH88wy4mK40hQ/w+m3hTxwdevX4yZtFOzahPadOurIZ2x7t0cV7R+cKRC2NneP0o8YzZHL
+        YrjSFD/D6beFPHB169fjJm0U7NqE9p066shnbHu3RxXtH5wpELY2d4/SjxjNkcuO6tx86fjqwgImi6XU
-        jurcfOn46sICJoul1LE1MFVVU33VQlNyhylMLapqLVRQRvzEUGdiMikkoIZtzayrtdSh8FY+DDysauZj
+        sTUwVVVTfdVCU3KHKUwtqmotVFBG/MRQZ2IyKSSghm3NrKu11KHwVj4MPKxq5mNSZTEt0tJHq9jnLqNK
-        UmUxLdLSR6vY5y6jSklDI1RXr1pzvmFhWJP6nkhrirkYCmcnR4kHk7VRDHrI1VWHK1fl367yeM3qa2vR
+        SUMjVFevWnO+YWFYk/qeSGuKuRgKZydHiQeTtVEMesjVVYcrV+XfrvJ4zepra9HA1jW1ddDqDCgrLWN6
-        wNY1tXXQ6gwoKy1jemKQPqxjeBLfBoM1dBnNVUx9TJxAnSwXmrWWv42UgSKVUfHeF5MVGtZkNEvhUs93
+        YpA+rGN4Et8GgzV0Gc1VTH1MnECdLBeatZa/jZSBIpVR8d4XkxUa1mQ0S+FSz3d5F39kcLwr334Jp0dc
-        eRd/ZHC8K99+CadHXIToDurc1VfRyc9bgs0eSFbgqH8whc3Jk/KwFcbEQohAEXtVZWWMu8xwZZarYsba
+        hOgO6tzVV9HJz1uCzR5IVuCofzCFzcmT8rAVxsRCiEARe1VlZYy7zHBllqtixtqU8fKtavpuhiynfFSp
-        lPHyrWr6boYsp3xUqZvasZ+1Lb+FHdqTcTVsMC6KcVJ3oWOf3iaGquMhIf0UAwf1acE/I8vDZpOxbAev
+        m9qxn7Utv4Ud2pNxNWwwLopxUnehY5/eJoaq4yEh/RQDB/VpwT8jy8Nmk7FsB6++nTukErvF+15t1Mv4
-        vp07pBK7xftebdTL+KsWW1piJd1MVLx/jV+SbvnmaqspssXfIcxMxW/36YcLtH/zrb/hBd50Sgfl9emJ
+        qxZbWmIl3UxUvH+NX5Ju+eZqqymyxd8hzEzFb/fphwu0f/Otv+EF3nRKB+X16YlTFNNmTlUk8N2Mf0qW
-        UxTTZk5VJPDdjH9KlhB/lVG9+1E6M8MPZDjJdW2H8i++lIQFNHQBDf1QkhB/U+CKtZAVE5HlXMVy1qnK
+        EH+VUb37UTozww9kOMl1bYfyL76UhAU0dAEN/VCSEH9T4Iq1kBUTkeVcxXLWqcpRbrJOVoRELfOya85O
-        UW6yTlaERC3zsmvOTjhPu9ffXoaZ65PBFEYjxp01L1Exa+6Me/D/kRVw54G7HclcCOcvwNTGVZ7WorFj
+        OE+7199ehpnrk8EURiPGnTUvUTFr7ox78P+RFXDngbsdyVwI5y/A1MZVntaisWOhzr4p3UIMruVJruDB
-        oc6+Kd1CDK7lSa7gwVEzrbYSV3HrSVBkwhRFGuHbbCe8Wns9A7eiY/A17Vxu54or+7YgePSYBqquO2K8
+        UTOtthJXcetJUGTCFEUa4dtsJ7xaez0Dt6Jj8DXtXG7niiv7tiB49JgGqq47Yryk2fGK6bPiFYmzE+7B
-        pNnxiumz4hWJsxPuwe8hK/CIja3tWd9eAYZr3/8DSJoh/0gs1Fkhb6/igwehLrjNOFkniUu/JoQ/yonw
+        7yEr8IiNre1Z314Bhmvf/wNImiH/SCzUWSFvr+KDB6EuuM04WSeJS78mhD/KifBwavLyUcpLJZvyUfjm
-        cGry8lHKSyWb8lH45nfEzxOfwvsH98CjezeD80Otv+Y4rq8vWaiYmTRVMeMPkG3G83b29rVxf53aUElx
+        d8TPE5/C+wf3wKN7N4PzQ62/5jiury9ZqJiZNFUx4w+Qbcbzdvb2tXF/ndpQSXGMF+egytFRhhtJnMH/
-        jBfnoMrRUYYbSZzB/25cLG5Pm4FbM5Nwm6nPbcbR7Ec74CrrBcnrSltcHTMCp97fhfCxsQ3CHu1O/PvO
+        blwsbk+bgVszk3Cbqc9txtHsRzvgKusFyetKW1wdMwKn3t+F8LGxDcIe7U78+85TilNfZyleW/zyn0ZW
-        U4pTX2cpXlv88p9GVqCtvdLhhL2jg2n4+HGWb8+cQS3FD5iLIWQwLK5uMFJIiz/ZVyrsUEqhficwEEXP
+        oK290uGEvaODafj4cZZvz5xBLcUPmIshZDAsrm4wUkiLP9lXKuxQSqF+JzAQRc9PwMUVf0Pqts0YPCbO
-        T8DFFX9D6rbNGDwmzuLo7Gyimjoh7C19da1i06YPFZ9/dV2x/NU/b2V/CU8ijSHGKGJyr5Ag00rePmdP
+        4ujsbKKaOiHsLX11rWLTpg8Vn391XbH81T9vZX8JTyKNIcYoYnKvkCDTSt4+Z0+cwKWTH+Ny+oc4f+QY
-        nMClkx/jcvqHOH/kGI4fOIBFb7yOXkEDTS5ubjqupMmxlVMa+3o123p5wUpFyuaP/qNkf4m+RAqRTzQy
+        jh84gEVvvI5eQQNNLm5uOq6kybGVUxr7ejXbennBSkXK5o/+o2R/ib5ECpFPNDLk1djY21ZTI4tUpNFO
-        5NXY2NtWUyOLVKTRTqnMJ0lRL9rd1/+/TfbXEP+4c2t6P6j+HggSvw9Q/C+wj5aKeF+uKQAAAABJRU5E
+        qcwnSVEv2t3X/79N9tcQ/7hza3o/qP4eCBK/D1D8L7CPlop4X64pAAAAAElFTkSuQmCC
-        rkJggg==
 </value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

Aviso/frmAddAktenvermerkShort.vb

@@ -92,7 +92,7 @@ Public Class frmAddAktenvermerkShort
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
 btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
- btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click
+ btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click, btnDispoangefordert.Click
 
 
         If sender Is Nothing Then
@@ -180,6 +180,8 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
             End If
         ElseIf sender Is btnSonstiges Then
             insertVermerk(txtSonstiges.Text, 46)
+        ElseIf sender Is btnDispoangefordert Then
+            insertVermerk("Dispoliste angefordert", 57)
         End If
 
 

Aviso/frmAddSendungsvermerkShort.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAddSendungsvermerkShort
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,13 +20,14 @@ Partial Class frmAddSendungsvermerkShort
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddSendungsvermerkShort))
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.pnlMain = New System.Windows.Forms.Panel()
         Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
+        Me.cbxRgBest = New System.Windows.Forms.CheckBox()
         Me.optUeberwachungsdok = New System.Windows.Forms.CheckBox()
         Me.lblErrSpedition = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -64,7 +65,6 @@ Partial Class frmAddSendungsvermerkShort
         Me.PictureBox4 = New System.Windows.Forms.PictureBox()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.cbxRgBest = New System.Windows.Forms.CheckBox()
         Me.pnlMain.SuspendLayout()
         Me.pnlSendungsVermker.SuspendLayout()
         CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -83,7 +83,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlMain.Location = New System.Drawing.Point(0, 0)
         Me.pnlMain.Name = "pnlMain"
-        Me.pnlMain.Size = New System.Drawing.Size(434, 388)
+        Me.pnlMain.Size = New System.Drawing.Size(434, 386)
         Me.pnlMain.TabIndex = 0
         '
         'pnlSendungsVermker
@@ -130,9 +130,19 @@ Partial Class frmAddSendungsvermerkShort
         Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0)
         Me.pnlSendungsVermker.Name = "pnlSendungsVermker"
-        Me.pnlSendungsVermker.Size = New System.Drawing.Size(434, 388)
+        Me.pnlSendungsVermker.Size = New System.Drawing.Size(434, 386)
         Me.pnlSendungsVermker.TabIndex = 0
         '
+        'cbxRgBest
+        '
+        Me.cbxRgBest.AutoSize = True
+        Me.cbxRgBest.Location = New System.Drawing.Point(270, 161)
+        Me.cbxRgBest.Name = "cbxRgBest"
+        Me.cbxRgBest.Size = New System.Drawing.Size(146, 17)
+        Me.cbxRgBest.TabIndex = 86
+        Me.cbxRgBest.Text = "Rechnungsbestät. angef."
+        Me.cbxRgBest.UseVisualStyleBackColor = True
+        '
         'optUeberwachungsdok
         '
         Me.optUeberwachungsdok.AutoSize = True
@@ -148,7 +158,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.lblErrSpedition.AutoSize = True
         Me.lblErrSpedition.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblErrSpedition.ForeColor = System.Drawing.Color.Red
-        Me.lblErrSpedition.Location = New System.Drawing.Point(175, 230)
+        Me.lblErrSpedition.Location = New System.Drawing.Point(175, 226)
         Me.lblErrSpedition.Name = "lblErrSpedition"
         Me.lblErrSpedition.Size = New System.Drawing.Size(158, 13)
         Me.lblErrSpedition.TabIndex = 17
@@ -160,7 +170,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label2.AutoSize = True
         Me.Label2.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label2.Location = New System.Drawing.Point(175, 230)
+        Me.Label2.Location = New System.Drawing.Point(175, 226)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(57, 13)
         Me.Label2.TabIndex = 84
@@ -171,7 +181,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.lblErrGrund.AutoSize = True
         Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke
         Me.lblErrGrund.ForeColor = System.Drawing.Color.Red
-        Me.lblErrGrund.Location = New System.Drawing.Point(120, 289)
+        Me.lblErrGrund.Location = New System.Drawing.Point(120, 285)
         Me.lblErrGrund.Name = "lblErrGrund"
         Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
         Me.lblErrGrund.TabIndex = 26
@@ -222,7 +232,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.txtSpedition.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSpedition.Location = New System.Drawing.Point(177, 246)
+        Me.txtSpedition.Location = New System.Drawing.Point(177, 242)
         Me.txtSpedition.MaxLength = 50
         Me.txtSpedition.Name = "txtSpedition"
         Me.txtSpedition.Size = New System.Drawing.Size(125, 20)
@@ -252,7 +262,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optSpeditionWeitergeleitet.AutoSize = True
         Me.optSpeditionWeitergeleitet.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 248)
+        Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 244)
         Me.optSpeditionWeitergeleitet.Name = "optSpeditionWeitergeleitet"
         Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17)
         Me.optSpeditionWeitergeleitet.TabIndex = 19
@@ -263,7 +273,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.optFreierText.AutoSize = True
         Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.optFreierText.Location = New System.Drawing.Point(12, 271)
+        Me.optFreierText.Location = New System.Drawing.Point(12, 267)
         Me.optFreierText.Name = "optFreierText"
         Me.optFreierText.Size = New System.Drawing.Size(105, 17)
         Me.optFreierText.TabIndex = 27
@@ -304,7 +314,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.Label3.AutoSize = True
         Me.Label3.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Label3.Location = New System.Drawing.Point(308, 249)
+        Me.Label3.Location = New System.Drawing.Point(308, 245)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(57, 13)
         Me.Label3.TabIndex = 22
@@ -314,7 +324,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.lblErr240Zeichen.AutoSize = True
         Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red
-        Me.lblErr240Zeichen.Location = New System.Drawing.Point(200, 309)
+        Me.lblErr240Zeichen.Location = New System.Drawing.Point(200, 305)
         Me.lblErr240Zeichen.Name = "lblErr240Zeichen"
         Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13)
         Me.lblErr240Zeichen.TabIndex = 32
@@ -326,7 +336,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.txtDetail.AcceptsReturn = True
         Me.txtDetail.BackColor = System.Drawing.Color.White
         Me.txtDetail.ForeColor = System.Drawing.SystemColors.InfoText
-        Me.txtDetail.Location = New System.Drawing.Point(12, 325)
+        Me.txtDetail.Location = New System.Drawing.Point(12, 321)
         Me.txtDetail.MaxLength = 240
         Me.txtDetail.Multiline = True
         Me.txtDetail.Name = "txtDetail"
@@ -339,7 +349,7 @@ Partial Class frmAddSendungsvermerkShort
         'Label18
         '
         Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(9, 309)
+        Me.Label18.Location = New System.Drawing.Point(9, 305)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(142, 13)
         Me.Label18.TabIndex = 31
@@ -349,7 +359,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.txtSendungSpedition.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtSendungSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 246)
+        Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 242)
         Me.txtSendungSpedition.MaxLength = 50
         Me.txtSendungSpedition.Name = "txtSendungSpedition"
         Me.txtSendungSpedition.Size = New System.Drawing.Size(25, 20)
@@ -370,7 +380,7 @@ Partial Class frmAddSendungsvermerkShort
         'btnOK
         '
         Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOK.Location = New System.Drawing.Point(301, 325)
+        Me.btnOK.Location = New System.Drawing.Point(301, 321)
         Me.btnOK.Name = "btnOK"
         Me.btnOK.Size = New System.Drawing.Size(124, 54)
         Me.btnOK.TabIndex = 34
@@ -392,7 +402,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label9.AutoSize = True
         Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Label9.Location = New System.Drawing.Point(332, 289)
+        Me.Label9.Location = New System.Drawing.Point(332, 285)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(90, 13)
         Me.Label9.TabIndex = 30
@@ -425,7 +435,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label17.AutoSize = True
         Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Italic)
-        Me.Label17.Location = New System.Drawing.Point(119, 289)
+        Me.Label17.Location = New System.Drawing.Point(119, 285)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(182, 13)
         Me.Label17.TabIndex = 29
@@ -436,7 +446,7 @@ Partial Class frmAddSendungsvermerkShort
         Me.Label13.AutoSize = True
         Me.Label13.BackColor = System.Drawing.Color.WhiteSmoke
         Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(9, 221)
+        Me.Label13.Location = New System.Drawing.Point(9, 217)
         Me.Label13.Name = "Label13"
         Me.Label13.Size = New System.Drawing.Size(79, 17)
         Me.Label13.TabIndex = 16
@@ -468,7 +478,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtFreierText.Location = New System.Drawing.Point(122, 269)
+        Me.txtFreierText.Location = New System.Drawing.Point(122, 265)
         Me.txtFreierText.MaxLength = 80
         Me.txtFreierText.Name = "txtFreierText"
         Me.txtFreierText.Size = New System.Drawing.Size(302, 20)
@@ -489,7 +499,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.Label20.AutoSize = True
         Me.Label20.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.Label20.Location = New System.Drawing.Point(267, 249)
+        Me.Label20.Location = New System.Drawing.Point(267, 245)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(0, 13)
         Me.Label20.TabIndex = 21
@@ -509,7 +519,7 @@ Partial Class frmAddSendungsvermerkShort
         '
         Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
         Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.PictureBox4.Location = New System.Drawing.Point(-1, 210)
+        Me.PictureBox4.Location = New System.Drawing.Point(-1, 206)
         Me.PictureBox4.Name = "PictureBox4"
         Me.PictureBox4.Size = New System.Drawing.Size(435, 95)
         Me.PictureBox4.TabIndex = 78
@@ -535,21 +545,11 @@ Partial Class frmAddSendungsvermerkShort
         Me.Panel4.Size = New System.Drawing.Size(434, 0)
         Me.Panel4.TabIndex = 1
         '
-        'cbxRgBest
-        '
-        Me.cbxRgBest.AutoSize = True
-        Me.cbxRgBest.Location = New System.Drawing.Point(270, 161)
-        Me.cbxRgBest.Name = "cbxRgBest"
-        Me.cbxRgBest.Size = New System.Drawing.Size(146, 17)
-        Me.cbxRgBest.TabIndex = 86
-        Me.cbxRgBest.Text = "Rechnungsbestät. angef."
-        Me.cbxRgBest.UseVisualStyleBackColor = True
-        '
         'frmAddSendungsvermerkShort
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(434, 388)
+        Me.ClientSize = New System.Drawing.Size(434, 386)
         Me.Controls.Add(Me.pnlMain)
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

Aviso/frmAddSendungsvermerkShort.vb

@@ -188,6 +188,8 @@ Public Class frmAddSendungsvermerkShort
             'insertSendungsVermerk(SendungID,myAviso.AvisoID,"ATA-Nr. bei Sendung " & txtSendung.Text.Trim & " erhalten", 34)
 
         End If
+        'If cbxDispoliste.Checked = True Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Dispoliste bei " & txtSendung.Text.Trim & " angefordert", 57)
+
 
         'If optFach.Checked = True Then
         '     If txtFach.Text.Trim = "" Then

Aviso/frmHauptfenster.vb

@@ -2708,8 +2708,57 @@ Public Class frmHauptfenster
     End Sub
 
     Private Sub TESTToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles TESTToolStripMenuItem.Click
+        'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({"C:\Users\DEVELOPER1\Desktop\Reiter.pdf"})
+        ' VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
 
-        VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder("C:\Users\DEVELOPER1\Desktop\20191017092932604.pdf", 489919001, 1234)
+        TryPDF()
+    End Sub
+
+    Shared Sub TryPDF()
+        '  Spire.License.LicenseProvider.SetLicenseKey("0xMEMAEABRiC6jPC4G3HMNAremyuZ15w8z1KmLKr9LnNmK8HaKpB6Q2+qrwh1uG0h5ui52KoJSRMg1suH9cs+IW+GtPapLk/UMMWbBlil6FmO/3TvpVJeLs3UetAz3YYCThbpPViCAY/6vBZrGePq9jMpST0Ln3PgEAVK6Obm4NELOjk9GNUdQGXgdCQ7ry9QIXR5DPYOSi2gSkQ+WihEx9K1hS5bl6VYOmIeAg109mcPIzdlja8O8z8wvIrqBwdivQXCN88B0NzEoBr7EiKl3mQEIcm1W8B3ppWmYPeZt3xfkR9H+xdVVfRnK8AEEgfB+/YEA9K2hQZpTPhaz3cHq31hHqeS2/NgQxaTx0/QghmPaLnoxqR2v2dDRe2oOxfXqmeHTI5e9cl8nWcgYl2fRhaDSvYYOs7GeO8tmiOlgMCdg+JO3EMQByyQ+AACEKRuTB8TI7OIU9POPs6dWaEZyu3YuWSDk4rGnCmdpJ3gHCJ7Qy9qoBtv+psnJAe/ylQCbqdvejSAKKtUonSpolK2zhqFljWqsWclgxk4NdvOd4tphER9c7H5sr2cn/SZgCXRftpk+G6zT/JPcY7LH5OP4kgQR9pH3g7O67C0YPCE7+20gLsTNaPfv7/mGoIMzTbUoteJN5D9jTLipYtfh8eLaEsLWL1rJ+sqr+MQvoYDNeWq6oG8bjkTyFe2GQkOZlBZEmpmR7W2QliMC7uSfbuJe6XHpM3dgROIluQHJQDAKge+LlYOd+QU5QPsI754noJZttSNKthzPxI9rP/FN+otlvvG8nddbx8v+PZAJ6KovIvexH7lWITw/Xrak4wzzaXCoeC5wUM2M5Y/4PL8tbKM+qIrH0kMZPHAdGIM4wJ8PA1UoEqB9Hgml6ggzk69WA1zY88W0y03js/7a/tWgwa+sEK9YK+cJXy54FpsLRFqkpSA0mOcJa3ukST9wnCOzVdN+Z4K4mCUzR++VJPVNkAA+KxEHrOOWG5kaUwUAk0sVRB8j8pjB83InevzxZJGX0+F+agjZJHQpzPdF1blS9WQqrW9p80fco3YI63i9+K78Q5TIuSlHOlPTLvuC1dxglzD3WkLsxnBd9woA5zQLVMdfYTfGntOuAEiBYqyVIMo35J/ese8SxczTqKOCcxBdLYCtE4S23yik6gL1YifmvjboavpRl6BPEf9M8iLe2xLRiJ+63rXTnexITUUYsq2XqCOj2YDdDnQywjMfnQ74WRQfD1vrGu7xcCTDCDkfql8uF2f8w00kqCS9UgpnsEuw5FoElVrgPNLvOlDSgqLdHOG0yiL9wwzPxtUZBiq6vNxkEkc+w0ZaQr012bHQoDyR/uMKPoLgmANaCb7qnsWLeoo+IrhfjwpUW6dXnIo7ENAFS0U6kjwGMrWDJU2JaH3M+8Iz//HLDO3Yr3eWC+wtt/I3Ii48Ra6CgPYTOfeRL3L+NkEBYfCVdxpQ==")
+
+        Dim tmpFile = "C:\Users\DEVELOPER1\Desktop\Base\" & "27 AVN 83.pdf"
+        'Test file: 16 AST 87 AVIS.PDF'
+        Dim oldPdf As New Spire.Pdf.PdfDocument()
+        oldPdf.LoadFromFile(tmpFile)
+        For i As Integer = 0 To oldPdf.Pages.Count - 1
+            extractFirstPage(tmpFile, i)
+        Next i
+    End Sub
+
+    Shared Sub extractFirstPage(ByRef TmpFile, i)
+        Dim oldPdf As New Spire.Pdf.PdfDocument()
+        oldPdf.LoadFromFile(TmpFile)
+
+        Dim SplitPdf As New Spire.Pdf.PdfDocument()
+        Dim page1 As Spire.Pdf.PdfPageBase
+        page1 = SplitPdf.Pages.Add(oldPdf.Pages(0).Size, New Spire.Pdf.Graphics.PdfMargins(0))
+        oldPdf.Pages(0).CreateTemplate().Draw(page1, New PointF(0, 0))
+        Dim result As String = String.Format("C:\Users\DEVELOPER1\Desktop\Base\" & "output2\SplitOutput{0}.pdf", i)
+        SplitPdf.SaveToFile(result, Spire.Pdf.FileFormat.PDF)
+
+
+        Dim pdfNew As New Spire.Pdf.PdfDocument()
+        Dim page As Spire.Pdf.PdfPageBase
+
+        For j As Integer = 1 To oldPdf.Pages.Count - 1
+            Dim pageOLD As Spire.Pdf.PdfPageBase = oldPdf.Pages(j)
+            If pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle90 Then
+                page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
+            ElseIf pageOLD.Rotation = Spire.Pdf.PdfPageRotateAngle.RotateAngle270 Then
+                page = pdfNew.Pages.Add(New SizeF(pageOLD.Size.Height, pageOLD.Size.Width), New Spire.Pdf.Graphics.PdfMargins(0))
+            Else
+                page = pdfNew.Pages.Add(pageOLD.Size, New Spire.Pdf.Graphics.PdfMargins(0))
+            End If
+            oldPdf.Pages(j).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
+
+        Next
+
+        pdfNew.SaveToFile("C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf")
+
+        pdfNew.Dispose()
+        System.IO.File.Delete(TmpFile)
+        TmpFile = "C:\Users\DEVELOPER1\Desktop\Base\PFDtmp" & i & ".pdf"
 
     End Sub
 End Class
@@ -3547,10 +3596,10 @@ Public Class AvisoStatusFunctions
                 End Try
         End Select
 
-        If False Then
+        If True Then
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTONACHERFASSUNG", CONTROL.FindForm) Then
-                Dim doAutoNacherf = (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
+                Dim doAutoNacherf = True ' (vbYes = MsgBox("Autonacherfassung durchführen?", vbYesNoCancel))
                 If doAutoNacherf Then
                     AUTONACHERFASSUNG(CONTROL, AvisoID)
                 End If
@@ -3575,10 +3624,23 @@ Public Class AvisoStatusFunctions
             Next
 
             For Each s In SENDUNG_LIST
-                Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
+                If s.tblSnd_Abfertigungsart_ID = 23 Then
-                If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID Then
-                    s.tblSnd_SpeditionsbuchEingetragen = 1
+                        Dim Personalnummer = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FMZollPersID
-                    s.SAVE()
+
+                        Dim SPEDITIONSBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
+                        Dim ZOLL_IMPORT As New DAKOSY_Worker.cZOLL_IMPORT
+                        Dim notFound As Boolean = True
+                        SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, AvisoID, s.tblSnd_SendungID, "", "", "", "", "", notFound, True, Personalnummer)
+                        If ZOLL_IMPORT.checkIfAutoOK Then
+                            SPEDITIONSBUCH.SAVE()
+                        End If
+
+                        If ZOLL_IMPORT.AUTO_IMPORT(s.tblSnd_SendungID) Then
+                            s.tblSnd_SpeditionsbuchEingetragen = 1
+                            s.SAVE()
+                        End If
+                    End If
                 End If
             Next
 

Aviso/frmLogin.designer.vb

@@ -29,8 +29,10 @@ Partial Class frmLogin
         Me.btnOK = New System.Windows.Forms.Button()
         Me.txtSachbear = New System.Windows.Forms.TextBox()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.lblTESTSYSTEM = New System.Windows.Forms.Label()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -49,8 +51,6 @@ Partial Class frmLogin
         Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
         Me.Panel1.SuspendLayout()
         Me.Panel2.SuspendLayout()
         Me.ContextMenuStrip2.SuspendLayout()
@@ -106,8 +106,8 @@ Partial Class frmLogin
         '
         Me.Panel1.BackColor = System.Drawing.Color.White
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel1.Controls.Add(Me.FlatButton1)
         Me.Panel1.Controls.Add(Me.lblTESTSYSTEM)
+        Me.Panel1.Controls.Add(Me.FlatButton1)
         Me.Panel1.Controls.Add(Me.Panel2)
         Me.Panel1.Controls.Add(Me.picLogin)
         Me.Panel1.Controls.Add(Me.btnOK)
@@ -122,6 +122,20 @@ Partial Class frmLogin
         Me.Panel1.Size = New System.Drawing.Size(306, 218)
         Me.Panel1.TabIndex = 0
         '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Image = CType(resources.GetObject("FlatButton1.Image"), System.Drawing.Image)
+        Me.FlatButton1.Location = New System.Drawing.Point(267, -1)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(38, 35)
+        Me.FlatButton1.TabIndex = 0
+        Me.FlatButton1.UseVisualStyleBackColor = True
+        '
         'lblTESTSYSTEM
         '
         Me.lblTESTSYSTEM.AutoSize = True
@@ -146,6 +160,22 @@ Partial Class frmLogin
         Me.Panel2.Size = New System.Drawing.Size(304, 22)
         Me.Panel2.TabIndex = 8
         '
+        'FlatButton2
+        '
+        Me.FlatButton2.allowBorder = False
+        Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.wheel
+        Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.FlatButton2.ContextMenuStrip = Me.ContextMenuStrip2
+        Me.FlatButton2.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.FlatButton2.FlatAppearance.BorderSize = 0
+        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton2.Location = New System.Drawing.Point(283, 2)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(18, 18)
+        Me.FlatButton2.TabIndex = 13
+        Me.FlatButton2.UseVisualStyleBackColor = True
+        '
         'ContextMenuStrip2
         '
         Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.TESTSYSTEMToolStripMenuItem, Me.UpdateToolStripMenuItem1})
@@ -278,36 +308,6 @@ Partial Class frmLogin
         Me.ToolStripMenuItem1.Size = New System.Drawing.Size(112, 22)
         Me.ToolStripMenuItem1.Text = "Update"
         '
-        'FlatButton1
-        '
-        Me.FlatButton1.allowBorder = False
-        Me.FlatButton1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.FlatButton1.FlatAppearance.BorderSize = 0
-        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton1.Image = CType(resources.GetObject("FlatButton1.Image"), System.Drawing.Image)
-        Me.FlatButton1.Location = New System.Drawing.Point(267, -1)
-        Me.FlatButton1.Name = "FlatButton1"
-        Me.FlatButton1.Size = New System.Drawing.Size(38, 35)
-        Me.FlatButton1.TabIndex = 0
-        Me.FlatButton1.UseVisualStyleBackColor = True
-        '
-        'FlatButton2
-        '
-        Me.FlatButton2.allowBorder = False
-        Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.wheel
-        Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.FlatButton2.ContextMenuStrip = Me.ContextMenuStrip2
-        Me.FlatButton2.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.FlatButton2.FlatAppearance.BorderSize = 0
-        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton2.Location = New System.Drawing.Point(283, 2)
-        Me.FlatButton2.Name = "FlatButton2"
-        Me.FlatButton2.Size = New System.Drawing.Size(18, 18)
-        Me.FlatButton2.TabIndex = 13
-        Me.FlatButton2.UseVisualStyleBackColor = True
-        '
         'frmLogin
         '
         Me.AcceptButton = Me.btnOK

Aviso/frmLogin.vb

@@ -41,7 +41,8 @@ Public Class frmLogin
                 Case "ATILLA" : firma = "IMEX"
                 Case "IMEX" : firma = "UNISPED"
                 Case "UNISPED" : firma = "AMBAR"
-                Case "AMBAR" : firma = "VERAG"
+                Case "AMBAR" : firma = "FRONTOFFICE"
+                Case "FRONTOFFICE" : firma = "VERAG"
 
             End Select
             ' firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG"))
@@ -134,7 +135,7 @@ Public Class frmLogin
 
 
     Sub initstart()
-
+        picLogin.Size = New Size(picLogin.Width, 50)
         Select Case firma
             Case "VERAG"
                 '  cGlobal.ConnStrFMZOLL = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLL_PRODConnectionString
@@ -158,6 +159,9 @@ Public Class frmLogin
                 picLogin.Image = My.Resources.Unisped_logo
             Case "AMBAR"
                 picLogin.Image = My.Resources.ambar_simple
+            Case "FRONTOFFICE"
+                picLogin.Size = New Size(picLogin.Width, 71)
+                picLogin.Image = My.Resources.frontofficesub
         End Select
 
         'DEV FMZOLL

Aviso/frmSendungsdetailsNEU.vb

@@ -99,14 +99,15 @@ Public Class frmSendungsdetailsNEU
             '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
+                '   s.SAVE_HANDLING() 'derzeit ohne Funktion
             Next
         Else
             SENDUNG_LIST(CURRENT_INDEX).SAVE() 'Nur noch aktuelle Sendung speichern
+            ' SENDUNG_LIST(CURRENT_INDEX).SAVE_HANDLING()'derzeit ohne Funktion
         End If
         SAVE_ABRECHUNG()
 
@@ -123,7 +124,6 @@ Public Class frmSendungsdetailsNEU
             initDataBinding()
             '  initButtons()
         End If
-
     End Sub
 
     Sub PREV_SENDUNG()
@@ -303,7 +303,7 @@ Public Class frmSendungsdetailsNEU
 
         usrcntl_NCTS = New usrCntlSND_NCTSGestellungsadresse
         usrcntl_FISKAL = New usrCntlSND_NCTSFiskalEndempf
-        usrcntl_ATA = New usrCntlSND_Handling
+        'usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZollanmeldungen", Me) Then
             TabControl1.TabPages.Remove(tbZollabfertigung)
         End If
@@ -993,7 +993,7 @@ Public Class frmSendungsdetailsNEU
             pnlT1.Controls.Clear()
             usrcntl_NCTS.reset()
             usrcntl_FISKAL.reset()
-            usrcntl_ATA.reset()
+            usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
             '   txtT1Verzollungsadresse.Text = ""
             Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID
                 Case 5, 6
@@ -1018,7 +1018,7 @@ Public Class frmSendungsdetailsNEU
                     usrcntl_FISKAL.rtbFiskalEndempf.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_EUFiskalEmpfaenger, "")
                     pnlT1.Controls.Add(usrcntl_FISKAL)
                 Case 23
-                    usrcntl_ATA.txtATA.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
+                    usrcntl_ATA.txtATAold.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr, "")
                     usrcntl_ATA.txtATCMRNFremd.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd, "")
                     pnlT1.Controls.Add(usrcntl_ATA)
             End Select
@@ -1268,9 +1268,10 @@ Public Class frmSendungsdetailsNEU
             Case 23
                 '      SENDUNG_LIST(CURRENT_INDEX).tblSnd_Endempfaenger = txtT1Verzollungsadresse.Text
                 If pnlT1.Controls.Count > 0 AndAlso pnlT1.Controls(0).GetType Is GetType(usrCntlSND_Handling) Then
-                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATA.Text
                     SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATCMRN_Fremd = usrcntl_ATA.txtATCMRNFremd.Text
-
+                    SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.txtATAold.Text
+                    'SENDUNG_LIST(CURRENT_INDEX).HANDLING = usrcntl_ATA.GET_HANDLING()'derzeit ohne Funktion
+                    'SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATANr = usrcntl_ATA.GET_HANDLING_String()'derzeit ohne Funktion
                 End If
         End Select
 

Aviso/usrCntlSND_Handling.Designer.vb

@@ -22,56 +22,75 @@ Partial Class usrCntlSND_Handling
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.pnlT1 = New System.Windows.Forms.Panel()
-        Me.txtATA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label33 = New System.Windows.Forms.Label()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.clmnArt = New System.Windows.Forms.DataGridViewComboBoxColumn()
+        Me.Nr = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.txtATCMRNFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtATAold = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
         Me.pnlT1.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnlT1
         '
+        Me.pnlT1.Controls.Add(Me.Label3)
+        Me.pnlT1.Controls.Add(Me.Label2)
+        Me.pnlT1.Controls.Add(Me.MyDatagridview1)
         Me.pnlT1.Controls.Add(Me.txtATCMRNFremd)
         Me.pnlT1.Controls.Add(Me.Label1)
-        Me.pnlT1.Controls.Add(Me.txtATA)
+        Me.pnlT1.Controls.Add(Me.txtATAold)
-        Me.pnlT1.Controls.Add(Me.Label33)
         Me.pnlT1.Location = New System.Drawing.Point(0, 0)
         Me.pnlT1.Name = "pnlT1"
         Me.pnlT1.Size = New System.Drawing.Size(549, 92)
         Me.pnlT1.TabIndex = 67
         '
-        'txtATA
+        'Label2
         '
-        Me.txtATA._DateTimeOnly = False
+        Me.Label2.AutoSize = True
-        Me.txtATA._numbersOnly = False
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtATA._numbersOnlyKommastellen = ""
+        Me.Label2.Location = New System.Drawing.Point(410, 9)
-        Me.txtATA._Prozent = False
+        Me.Label2.Name = "Label2"
-        Me.txtATA._ShortDateNew = False
+        Me.Label2.Size = New System.Drawing.Size(58, 13)
-        Me.txtATA._ShortDateOnly = False
+        Me.Label2.TabIndex = 36
-        Me.txtATA._TimeOnly = False
+        Me.Label2.Text = "0 Handling"
-        Me.txtATA._value = ""
+        Me.Label2.Visible = False
-        Me.txtATA._Waehrung = False
-        Me.txtATA._WaehrungZeichen = True
-        Me.txtATA.ForeColor = System.Drawing.Color.Black
-        Me.txtATA.Location = New System.Drawing.Point(121, 11)
-        Me.txtATA.MaxLength = 500
-        Me.txtATA.MaxLineLength = -1
-        Me.txtATA.MaxLines_Warning = ""
-        Me.txtATA.MaxLines_Warning_Label = Nothing
-        Me.txtATA.Name = "txtATA"
-        Me.txtATA.Size = New System.Drawing.Size(265, 20)
-        Me.txtATA.TabIndex = 32
         '
-        'Label33
+        'MyDatagridview1
         '
-        Me.Label33.AutoSize = True
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
-        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyDatagridview1.AllowUserToResizeColumns = False
-        Me.Label33.Location = New System.Drawing.Point(23, 14)
+        Me.MyDatagridview1.AllowUserToResizeRows = False
-        Me.Label33.Name = "Label33"
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Control
-        Me.Label33.Size = New System.Drawing.Size(48, 13)
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.Label33.TabIndex = 1
+        Me.MyDatagridview1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnArt, Me.Nr})
-        Me.Label33.Text = "ATA-Nr.:"
+        Me.MyDatagridview1.Location = New System.Drawing.Point(397, 25)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.RowHeadersWidth = 25
+        Me.MyDatagridview1.Size = New System.Drawing.Size(148, 64)
+        Me.MyDatagridview1.TabIndex = 35
+        Me.MyDatagridview1.Visible = False
+        '
+        'clmnArt
+        '
+        Me.clmnArt.DisplayStyle = System.Windows.Forms.DataGridViewComboBoxDisplayStyle.ComboBox
+        Me.clmnArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.clmnArt.HeaderText = "Art"
+        Me.clmnArt.Items.AddRange(New Object() {"ATA", "MRN", "CRN"})
+        Me.clmnArt.Name = "clmnArt"
+        Me.clmnArt.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.clmnArt.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.clmnArt.Width = 60
+        '
+        'Nr
+        '
+        Me.Nr.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.Nr.HeaderText = "ATA/CRN/MRN"
+        Me.Nr.Name = "Nr"
         '
         'txtATCMRNFremd
         '
@@ -86,25 +105,57 @@ Partial Class usrCntlSND_Handling
         Me.txtATCMRNFremd._Waehrung = False
         Me.txtATCMRNFremd._WaehrungZeichen = True
         Me.txtATCMRNFremd.ForeColor = System.Drawing.Color.Black
-        Me.txtATCMRNFremd.Location = New System.Drawing.Point(121, 37)
+        Me.txtATCMRNFremd.Location = New System.Drawing.Point(146, 47)
         Me.txtATCMRNFremd.MaxLength = 500
         Me.txtATCMRNFremd.MaxLineLength = -1
         Me.txtATCMRNFremd.MaxLines_Warning = ""
         Me.txtATCMRNFremd.MaxLines_Warning_Label = Nothing
         Me.txtATCMRNFremd.Name = "txtATCMRNFremd"
-        Me.txtATCMRNFremd.Size = New System.Drawing.Size(265, 20)
+        Me.txtATCMRNFremd.Size = New System.Drawing.Size(245, 20)
         Me.txtATCMRNFremd.TabIndex = 34
         '
         'Label1
         '
         Me.Label1.AutoSize = True
         Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(23, 40)
+        Me.Label1.Location = New System.Drawing.Point(44, 50)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(96, 13)
         Me.Label1.TabIndex = 33
         Me.Label1.Text = "ATC/MRN (fremd):"
         '
+        'txtATAold
+        '
+        Me.txtATAold._DateTimeOnly = False
+        Me.txtATAold._numbersOnly = False
+        Me.txtATAold._numbersOnlyKommastellen = ""
+        Me.txtATAold._Prozent = False
+        Me.txtATAold._ShortDateNew = False
+        Me.txtATAold._ShortDateOnly = False
+        Me.txtATAold._TimeOnly = False
+        Me.txtATAold._value = ""
+        Me.txtATAold._Waehrung = False
+        Me.txtATAold._WaehrungZeichen = True
+        Me.txtATAold.ForeColor = System.Drawing.Color.Black
+        Me.txtATAold.Location = New System.Drawing.Point(146, 21)
+        Me.txtATAold.MaxLength = 500
+        Me.txtATAold.MaxLineLength = -1
+        Me.txtATAold.MaxLines_Warning = ""
+        Me.txtATAold.MaxLines_Warning_Label = Nothing
+        Me.txtATAold.Name = "txtATAold"
+        Me.txtATAold.Size = New System.Drawing.Size(245, 20)
+        Me.txtATAold.TabIndex = 32
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(44, 24)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(48, 13)
+        Me.Label3.TabIndex = 37
+        Me.Label3.Text = "ATA-Nr.:"
+        '
         'usrCntlSND_Handling
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -114,12 +165,17 @@ Partial Class usrCntlSND_Handling
         Me.Size = New System.Drawing.Size(549, 92)
         Me.pnlT1.ResumeLayout(False)
         Me.pnlT1.PerformLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
     Friend WithEvents pnlT1 As System.Windows.Forms.Panel
-    Friend WithEvents Label33 As System.Windows.Forms.Label
+    Friend WithEvents txtATAold As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtATA As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents txtATCMRNFremd As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label1 As Label
+    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label2 As Label
+    Friend WithEvents clmnArt As DataGridViewComboBoxColumn
+    Friend WithEvents Nr As DataGridViewTextBoxColumn
+    Friend WithEvents Label3 As Label
 End Class

Aviso/usrCntlSND_Handling.resx

@@ -117,4 +117,10 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Nr.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>

Aviso/usrCntlSND_Handling.vb

@@ -1,7 +1,61 @@
 Public Class usrCntlSND_Handling
+    Public SendungsID As Integer
 
+    Sub New(SendungsID)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.SendungsID = SendungsID
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Public Sub reset()
-        txtATA.Text = ""
+        txtATAold.Text = ""
         txtATCMRNFremd.Text = ""
     End Sub
+
+    Private Sub MyDatagridview1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellContentClick
+
+    End Sub
+
+    Private Sub MyDatagridview1_RowsAdded(sender As Object, e As DataGridViewRowsAddedEventArgs) Handles MyDatagridview1.RowsAdded
+        Label2.Text = (MyDatagridview1.Rows.Count - 1) & " Handling"
+    End Sub
+
+    Private Sub MyDatagridview1_RowsRemoved(sender As Object, e As DataGridViewRowsRemovedEventArgs) Handles MyDatagridview1.RowsRemoved
+        Label2.Text = (MyDatagridview1.Rows.Count - 1) & " Handling"
+    End Sub
+
+    Private Sub usrCntlSND_Handling_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Dim SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsID)
+        If SENDUNG IsNot Nothing Then
+            SENDUNG.LOAD_HANDLING()
+            For Each h In SENDUNG.HANDLING
+                MyDatagridview1.Rows.Add(h.sndhdg_abrArt, h.sndhdg_nr)
+            Next
+        End If
+
+    End Sub
+
+    Public Function GET_HANDLING() As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
+        Dim LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
+        For Each r As DataGridViewRow In MyDatagridview1.Rows
+            If r.Cells(1).Value <> "" Then
+                Dim art = r.Cells(0).Value
+                If art = "" Then art = "ATA"
+                LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(SendungsID, art, r.Cells(1).Value))
+            End If
+        Next
+        Return LIST
+    End Function
+
+    Public Function GET_HANDLING_STRING() As String
+        Dim LIST = GET_HANDLING()
+        GET_HANDLING_STRING = ""
+        Dim demitter = ""
+        For Each l In LIST
+            GET_HANDLING_STRING &= demitter & l.sndhdg_nr
+            demitter = ", "
+        Next
+    End Function
 End Class

Aviso/usrcntlAktDetails.vb

@@ -717,6 +717,12 @@ Public Class usrcntlAktDetails
                     VermerkeDAL.SpeichernVermerk(myVermerk)
                     init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
 
+                Case "57"
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.VermerkCodeId = 58
+                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+
 
             End Select
             loaded = False
@@ -823,6 +829,11 @@ Public Class usrcntlAktDetails
                                 optionCell.Value = "Rg-Best. erhalten"
                                 optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
                             End If
+                        Case 57
+                            If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "Dispoliste erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
+                            End If
                     End Select
                 End If
             Next
@@ -1942,33 +1953,36 @@ Public Class usrcntlAktDetails
     Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID})
         Panel4.Visible = False
+        DispolisteVermerk()
     End Sub
 
+    Sub DispolisteVermerk()
+        If vbYes = MsgBox("Vermerk 'Dispoliste angefordert' eintragen?", vbYesNoCancel) Then
+            AvisoStatusFunctions.insertVermerkAllg(AvisoID, "Dispoliste angefordert", 57)
+        End If
+    End Sub
     Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles Button9.Click
         Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False)
         If path <> "" Then
-
-
             Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                 Case "IMEX"
                     Process.Start(path)
                 Case Else
-
                     Try
-                            Dim outl As New Outlook.Application
+                        Dim outl As New Outlook.Application
-                            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                        Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
-                            Mail = outl.CreateItem(0)
+                        Mail = outl.CreateItem(0)
-                            Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
+                        Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
-                            '   Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
+                        '   Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
-                            Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
+                        Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
-                            Mail.Display()
+                        Mail.Display()
-
-                        Catch ex As Exception
-                            MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
-                            Process.Start(path)
-                        End Try
 
+                    Catch ex As Exception
+                        MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
+                        Process.Start(path)
+                    End Try
             End Select
+            DispolisteVermerk()
         End If
         Panel4.Visible = False
     End Sub
@@ -1980,6 +1994,6 @@ Public Class usrcntlAktDetails
 
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click
         Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False)
-        If path <> "" Then Process.Start(path)
+        If path <> "" Then Process.Start(path) : DispolisteVermerk()
     End Sub
 End Class