TimasAPI, Uberstunden, Mailvorlagen, etc,

SDL/frmdynMailvorlage.vb

@@ -37,6 +37,8 @@ Public Class frmdynMailvorlage
 
         cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
 
+        cbxSendungsvermerk.fillWithSQL("SELECT VermerkCodeId,Bezeichnung  FROM [VermerkeCodes]", True, "AVISO", True)
+
         cbxFirma.Enabled = editall
         btnDelete.Enabled = editall
 
@@ -94,6 +96,9 @@ Public Class frmdynMailvorlage
             .Columns("txt_letzteAenderung").Width = 100
             .Columns("txt_letzteAenderungUser").HeaderText = "letzte Änderung durch"
             .Columns("txt_letzteAenderungUser").Width = 75
+            .Columns("txt_sendungsvermerk").HeaderText = "Sendungsvermerk"
+            .Columns("txt_sendungsvermerkId").Visible = False
+            .Columns("txt_sendungsvermerkText").Visible = False
         End With
 
 
@@ -204,6 +209,10 @@ Public Class frmdynMailvorlage
             cboFirmensignatur.changeItem(txtkonserve.txt_firmaSig)
             cbxFirmaChange.changeItem(txtkonserve.txt_FIRMA)
 
+            cbSendungsvermerk.Checked = txtkonserve.txt_sendungsvermerk
+            cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId)
+            txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText
+
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -230,6 +239,11 @@ Public Class frmdynMailvorlage
             txtKS.txt_letzteAenderung = DateTime.Now
             txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
 
+            txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked
+            txtKS.txt_sendungsvermerkId = cbxSendungsvermerk._value
+            txtKS.txt_sendungsvermerkText = txtSendungsvermerk.Text
+
+
             txtKS.SAVE()
 
             dgvMailvorlagen.GetOrder()
@@ -358,6 +372,12 @@ Public Class frmdynMailvorlage
 
     End Function
 
+    Private Sub cbSendungsvermerk_CheckedChanged(sender As Object, e As EventArgs) Handles cbSendungsvermerk.CheckedChanged
 
+        txtSendungsvermerk.Visible = cbSendungsvermerk.Checked
+        cbxSendungsvermerk.Visible = cbSendungsvermerk.Checked
+        Label10.Visible = cbSendungsvermerk.Checked
+        Label9.Visible = cbSendungsvermerk.Checked
 
+    End Sub
 End Class