UID-Prüfung, etc.

SDL/frmdynMailvorlage.vb

@@ -1,8 +1,4 @@
-Imports System.Windows.Controls
-Imports System.Windows.Documents
-Imports DocumentFormat.OpenXml.Drawing.Charts
-Imports GrapeCity.ActiveReports.SectionReportModel
-Imports Microsoft.Office.Interop
+Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmdynMailvorlagen
@@ -57,17 +53,89 @@ Public Class frmdynMailvorlagen
         cbxFirma.Enabled = editall
         btnDelete.Enabled = editall
 
+
+        For Each firmen_temp In cbxFirma.Items
+            If firmen_temp.ToString <> "" Then
+                If Not KopierenToolStripMenuItem.DropDownItems.ContainsKey(firmen_temp.ToString) Then
+
+                    If Not editall AndAlso firmen_temp.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
+                        Dim menuItem = New ToolStripMenuItem() With {.Text = firmen_temp.ToString, .Name = firmen_temp.ToString}
+                        KopierenToolStripMenuItem.DropDownItems.Add(menuItem)
+                        AddHandler menuItem.Click, AddressOf mnusubItem_Click
+
+                    ElseIf editall Then
+                        Dim menuItem = New ToolStripMenuItem() With {.Text = firmen_temp.ToString, .Name = firmen_temp.ToString}
+                        KopierenToolStripMenuItem.DropDownItems.Add(menuItem)
+                        AddHandler menuItem.Click, AddressOf mnusubItem_Click
+
+                    End If
+
+
+                End If
+            End If
+
+        Next
+
         initDGVMailvorlagen(cbxFirma._value,, cbxSpracheSelected._value)
 
     End Sub
 
 
+
+    Private Sub mnusubItem_Click(sender As Object, e As EventArgs)
+        ContextMenuStrip1.Hide()
+        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
+
+        Try
+            Dim Info As String = "Möchten Sie diesen Mailvorlage für die Firma " & item.Name & " kopieren?"
+
+            If dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value = item.Name Then
+                Info &= vbNewLine & "Die ausgewählte Vorlage existiert bereits für die Firma " & item.Name
+            End If
+
+            If vbYes = MsgBox(Info, vbYesNo) Then
+
+
+                txtkonserve = New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value)
+
+                Dim txtkonserve_new = New cTextkonserve()
+
+                txtkonserve_new.txt_text = txtkonserve.txt_text
+                txtkonserve_new.txt_bezeichnung = txtkonserve.txt_bezeichnung
+                txtkonserve_new.txt_betreff = txtkonserve.txt_betreff
+                txtkonserve_new.txt_dynMailvorlage = txtkonserve.txt_dynMailvorlage
+                txtkonserve_new.txt_sprache = txtkonserve.txt_sprache
+                txtkonserve_new.txt_sendungsvermerk = txtkonserve.txt_sendungsvermerk
+                txtkonserve_new.txt_sendungsvermerkId = txtkonserve.txt_sendungsvermerkId
+                txtkonserve_new.txt_sendungsvermerkText = txtkonserve.txt_sendungsvermerkText
+                txtkonserve_new.txt_fixerEmpfaengerEmail = txtkonserve.txt_fixerEmpfaengerEmail
+                txtkonserve_new.txt_FIRMA = item.Name
+                txtkonserve_new.txt_kategorie = txtkonserve.txt_kategorie
+                txtkonserve_new.txt_typ = txtkonserve.txt_typ
+                txtkonserve_new.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                txtkonserve_new.txt_letzteAenderung = DateTime.Now
+
+                txtkonserve_new.SAVE()
+                initDGVMailvorlagen(item.ToString)
+            End If
+
+
+        Catch ex As Exception
+
+
+
+        End Try
+
+
+    End sub
+
+
     Private Sub initDGVMailvorlagen(Optional firma As String = "", Optional searchparam As String = "", Optional sprache As String = "")
 
         lblWarning.Text = ""
 
         Dim SQLString As String = "SELECT * FROM [tblTextkonserve] WHERE txt_kategorie = 'FRM_MNGR_MailText'"
-        Dim SQLWHere = ""
+                Dim SQLWHere = ""
         If firma <> "" Then
             SQLWHere &= " AND txt_FIRMA = '" & firma & "'"
         End If
@@ -464,4 +532,36 @@ Public Class frmdynMailvorlagen
         End Select
 
     End Sub
+
+    Private Sub dgvMailvorlagen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvMailvorlagen.CellMouseClick
+
+        If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+        If e.ColumnIndex < 0 Then Exit Sub
+
+        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
+        If e.Button = MouseButtons.Right Then
+
+            If dgvMailvorlagen.SelectedRows.Count = 1 Then
+
+                If (dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is DBNull.Value Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is Nothing Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value = "") Then
+
+                    ContextMenuStrip1.Show(Cursor.Position)
+
+                Else
+
+                    ContextMenuStrip1.Show(Cursor.Position)
+
+
+
+                End If
+
+
+            End If
+
+
+
+            End If
+
+    End Sub
+
 End Class