Import Assistent

Aviso/usrcntlAktDetails.vb

@@ -6,6 +6,7 @@ Imports System.IO
 Imports System.Drawing
 Imports Microsoft.Office.Interop
 Imports System.Security.Cryptography
+Imports GrapeCity.DataVisualization.TypeScript
 
 Public Class usrcntlAktDetails
 
@@ -3991,5 +3992,39 @@ Public Class usrcntlAktDetails
         t.IsBackground = True
 
     End Sub
+    Shared Sub openAlleMarkierte(AvisoID)
+        Try
+            Dim files As New List(Of String) '
+
+            Dim ANH_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge)
+            VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoID) 'LÄDT alle Aviso-Anhänge
+            For Each ll In ANH_LIST
+                If ll.anh_MarkierungDruck Then
+                    Select Case ll.anh_Typ
+                        Case "PDF" : files.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId))
+                            '                    Case Else : Process.Start(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(ll.anh_docId))
+                    End Select
+                End If
+            Next
+
+            If files.Count = 0 Then
+                MsgBox("Keine Anhänge gefunden!")
+                Exit Sub
+            End If
+
+            Dim outputFile As String = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Merge.pdf", ".pdf", True,, "Merge") ' "result.pdf"
+            VERAG_PROG_ALLGEMEIN.cFormularManager.mergePDFs(files, outputFile)
+            Process.Start(outputFile)
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+
+    End Sub
+
+    Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click
+        openAlleMarkierte(AvisoID)
+    End Sub
 End Class