sendAnh Drucken

Aviso/frmSendungsdetailsNEU.vb

@@ -3485,7 +3485,8 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
     Sub initAnhang()
-        Dim hSQL As String = "  SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert , anh_cmrId 
+        Dim hSQL As String = "  SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],
+                                    [anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert , anh_cmrId,anh_MarkierungDruck
                                 FROM [tblAvisoAnhaenge]
                                 left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art
                                  WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
@@ -3524,6 +3525,9 @@ Public Class frmSendungsdetailsNEU
             .Columns("anh_LaufzettelDruck").Width = 150
             .Columns("anh_LaufzettelDruck").HeaderText = "Laufzettel-Druck"
 
+            .Columns("anh_MarkierungDruck").Width = 120
+            .Columns("anh_MarkierungDruck").HeaderText = "Marsk.Druck"
+
 
             .Columns("anh_GestellungslisteAnfuegen").Width = 150
             .Columns("anh_GestellungslisteAnfuegen").HeaderText = "GestListe anfügen"
@@ -7786,4 +7790,19 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.Default
 
     End Sub
+
+    Private Sub FürDruckMarkierenJANEINToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FürDruckMarkierenJANEINToolStripMenuItem.Click
+        If dgvAnhang.SelectedRows.Count >= 1 Then
+            Dim errShown = False
+            For Each r As DataGridViewRow In dgvAnhang.SelectedRows
+                '  If r.Cells("anh_typ").Value = "PDF" Then
+                VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.toggleMarkiereDruck(r.Cells("anh_Id").Value)
+                'ElseIf Not errShown Then
+                '    MsgBox("Nur bei PDF möglich!")
+                '    errShown = True
+                'End If
+            Next
+            initAnhang()
+        End If
+    End Sub
 End Class