Mailvorlagen

SDL/frmdynMailvorlage.vb

@@ -8,9 +8,6 @@ Public Class frmdynMailvorlage
     Dim editall As Boolean = False
     Dim h2t As New Chilkat.HtmlToText
 
-
-
-
     Sub New(permission As Boolean)
         InitializeComponent()
         editall = permission
@@ -83,14 +80,19 @@ Public Class frmdynMailvorlage
             .Columns("txt_bezeichnung").HeaderText = "Bezeichnung"
             .Columns("txt_bezeichnung").Width = 200
             .Columns("txt_text").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("txt_text").HeaderText = "Text"
             .Columns("txt_betreff").HeaderText = "Betreff"
             .Columns("txt_betreff").Width = 150
             .Columns("txt_sprache").HeaderText = "Sprache"
-            .Columns("txt_sprache").Width = 40
+            .Columns("txt_sprache").Width = 50
             .Columns("txt_dynMailvorlage").HeaderText = "Mailvorlage"
             .Columns("txt_firmaSig").Visible = False
             .Columns("txt_FIRMA").HeaderText = "Firma"
             .Columns("txt_FIRMA").Width = 150
+            .Columns("txt_letzteAenderung").HeaderText = "letzte Änderung"
+            .Columns("txt_letzteAenderung").Width = 100
+            .Columns("txt_letzteAenderungUser").HeaderText = "User"
+            .Columns("txt_letzteAenderungUser").Width = 75
         End With
 
 
@@ -127,6 +129,8 @@ Public Class frmdynMailvorlage
                 txtkonserve.txt_betreff = " "
                 txtkonserve.txt_FIRMA = cbxFirma.Text
                 txtkonserve.txt_firmaSig = 1
+                txtkonserve.txt_letzteAenderung = DateTime.Now
+                txtkonserve.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
 
                 If txtkonserve.SAVE() Then
                     initDGVMailvorlagen(cbxFirma._value)
@@ -222,6 +226,8 @@ Public Class frmdynMailvorlage
             txtKS.txt_text = insertlinebreaks(rtb_Emailtext.Text)
             txtKS.txt_FIRMA = cbxFirmaChange._value
             txtKS.txt_firmaSig = cboFirmensignatur._value
+            txtKS.txt_letzteAenderung = DateTime.Now
+            txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
 
             txtKS.SAVE()
 

VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb

@@ -45,6 +45,8 @@ Public Class cTextkonserve
     Property txt_FIRMA As String
     Property txt_firmaSig As Integer
     Property txt_dynMailvorlage As Boolean
+    Property txt_letzteAenderungUser As String
+    Property txt_letzteAenderung As DateTime
 
 
     Public hasEntry As Boolean = False
@@ -83,6 +85,8 @@ Public Class cTextkonserve
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_FIRMA", txt_FIRMA))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_firmaSig", txt_firmaSig))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_dynMailvorlage", txt_dynMailvorlage))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_letzteAenderungUser", txt_letzteAenderungUser))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("txt_letzteAenderung", txt_letzteAenderung))
 
         Return list
     End Function