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

Vermerke

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-09 13:18:30 +01:00
parent 4cfa876d70
commit 1c8baf3637
5 changed files with 82 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/usrcntlAktDetails.vb
View File

@@ -465,6 +465,7 @@ Public Class usrcntlAktDetails
.Columns("VorauskasseId").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("SMSId").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("VermerkIDAufgehoben").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("Kategorie").Visible = False 'tblSnd_Empfaengernicht anzeigen
.Columns("Datum").Width = 125 '110
.Columns("Datum").HeaderText = "Datum"
@@ -882,7 +883,7 @@ Public Class usrcntlAktDetails
End Sub
Public Shared vermerkehSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
" CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue" &
" CASE WHEN VermerkeCode IS NULL OR VermerkBezeichnungFixAnzeigen = 1 THEN Hinweis_Vermerk ELSE VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk], tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId,VermerkIDAufgehoben, Datum as DatumValue, Kategorie" &
" FROM [Vermerke] LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
" LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
" WHERE AvisoID = [[AvisoId]] [[sendwhere]] AND HintergrundVermerk =0 " &
@@ -1356,6 +1357,12 @@ Public Class usrcntlAktDetails
'r.DefaultCellStyle.ForeColor = Color.White
r.DefaultCellStyle.BackColor = Color.Yellow
End If
If gridvermerke.Columns.Contains("Kategorie") Then
Select Case r.Cells("Kategorie").Value.ToString
Case "ZOLL" : r.DefaultCellStyle.BackColor = Color.MistyRose
Case "ZOLL_STORNO" : r.DefaultCellStyle.BackColor = Color.IndianRed
End Select
End If
If CBool(r.Cells("Geloescht").Value) Then
r.DefaultCellStyle.Font = New Font(gridvermerke.Font.FontFamily, gridvermerke.Font.Size, FontStyle.Strikeout)
End If