edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Benachrichtigung VK - Reihenflge Benutzerbenachrichtigung

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-24 21:48:00 +01:00
parent 9cccc46478
commit e155f978fe
2 changed files with 24 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb
View File

@@ -169,11 +169,17 @@ Public Class usrCntlBenachrichtigungen
r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold) r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Bold)
'r.DefaultCellStyle.SelectionForeColor = Color.Red 'r.DefaultCellStyle.SelectionForeColor = Color.Red
End If End If
If r.Cells("ab_BenachrichtigungCode").Value = "6" Then
r.Cells("ab_Art").Value = "VK"
End If
Next Next
'.Width = gridAviso.Width - gridVermerke.Width '.Width = gridAviso.Width - gridVermerke.Width
'.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending) '.Sort(.Columns(3), System.ComponentModel.ListSortDirection.Descending)
.ClearSelection() .ClearSelection()
End With End With
Catch ex As Exception Catch ex As Exception
@@ -329,24 +335,25 @@ Public Class usrCntlBenachrichtigungen
End Sub End Sub
Private Sub gridAviso_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles gridAvisoBenachrichtigungen.CellPainting 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 e.RowIndex <> -1 AndAlso gridAvisoBenachrichtigungen.Columns(e.ColumnIndex).Name = "ab_Art" Then
If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then ' If gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells("ab_BenachrichtigungCode").Value = "6" Then
If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then ' If (e.PaintParts And DataGridViewPaintParts.Background) <> DataGridViewPaintParts.None Then
'e.Graphics.Clear(Color.White) ' '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.Graphics.DrawImage(My.Resources.vorauszahlung_bg, e.CellBounds.X + 5, e.CellBounds.Y + 1, 18, e.CellBounds.Height - 2)
' e.CellStyle.ForeColor = Color.White ' ' e.CellStyle.ForeColor = Color.White
gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = "" ' gridAvisoBenachrichtigungen.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = ""
' e.PaintContent(e.CellBounds) ' ' e.PaintContent(e.CellBounds)
End If ' End If
If Not e.Handled Then ' If Not e.Handled Then
e.Handled = True ' e.Handled = True
e.PaintContent(e.CellBounds) ' e.PaintContent(e.CellBounds)
End If ' End If
End If ' End If
End If 'End If
End Sub End Sub

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.5.6")> <Assembly: AssemblyVersion("3.8.5.8")>
<Assembly: AssemblyFileVersion("3.8.5.6")> <Assembly: AssemblyFileVersion("3.8.5.8")>