Mailvorlagen und Essensbestellungen

SDL/frmdynMailvorlage.vb

@@ -38,6 +38,7 @@ Public Class frmdynMailvorlage
         cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
 
         cbxFirma.Enabled = editall
+        btnDelete.Enabled = editall
 
         initDGVMailvorlagen(cbxFirma._value,, cbxSpracheSelected._value)
 
@@ -91,7 +92,7 @@ Public Class frmdynMailvorlage
             .Columns("txt_FIRMA").Width = 150
             .Columns("txt_letzteAenderung").HeaderText = "letzte Änderung"
             .Columns("txt_letzteAenderung").Width = 100
-            .Columns("txt_letzteAenderungUser").HeaderText = "User"
+            .Columns("txt_letzteAenderungUser").HeaderText = "letzte Änderung durch"
             .Columns("txt_letzteAenderungUser").Width = 75
         End With
 
@@ -270,15 +271,25 @@ Public Class frmdynMailvorlage
             lblWarning.Text = ""
             Return True
 
-        Else
+        ElseIf cbxSpracheSelected._value = "" Then
+            If ((dgvMailvorlagen.SelectedRows(0).Cells("txt_sprache").Value Is DBNull.Value Or dgvMailvorlagen.SelectedRows(0).Cells("txt_sprache").Value Is Nothing Or dgvMailvorlagen.SelectedRows(0).Cells("txt_sprache").Value = "") Or initialSave = True) Then 'And initialSave = False ???
 
-            lblWarning.Text = ""
-            Return True
+                    If setWarning Then
+                        lblWarning.Text = "Bitte Sprache auswählen!"
+                    Else
+                        lblWarning.Text = ""
+                    End If
+
+                    Return False
+                End If
+
+                lblWarning.Text = ""
+                Return True
 
 
-        End If
+            End If
 
-        Return False
+        Return True
 
     End Function