Public Class frmFreigabeSetzenAnhaenge
    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso

    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.AVISO = AVISO
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub frmDokumenteSchicken_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        btn.Focus()
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btn.Click
        If False Then
            Try
                If cbxInfoblattFurDigitalabfertigungDrucken.Checked And cbxInfoblattFurDigitalabfertigungDrucken.Visible Then
                    Dim path = SDL.FormularManagerNEU.Finish_AVISO(AVISO)
                    Dim oPS As New System.Drawing.Printing.PrinterSettings
                    If path <> "" Then VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(path, oPS.PrinterName)
                End If
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
            End Try
        End If
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub


    Private Sub frmDokumenteSchicken_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("PRINT_Freigabe_FinishDigital") Then
            cbxInfoblattFurDigitalabfertigungDrucken.Visible = False
        End If
        initAnhaenge()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub

    Sub initAnhaenge()

        With MyDatagridview1
            Dim SENDUNG_LIST = AVISO.getSENDUNG_LIST

            .Rows.Clear()

            Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
            VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AVISO.AvisoID) 'LÄDT alle Aviso-Anhänge

            For Each s In SENDUNG_LIST
                Select Case s.FilialenNr
                    Case "5701"
                        For Each l In ANH_LIST
                            If s.tblSnd_SendungID = l.anh_SendungsId Then
                                'Rechnung, CMR; Ausfuhr, werden immer gesendet. In letzter Zeit werden COO und auch Packlisten verlangt.
                                Select Case l.anh_Art.ToString.ToUpper
                                    Case "CMR", "Rechnung", "Ausfuhr", "CoO", "Packliste"
                                        .Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
                                End Select
                            End If
                        Next
                End Select
            Next

            ''If loadAttachRg Then
            'If False Then
            '    If False Then
            '        'Falls CMR, Vorpapier in den Unterlagen vorhanden, werden diese beigefügt
            '        For Each l In ANH_LIST
            '            Select Case l.anh_Art.ToString.ToUpper
            '                Case "VORPAPIER" ', "CMR"
            '                    .Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
            '            End Select
            '        Next
            '    End If

            '    If False Then
            '        For Each s In SENDUNG_LIST
            '            Select Case s.tblSnd_Abfertigungsart_ID
            '               'Falls RECHNUNGen in den Unterlagen vorhanden, werden diese beigefügt
            '                Case "5", "45", "28", "26", "38" 'T1, Ü-T1, DE-FISK
            '                    Dim ANH_LIST_SND As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
            '                    VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_BySendung(ANH_LIST_SND, s.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"
            '                                .Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
            '                                'Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
            '                        End Select
            '                    Next
            '            End Select
            '        Next
            '    End If

            '    'Markierte Anhänge
            '    For Each l In ANH_LIST
            '        'Markierte:
            '        If l.anh_GestellungslisteAnfuegen Then
            '            .Rows.Add(l.anh_id, l.anh_Name, l.anh_docId)
            '            '   Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
            '        End If
            '    Next
            'End If
        End With
    End Sub
End Class