From 507866ebe85cfdc40a36d188078af4a2c81d2725 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Fri, 19 Apr 2024 10:23:38 +0200
Subject: [PATCH] Mailvorlagen

---
 SDL/frmdynMailvorlage.vb                      | 14 ++++++++++----
 VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb |  4 ++++
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/SDL/frmdynMailvorlage.vb b/SDL/frmdynMailvorlage.vb
index f95e2b7a..e11e54dd 100644
--- a/SDL/frmdynMailvorlage.vb
+++ b/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()
 
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
index 1cf33a58..578a8cd1 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cTextkonserve.vb
+++ b/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