sendAnh Drucken

Aviso/usrcntlAktDetails.vb

@@ -3966,5 +3966,30 @@ Public Class usrcntlAktDetails
             Panel4.Visible = False
         End If
     End Sub
+
+    Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
+        tread_printAlleMarkierte(AvisoID)
+    End Sub
+
+    Shared Sub tread_printAlleMarkierte(AvisoID)
+        Dim t As New Threading.Thread(Sub(params)
+
+                                          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" : VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({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
+
+                                      End Sub)
+
+        t.Start({AvisoID, Printername})
+        t.IsBackground = True
+
+    End Sub
 End Class