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

ATEZ EZA, Vermerke

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-08 13:45:46 +02:00
parent a981d01414
commit e545a16bfd
4 changed files with 158 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Aviso/usrcntlAktDetails.vb
View File

@@ -1236,6 +1236,11 @@ Public Class usrcntlAktDetails
End If
Case Else
If paarId > 0 Then
Select Case vermerkCode
Case 101, 25 'Sonderfall -> BEzeichnung sollte übernommen werden
paarBez = gridVermerke.Rows(RowIndex).Cells("Hinweis_Vermerk").value.ToString.Replace("angefordert", "erhalten").ToString.Replace("offen", "erledigt")
End Select
myVermerk.Hinweis_Vermerk = paarBez
myVermerk.VermerkCodeId = paarId
Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
@@ -1260,7 +1265,6 @@ Public Class usrcntlAktDetails
End Select
End If
End Select
End If
End Sub
@@ -1354,11 +1358,11 @@ Public Class usrcntlAktDetails
End If
End If
Case 101, 25
If paarId > 0 AndAlso r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
optionCell.Value = paarBez
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
End If
'Case 101, 25
' If paarId > 0 AndAlso r.Cells("VermerkIDAufgehoben").Value Is DBNull.Value Then
' optionCell.Value = paarBez
' optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
' End If
Case Else
If paarId > 0 Then
If Not existCodeInGridVermerke(r, gridvermerke, paarId, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
@@ -1417,7 +1421,7 @@ Public Class usrcntlAktDetails
Select Case code
Case 59
Return True
Case 2, 4, 6, 8, 10, 12, 30, 37, 34
Case 2, 4, 6, 8, 10, 12, 30, 37, 34, 102
If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
Return True
End If