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

Vermerke löschen tracken

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-08-28 17:00:43 +02:00
parent d31cb7878a
commit 2f2e161603
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/usrcntlAktDetails.vb
View File

@@ -1620,7 +1620,7 @@ Public Class usrcntlAktDetails
End If
Dim index As Integer = -1
If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
Vermerke_anzeigen(index)
ElseIf sender Is conVermerkLöschenNew Then
@@ -1630,7 +1630,7 @@ Public Class usrcntlAktDetails
End If
Dim index As Integer = -1
If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
VermerkeDAL.togglegeloescht(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
Vermerke_anzeigen(index)
End If
@@ -1655,7 +1655,7 @@ Public Class usrcntlAktDetails
Exit Sub
End If
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
Vermerke_anzeigen()
initDgvSendungen()

4
Aviso/usrcntlAktDetailsATILLA.vb
View File

@@ -556,7 +556,7 @@ Public Class usrcntlAktDetailsATILLA
End If
Dim index As Integer = -1
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
Vermerke_anzeigen(index)
Exit Sub
@@ -580,7 +580,7 @@ Public Class usrcntlAktDetailsATILLA
Exit Sub
End If
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
Vermerke_anzeigen()

4
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -871,7 +871,7 @@ Public Class usrcntlAktDetailsATILLANeu
End If
Dim index As Integer = -1
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
Vermerke_anzeigen(index)
Exit Sub
@@ -895,7 +895,7 @@ Public Class usrcntlAktDetailsATILLANeu
Exit Sub
End If
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value))
VermerkeDAL.LöschenVermerk(CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value), gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value, AvisoID)
Vermerke_anzeigen()