Update 20240102

2024-01-02 22:23:16 +01:00
parent 31b67036c3
commit 6164ec3d16
219 changed files with 429344 additions and 1191 deletions
--- a/DPM2016/Klassen/clsStammdaten_flat.Designer.vb
+++ b/DPM2016/Klassen/clsStammdaten_flat.Designer.vb
@@ -82,23 +82,24 @@ Partial Class clsStammdaten_flat
        Me.c1daten.AllowAddNew = True
        Me.c1daten.AllowDrop = True
        Me.c1daten.AlternatingRows = True
+        Me.c1daten.BorderColor = System.Drawing.SystemColors.WindowFrame
        Me.c1daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
        Me.c1daten.Dock = System.Windows.Forms.DockStyle.Fill
        Me.c1daten.FetchRowStyles = True
        Me.c1daten.FilterBar = True
        Me.c1daten.GroupByCaption = "Drag a column header here to group by that column"
        Me.c1daten.Images.Add(CType(resources.GetObject("c1daten.Images"), System.Drawing.Image))
-        Me.c1daten.Location = New System.Drawing.Point(0, 31)
-        Me.c1daten.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.c1daten.Location = New System.Drawing.Point(0, 27)
        Me.c1daten.Name = "c1daten"
        Me.c1daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.c1daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.c1daten.PreviewInfo.ZoomFactor = 75.0R
        Me.c1daten.PrintInfo.PageSettings = CType(resources.GetObject("c1daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
-        Me.c1daten.Size = New System.Drawing.Size(1011, 463)
+        Me.c1daten.Size = New System.Drawing.Size(758, 374)
        Me.c1daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
        Me.c1daten.TabIndex = 0
        Me.c1daten.Text = "C1TrueDBGrid1"
+        Me.c1daten.UseCompatibleTextRendering = False
        Me.c1daten.PropBag = resources.GetString("c1daten.PropBag")
        '
        'ToolStrip1
@@ -108,7 +109,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton1, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton6, Me.ToolStripButton7, Me.tsnewdentotar})
        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
        Me.ToolStrip1.Name = "ToolStrip1"
-        Me.ToolStrip1.Size = New System.Drawing.Size(1011, 31)
+        Me.ToolStrip1.Size = New System.Drawing.Size(758, 27)
        Me.ToolStrip1.TabIndex = 13
        Me.ToolStrip1.Text = "ToolStrip1"
        '
@@ -118,7 +119,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
        Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton5.Name = "ToolStripButton5"
-        Me.ToolStripButton5.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton5.Size = New System.Drawing.Size(24, 24)
        Me.ToolStripButton5.Text = "ToolStripButton5"
        '
        'ToolStripButton1
@@ -127,7 +128,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton1.Name = "ToolStripButton1"
-        Me.ToolStripButton1.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton1.Size = New System.Drawing.Size(24, 24)
        Me.ToolStripButton1.Text = "Neues Dokument"
        Me.ToolStripButton1.Visible = False
        '
@@ -137,7 +138,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
        Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton4.Name = "ToolStripButton4"
-        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(24, 24)
        Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
        Me.ToolStripButton4.Visible = False
        '
@@ -147,7 +148,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton2.Name = "ToolStripButton2"
-        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(24, 24)
        Me.ToolStripButton2.Text = "Dokument löschen"
        Me.ToolStripButton2.Visible = False
        '
@@ -157,7 +158,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
        Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton3.Name = "ToolStripButton3"
-        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(24, 24)
        Me.ToolStripButton3.Text = "Dokument anzeigen"
        Me.ToolStripButton3.Visible = False
        '
@@ -167,7 +168,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image)
        Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton6.Name = "ToolStripButton6"
-        Me.ToolStripButton6.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton6.Size = New System.Drawing.Size(24, 24)
        Me.ToolStripButton6.Text = "Daten speichern"
        '
        'ToolStripButton7
@@ -176,7 +177,7 @@ Partial Class clsStammdaten_flat
        Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image)
        Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.ToolStripButton7.Name = "ToolStripButton7"
-        Me.ToolStripButton7.Size = New System.Drawing.Size(29, 28)
+        Me.ToolStripButton7.Size = New System.Drawing.Size(24, 24)
        Me.ToolStripButton7.Text = "ToolStripButton7"
        Me.ToolStripButton7.Visible = False
        '
@@ -186,7 +187,7 @@ Partial Class clsStammdaten_flat
        Me.tsnewdentotar.Image = CType(resources.GetObject("tsnewdentotar.Image"), System.Drawing.Image)
        Me.tsnewdentotar.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.tsnewdentotar.Name = "tsnewdentotar"
-        Me.tsnewdentotar.Size = New System.Drawing.Size(29, 28)
+        Me.tsnewdentotar.Size = New System.Drawing.Size(24, 24)
        Me.tsnewdentotar.Text = "Neuer Dentotar-Eintrag"
        Me.tsnewdentotar.Visible = False
        '
@@ -196,6 +197,7 @@ Partial Class clsStammdaten_flat
        Me.C1TrueDBDropdown1.AllowColSelect = True
        Me.C1TrueDBDropdown1.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.C1TrueDBDropdown1.AlternatingRows = False
+        Me.C1TrueDBDropdown1.BorderColor = System.Drawing.SystemColors.WindowFrame
        Me.C1TrueDBDropdown1.CaptionStyle = Style1
        Me.C1TrueDBDropdown1.ColumnCaptionHeight = 17
        Me.C1TrueDBDropdown1.ColumnFooterHeight = 17
@@ -205,8 +207,7 @@ Partial Class clsStammdaten_flat
        Me.C1TrueDBDropdown1.HeadingStyle = Style4
        Me.C1TrueDBDropdown1.HighLightRowStyle = Style5
        Me.C1TrueDBDropdown1.Images.Add(CType(resources.GetObject("C1TrueDBDropdown1.Images"), System.Drawing.Image))
-        Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(21, 86)
-        Me.C1TrueDBDropdown1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.C1TrueDBDropdown1.Location = New System.Drawing.Point(16, 70)
        Me.C1TrueDBDropdown1.Name = "C1TrueDBDropdown1"
        Me.C1TrueDBDropdown1.OddRowStyle = Style6
        Me.C1TrueDBDropdown1.RecordSelectorStyle = Style7
@@ -214,9 +215,10 @@ Partial Class clsStammdaten_flat
        Me.C1TrueDBDropdown1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
        Me.C1TrueDBDropdown1.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.C1TrueDBDropdown1.ScrollTips = False
-        Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(286, 184)
+        Me.C1TrueDBDropdown1.Size = New System.Drawing.Size(215, 150)
        Me.C1TrueDBDropdown1.Style = Style8
        Me.C1TrueDBDropdown1.TabIndex = 14
+        Me.C1TrueDBDropdown1.UseCompatibleTextRendering = False
        Me.C1TrueDBDropdown1.Visible = False
        Me.C1TrueDBDropdown1.PropBag = resources.GetString("C1TrueDBDropdown1.PropBag")
        '
@@ -226,6 +228,7 @@ Partial Class clsStammdaten_flat
        Me.C1TrueDBDropdown2.AllowColSelect = True
        Me.C1TrueDBDropdown2.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.C1TrueDBDropdown2.AlternatingRows = False
+        Me.C1TrueDBDropdown2.BorderColor = System.Drawing.SystemColors.WindowFrame
        Me.C1TrueDBDropdown2.CaptionStyle = Style9
        Me.C1TrueDBDropdown2.ColumnCaptionHeight = 17
        Me.C1TrueDBDropdown2.ColumnFooterHeight = 17
@@ -235,8 +238,7 @@ Partial Class clsStammdaten_flat
        Me.C1TrueDBDropdown2.HeadingStyle = Style12
        Me.C1TrueDBDropdown2.HighLightRowStyle = Style13
        Me.C1TrueDBDropdown2.Images.Add(CType(resources.GetObject("C1TrueDBDropdown2.Images"), System.Drawing.Image))
-        Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(252, 188)
-        Me.C1TrueDBDropdown2.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
+        Me.C1TrueDBDropdown2.Location = New System.Drawing.Point(189, 153)
        Me.C1TrueDBDropdown2.Name = "C1TrueDBDropdown2"
        Me.C1TrueDBDropdown2.OddRowStyle = Style14
        Me.C1TrueDBDropdown2.RecordSelectorStyle = Style15
@@ -244,9 +246,10 @@ Partial Class clsStammdaten_flat
        Me.C1TrueDBDropdown2.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
        Me.C1TrueDBDropdown2.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.C1TrueDBDropdown2.ScrollTips = False
-        Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(310, 184)
+        Me.C1TrueDBDropdown2.Size = New System.Drawing.Size(233, 150)
        Me.C1TrueDBDropdown2.Style = Style16
        Me.C1TrueDBDropdown2.TabIndex = 15
+        Me.C1TrueDBDropdown2.UseCompatibleTextRendering = False
        Me.C1TrueDBDropdown2.Visible = False
        Me.C1TrueDBDropdown2.PropBag = resources.GetString("C1TrueDBDropdown2.PropBag")
        '
@@ -255,18 +258,18 @@ Partial Class clsStammdaten_flat
        Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerBenutzerEröffnenToolStripMenuItem, Me.PasswortÄndernToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(241, 52)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(204, 48)
        '
        'NeuerBenutzerEröffnenToolStripMenuItem
        '
        Me.NeuerBenutzerEröffnenToolStripMenuItem.Name = "NeuerBenutzerEröffnenToolStripMenuItem"
-        Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(240, 24)
+        Me.NeuerBenutzerEröffnenToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
        Me.NeuerBenutzerEröffnenToolStripMenuItem.Text = "Neuer Benutzer eröffnen"
        '
        'PasswortÄndernToolStripMenuItem
        '
        Me.PasswortÄndernToolStripMenuItem.Name = "PasswortÄndernToolStripMenuItem"
-        Me.PasswortÄndernToolStripMenuItem.Size = New System.Drawing.Size(240, 24)
+        Me.PasswortÄndernToolStripMenuItem.Size = New System.Drawing.Size(203, 22)
        Me.PasswortÄndernToolStripMenuItem.Text = "Passwort ändern"
        '
        'ctxMenuTarif
@@ -274,18 +277,18 @@ Partial Class clsStammdaten_flat
        Me.ctxMenuTarif.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.ctxMenuTarif.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifBearbeitenToolStripMenuItem, Me.NeuerTarifeintragErstellenToolStripMenuItem})
        Me.ctxMenuTarif.Name = "ctxMenuTarif"
-        Me.ctxMenuTarif.Size = New System.Drawing.Size(258, 52)
+        Me.ctxMenuTarif.Size = New System.Drawing.Size(216, 48)
        '
        'TarifBearbeitenToolStripMenuItem
        '
        Me.TarifBearbeitenToolStripMenuItem.Name = "TarifBearbeitenToolStripMenuItem"
-        Me.TarifBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(257, 24)
+        Me.TarifBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
        Me.TarifBearbeitenToolStripMenuItem.Text = "Tarif bearbeiten"
        '
        'NeuerTarifeintragErstellenToolStripMenuItem
        '
        Me.NeuerTarifeintragErstellenToolStripMenuItem.Name = "NeuerTarifeintragErstellenToolStripMenuItem"
-        Me.NeuerTarifeintragErstellenToolStripMenuItem.Size = New System.Drawing.Size(257, 24)
+        Me.NeuerTarifeintragErstellenToolStripMenuItem.Size = New System.Drawing.Size(215, 22)
        Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Tarifeintrag erstellen"
        '
        'ctxmenuDentotar
@@ -299,12 +302,12 @@ Partial Class clsStammdaten_flat
        Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TarifBearbeitenToolStripMenuItem1})
        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(183, 28)
+        Me.ContextMenuStrip2.Size = New System.Drawing.Size(156, 26)
        '
        'TarifBearbeitenToolStripMenuItem1
        '
        Me.TarifBearbeitenToolStripMenuItem1.Name = "TarifBearbeitenToolStripMenuItem1"
-        Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(182, 24)
+        Me.TarifBearbeitenToolStripMenuItem1.Size = New System.Drawing.Size(155, 22)
        Me.TarifBearbeitenToolStripMenuItem1.Text = "Tarif bearbeiten"
        '
        'ctxMenuMailtext
@@ -312,12 +315,12 @@ Partial Class clsStammdaten_flat
        Me.ctxMenuMailtext.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.ctxMenuMailtext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MailTexteBearbeitenToolStripMenuItem})
        Me.ctxMenuMailtext.Name = "ctxMenuMailtext"
-        Me.ctxMenuMailtext.Size = New System.Drawing.Size(225, 28)
+        Me.ctxMenuMailtext.Size = New System.Drawing.Size(189, 26)
        '
        'MailTexteBearbeitenToolStripMenuItem
        '
        Me.MailTexteBearbeitenToolStripMenuItem.Name = "MailTexteBearbeitenToolStripMenuItem"
-        Me.MailTexteBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(224, 24)
+        Me.MailTexteBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(188, 22)
        Me.MailTexteBearbeitenToolStripMenuItem.Text = "Mail-Texte bearbeiten"
        '
        'ctxmenureporting
@@ -325,31 +328,30 @@ Partial Class clsStammdaten_flat
        Me.ctxmenureporting.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.ctxmenureporting.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SQLBearbeitenToolStripMenuItem, Me.ReportBearbeitenToolStripMenuItem})
        Me.ctxmenureporting.Name = "ctxmenureporting"
-        Me.ctxmenureporting.Size = New System.Drawing.Size(200, 52)
+        Me.ctxmenureporting.Size = New System.Drawing.Size(169, 48)
        '
        'SQLBearbeitenToolStripMenuItem
        '
        Me.SQLBearbeitenToolStripMenuItem.Name = "SQLBearbeitenToolStripMenuItem"
-        Me.SQLBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 24)
+        Me.SQLBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(168, 22)
        Me.SQLBearbeitenToolStripMenuItem.Text = "SQL bearbeiten"
        '
        'ReportBearbeitenToolStripMenuItem
        '
        Me.ReportBearbeitenToolStripMenuItem.Name = "ReportBearbeitenToolStripMenuItem"
-        Me.ReportBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(199, 24)
+        Me.ReportBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(168, 22)
        Me.ReportBearbeitenToolStripMenuItem.Text = "Report bearbeiten"
        '
        'clsStammdaten_flat
        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.Controls.Add(Me.C1TrueDBDropdown2)
        Me.Controls.Add(Me.C1TrueDBDropdown1)
        Me.Controls.Add(Me.c1daten)
        Me.Controls.Add(Me.ToolStrip1)
-        Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
        Me.Name = "clsStammdaten_flat"
-        Me.Size = New System.Drawing.Size(1011, 494)
+        Me.Size = New System.Drawing.Size(758, 401)
        CType(Me.c1daten, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ToolStrip1.ResumeLayout(False)
        Me.ToolStrip1.PerformLayout()