From e155f978feda76f8538ed7cfb39e104c319a0368 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 24 Jan 2023 21:48:00 +0100 Subject: [PATCH] Benachrichtigung VK - Reihenflge Benutzerbenachrichtigung --- .../usrCntlBenachrichtigungen.vb | 37 +++++++++++-------- Aviso/My Project/AssemblyInfo.vb | 4 +- 2 files changed, 24 insertions(+), 17 deletions(-) diff --git a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb index 2f3f50f..bce699e 100644 --- a/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb +++ b/Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb @@ -169,11 +169,17 @@ Public Class usrCntlBenachrichtigungen r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold) 'r.DefaultCellStyle.SelectionForeColor = Color.Red End If + + If r.Cells("ab_BenachrichtigungCode").Value = "6" Then + r.Cells("ab_Art").Value = "VK" + End If Next '.Width = gridAviso.Width - gridVermerke.Width '.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending) .ClearSelection() + + End With Catch ex As Exception @@ -329,24 +335,25 @@ Public Class usrCntlBenachrichtigungen End Sub Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting - If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then - If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then + 'If e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then + ' If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then - If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then - 'e.Graphics.Clear(Color.White) - e.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2) - ' e.CellStyle.ForeColor = Color.White - gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "" - ' e.PaintContent(e.CellBounds) - End If + ' If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then + ' 'e.Graphics.Clear(Color.White) + ' e.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2) + ' ' e.CellStyle.ForeColor = Color.White + ' gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "" + ' ' e.PaintContent(e.CellBounds) + ' End If - If Not e.Handled Then - e.Handled = True - e.PaintContent(e.CellBounds) - End If - End If - End If + ' If Not e.Handled Then + ' e.Handled = True + ' e.PaintContent(e.CellBounds) + ' End If + ' End If + 'End If + End Sub diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 412d213..68c82c4 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +