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.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

4
Aviso/My Project/AssemblyInfo.vb
View File

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