neu

2020-11-27 22:56:38 +01:00
parent 24dd462073
commit 65ee38135e
72 changed files with 16680 additions and 587 deletions
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -191,6 +191,14 @@ Public Class usrcntlAktDetails
            btnVorbereitet.Visible = True
        End If

+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Erfasst", Me.FindForm) Then
+            lblTimeErfasst.Visible = False
+            btnErfasst.Visible = False
+        Else
+            lblTimeErfasst.Visible = True
+            btnErfasst.Visible = True
+        End If
+
        'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
        '    tbcntlVermerke.TabPages.Remove(tbAnhang)
        'End If
@@ -1037,6 +1045,11 @@ Public Class usrcntlAktDetails
                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
+
+                    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+                    sql.doSQL("UPDATE AVISO SET ZOLLDigitalEingereicht=0, LKW_fertig=1  where avisoid=" & AvisoID, "AVISO")
+
+
                    '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                    'Vermerke_aktualisieren()
                    init = True '   Vermerke_anzeigen(e.RowIndex)
@@ -2655,17 +2668,21 @@ Public Class usrcntlAktDetails
            End If
        Next

-        'DIGITALE ABFERTIGUNG:
-        If (sender Is Button15) Then
+        'DIGITALE ABFERTIGUNG: 
+        If (sender Is Button15) Or cbxVPSplit.Checked Then ' digital oder splittung --> per Vorpapier
            Try
                Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
                VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN

                For Each s In SENDUNG_LIST
-                    If If(s.tblSnd_Vorpapier, "") = "" Then
-                        MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
-                        Exit Sub : pnlDetailsRechts.Cursor = Cursors.Default
-                    End If
+                    Select Case s.tblSnd_Abfertigungsart_ID.ToString
+                        Case "38", "26" 'AT - Keine Prüfung
+                        Case Else
+                            If If(s.tblSnd_Vorpapier, "") = "" Then
+                                MsgBox("Nicht alle Sendungen haben ein Vorpapier eingetragen!" & vbNewLine & "Laufzettelerstellung wird abgebrochen.")
+                                pnlDetailsRechts.Cursor = Cursors.Default : Exit Sub
+                            End If
+                    End Select
                Next
                AVISO.LOAD_Vorpapiere()
                Dim VP_Enum = VERAG_PROG_ALLGEMEIN.cSendungen.VP_Enum(SENDUNG_LIST) 'Filtert nach eindeutigen Vorpapieren
@@ -2675,58 +2692,98 @@ Public Class usrcntlAktDetails
                    paths.Add(SDL.FormularManagerNEU.LaufzettelZollDE_VP(AvisoID, False,, VP))
                Next

-                Dim outl As New Outlook.Application
-                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
-                Mail = outl.CreateItem(0)
+                If (sender Is Button15) Then 'NUR BEI DIGITALANMELDUNG!

-                Select Case AVISO.Grenzstelle
-                    Case "SUB"
-                        Mail.To = "abfertigung.za-suben@zoll.bund.de"
-                End Select
+                    Dim outl As New Outlook.Application
+                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                    Mail = outl.CreateItem(0)

-                Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
-                Dim MAIL_SUBJ = tX.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
-                Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
+                    Dim tX As VERAG_PROG_ALLGEMEIN.cTextkonserve = Nothing
+                    Select Case AVISO.Grenzstelle
+                        Case "SUB"
+                            Mail.To = "abfertigung.za-suben@zoll.bund.de"
+                            tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+                        Case "WAI"
+                            Mail.To = ""
+                            tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_WAI", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+                        Case "SBG"
+                            Mail.To = ""
+                            tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SBG", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+                        Case Else
+                            Mail.To = ""
+                            tX = New VERAG_PROG_ALLGEMEIN.cTextkonserve("LAUFZETTEL_DIGITAL", "LAUFZETTEL_DE_DIGITAL_SUB", "DE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
+                    End Select

-                addVPList(MAIL_BODY, VP_Enum)
-                Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True) & "</div>"
-                Mail.Subject = MAIL_SUBJ
+                    Dim MAIL_SUBJ = tx.txt_betreff.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
+                    Dim MAIL_BODY = tX.txt_text.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)

-                For Each p In paths
-                    Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
-                Next
-
-
-                If loadAttachRg Then
-                    If cbxLZT1.Visible AndAlso cbxLZT1.Checked 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"
-                                    Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
-                            End Select
-                        Next
+                    addVPList(MAIL_BODY, VP_Enum)
+                    Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & MAIL_BODY & SDL.cFakturierung.getSignature("DE", tX.txt_firmaSig, True, True) & "</div>"
+                    Mail.Subject = MAIL_SUBJ
+                    If VP_Enum.Count > 1 Then
+                        Mail.Subject &= ", " & VP_Enum.Count & "x Vorpapier"
+                    ElseIf VP_Enum.Count = 1 Then
+                        Mail.Subject &= ", " & VP_Enum(0)
                    End If

-                    If cbxLZRg.Visible AndAlso cbxLZRg.Checked Then
-                        For Each s In SENDUNG_LIST
-                            Select Case s.tblSnd_Abfertigungsart_ID
+                    For Each p In paths
+                        Mail.Attachments.Add(p, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Gestellungsliste.pdf")
+                    Next
+
+
+                    If loadAttachRg Then
+                        If cbxLZT1.Visible AndAlso cbxLZT1.Checked 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"
+                                        Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                                End Select
+                            Next
+                        End If
+
+                        If cbxLZRg.Visible AndAlso cbxLZRg.Checked 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" '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"
-                                                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
+                                    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"
+                                                    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
                    End If
+
+                    'Markierte Anhänge
+                    For Each l In ANH_LIST
+                        'Markierte:
+                        If l.anh_GestellungslisteAnfuegen Then
+                            Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(l.anh_docId), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
+                        End If
+                    Next
+                    Mail.Display()
+
+                Else 'Keine Digitalabfertigung
+                    Try
+                        If paths.Count = 1 Then '1 Gestellungsliste
+                            Process.Start(paths(0))
+                        ElseIf paths.Count > 0 Then 'Mehrere Gestellungslisten zusammenführen
+                            Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Gestellungsliste_Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
+                            VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(paths, outputFile)
+                            Process.Start(outputFile)
+                        End If
+                    Catch ex As Exception
+                        MsgBox(ex.Message & ex.StackTrace)
+                    End Try
                End If

-                Mail.Display()
+

            Catch ex As Exception
                MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)