TVAPP Settings

AVISOUPDATER/packages.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net48" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
+</packages>

Aviso/Aviso.vbproj

@@ -658,6 +658,12 @@
     <Compile Include="frmATZollEingereichtSetzen.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmEintragTvNew.Designer.vb">
+      <DependentUpon>frmEintragTvNew.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmEintragTvNew.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmFrachtkostenBerechnen.Designer.vb">
       <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
     </Compile>
@@ -1252,6 +1258,9 @@
     <EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
       <DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmEintragTvNew.resx">
+      <DependentUpon>frmEintragTvNew.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
       <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
     </EmbeddedResource>
@@ -1429,7 +1438,6 @@
     <EmbeddedResource Include="GVMS\frmGVMSNew.resx">
       <DependentUpon>frmGVMSNew.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>PublicVbMyResourcesResXFileCodeGenerator</Generator>
       <CustomToolNamespace>My.Resources</CustomToolNamespace>
@@ -1635,7 +1643,6 @@
     <None Include="Resources\avisoNewMsg.ico" />
     <None Include="Resources\Telefonliste.png" />
     <None Include="Resources\Telefonliste1.png" />
-    <EmbeddedResource Include="My Project\license.elic.xml" />
     <Content Include="My Project\licensePDFPro.elic.xml" />
     <Content Include="My Project\licensePDFViewer.elic.xml" />
     <Content Include="My Project\Telefonliste_small.png" />

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.0.4.2")>
-<Assembly: AssemblyFileVersion("4.0.4.2")>
+<Assembly: AssemblyVersion("4.0.5.9")>
+<Assembly: AssemblyFileVersion("4.0.5.9")>

Aviso/frmEintragTvNew.Designer.vb

@@ -0,0 +1,509 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmEintragTvNew
+    Inherits System.Windows.Forms.Form
+
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    Private components As System.ComponentModel.IContainer
+
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.cbxStandort = New System.Windows.Forms.ComboBox()
+        Me.lblStandort = New System.Windows.Forms.Label()
+        Me.dgvAVISOTV = New System.Windows.Forms.DataGridView()
+        Me.grpEingabe = New System.Windows.Forms.GroupBox()
+        Me.lblNeueTvTextBezeichnung = New System.Windows.Forms.Label()
+        Me.txtNeueTvTextBezeichnung = New System.Windows.Forms.TextBox()
+        Me.chkIsActive = New System.Windows.Forms.CheckBox()
+        Me.chkIsRecurring = New System.Windows.Forms.CheckBox()
+        Me.grpWochentage = New System.Windows.Forms.GroupBox()
+        Me.chkSunday = New System.Windows.Forms.CheckBox()
+        Me.chkSaturday = New System.Windows.Forms.CheckBox()
+        Me.chkFriday = New System.Windows.Forms.CheckBox()
+        Me.chkThursday = New System.Windows.Forms.CheckBox()
+        Me.chkWednesday = New System.Windows.Forms.CheckBox()
+        Me.chkTuesday = New System.Windows.Forms.CheckBox()
+        Me.chkMonday = New System.Windows.Forms.CheckBox()
+        Me.dtpEndTime = New System.Windows.Forms.DateTimePicker()
+        Me.lblEndTime = New System.Windows.Forms.Label()
+        Me.dtpStartTime = New System.Windows.Forms.DateTimePicker()
+        Me.lblStartTime = New System.Windows.Forms.Label()
+        Me.dtpEndDate = New System.Windows.Forms.DateTimePicker()
+        Me.lblEndDate = New System.Windows.Forms.Label()
+        Me.dtpStartDate = New System.Windows.Forms.DateTimePicker()
+        Me.lblStartDate = New System.Windows.Forms.Label()
+        Me.txtZeile3 = New System.Windows.Forms.TextBox()
+        Me.lblZeile3 = New System.Windows.Forms.Label()
+        Me.txtZeile2 = New System.Windows.Forms.TextBox()
+        Me.lblZeile2 = New System.Windows.Forms.Label()
+        Me.txtZeile1 = New System.Windows.Forms.TextBox()
+        Me.lblZeile1 = New System.Windows.Forms.Label()
+        Me.cmbTvTextBezeichnungAuswahl = New System.Windows.Forms.ComboBox()
+        Me.lblBezeichnung = New System.Windows.Forms.Label()
+        Me.lblPosition = New System.Windows.Forms.Label()
+        Me.cmbPosition = New System.Windows.Forms.ComboBox()
+        Me.btnSpeichern = New System.Windows.Forms.Button()
+        Me.btnLoeschen = New System.Windows.Forms.Button()
+        Me.btnAbbrechen = New System.Windows.Forms.Button()
+        Me.chkShowInactive = New System.Windows.Forms.CheckBox()
+        CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.grpEingabe.SuspendLayout()
+        Me.grpWochentage.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'cbxStandort
+        '
+        Me.cbxStandort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cbxStandort.FormattingEnabled = True
+        Me.cbxStandort.Location = New System.Drawing.Point(15, 25)
+        Me.cbxStandort.Name = "cbxStandort"
+        Me.cbxStandort.Size = New System.Drawing.Size(200, 21)
+        Me.cbxStandort.TabIndex = 0
+        '
+        'lblStandort
+        '
+        Me.lblStandort.AutoSize = True
+        Me.lblStandort.Location = New System.Drawing.Point(12, 9)
+        Me.lblStandort.Name = "lblStandort"
+        Me.lblStandort.Size = New System.Drawing.Size(87, 13)
+        Me.lblStandort.TabIndex = 1
+        Me.lblStandort.Text = "Standort wählen:"
+        '
+        'dgvAVISOTV
+        '
+        Me.dgvAVISOTV.AllowUserToAddRows = False
+        Me.dgvAVISOTV.AllowUserToDeleteRows = False
+        Me.dgvAVISOTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAVISOTV.Location = New System.Drawing.Point(15, 60)
+        Me.dgvAVISOTV.MultiSelect = False
+        Me.dgvAVISOTV.Name = "dgvAVISOTV"
+        Me.dgvAVISOTV.ReadOnly = True
+        Me.dgvAVISOTV.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAVISOTV.Size = New System.Drawing.Size(977, 200)
+        Me.dgvAVISOTV.TabIndex = 2
+        '
+        'grpEingabe
+        '
+        Me.grpEingabe.Controls.Add(Me.lblNeueTvTextBezeichnung)
+        Me.grpEingabe.Controls.Add(Me.txtNeueTvTextBezeichnung)
+        Me.grpEingabe.Controls.Add(Me.chkIsActive)
+        Me.grpEingabe.Controls.Add(Me.chkIsRecurring)
+        Me.grpEingabe.Controls.Add(Me.grpWochentage)
+        Me.grpEingabe.Controls.Add(Me.dtpEndTime)
+        Me.grpEingabe.Controls.Add(Me.lblEndTime)
+        Me.grpEingabe.Controls.Add(Me.dtpStartTime)
+        Me.grpEingabe.Controls.Add(Me.lblStartTime)
+        Me.grpEingabe.Controls.Add(Me.dtpEndDate)
+        Me.grpEingabe.Controls.Add(Me.lblEndDate)
+        Me.grpEingabe.Controls.Add(Me.dtpStartDate)
+        Me.grpEingabe.Controls.Add(Me.lblStartDate)
+        Me.grpEingabe.Controls.Add(Me.txtZeile3)
+        Me.grpEingabe.Controls.Add(Me.lblZeile3)
+        Me.grpEingabe.Controls.Add(Me.txtZeile2)
+        Me.grpEingabe.Controls.Add(Me.lblZeile2)
+        Me.grpEingabe.Controls.Add(Me.txtZeile1)
+        Me.grpEingabe.Controls.Add(Me.lblZeile1)
+        Me.grpEingabe.Controls.Add(Me.cmbTvTextBezeichnungAuswahl)
+        Me.grpEingabe.Controls.Add(Me.lblBezeichnung)
+        Me.grpEingabe.Controls.Add(Me.lblPosition)
+        Me.grpEingabe.Controls.Add(Me.cmbPosition)
+        Me.grpEingabe.Location = New System.Drawing.Point(15, 275)
+        Me.grpEingabe.Name = "grpEingabe"
+        Me.grpEingabe.Size = New System.Drawing.Size(977, 427)
+        Me.grpEingabe.TabIndex = 3
+        Me.grpEingabe.TabStop = False
+        Me.grpEingabe.Text = "Informationen eingeben"
+        '
+        'lblNeueTvTextBezeichnung
+        '
+        Me.lblNeueTvTextBezeichnung.AutoSize = True
+        Me.lblNeueTvTextBezeichnung.Location = New System.Drawing.Point(300, 33)
+        Me.lblNeueTvTextBezeichnung.Name = "lblNeueTvTextBezeichnung"
+        Me.lblNeueTvTextBezeichnung.Size = New System.Drawing.Size(135, 13)
+        Me.lblNeueTvTextBezeichnung.TabIndex = 19
+        Me.lblNeueTvTextBezeichnung.Text = "Neue TvTextBezeichnung:"
+        '
+        'txtNeueTvTextBezeichnung
+        '
+        Me.txtNeueTvTextBezeichnung.Location = New System.Drawing.Point(460, 30)
+        Me.txtNeueTvTextBezeichnung.Name = "txtNeueTvTextBezeichnung"
+        Me.txtNeueTvTextBezeichnung.Size = New System.Drawing.Size(200, 20)
+        Me.txtNeueTvTextBezeichnung.TabIndex = 20
+        '
+        'chkIsActive
+        '
+        Me.chkIsActive.AutoSize = True
+        Me.chkIsActive.Location = New System.Drawing.Point(670, 32)
+        Me.chkIsActive.Name = "chkIsActive"
+        Me.chkIsActive.Size = New System.Drawing.Size(50, 17)
+        Me.chkIsActive.TabIndex = 18
+        Me.chkIsActive.Text = "Aktiv"
+        Me.chkIsActive.UseVisualStyleBackColor = True
+        '
+        'chkIsRecurring
+        '
+        Me.chkIsRecurring.AutoSize = True
+        Me.chkIsRecurring.Location = New System.Drawing.Point(18, 302)
+        Me.chkIsRecurring.Name = "chkIsRecurring"
+        Me.chkIsRecurring.Size = New System.Drawing.Size(86, 17)
+        Me.chkIsRecurring.TabIndex = 10
+        Me.chkIsRecurring.Text = "Wiederholen"
+        Me.chkIsRecurring.UseVisualStyleBackColor = True
+        '
+        'grpWochentage
+        '
+        Me.grpWochentage.Controls.Add(Me.chkSunday)
+        Me.grpWochentage.Controls.Add(Me.chkSaturday)
+        Me.grpWochentage.Controls.Add(Me.chkFriday)
+        Me.grpWochentage.Controls.Add(Me.chkThursday)
+        Me.grpWochentage.Controls.Add(Me.chkWednesday)
+        Me.grpWochentage.Controls.Add(Me.chkTuesday)
+        Me.grpWochentage.Controls.Add(Me.chkMonday)
+        Me.grpWochentage.Location = New System.Drawing.Point(20, 340)
+        Me.grpWochentage.Name = "grpWochentage"
+        Me.grpWochentage.Size = New System.Drawing.Size(763, 57)
+        Me.grpWochentage.TabIndex = 11
+        Me.grpWochentage.TabStop = False
+        Me.grpWochentage.Text = "Wochentage"
+        '
+        'chkSunday
+        '
+        Me.chkSunday.AutoSize = True
+        Me.chkSunday.Location = New System.Drawing.Point(664, 25)
+        Me.chkSunday.Name = "chkSunday"
+        Me.chkSunday.Size = New System.Drawing.Size(66, 17)
+        Me.chkSunday.TabIndex = 17
+        Me.chkSunday.Text = "Sonntag"
+        Me.chkSunday.UseVisualStyleBackColor = True
+        '
+        'chkSaturday
+        '
+        Me.chkSaturday.AutoSize = True
+        Me.chkSaturday.Location = New System.Drawing.Point(550, 25)
+        Me.chkSaturday.Name = "chkSaturday"
+        Me.chkSaturday.Size = New System.Drawing.Size(67, 17)
+        Me.chkSaturday.TabIndex = 16
+        Me.chkSaturday.Text = "Samstag"
+        Me.chkSaturday.UseVisualStyleBackColor = True
+        '
+        'chkFriday
+        '
+        Me.chkFriday.AutoSize = True
+        Me.chkFriday.Location = New System.Drawing.Point(450, 25)
+        Me.chkFriday.Name = "chkFriday"
+        Me.chkFriday.Size = New System.Drawing.Size(58, 17)
+        Me.chkFriday.TabIndex = 15
+        Me.chkFriday.Text = "Freitag"
+        Me.chkFriday.UseVisualStyleBackColor = True
+        '
+        'chkThursday
+        '
+        Me.chkThursday.AutoSize = True
+        Me.chkThursday.Location = New System.Drawing.Point(350, 25)
+        Me.chkThursday.Name = "chkThursday"
+        Me.chkThursday.Size = New System.Drawing.Size(81, 17)
+        Me.chkThursday.TabIndex = 14
+        Me.chkThursday.Text = "Donnerstag"
+        Me.chkThursday.UseVisualStyleBackColor = True
+        '
+        'chkWednesday
+        '
+        Me.chkWednesday.AutoSize = True
+        Me.chkWednesday.Location = New System.Drawing.Point(250, 25)
+        Me.chkWednesday.Name = "chkWednesday"
+        Me.chkWednesday.Size = New System.Drawing.Size(69, 17)
+        Me.chkWednesday.TabIndex = 13
+        Me.chkWednesday.Text = "Mittwoch"
+        Me.chkWednesday.UseVisualStyleBackColor = True
+        '
+        'chkTuesday
+        '
+        Me.chkTuesday.AutoSize = True
+        Me.chkTuesday.Location = New System.Drawing.Point(150, 25)
+        Me.chkTuesday.Name = "chkTuesday"
+        Me.chkTuesday.Size = New System.Drawing.Size(68, 17)
+        Me.chkTuesday.TabIndex = 12
+        Me.chkTuesday.Text = "Dienstag"
+        Me.chkTuesday.UseVisualStyleBackColor = True
+        '
+        'chkMonday
+        '
+        Me.chkMonday.AutoSize = True
+        Me.chkMonday.Location = New System.Drawing.Point(50, 25)
+        Me.chkMonday.Name = "chkMonday"
+        Me.chkMonday.Size = New System.Drawing.Size(62, 17)
+        Me.chkMonday.TabIndex = 11
+        Me.chkMonday.Text = "Montag"
+        Me.chkMonday.UseVisualStyleBackColor = True
+        '
+        'dtpEndTime
+        '
+        Me.dtpEndTime.Format = System.Windows.Forms.DateTimePickerFormat.Time
+        Me.dtpEndTime.Location = New System.Drawing.Point(557, 245)
+        Me.dtpEndTime.Name = "dtpEndTime"
+        Me.dtpEndTime.ShowCheckBox = True
+        Me.dtpEndTime.ShowUpDown = True
+        Me.dtpEndTime.Size = New System.Drawing.Size(200, 20)
+        Me.dtpEndTime.TabIndex = 9
+        '
+        'lblEndTime
+        '
+        Me.lblEndTime.AutoSize = True
+        Me.lblEndTime.Location = New System.Drawing.Point(502, 248)
+        Me.lblEndTime.Name = "lblEndTime"
+        Me.lblEndTime.Size = New System.Drawing.Size(45, 13)
+        Me.lblEndTime.TabIndex = 14
+        Me.lblEndTime.Text = "Endzeit:"
+        '
+        'dtpStartTime
+        '
+        Me.dtpStartTime.Format = System.Windows.Forms.DateTimePickerFormat.Time
+        Me.dtpStartTime.Location = New System.Drawing.Point(557, 204)
+        Me.dtpStartTime.Name = "dtpStartTime"
+        Me.dtpStartTime.ShowCheckBox = True
+        Me.dtpStartTime.ShowUpDown = True
+        Me.dtpStartTime.Size = New System.Drawing.Size(200, 20)
+        Me.dtpStartTime.TabIndex = 8
+        '
+        'lblStartTime
+        '
+        Me.lblStartTime.AutoSize = True
+        Me.lblStartTime.Location = New System.Drawing.Point(502, 205)
+        Me.lblStartTime.Name = "lblStartTime"
+        Me.lblStartTime.Size = New System.Drawing.Size(48, 13)
+        Me.lblStartTime.TabIndex = 12
+        Me.lblStartTime.Text = "Startzeit:"
+        '
+        'dtpEndDate
+        '
+        Me.dtpEndDate.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpEndDate.Location = New System.Drawing.Point(130, 245)
+        Me.dtpEndDate.Name = "dtpEndDate"
+        Me.dtpEndDate.ShowCheckBox = True
+        Me.dtpEndDate.Size = New System.Drawing.Size(201, 20)
+        Me.dtpEndDate.TabIndex = 7
+        '
+        'lblEndDate
+        '
+        Me.lblEndDate.AutoSize = True
+        Me.lblEndDate.Location = New System.Drawing.Point(15, 248)
+        Me.lblEndDate.Name = "lblEndDate"
+        Me.lblEndDate.Size = New System.Drawing.Size(104, 13)
+        Me.lblEndDate.TabIndex = 10
+        Me.lblEndDate.Text = "Enddatum (optional):"
+        '
+        'dtpStartDate
+        '
+        Me.dtpStartDate.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.dtpStartDate.Location = New System.Drawing.Point(131, 205)
+        Me.dtpStartDate.Name = "dtpStartDate"
+        Me.dtpStartDate.ShowCheckBox = True
+        Me.dtpStartDate.Size = New System.Drawing.Size(200, 20)
+        Me.dtpStartDate.TabIndex = 6
+        '
+        'lblStartDate
+        '
+        Me.lblStartDate.AutoSize = True
+        Me.lblStartDate.Location = New System.Drawing.Point(17, 205)
+        Me.lblStartDate.Name = "lblStartDate"
+        Me.lblStartDate.Size = New System.Drawing.Size(107, 13)
+        Me.lblStartDate.TabIndex = 8
+        Me.lblStartDate.Text = "Startdatum (optional):"
+        '
+        'txtZeile3
+        '
+        Me.txtZeile3.Location = New System.Drawing.Point(100, 120)
+        Me.txtZeile3.Name = "txtZeile3"
+        Me.txtZeile3.Size = New System.Drawing.Size(871, 20)
+        Me.txtZeile3.TabIndex = 5
+        '
+        'lblZeile3
+        '
+        Me.lblZeile3.AutoSize = True
+        Me.lblZeile3.Location = New System.Drawing.Point(42, 123)
+        Me.lblZeile3.Name = "lblZeile3"
+        Me.lblZeile3.Size = New System.Drawing.Size(42, 13)
+        Me.lblZeile3.TabIndex = 6
+        Me.lblZeile3.Text = "Zeile 3:"
+        '
+        'txtZeile2
+        '
+        Me.txtZeile2.Location = New System.Drawing.Point(100, 90)
+        Me.txtZeile2.Name = "txtZeile2"
+        Me.txtZeile2.Size = New System.Drawing.Size(871, 20)
+        Me.txtZeile2.TabIndex = 4
+        '
+        'lblZeile2
+        '
+        Me.lblZeile2.AutoSize = True
+        Me.lblZeile2.Location = New System.Drawing.Point(42, 93)
+        Me.lblZeile2.Name = "lblZeile2"
+        Me.lblZeile2.Size = New System.Drawing.Size(42, 13)
+        Me.lblZeile2.TabIndex = 4
+        Me.lblZeile2.Text = "Zeile 2:"
+        '
+        'txtZeile1
+        '
+        Me.txtZeile1.Location = New System.Drawing.Point(100, 60)
+        Me.txtZeile1.Name = "txtZeile1"
+        Me.txtZeile1.Size = New System.Drawing.Size(871, 20)
+        Me.txtZeile1.TabIndex = 3
+        '
+        'lblZeile1
+        '
+        Me.lblZeile1.AutoSize = True
+        Me.lblZeile1.Location = New System.Drawing.Point(42, 63)
+        Me.lblZeile1.Name = "lblZeile1"
+        Me.lblZeile1.Size = New System.Drawing.Size(42, 13)
+        Me.lblZeile1.TabIndex = 2
+        Me.lblZeile1.Text = "Zeile 1:"
+        '
+        'cmbTvTextBezeichnungAuswahl
+        '
+        Me.cmbTvTextBezeichnungAuswahl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbTvTextBezeichnungAuswahl.FormattingEnabled = True
+        Me.cmbTvTextBezeichnungAuswahl.Location = New System.Drawing.Point(100, 30)
+        Me.cmbTvTextBezeichnungAuswahl.Name = "cmbTvTextBezeichnungAuswahl"
+        Me.cmbTvTextBezeichnungAuswahl.Size = New System.Drawing.Size(177, 21)
+        Me.cmbTvTextBezeichnungAuswahl.TabIndex = 2
+        '
+        'lblBezeichnung
+        '
+        Me.lblBezeichnung.AutoSize = True
+        Me.lblBezeichnung.Location = New System.Drawing.Point(17, 33)
+        Me.lblBezeichnung.Name = "lblBezeichnung"
+        Me.lblBezeichnung.Size = New System.Drawing.Size(72, 13)
+        Me.lblBezeichnung.TabIndex = 0
+        Me.lblBezeichnung.Text = "Bezeichnung:"
+        '
+        'lblPosition
+        '
+        Me.lblPosition.AutoSize = True
+        Me.lblPosition.Location = New System.Drawing.Point(42, 156)
+        Me.lblPosition.Name = "lblPosition"
+        Me.lblPosition.Size = New System.Drawing.Size(47, 13)
+        Me.lblPosition.TabIndex = 21
+        Me.lblPosition.Text = "Position:"
+        '
+        'cmbPosition
+        '
+        Me.cmbPosition.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cmbPosition.FormattingEnabled = True
+        Me.cmbPosition.Items.AddRange(New Object() {"Top", "Middle", "Bottom"})
+        Me.cmbPosition.Location = New System.Drawing.Point(100, 152)
+        Me.cmbPosition.Name = "cmbPosition"
+        Me.cmbPosition.Size = New System.Drawing.Size(177, 21)
+        Me.cmbPosition.TabIndex = 22
+        '
+        'btnSpeichern
+        '
+        Me.btnSpeichern.Location = New System.Drawing.Point(755, 708)
+        Me.btnSpeichern.Name = "btnSpeichern"
+        Me.btnSpeichern.Size = New System.Drawing.Size(75, 30)
+        Me.btnSpeichern.TabIndex = 5
+        Me.btnSpeichern.Text = "Speichern"
+        Me.btnSpeichern.UseVisualStyleBackColor = True
+        '
+        'btnLoeschen
+        '
+        Me.btnLoeschen.Location = New System.Drawing.Point(836, 708)
+        Me.btnLoeschen.Name = "btnLoeschen"
+        Me.btnLoeschen.Size = New System.Drawing.Size(75, 30)
+        Me.btnLoeschen.TabIndex = 6
+        Me.btnLoeschen.Text = "Löschen"
+        Me.btnLoeschen.UseVisualStyleBackColor = True
+        '
+        'btnAbbrechen
+        '
+        Me.btnAbbrechen.Location = New System.Drawing.Point(917, 708)
+        Me.btnAbbrechen.Name = "btnAbbrechen"
+        Me.btnAbbrechen.Size = New System.Drawing.Size(75, 30)
+        Me.btnAbbrechen.TabIndex = 7
+        Me.btnAbbrechen.Text = "Abbrechen"
+        Me.btnAbbrechen.UseVisualStyleBackColor = True
+        '
+        'chkShowInactive
+        '
+        Me.chkShowInactive.AutoSize = True
+        Me.chkShowInactive.Location = New System.Drawing.Point(230, 27)
+        Me.chkShowInactive.Name = "chkShowInactive"
+        Me.chkShowInactive.Size = New System.Drawing.Size(110, 17)
+        Me.chkShowInactive.TabIndex = 1
+        Me.chkShowInactive.Text = "Inaktive anzeigen"
+        Me.chkShowInactive.UseVisualStyleBackColor = True
+        '
+        'frmEintragTvNew
+        '
+        Me.ClientSize = New System.Drawing.Size(1004, 750)
+        Me.Controls.Add(Me.chkShowInactive)
+        Me.Controls.Add(Me.btnAbbrechen)
+        Me.Controls.Add(Me.btnLoeschen)
+        Me.Controls.Add(Me.btnSpeichern)
+        Me.Controls.Add(Me.grpEingabe)
+        Me.Controls.Add(Me.dgvAVISOTV)
+        Me.Controls.Add(Me.lblStandort)
+        Me.Controls.Add(Me.cbxStandort)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.MaximizeBox = False
+        Me.Name = "frmEintragTvNew"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Einstellungen für TV-Anzeige"
+        CType(Me.dgvAVISOTV, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.grpEingabe.ResumeLayout(False)
+        Me.grpEingabe.PerformLayout()
+        Me.grpWochentage.ResumeLayout(False)
+        Me.grpWochentage.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents cbxStandort As ComboBox
+    Friend WithEvents lblStandort As Label
+    Friend WithEvents dgvAVISOTV As DataGridView
+    Friend WithEvents grpEingabe As GroupBox
+    Friend WithEvents lblNeueTvTextBezeichnung As Label
+    Friend WithEvents txtNeueTvTextBezeichnung As TextBox
+    Friend WithEvents chkIsActive As CheckBox
+    Friend WithEvents chkIsRecurring As CheckBox
+    Friend WithEvents grpWochentage As GroupBox
+    Friend WithEvents chkSunday As CheckBox
+    Friend WithEvents chkSaturday As CheckBox
+    Friend WithEvents chkFriday As CheckBox
+    Friend WithEvents chkThursday As CheckBox
+    Friend WithEvents chkWednesday As CheckBox
+    Friend WithEvents chkTuesday As CheckBox
+    Friend WithEvents chkMonday As CheckBox
+    Friend WithEvents dtpEndTime As DateTimePicker
+    Friend WithEvents lblEndTime As Label
+    Friend WithEvents dtpStartTime As DateTimePicker
+    Friend WithEvents lblStartTime As Label
+    Friend WithEvents dtpEndDate As DateTimePicker
+    Friend WithEvents lblEndDate As Label
+    Friend WithEvents dtpStartDate As DateTimePicker
+    Friend WithEvents lblStartDate As Label
+    Friend WithEvents txtZeile3 As TextBox
+    Friend WithEvents lblZeile3 As Label
+    Friend WithEvents txtZeile2 As TextBox
+    Friend WithEvents lblZeile2 As Label
+    Friend WithEvents txtZeile1 As TextBox
+    Friend WithEvents lblZeile1 As Label
+    Friend WithEvents cmbTvTextBezeichnungAuswahl As ComboBox
+    Friend WithEvents lblBezeichnung As Label
+    Friend WithEvents lblPosition As Label
+    Friend WithEvents cmbPosition As ComboBox
+    Friend WithEvents btnSpeichern As Button
+    Friend WithEvents btnLoeschen As Button
+    Friend WithEvents btnAbbrechen As Button
+    Friend WithEvents chkShowInactive As CheckBox
+
+End Class

Aviso/frmEintragTvNew.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Aviso/frmEintragTvNew.vb

@@ -0,0 +1,542 @@
+Imports System.Data.SqlClient
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmEintragTvNew
+
+    Dim AvisoTvNewDAL As New cAvisoTvNewDAL()
+    Dim myAvisoTvNew As cAvisoTvNew
+    Dim hatAenderung As Boolean = False
+    Dim Neuanlage As Boolean = False
+    Dim list As New List(Of cAvisoTvNew)()
+    Dim listAll As New List(Of cAvisoTvNew)()
+
+    Private isInitializing As Boolean = False
+
+    Public Sub New()
+        InitializeComponent()
+        Icon = cMeineFunktionenAVISO.GetProgrammIcon()
+    End Sub
+
+    Private Sub frmEintragTvNew_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        LadeStandorte()
+        LadeTvTextBezeichnungen()
+        LadenAlleEintraege()
+        grpWochentage.Enabled = chkIsRecurring.Checked
+        dgvAVISOTV.SelectionMode = DataGridViewSelectionMode.FullRowSelect
+        dgvAVISOTV.MultiSelect = False
+        dtpStartDate.ShowCheckBox = True
+        dtpEndDate.ShowCheckBox = True
+        dtpStartTime.ShowCheckBox = True
+        dtpEndTime.ShowCheckBox = True
+        chkIsActive.Checked = True
+    End Sub
+
+    Private Sub LadenAlleEintraege()
+        Try
+            AvisoTvNewDAL.LesenAlleAvisoTvNew(listAll)
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Laden aller Einträge: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+    Private Sub LadeStandorte()
+        Dim standorte As New List(Of String)()
+
+        Try
+            Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
+            If conn Is Nothing Then
+                MessageBox.Show("Die Datenbankverbindung konnte nicht hergestellt werden.", "Verbindungsfehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Return
+            End If
+
+            Dim sql As String = "SELECT DISTINCT Standort FROM StandorteTV ORDER BY Standort"
+            Using cmd As New SqlCommand(sql, conn)
+                Using dr As SqlDataReader = cmd.ExecuteReader()
+                    While dr.Read()
+                        Dim standort As String = Convert.ToString(dr("Standort"))
+                        standorte.Add(standort)
+                    End While
+                End Using
+            End Using
+        Catch ex As SqlException
+            MessageBox.Show("SQL Fehler beim Laden der Standorte: " & ex.Message, "SQL Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        Catch ex As Exception
+            MessageBox.Show("Allgemeiner Fehler beim Laden der Standorte: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+
+        cbxStandort.Items.Clear()
+        cbxStandort.Items.AddRange(standorte.ToArray())
+        If cbxStandort.Items.Count > 0 Then cbxStandort.SelectedIndex = 0
+    End Sub
+
+    Private Sub initdgv()
+        Try
+            RemoveHandler dgvAVISOTV.SelectionChanged, AddressOf dgvAVISOTV_SelectionChanged
+
+            Dim standort As String = cbxStandort.SelectedItem?.ToString()
+            Dim showInactive As Boolean = chkShowInactive.Checked
+
+            Dim gefilterteListe As List(Of cAvisoTvNew)
+            If showInactive Then
+                gefilterteListe = list.Where(Function(x) x.Standort = standort).ToList()
+            Else
+                gefilterteListe = list.Where(Function(x) x.Standort = standort AndAlso x.IsActive).ToList()
+            End If
+
+            dgvAVISOTV.DataSource = Nothing
+            dgvAVISOTV.Rows.Clear()
+
+            If gefilterteListe.Count > 0 Then
+                dgvAVISOTV.DataSource = gefilterteListe
+                dgvAVISOTV.Columns("TvTextBezeichnungID").HeaderText = "ID"
+                dgvAVISOTV.Columns("TvTextBezeichnung").HeaderText = "Bezeichnung"
+                dgvAVISOTV.Columns("FixeZeile1").HeaderText = "Zeile 1"
+                dgvAVISOTV.Columns("FixeZeile2").HeaderText = "Zeile 2"
+                dgvAVISOTV.Columns("FixeZeile3").HeaderText = "Zeile 3"
+                dgvAVISOTV.Columns("Standort").Visible = False
+                dgvAVISOTV.Columns("Art").Visible = False
+                dgvAVISOTV.Columns("StartDate").HeaderText = "Startdatum"
+                dgvAVISOTV.Columns("EndDate").HeaderText = "Enddatum"
+                dgvAVISOTV.Columns("StartTime").HeaderText = "Startzeit"
+                dgvAVISOTV.Columns("EndTime").HeaderText = "Endzeit"
+                dgvAVISOTV.Columns("IsRecurring").HeaderText = "Wiederholen"
+                dgvAVISOTV.Columns("IsActive").HeaderText = "Aktiv"
+                dgvAVISOTV.Columns("IsMonday").Visible = False
+                dgvAVISOTV.Columns("IsTuesday").Visible = False
+                dgvAVISOTV.Columns("IsWednesday").Visible = False
+                dgvAVISOTV.Columns("IsThursday").Visible = False
+                dgvAVISOTV.Columns("IsFriday").Visible = False
+                dgvAVISOTV.Columns("IsSaturday").Visible = False
+                dgvAVISOTV.Columns("IsSunday").Visible = False
+
+                dgvAVISOTV.AutoResizeColumns()
+
+                AddHandler dgvAVISOTV.SelectionChanged, AddressOf dgvAVISOTV_SelectionChanged
+
+                If dgvAVISOTV.Rows.Count > 0 Then
+                    dgvAVISOTV.Rows(0).Selected = True
+                    dgvAVISOTV.CurrentCell = dgvAVISOTV.Rows(0).Cells(0)
+                    dgvAVISOTV_SelectionChanged(Nothing, Nothing)
+                End If
+            Else
+                AddHandler dgvAVISOTV.SelectionChanged, AddressOf dgvAVISOTV_SelectionChanged
+                ClearFields()
+                myAvisoTvNew = Nothing
+            End If
+
+            Neuanlage = False
+            hatAenderung = False
+
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Laden der Daten: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+    Private Sub cbxStandort_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxStandort.SelectedValueChanged
+        If list IsNot Nothing Then list.Clear()
+
+        Dim selectedStandort As String = If(cbxStandort.SelectedItem IsNot Nothing, cbxStandort.SelectedItem.ToString(), "")
+
+        Try
+            AvisoTvNewDAL.LesenAvisoTvNew(0, "", selectedStandort, list)
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Lesen der Einträge: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Return
+        End Try
+
+        LadeTvTextBezeichnungen()
+        initdgv()
+    End Sub
+
+    Private Sub btnNeu_Click(sender As Object, e As EventArgs)
+        Dim standort As String = cbxStandort.SelectedItem?.ToString()
+        If String.IsNullOrEmpty(standort) Then
+            MessageBox.Show("Bitte wählen Sie einen Standort aus.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            Return
+        End If
+
+        Dim standortID As Integer = AvisoTvNewDAL.GetStandortID(standort)
+        If standortID = 0 Then
+            MessageBox.Show("Ungültiger Standort ausgewählt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Return
+        End If
+
+        myAvisoTvNew = New cAvisoTvNew() With {
+            .StandortID = standortID,
+            .Standort = standort,
+            .Art = "",
+            .IsActive = True
+        }
+
+        cmbTvTextBezeichnungAuswahl.SelectedIndex = -1
+        txtNeueTvTextBezeichnung.Text = ""
+
+        Neuanlage = True
+        hatAenderung = False
+        Me.Text = "Neuen Eintrag hinzufügen"
+    End Sub
+
+    Public Class ComboBoxItem
+        Public Property ID As Integer
+        Public Property DisplayText As String
+
+        Public Overrides Function ToString() As String
+            Return DisplayText
+        End Function
+    End Class
+
+    Private Sub LadeTvTextBezeichnungen()
+        isInitializing = True
+        Dim bezeichnungen As New List(Of cTvTextBezeichnung)()
+
+        Try
+            bezeichnungen = AvisoTvNewDAL.LadenAlleTvTextBezeichnungen()
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Laden der TvTextBezeichnungen: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            isInitializing = False
+            Return
+        End Try
+
+        Dim items As New List(Of ComboBoxItem)()
+
+        For Each bezeichnung In bezeichnungen
+            items.Add(New ComboBoxItem() With {
+                .ID = bezeichnung.TvTextBezeichnungID,
+                .DisplayText = bezeichnung.TvTextBezeichnung
+            })
+        Next
+
+        cmbTvTextBezeichnungAuswahl.DataSource = items
+        cmbTvTextBezeichnungAuswahl.DisplayMember = "DisplayText"
+        cmbTvTextBezeichnungAuswahl.ValueMember = "ID"
+        cmbTvTextBezeichnungAuswahl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        cmbTvTextBezeichnungAuswahl.SelectedIndex = -1
+        cmbPosition.SelectedIndex = -1
+        isInitializing = False
+
+        Debug.WriteLine("TvTextBezeichnungen geladen:")
+        For Each item In items
+            Debug.WriteLine($"ID: {item.ID}, Text: {item.DisplayText}")
+        Next
+    End Sub
+
+    Private Sub cmbTvTextBezeichnungAuswahl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbTvTextBezeichnungAuswahl.SelectedIndexChanged
+        If isInitializing Then
+            Return
+        End If
+
+        If cmbTvTextBezeichnungAuswahl.SelectedValue Is Nothing OrElse cmbTvTextBezeichnungAuswahl.SelectedValue Is DBNull.Value Then
+            Return
+        End If
+
+        Try
+            Dim selectedTvTextBezeichnungID As Integer
+            Try
+                selectedTvTextBezeichnungID = Convert.ToInt32(cmbTvTextBezeichnungAuswahl.SelectedValue)
+                Debug.WriteLine("Selected TvTextBezeichnungID: " & selectedTvTextBezeichnungID)
+            Catch ex As Exception
+                MessageBox.Show("Ungültiger Wert für TvTextBezeichnungID: " & ex.Message, "Konvertierungsfehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Return
+            End Try
+
+            If listAll Is Nothing OrElse Not listAll.Any() Then
+                MessageBox.Show("Die Liste aller AvisoEinträge ist nicht geladen oder leer.", "Datenfehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Return
+            End If
+
+            Dim selectedAviso As cAvisoTvNew = listAll.FirstOrDefault(Function(x) x.TvTextBezeichnungID = selectedTvTextBezeichnungID AndAlso x.IsActive)
+
+            Dim currentStandort As String = cbxStandort.SelectedItem?.ToString()
+            Dim currentStandortID As Integer = AvisoTvNewDAL.GetStandortID(currentStandort)
+
+            If selectedAviso IsNot Nothing Then
+                Debug.WriteLine("Gefundenes Aviso: TVID = " & selectedAviso.TVID)
+                myAvisoTvNew = selectedAviso
+                Neuanlage = False
+                FillFieldsFromAviso(selectedAviso)
+                Me.Text = "Eintrag bearbeiten"
+                txtNeueTvTextBezeichnung.Text = ""
+            Else
+                Debug.WriteLine("Kein bestehender Eintrag gefunden. Neuer Eintrag wird erstellt.")
+                myAvisoTvNew = New cAvisoTvNew() With {
+                .IsActive = True,
+                .StandortID = currentStandortID,
+                .Standort = currentStandort
+            }
+                Neuanlage = True
+                Me.Text = "Neuen Eintrag hinzufügen"
+            End If
+        Catch ex As InvalidCastException
+            MessageBox.Show("Fehler beim Konvertieren der TvTextBezeichnungID: " & ex.Message, "Konvertierungsfehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        Catch ex As Exception
+            MessageBox.Show("Ein unerwarteter Fehler ist aufgetreten: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+    Private Sub txtNeueTvTextBezeichnung_TextChanged(sender As Object, e As EventArgs) Handles txtNeueTvTextBezeichnung.TextChanged
+        If Not String.IsNullOrWhiteSpace(txtNeueTvTextBezeichnung.Text) Then
+            cmbTvTextBezeichnungAuswahl.SelectedIndex = -1
+            myAvisoTvNew = New cAvisoTvNew() With {
+                .TvTextBezeichnung = txtNeueTvTextBezeichnung.Text.Trim(),
+                .IsActive = True
+            }
+            Neuanlage = True
+            Me.Text = "Neuen Eintrag hinzufügen"
+        End If
+    End Sub
+
+    Private Sub FillFieldsFromAviso(ByVal aviso As cAvisoTvNew)
+        cmbTvTextBezeichnungAuswahl.SelectedValue = aviso.TvTextBezeichnungID
+        If Not String.IsNullOrEmpty(aviso.Position) Then
+            cmbPosition.SelectedItem = aviso.Position
+        Else
+            cmbPosition.SelectedIndex = -1
+        End If
+
+        txtNeueTvTextBezeichnung.Text = ""
+
+        txtZeile1.Text = aviso.FixeZeile1
+        txtZeile2.Text = aviso.FixeZeile2
+        txtZeile3.Text = aviso.FixeZeile3
+
+        chkIsRecurring.Checked = aviso.IsRecurring.GetValueOrDefault(False)
+
+        If aviso.StartDate.HasValue Then
+            dtpStartDate.Value = aviso.StartDate.Value
+            dtpStartDate.Checked = True
+        Else
+            dtpStartDate.Value = DateTime.Now
+            dtpStartDate.Checked = False
+        End If
+
+        If aviso.EndDate.HasValue Then
+            dtpEndDate.Value = aviso.EndDate.Value
+            dtpEndDate.Checked = True
+        Else
+            dtpEndDate.Value = DateTime.Now
+            dtpEndDate.Checked = False
+        End If
+
+        If aviso.StartTime.HasValue Then
+            dtpStartTime.Value = DateTime.Today.Add(aviso.StartTime.Value)
+            dtpStartTime.Checked = True
+        Else
+            dtpStartTime.Value = DateTime.Now
+            dtpStartTime.Checked = False
+        End If
+
+        If aviso.EndTime.HasValue Then
+            dtpEndTime.Value = DateTime.Today.Add(aviso.EndTime.Value)
+            dtpEndTime.Checked = True
+        Else
+            dtpEndTime.Value = DateTime.Now
+            dtpEndTime.Checked = False
+        End If
+
+        chkMonday.Checked = aviso.IsMonday.GetValueOrDefault(False)
+        chkTuesday.Checked = aviso.IsTuesday.GetValueOrDefault(False)
+        chkWednesday.Checked = aviso.IsWednesday.GetValueOrDefault(False)
+        chkThursday.Checked = aviso.IsThursday.GetValueOrDefault(False)
+        chkFriday.Checked = aviso.IsFriday.GetValueOrDefault(False)
+        chkSaturday.Checked = aviso.IsSaturday.GetValueOrDefault(False)
+        chkSunday.Checked = aviso.IsSunday.GetValueOrDefault(False)
+
+        chkIsActive.Checked = aviso.IsActive
+
+        grpWochentage.Enabled = chkIsRecurring.Checked
+    End Sub
+
+    Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
+        Dim verwendeteTvTextBezeichnung As String = ""
+        Dim isNeueTvTextBezeichnung As Boolean = False
+        Dim currentStandort As String = cbxStandort.SelectedItem?.ToString()
+        Dim currentStandortID As Integer = 0
+
+        If Not String.IsNullOrEmpty(currentStandort) Then
+            currentStandortID = AvisoTvNewDAL.GetStandortID(currentStandort)
+        End If
+
+        If currentStandortID = 0 Then
+            MessageBox.Show("Ungültiger Standort ausgewählt.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Return
+        End If
+
+        Dim selectedTvTextBezeichnungID As Integer = 0
+
+        If cmbTvTextBezeichnungAuswahl.SelectedIndex >= 0 AndAlso String.IsNullOrWhiteSpace(txtNeueTvTextBezeichnung.Text) Then
+            verwendeteTvTextBezeichnung = cmbTvTextBezeichnungAuswahl.Text
+            selectedTvTextBezeichnungID = Convert.ToInt32(cmbTvTextBezeichnungAuswahl.SelectedValue)
+        ElseIf Not String.IsNullOrWhiteSpace(txtNeueTvTextBezeichnung.Text) Then
+            verwendeteTvTextBezeichnung = txtNeueTvTextBezeichnung.Text.Trim()
+            isNeueTvTextBezeichnung = True
+        Else
+            MessageBox.Show("Bitte wählen Sie eine TvTextBezeichnung aus oder geben Sie eine neue TvTextBezeichnung ein.", "Eingabefehler", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+            cmbTvTextBezeichnungAuswahl.Focus()
+            Exit Sub
+        End If
+
+        Try
+            myAvisoTvNew.TvTextBezeichnung = verwendeteTvTextBezeichnung
+            myAvisoTvNew.StandortID = currentStandortID
+            If cmbPosition.SelectedIndex >= 0 Then
+                myAvisoTvNew.Position = cmbPosition.SelectedItem.ToString()
+            Else
+                myAvisoTvNew.Position = Nothing
+            End If
+            If isNeueTvTextBezeichnung Then
+                If AvisoTvNewDAL.IstTvTextBezeichnungVorhanden(myAvisoTvNew.TvTextBezeichnung) Then
+                    MessageBox.Show("Die TvTextBezeichnung ist vorhanden. Bitte wählen Sie eine eindeutige TvTextBezeichnung.", "Eingabefehler", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+                    txtNeueTvTextBezeichnung.Focus()
+                    Exit Sub
+                End If
+            Else
+                myAvisoTvNew.TvTextBezeichnungID = selectedTvTextBezeichnungID
+            End If
+
+            myAvisoTvNew.FixeZeile1 = If(String.IsNullOrWhiteSpace(txtZeile1.Text), Nothing, txtZeile1.Text.Trim())
+            myAvisoTvNew.FixeZeile2 = If(String.IsNullOrWhiteSpace(txtZeile2.Text), Nothing, txtZeile2.Text.Trim())
+            myAvisoTvNew.FixeZeile3 = If(String.IsNullOrWhiteSpace(txtZeile3.Text), Nothing, txtZeile3.Text.Trim())
+
+            myAvisoTvNew.IsRecurring = chkIsRecurring.Checked
+
+            myAvisoTvNew.StartDate = If(dtpStartDate.Checked, CType(dtpStartDate.Value.Date, Date?), Nothing)
+            myAvisoTvNew.EndDate = If(dtpEndDate.Checked, CType(dtpEndDate.Value.Date, Date?), Nothing)
+
+            myAvisoTvNew.StartTime = If(dtpStartTime.Checked, CType(dtpStartTime.Value.TimeOfDay, TimeSpan?), Nothing)
+            myAvisoTvNew.EndTime = If(dtpEndTime.Checked, CType(dtpEndTime.Value.TimeOfDay, TimeSpan?), Nothing)
+
+            myAvisoTvNew.IsMonday = chkMonday.Checked
+            myAvisoTvNew.IsTuesday = chkTuesday.Checked
+            myAvisoTvNew.IsWednesday = chkWednesday.Checked
+            myAvisoTvNew.IsThursday = chkThursday.Checked
+            myAvisoTvNew.IsFriday = chkFriday.Checked
+            myAvisoTvNew.IsSaturday = chkSaturday.Checked
+            myAvisoTvNew.IsSunday = chkSunday.Checked
+
+            myAvisoTvNew.IsActive = chkIsActive.Checked
+
+            If Neuanlage Then
+                myAvisoTvNew.Standort = cbxStandort.SelectedItem?.ToString()
+                If String.IsNullOrEmpty(myAvisoTvNew.Standort) Then
+                    MessageBox.Show("Bitte wählen Sie einen Standort aus.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+                    Return
+                End If
+            End If
+
+            Debug.WriteLine($"Speichern: TVID = {myAvisoTvNew.TVID}, TvTextBezeichnungID = {myAvisoTvNew.TvTextBezeichnungID}, StandortID = {myAvisoTvNew.StandortID}")
+
+            AvisoTvNewDAL.SpeichernAvisoTvNew(myAvisoTvNew)
+
+            LadeTvTextBezeichnungen()
+
+            list.Clear()
+            AvisoTvNewDAL.LesenAvisoTvNew(0, "", currentStandort, list)
+
+            initdgv()
+            hatAenderung = False
+
+            If isNeueTvTextBezeichnung Then
+                MessageBox.Show("Die neue TvTextBezeichnung wurde erfolgreich gespeichert.", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
+                cmbTvTextBezeichnungAuswahl.SelectedValue = myAvisoTvNew.TvTextBezeichnungID
+                txtNeueTvTextBezeichnung.Text = ""
+            Else
+                MessageBox.Show("Die Änderungen wurden erfolgreich gespeichert.", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            End If
+
+        Catch ex As Exception
+            MessageBox.Show("Fehler beim Speichern der Daten: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+    Private Sub btnLoeschen_Click(sender As Object, e As EventArgs) Handles btnLoeschen.Click
+        If myAvisoTvNew Is Nothing OrElse myAvisoTvNew.TVID = 0 Then
+            MessageBox.Show("Bitte wählen Sie einen Eintrag zum Deaktivieren aus.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            Return
+        End If
+
+        Dim antwort As DialogResult = MessageBox.Show("Möchten Sie den ausgewählten Eintrag wirklich deaktivieren?", "Deaktivieren bestätigen", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
+        If antwort = DialogResult.Yes Then
+            Try
+                AvisoTvNewDAL.SetzeAufInaktiv(myAvisoTvNew.TVID)
+                list.Clear()
+                AvisoTvNewDAL.LesenAvisoTvNew(0, "", cbxStandort.SelectedItem?.ToString(), list)
+                initdgv()
+                ClearFields()
+                myAvisoTvNew = Nothing
+                Neuanlage = False
+                hatAenderung = False
+                MessageBox.Show("Der Eintrag wurde erfolgreich deaktiviert.", "Erfolg", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            Catch ex As Exception
+                MessageBox.Show("Fehler beim Deaktivieren des Eintrags: " & ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End Try
+        End If
+    End Sub
+
+    Private Sub dgvAVISOTV_SelectionChanged(sender As Object, e As EventArgs) Handles dgvAVISOTV.SelectionChanged
+        If dgvAVISOTV.CurrentRow IsNot Nothing AndAlso dgvAVISOTV.CurrentRow.DataBoundItem IsNot Nothing Then
+            Dim selectedAviso As cAvisoTvNew = CType(dgvAVISOTV.CurrentRow.DataBoundItem, cAvisoTvNew)
+            If selectedAviso IsNot Nothing Then
+                myAvisoTvNew = selectedAviso
+                FillFieldsFromAviso(selectedAviso)
+                Neuanlage = False
+                hatAenderung = False
+                Me.Text = "Eintrag bearbeiten"
+            End If
+        End If
+    End Sub
+
+    Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
+        If hatAenderung Then
+            Dim antwort As DialogResult = MessageBox.Show("Es liegen ungespeicherte Änderungen vor. Möchten Sie das Fenster trotzdem schließen?", "Ungespeicherte Änderungen", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
+            If antwort = DialogResult.No Then Exit Sub
+        End If
+        Me.Close()
+    End Sub
+
+    Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txtZeile1.TextChanged, txtZeile2.TextChanged, txtZeile3.TextChanged, dtpStartDate.ValueChanged, dtpEndDate.ValueChanged, dtpStartTime.ValueChanged, dtpEndTime.ValueChanged, chkIsRecurring.CheckedChanged, chkMonday.CheckedChanged, chkTuesday.CheckedChanged, chkWednesday.CheckedChanged, chkThursday.CheckedChanged, chkFriday.CheckedChanged, chkSaturday.CheckedChanged, chkSunday.CheckedChanged, chkIsActive.CheckedChanged, cmbTvTextBezeichnungAuswahl.SelectedIndexChanged, txtNeueTvTextBezeichnung.TextChanged
+        hatAenderung = True
+    End Sub
+
+    Private Sub frmEintragTvNew_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
+        If hatAenderung Then
+            Dim antwort As DialogResult = MessageBox.Show("Es liegen ungespeicherte Änderungen vor. Möchten Sie das Fenster trotzdem schließen?", "Ungespeicherte Änderungen", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
+            If antwort = DialogResult.No Then e.Cancel = True
+        End If
+    End Sub
+
+    Private Sub chkIsRecurring_CheckedChanged(sender As Object, e As EventArgs) Handles chkIsRecurring.CheckedChanged
+        grpWochentage.Enabled = chkIsRecurring.Checked
+    End Sub
+
+    Private Sub ClearFields()
+        cmbTvTextBezeichnungAuswahl.SelectedIndex = -1
+        cmbPosition.SelectedIndex = -1
+        txtNeueTvTextBezeichnung.Text = ""
+        txtZeile1.Text = ""
+        txtZeile2.Text = ""
+        txtZeile3.Text = ""
+        dtpStartDate.Value = DateTime.Now
+        dtpStartDate.Checked = False
+        dtpEndDate.Value = DateTime.Now
+        dtpEndDate.Checked = False
+        dtpStartTime.Value = DateTime.Now
+        dtpStartTime.Checked = False
+        dtpEndTime.Value = DateTime.Now
+        dtpEndTime.Checked = False
+        chkIsRecurring.Checked = False
+        chkMonday.Checked = False
+        chkTuesday.Checked = False
+        chkWednesday.Checked = False
+        chkThursday.Checked = False
+        chkFriday.Checked = False
+        chkSaturday.Checked = False
+        chkSunday.Checked = False
+        chkIsActive.Checked = True
+        grpWochentage.Enabled = False
+    End Sub
+
+    Private Sub chkShowInactive_CheckedChanged_1(sender As Object, e As EventArgs) Handles chkShowInactive.CheckedChanged
+        initdgv()
+    End Sub
+
+End Class

Aviso/frmHauptfenster.Designer.vb

@@ -239,6 +239,7 @@ Partial Class frmHauptfenster
         Me.Label6 = New System.Windows.Forms.Label()
         Me.txtSuche = New System.Windows.Forms.TextBox()
         Me.Top = New System.Windows.Forms.Panel()
+        Me.Button1 = New System.Windows.Forms.Button()
         Me.lblUsrname = New System.Windows.Forms.Label()
         Me.lblFimaAviso = New System.Windows.Forms.Label()
         Me.Button11 = New System.Windows.Forms.Button()
@@ -291,6 +292,7 @@ Partial Class frmHauptfenster
         Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
         Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
+        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
         Me.pnl = New System.Windows.Forms.Panel()
         Me.Button10 = New System.Windows.Forms.Button()
         Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -398,8 +400,7 @@ Partial Class frmHauptfenster
         Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
+        Me.TVEditorNewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.pnlDetailsRechts.SuspendLayout()
@@ -599,7 +600,7 @@ Partial Class frmHauptfenster
         '
         'AvisoTVToolStripMenuItem
         '
-        Me.AvisoTVToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoTextÄndernToolStripMenuItem})
+        Me.AvisoTVToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.InfoTextÄndernToolStripMenuItem, Me.TVEditorNewToolStripMenuItem})
         Me.AvisoTVToolStripMenuItem.Name = "AvisoTVToolStripMenuItem"
         Me.AvisoTVToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
         Me.AvisoTVToolStripMenuItem.Text = "AvisoTV"
@@ -608,7 +609,7 @@ Partial Class frmHauptfenster
         'InfoTextÄndernToolStripMenuItem
         '
         Me.InfoTextÄndernToolStripMenuItem.Name = "InfoTextÄndernToolStripMenuItem"
-        Me.InfoTextÄndernToolStripMenuItem.Size = New System.Drawing.Size(156, 22)
+        Me.InfoTextÄndernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.InfoTextÄndernToolStripMenuItem.Text = "InfoText ändern"
         '
         'SecretAvisoToolStripMenuItem
@@ -1800,6 +1801,16 @@ Partial Class frmHauptfenster
         Me.Top.Size = New System.Drawing.Size(1372, 52)
         Me.Top.TabIndex = 6
         '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(1028, 7)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 87
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        Me.Button1.Visible = False
+        '
         'lblUsrname
         '
         Me.lblUsrname.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2496,6 +2507,15 @@ Partial Class frmHauptfenster
         Me.SplitContainer3.SplitterDistance = 158
         Me.SplitContainer3.TabIndex = 3
         '
+        'UsrCntlBenachrichtigungen1
+        '
+        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
+        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
+        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
+        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
+        '
         'pnl
         '
         Me.pnl.Controls.Add(Me.Button10)
@@ -3786,24 +3806,11 @@ Partial Class frmHauptfenster
         Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
         Me.UsrCntlTestsystem1.TabIndex = 8
         '
-        'Button1
+        'TVEditorNewToolStripMenuItem
         '
-        Me.Button1.Location = New System.Drawing.Point(1028, 7)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 87
-        Me.Button1.Text = "Button1"
-        Me.Button1.UseVisualStyleBackColor = True
-        Me.Button1.Visible = False
-        '
-        'UsrCntlBenachrichtigungen1
-        '
-        Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
-        Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
-        Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
-        Me.UsrCntlBenachrichtigungen1.TabIndex = 0
+        Me.TVEditorNewToolStripMenuItem.Name = "TVEditorNewToolStripMenuItem"
+        Me.TVEditorNewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.TVEditorNewToolStripMenuItem.Text = "TVEditorNew"
         '
         'frmHauptfenster
         '
@@ -4245,4 +4252,5 @@ Partial Class frmHauptfenster
     Friend WithEvents SpireLizenzPrüfenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents DEAmbarToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Button1 As Button
+    Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmHauptfenster.vb

@@ -4806,6 +4806,10 @@ Public Class frmHauptfenster
 
         saveLukowaPDFsFromTherefore()
     End Sub
+
+    Private Sub TVEditorNewToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TVEditorNewToolStripMenuItem.Click
+        frmEintragTvNew.ShowDialog(Me)
+    End Sub
 End Class
 
 Public Class AvisoStatusFunctions

AvisoTV/packages.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net48" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
+</packages>

Gemeinsames/App.config

@@ -1,6 +1,22 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8" />
     </startup>
+  <runtime>
+    <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
+      <dependentAssembly>
+        <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
+      </dependentAssembly>
+      <dependentAssembly>
+        <assemblyIdentity name="Spire.Pdf" publicKeyToken="663f351905198cb3" culture="neutral" />
+        <bindingRedirect oldVersion="0.0.0.0-10.7.21.0" newVersion="10.7.21.0" />
+      </dependentAssembly>
+    </assemblyBinding>
+  </runtime>
 </configuration>

Gemeinsames/packages.config

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="Microsoft.Bcl.AsyncInterfaces" version="8.0.0" targetFramework="net48" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="6.0.0" targetFramework="net48" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.4" targetFramework="net48" />
+</packages>