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

Aktweiterleitung WO, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-30 11:02:06 +02:00
parent 974e223d4a
commit 2d80c93710
2 changed files with 33 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Aviso/usrcntlAktDetails.vb
View File

@@ -962,6 +962,7 @@ Public Class usrcntlAktDetails
If Not IsDBNull(row.Cells("anh_markiert").Value) Then
If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.Yellow
End If
Next
End With
@@ -1339,8 +1340,13 @@ Public Class usrcntlAktDetails
If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then
optionCell.Value = paarBez
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
If Not existCodeInGridVermerke_UeberweisungsbelegErhalten(gridvermerke, r.Cells("VorauskasseId").Value) Then
r.DefaultCellStyle.BackColor = Color.Yellow 'gelb markiert, nur wenn Überweisungsbeleg noch nicht erhalten!
End If
End If
Else
Else
If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then
optionCell.Value = paarBez
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
@@ -1444,6 +1450,23 @@ Public Class usrcntlAktDetails
Return False
End Function
Shared Function existCodeInGridVermerke_UeberweisungsbelegErhalten(gridVermerke As DataGridView, VorauskasseId As Object) As Boolean
For Each r As DataGridViewRow In gridVermerke.Rows
If r.Cells("Geloescht").Value = False Then
Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "")
Case 79
If DirectCast(r.Cells("VorauskasseId"), DataGridViewTextBoxCell).Value.ToString = CStr(VorauskasseId) Then
Return True
End If
End Select
End If
Next
Return False
End Function
Shared Function existCodeInGridVermerke_VK_OLD(gridVermerke As DataGridView, SendungID As Object) As Boolean