Sendungsvermerke

Aviso/usrcntlAktDetails.vb

@@ -269,6 +269,13 @@ Public Class usrcntlAktDetails
             Button2.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Vermerke_löschen", "SDL") Then
+
+            conVermerkEntgLöschen.Visible = True
+        Else
+            conVermerkEntgLöschen.Visible = False
+        End If
+
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
         '    tbcntlVermerke.TabPages.Remove(tbAnhang)
         'End If
@@ -423,6 +430,7 @@ Public Class usrcntlAktDetails
             .Columns("Hinweis_Vermerk").Visible = False     'Hinweis_Vermerk nicht anzeigen
             .Columns("tblSnd_Empfaenger").Visible = False     'tblSnd_Empfaengernicht anzeigen
             .Columns("Hervorheben").Visible = False     'tblSnd_Empfaengernicht anzeigen
+            .Columns("Geloescht").Visible = False     'tblSnd_Empfaengernicht anzeigen
             .Columns("VorauskasseId").Visible = False     'tblSnd_Empfaengernicht anzeigen
             .Columns("SMSId").Visible = False     'tblSnd_Empfaengernicht anzeigen
 
@@ -957,7 +965,7 @@ Public Class usrcntlAktDetails
         ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"
 
 
-        Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben," &
+        Dim hSQL As String = " SELECT TOP 1000 [VermerkID],[AvisoID], [SendungID],[VermerkeCode], [Datum],[MitarbeiterId],tblSendungen.tblSnd_PosUnterNr,Hervorheben,Geloescht," &
                                 " CASE WHEN VermerkeCode IS NULL OR VermerkeCode IN (13,25,28,29,30,35,46,47,94) THEN Hinweis_Vermerk ELSE  VermerkeCodes.Bezeichnung END as [Hinweis_Vermerk_Anzeige],[Hinweis_Vermerk],  tblSendungen.tblSnd_Empfaenger ,[Mitarbeiter],VorauskasseId,SMSId" &
                              " FROM [Vermerke]   LEFT JOIN VermerkeCodes ON [VermerkeCode]=VermerkeCodes.VermerkCodeId " &
                              " LEFT JOIN tblSendungen ON [SendungID]=tblSendungen.tblSnd_SendungID " &
@@ -1240,6 +1248,9 @@ Public Class usrcntlAktDetails
                     'r.DefaultCellStyle.ForeColor = Color.White
                     r.DefaultCellStyle.BackColor = Color.Yellow
                 End If
+                If CBool(r.Cells("Geloescht").Value) Then
+                    r.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, Me.Font.Size, FontStyle.Strikeout)
+                End If
                 If (r.Cells("VermerkeCode").Value) IsNot DBNull.Value Then
 
                     Select Case CInt(r.Cells("VermerkeCode").Value)
@@ -1487,24 +1498,39 @@ Public Class usrcntlAktDetails
 
 
 
-    Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkLöschen.Click
+    Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVermerkEntgLöschen.Click, conVermerkLöschenNew.Click
+
         If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
-        If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
-            Exit Sub
+
+        If sender Is conVermerkEntgLöschen Then
+
+            If vbNo = MsgBox("Wollen Sie den ausgewählten entgültig Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
+                Exit Sub
+            End If
+
+            If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value.ToString.EndsWith("wurde gelöscht.") Then 'Vermerk, dass Sendung gelöscht wurde.
+                Exit Sub
+            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))
+            Vermerke_anzeigen(index)
+
+        ElseIf sender Is conVermerkLöschenNew Then
+
+            If vbNo = MsgBox("Wollen Sie den ausgewählten Vermerk löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle), "Vermerk löschen") Then
+                Exit Sub
+            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))
+            Vermerke_anzeigen(index)
         End If
 
-        If gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value.ToString.EndsWith("wurde gelöscht.") Then 'Vermerk, dass Sendung gelöscht wurde.
-            Exit Sub
-        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))
-        Vermerke_anzeigen(index)
-
-        Exit Sub
 
 
-        If sender Is conVermerkLöschen Then
+
+        If False Then 'sender Is conVermerkEntgLöschen Then
             If IsNothing(gridVermerke.CurrentRow) Then Exit Sub
             ' cGlobal.Aktive_ID = CInt(gridVermerke.Rows(gridVermerke.CurrentRow.Index).Cells("VermerkID").Value)
 
@@ -1530,6 +1556,13 @@ Public Class usrcntlAktDetails
 
     End Sub
 
+    Private Sub vermerkeLöschen()
+
+
+    End Sub
+
+
+
 
     Private Sub grid_CellMouseClick(sender As Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gridVermerke.CellMouseClick
         If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt