110 lines
4.9 KiB
VB.net
110 lines
4.9 KiB
VB.net
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 |