neu

2021-06-24 23:04:15 +02:00
parent 5187fe0e71
commit 2d06d935ef
38 changed files with 6730 additions and 1088 deletions
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -209,7 +209,7 @@ Public Class frmSendungsdetailsNEU
                    initDataBinding()
                End If
                'bsSendungen.Position = tmpsendId ' bsSendungen.Find("tblSnd_SendungID", SendungID)
-            Catch ex As Exception : MsgBox(ex.Message) : End Try
+            Catch ex As Exception : VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) : End Try
            e.Handled = True
            e.SuppressKeyPress = True
        End If
@@ -326,14 +326,18 @@ Public Class frmSendungsdetailsNEU
                TabControl1.TabPages.Remove(tbZollabfertigung)
            End If

-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then
-                btnImportaviso.Visible = True
-                btnVorauszahlung.Visible = True
-                '   ToolStripMenuItem13.Enabled = True
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_ANHAENGE_QuickScan", Me) Then
+                btnQuckScan.Visible = True
            End If

+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vorauskasse", Me) Then
+                    btnImportaviso.Visible = True
+                    btnVorauszahlung.Visible = True
+                    '   ToolStripMenuItem13.Enabled = True
+                End If

-            cboFiliale._allowFreiText = Nothing
+
+                cboFiliale._allowFreiText = Nothing
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
                Case "FRONTOFFICE"
                    cboFiliale._allowFreiText = Nothing
@@ -487,7 +491,7 @@ Public Class frmSendungsdetailsNEU
                                                                'If RadioButton.Checked Then initKundenzolltarifChecked(txtAuftraggeber)
                                                                If cboZolltarif._value = 0 Then initKundenzolltarifChecked(txtAuftraggeber)
                                                            Catch ex As Exception
-                                                                MsgBox(ex.Message & vbNewLine & ex.StackTrace)
+                                                                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                                                            End Try

                                                            initWarnKd_AndKdInfo(txtAuftraggeber, picWarnAuftraggeber)
@@ -566,7 +570,7 @@ Public Class frmSendungsdetailsNEU

        Catch ex As Exception
            closeWithoutSave = True
-            MsgBox("Fehler beim Laden der Sendungsdaten." & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Laden der Sendungsdaten.")
            Me.Close()
        End Try
    End Sub
@@ -650,7 +654,7 @@ Public Class frmSendungsdetailsNEU

            End If
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

@@ -718,7 +722,7 @@ Public Class frmSendungsdetailsNEU

        Catch ex As Exception
            'evtl. bei poschanged fehler
-            MsgBox("BUTTON; " & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

@@ -876,6 +880,15 @@ Public Class frmSendungsdetailsNEU
        newRow.tblSnd_Colli = ""
        newRow.tblSnd_Gewicht = ""
        newRow.tblSnd_Colli = ""
+
+        newRow.tblSnd_VG_MA = Nothing
+        newRow.tblSnd_Vorgeschrieben = Nothing
+        newRow.tblSnd_QS_MA = Nothing
+        newRow.tblSnd_Vorbereitet = Nothing
+        newRow.tblSnd_AbklaerungTR = Nothing
+        newRow.tblSnd_AbklaerungTR_MA = Nothing
+
+
        newRow.tblSnd_SendungID = -1
        newRow.ABRECHNUNG.Clear()
        SENDUNG_LIST.Add(newRow)
@@ -1215,7 +1228,7 @@ Public Class frmSendungsdetailsNEU
                    pnlT1.Controls.Add(usrcntl_ATA)
                Case 44
                    usrcntl_ATB.txtATBT1.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_T1, "")
-                    usrcntl_ATB.txtATbNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "")
+                    usrcntl_ATB.txtATBNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_ATB_Nr, "")

                    pnlT1.Controls.Add(usrcntl_ATB)
            End Select
@@ -1269,7 +1282,7 @@ Public Class frmSendungsdetailsNEU

            'SAVE_ME ??????!!!!!!!
        Catch ex As Exception
-            MsgBox("ERR: " & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        loaded = True
        '  Me.Enabled = True
@@ -1361,7 +1374,7 @@ Public Class frmSendungsdetailsNEU
            lblgesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"

        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub
    Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As Object = Nothing, Optional formatString As String = "")
@@ -1595,7 +1608,7 @@ Public Class frmSendungsdetailsNEU
        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3 = cboVorpapier3.Text.Trim
        SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier3_Pos = txtVorpapier3Pos.Text.Trim

-        SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlHandling = txtAnzahlPos.Text.Trim
+        'SENDUNG_LIST(CURRENT_INDEX).tblSnd_anzahlPOS = txtAnzahlPos.Text.Trim


    End Sub
@@ -1732,7 +1745,7 @@ Public Class frmSendungsdetailsNEU


        Catch ex As Exception
-            MsgBox("Fehler beim initialisieren der Drucker!" & ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim initialisieren der Drucker!")
        End Try
    End Sub

@@ -1987,12 +2000,25 @@ Public Class frmSendungsdetailsNEU
        End If
        Button4.Enabled = btnLeihgeld.Enabled

+        cntlAvisierer_Eust.Visible = True
+        cntlAuftr_Eust.Visible = True
+        cntlEmpf_Eust.Visible = True
+        cntlAbsender_Eust.Visible = True
+        cntlFrachtf_Eust.Visible = True
+
        pnlT1.Controls.Clear()
        Select Case cboAbfertigungsart._value
            Case "5", "6", "24", "33", "34"
                pnlT1.Controls.Add(usrcntl_NCTS)
            Case "26", "28"
                pnlT1.Controls.Add(usrcntl_FISKAL)
+
+                cntlAvisierer_Eust.value = "" : cntlAvisierer_Eust.Visible = False
+                cntlAuftr_Eust.value = "" : cntlAuftr_Eust.Visible = False
+                cntlEmpf_Eust.value = "" : cntlEmpf_Eust.Visible = False
+                cntlAbsender_Eust.value = "" : cntlAbsender_Eust.Visible = False
+                cntlFrachtf_Eust.value = "" : cntlFrachtf_Eust.Visible = False
+
            Case "23"
                pnlT1.Controls.Add(usrcntl_ATA)
            Case "44"
@@ -2031,7 +2057,7 @@ Public Class frmSendungsdetailsNEU
            End With

        Catch ex As Exception
-            MsgBox("Offert-ERR: " & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub
@@ -2089,7 +2115,7 @@ Public Class frmSendungsdetailsNEU
            End With

        Catch ex As Exception
-            MsgBox("Belege-ERR: " & ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub
@@ -3108,7 +3134,7 @@ Public Class frmSendungsdetailsNEU
            End If
            SAVE_ME()
        Catch ex As Exception
-            MsgBox(ex.Message)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        initDataBinding()
    End Sub
@@ -3466,7 +3492,7 @@ Public Class frmSendungsdetailsNEU


            Catch ex As Exception
-                MsgBox(ex.Message & ex.StackTrace)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
            Me.Cursor = Cursors.Default
            '   frmNacherfassung.showAll()
@@ -3595,10 +3621,10 @@ Public Class frmSendungsdetailsNEU

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

    Sub initDGVVorkosten()
@@ -3627,11 +3653,16 @@ Public Class frmSendungsdetailsNEU
        Try
            If TabControl1.SelectedTab Is tbAnhang Then
                If dgvAnhang.SelectedRows.Count > 0 Then
-                    Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value))
+                    Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
+                    If Not IO.File.Exists(docPath) Then
+                        MsgBox("Die Datei existiert nicht!")
+                    Else
+                        Process.Start(docPath)
+                    End If
                End If
            End If
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub
@@ -3741,11 +3772,11 @@ Public Class frmSendungsdetailsNEU
                    Mail.Display()

                Catch ex As Exception
-                    MsgBox("Fehler beim Öffnen der Mail!")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
                End Try
            End If
        Catch ex As Exception
-            MsgBox("Fehler beim Öffnen der Mail!")
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
        End Try
    End Sub

@@ -3807,7 +3838,7 @@ Public Class frmSendungsdetailsNEU
                Process.Start(outputFile)
                ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.OPEN_PATH()
            Catch ex As Exception
-                MsgBox(ex.Message & ex.StackTrace)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
        End If
    End Sub
@@ -3909,11 +3940,11 @@ Public Class frmSendungsdetailsNEU
                    Mail.Display()

                Catch ex As Exception
-                    MsgBox("Fehler beim Öffnen der Mail!")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
                End Try
            End If
        Catch ex As Exception
-            MsgBox("Fehler beim Öffnen der Mail!")
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
        End Try
    End Sub

@@ -4030,7 +4061,7 @@ Public Class frmSendungsdetailsNEU
                Case 1 : btnUIDPruef.BackgroundImage = My.Resources.del
            End Select
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Me.Cursor = Cursors.Default
    End Sub
@@ -4064,7 +4095,7 @@ Public Class frmSendungsdetailsNEU
                Case 1 : btnEORIPruef.BackgroundImage = My.Resources.del
            End Select
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Me.Cursor = Cursors.Default

@@ -4095,7 +4126,7 @@ Public Class frmSendungsdetailsNEU


        'Catch ex As Exception
-        '    MsgBox(ex.Message & ex.StackTrace)
+        '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        'End Try
        'Me.Cursor = Cursors.Default
    End Sub
@@ -4196,7 +4227,7 @@ Public Class frmSendungsdetailsNEU
            initDGVVorkosten()

        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

@@ -4216,7 +4247,7 @@ Public Class frmSendungsdetailsNEU

    Dim VK_ID = -1
    Private Sub dgvVorkosten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorkosten.CellDoubleClick, dgvVorkosten.CellContentDoubleClick
-        If e.RowIndex >=0 Then
+        If e.RowIndex >= 0 Then
            Try
                ' Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN.Find(Function(x) x.sndvk_id = dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
                Dim VK = SENDUNG_LIST(CURRENT_INDEX).VORKOSTEN(dgvVorkosten.SelectedRows(0).Cells("clmnVK_id").Value)
@@ -4229,7 +4260,7 @@ Public Class frmSendungsdetailsNEU
                btnVorkostenAdd.BackgroundImage = My.Resources.stift

            Catch ex As Exception
-                MsgBox(ex.Message & ex.StackTrace)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
        End If
    End Sub
@@ -4280,8 +4311,8 @@ Public Class frmSendungsdetailsNEU
                        End While
                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Import, False)
                    Catch ex As System.Exception
-                        '  MsgBox(ex.Message)
-                        MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                        Me.Cursor = Cursors.Default

                        Exit Sub
@@ -4329,7 +4360,7 @@ Public Class frmSendungsdetailsNEU

            End If
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Me.Cursor = Cursors.Default
    End Sub
@@ -4363,8 +4394,8 @@ Public Class frmSendungsdetailsNEU
                        End While
                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export, False)
                    Catch ex As System.Exception
-                        '  MsgBox(ex.Message)
-                        MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                        Me.Cursor = Cursors.Default

                        Exit Sub
@@ -4411,7 +4442,7 @@ Public Class frmSendungsdetailsNEU

            End If
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Me.Cursor = Cursors.Default
    End Sub
@@ -4445,8 +4476,9 @@ Public Class frmSendungsdetailsNEU
                        End While
                        My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.ATANAK_Instructions_Export_T1, False)
                    Catch ex As System.Exception
-                        '  MsgBox(ex.Message)
-                        MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                        Me.Cursor = Cursors.Default

                        Exit Sub
@@ -4492,7 +4524,7 @@ Public Class frmSendungsdetailsNEU

            End If
        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Me.Cursor = Cursors.Default
    End Sub
@@ -4539,12 +4571,86 @@ Public Class frmSendungsdetailsNEU
                    Mail.Display()

                Catch ex As Exception
-                    MsgBox("Fehler beim Öffnen der Mail!")
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
                End Try
            End If
        Catch ex As Exception
-            MsgBox("Fehler beim Öffnen der Mail!")
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
        End Try
    End Sub

+    Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            If frmSendungAnhangImport.quickScan(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
+                initAnhang()
+            End If
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
+        End Try
+        Me.Cursor = Cursors.Default
+
+    End Sub
+
+    Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
+        ' VERAG_PROG_ALLGEMEIN.cMIC.send_MIC_AvisoSendung(AVISO, SENDUNG_LIST(CURRENT_INDEX))
+    End Sub
+
+    Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
+        SAVE_ME()
+        If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
+        Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"), "MIC")
+        frMZA.Show()
+        AddHandler frMZA.FormClosed, Sub()
+                                         initdgvZollAnmeldungen()
+                                     End Sub
+    End Sub
+
+    Private Sub AbrechungFremdeGrenzeAktDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbrechungFremdeGrenzeAktDruckenToolStripMenuItem.Click
+
+        Dim SENDUNG = SENDUNG_LIST(CURRENT_INDEX)
+
+        If IsNumeric(SENDUNG.AbfertigungsNr) AndAlso CInt(SENDUNG.AbfertigungsNr) > 100000 Then
+        Else
+            MsgBox("Abfertigungsnummer angeben!")
+            Exit Sub
+        End If
+        If Not SENDUNG.tblSnd_Fremdspedition And SENDUNG.tblSnd_Abfertigungsart_ID <= 0 Then
+            MsgBox("Abfertigungsart angeben!")
+            Exit Sub
+        End If
+
+        Dim Printername = ""
+        Dim oPS As New System.Drawing.Printing.PrinterSettings
+        Try
+            Printername = oPS.PrinterName
+        Catch ex As System.Exception
+        End Try
+
+
+        'Aktendeckel
+        SendungOptions.PrintSendung("PRINT", Me.SENDUNG_LIST(CURRENT_INDEX), Me.AVISO, Printername, If(sender Is LaufzettelDruckenToolStripMenuItem, "LAUFZETTEL", "AKT"), SENDUNG_LIST.Count)
+
+        'Steuerbescheide drucken
+        Dim SP_LIST As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuchList(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr)
+        For Each s In SP_LIST.LIST
+            If s.DokumentId_Steuerbeleg IsNot Nothing AndAlso s.DokumentId_Steuerbeleg > 0 Then
+                VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Steuerbeleg)})
+            End If
+            If s.DokumentId_Mitteilung IsNot Nothing AndAlso s.DokumentId_Mitteilung > 0 Then
+                VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(s.DokumentId_Mitteilung)})
+            End If
+        Next
+
+        'Handelsrechnungen
+        Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
+        VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, SENDUNG.tblSnd_SendungID) 'LÄDT alle Aviso-Anhänge
+        For Each l In ANH_LIST_SND
+            Select Case l.anh_Art.ToString.ToUpper
+                Case "RECHNUNG", "HANDELSRECHNUNG"
+                    VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId)})
+            End Select
+        Next
+
+    End Sub
 End Class