neu

Aviso/frmFreigabeSetzenAnhaenge.vb

@@ -0,0 +1,110 @@
+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