Markierungen von Anhängen (Sendungsdetails NEU).

Aviso/frmSendungsdetailsNEU.vb

@@ -3131,7 +3131,7 @@ 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 anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen  FROM [tblAvisoAnhaenge] 
+        Dim hSQL As String = "  SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert  FROM [tblAvisoAnhaenge] 
                                          WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
                                        ORDER BY  anh_SendungsId desc,
 										  case	  
@@ -3176,6 +3176,7 @@ Public Class frmSendungsdetailsNEU
             .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
             .Columns("anh_id").Visible = False     'VermerkID nicht anzeigen
             .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+            .Columns("anh_markiert").Visible = False
 
             .Columns("anh_Name").MinimumWidth = 150
             .Columns("anh_Name").HeaderText = "Name"
@@ -3200,7 +3201,15 @@ Public Class frmSendungsdetailsNEU
             .Columns("anh_GestellungslisteAnfuegen").Width = 150
             .Columns("anh_GestellungslisteAnfuegen").HeaderText = "GestListe anfügen"
 
+            For Each row As DataGridViewRow In dgvAnhang.Rows
+                If Not IsDBNull(row.Cells("anh_markiert").Value) Then
+                    If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.LightYellow
+                End If
+            Next
+
             .ClearSelection()
+
+
         End With
 
     End Sub
@@ -5863,4 +5872,15 @@ Public Class frmSendungsdetailsNEU
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler beim Öffnen der Mail!")
         End Try
     End Sub
+
+    Private Sub HervorhebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HervorhebenToolStripMenuItem.Click
+        If dgvAnhang.SelectedRows.Count >= 1 Then
+            For Each r As DataGridViewRow In dgvAnhang.SelectedRows
+                Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(r.Cells("anh_Id").Value)
+                ANH.anh_markiert = Not ANH.anh_markiert
+                ANH.SAVE()
+            Next
+            initAnhang()
+        End If
+    End Sub
 End Class