Update 20221015

2022-10-15 15:51:45 +02:00
parent 8d0d3ffb6d
commit 971afb5716
33 changed files with 210 additions and 140 deletions
--- a/DPM2016/Behandlung/Behandlung.Designer.vb
+++ b/DPM2016/Behandlung/Behandlung.Designer.vb
@@ -75,9 +75,6 @@ Partial Class Behandlung
        Me.KostenvoranschlagAbschliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.KostenvoranschlagLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
-        Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.c1akonto = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
@@ -85,6 +82,7 @@ Partial Class Behandlung
        Me.NeueAkontoZahlungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AkontoRechnungVorschauToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AkontoRechnungErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.AkontoRechnungPDFPerMailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AkontoRechnungLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem28 = New System.Windows.Forms.ToolStripSeparator()
        Me.RechnungsDokumentErsetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -92,10 +90,14 @@ Partial Class Behandlung
        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
        Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
        Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
        Me.STAkonto = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
@@ -157,14 +159,14 @@ Partial Class Behandlung
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
        Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
        Me.Leistungen1 = New DPM2016.Leistungen()
+        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
+        Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
        Me.tsbtndelete.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ctxmenubehandlung.SuspendLayout()
        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuperTabControl1.SuspendLayout()
-        Me.SuperTabControlPanel2.SuspendLayout()
-        Me.Panel1.SuspendLayout()
        Me.SuperTabControlPanel4.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.c1akonto, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -172,6 +174,8 @@ Partial Class Behandlung
        Me.ToolStrip1.SuspendLayout()
        Me.SuperTabControlPanel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
+        Me.SuperTabControlPanel2.SuspendLayout()
+        Me.Panel1.SuspendLayout()
        Me.tsbtnbehandlungdelete.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.ctxMenuAuftragsamanagement.SuspendLayout()
@@ -184,7 +188,7 @@ Partial Class Behandlung
        Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
        Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
        Me.tsbtndelete.Name = "tsbtndelete"
-        Me.tsbtndelete.Size = New System.Drawing.Size(1713, 27)
+        Me.tsbtndelete.Size = New System.Drawing.Size(1713, 31)
        Me.tsbtndelete.TabIndex = 1
        Me.tsbtndelete.Text = "ToolStrip1"
        '
@@ -194,7 +198,7 @@ Partial Class Behandlung
        Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
        Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
-        Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 24)
+        Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 28)
        Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
        '
        'tsbtndeletebehandlung
@@ -203,7 +207,7 @@ Partial Class Behandlung
        Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
        Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
        Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
-        Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 24)
+        Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 28)
        Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
        '
        'ToolStripButton2
@@ -212,18 +216,18 @@ Partial Class Behandlung
        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, 24)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
        Me.ToolStripButton2.Text = "Aktualisieren"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.treebehandlungen)
        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.GroupBox1.Location = New System.Drawing.Point(0, 27)
+        Me.GroupBox1.Location = New System.Drawing.Point(0, 31)
        Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
-        Me.GroupBox1.Size = New System.Drawing.Size(273, 1004)
+        Me.GroupBox1.Size = New System.Drawing.Size(273, 1000)
        Me.GroupBox1.TabIndex = 2
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Behandlungen"
@@ -252,7 +256,7 @@ Partial Class Behandlung
        Me.treebehandlungen.NodesConnector = Me.NodeConnector1
        Me.treebehandlungen.NodeStyle = Me.ElementStyle1
        Me.treebehandlungen.PathSeparator = ";"
-        Me.treebehandlungen.Size = New System.Drawing.Size(265, 981)
+        Me.treebehandlungen.Size = New System.Drawing.Size(265, 977)
        Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
        Me.treebehandlungen.TabIndex = 0
        Me.treebehandlungen.Text = "AdvTree1"
@@ -532,58 +536,30 @@ Partial Class Behandlung
        Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
        Me.SuperTabControl1.ControlBox.Name = ""
        Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
        Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControl1.Location = New System.Drawing.Point(273, 27)
+        Me.SuperTabControl1.Location = New System.Drawing.Point(273, 31)
        Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
        Me.SuperTabControl1.Name = "SuperTabControl1"
        Me.SuperTabControl1.ReorderTabsEnabled = True
        Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
        Me.SuperTabControl1.SelectedTabIndex = 0
-        Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1004)
+        Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1000)
        Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.SuperTabControl1.TabIndex = 9
        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung, Me.STAkonto})
        Me.SuperTabControl1.Text = "Rechnungstext"
        '
-        'SuperTabControlPanel2
-        '
-        Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
-        Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 28)
-        Me.SuperTabControlPanel2.Margin = New System.Windows.Forms.Padding(4)
-        Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
-        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1440, 972)
-        Me.SuperTabControlPanel2.TabIndex = 0
-        Me.SuperTabControlPanel2.TabItem = Me.STLeistung
-        '
-        'Panel1
-        '
-        Me.Panel1.Controls.Add(Me.Leistungen1)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Panel1.Location = New System.Drawing.Point(0, 0)
-        Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(1440, 972)
-        Me.Panel1.TabIndex = 1
-        '
-        'STLeistung
-        '
-        Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
-        Me.STLeistung.GlobalItem = False
-        Me.STLeistung.Name = "STLeistung"
-        Me.STLeistung.Text = "Leistungen"
-        '
        'SuperTabControlPanel4
        '
        Me.SuperTabControlPanel4.Controls.Add(Me.GroupBox2)
        Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
        Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 28)
        Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
-        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1440, 976)
+        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1440, 972)
        Me.SuperTabControlPanel4.TabIndex = 0
        Me.SuperTabControlPanel4.TabItem = Me.STAkonto
        '
@@ -626,9 +602,9 @@ Partial Class Behandlung
        'ctxmenuakonto
        '
        Me.ctxmenuakonto.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ctxmenuakonto.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueAkontoZahlungToolStripMenuItem, Me.AkontoRechnungVorschauToolStripMenuItem, Me.AkontoRechnungErstellenToolStripMenuItem, Me.AkontoRechnungLöschenToolStripMenuItem, Me.ToolStripMenuItem28, Me.RechnungsDokumentErsetzenToolStripMenuItem, Me.RechnungsdokumentAnzeigenToolStripMenuItem})
+        Me.ctxmenuakonto.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueAkontoZahlungToolStripMenuItem, Me.AkontoRechnungVorschauToolStripMenuItem, Me.AkontoRechnungErstellenToolStripMenuItem, Me.AkontoRechnungPDFPerMailToolStripMenuItem, Me.AkontoRechnungLöschenToolStripMenuItem, Me.ToolStripMenuItem28, Me.RechnungsDokumentErsetzenToolStripMenuItem, Me.RechnungsdokumentAnzeigenToolStripMenuItem})
        Me.ctxmenuakonto.Name = "ctxmenuakonto"
-        Me.ctxmenuakonto.Size = New System.Drawing.Size(289, 154)
+        Me.ctxmenuakonto.Size = New System.Drawing.Size(289, 178)
        '
        'NeueAkontoZahlungToolStripMenuItem
        '
@@ -646,7 +622,13 @@ Partial Class Behandlung
        '
        Me.AkontoRechnungErstellenToolStripMenuItem.Name = "AkontoRechnungErstellenToolStripMenuItem"
        Me.AkontoRechnungErstellenToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
-        Me.AkontoRechnungErstellenToolStripMenuItem.Text = "Akonto-Rechnung erstellen"
+        Me.AkontoRechnungErstellenToolStripMenuItem.Text = "Akonto-Rechnung PDF"
+        '
+        'AkontoRechnungPDFPerMailToolStripMenuItem
+        '
+        Me.AkontoRechnungPDFPerMailToolStripMenuItem.Name = "AkontoRechnungPDFPerMailToolStripMenuItem"
+        Me.AkontoRechnungPDFPerMailToolStripMenuItem.Size = New System.Drawing.Size(288, 24)
+        Me.AkontoRechnungPDFPerMailToolStripMenuItem.Text = "Akonto-Rechnung PDF per Mail"
        '
        'AkontoRechnungLöschenToolStripMenuItem
        '
@@ -674,7 +656,7 @@ Partial Class Behandlung
        'ToolStrip1
        '
        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4})
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator8, Me.ToolStripLabel2, Me.ToolStripLabel1})
        Me.ToolStrip1.Location = New System.Drawing.Point(3, 18)
        Me.ToolStrip1.Name = "ToolStrip1"
        Me.ToolStrip1.Size = New System.Drawing.Size(1365, 27)
@@ -687,7 +669,7 @@ Partial Class Behandlung
        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, 24)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 28)
        Me.ToolStripButton3.Text = "Neu"
        '
        'ToolStripButton4
@@ -696,9 +678,15 @@ Partial Class Behandlung
        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, 24)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 28)
        Me.ToolStripButton4.Text = "Tabelle aktualisieren"
        '
+        'ToolStripLabel1
+        '
+        Me.ToolStripLabel1.Name = "ToolStripLabel1"
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(36, 28)
+        Me.ToolStripLabel1.Text = "0.00"
+        '
        'STAkonto
        '
        Me.STAkonto.AttachedControl = Me.SuperTabControlPanel4
@@ -713,7 +701,7 @@ Partial Class Behandlung
        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
        Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
        Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
-        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 976)
+        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 972)
        Me.SuperTabControlPanel1.TabIndex = 1
        Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
        '
@@ -733,13 +721,41 @@ Partial Class Behandlung
        Me.STBehandlung.Name = "STBehandlung"
        Me.STBehandlung.Text = "Behandlung"
        '
+        'SuperTabControlPanel2
+        '
+        Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
+        Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 28)
+        Me.SuperTabControlPanel2.Margin = New System.Windows.Forms.Padding(4)
+        Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
+        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1440, 972)
+        Me.SuperTabControlPanel2.TabIndex = 0
+        Me.SuperTabControlPanel2.TabItem = Me.STLeistung
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.Leistungen1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1440, 972)
+        Me.Panel1.TabIndex = 1
+        '
+        'STLeistung
+        '
+        Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
+        Me.STLeistung.GlobalItem = False
+        Me.STLeistung.Name = "STLeistung"
+        Me.STLeistung.Text = "Leistungen"
+        '
        'SuperTabControlPanel3
        '
        Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
        Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
        Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
-        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1004)
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1000)
        Me.SuperTabControlPanel3.TabIndex = 0
        '
        'tsbtnnew
@@ -1140,6 +1156,17 @@ Partial Class Behandlung
        Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
        Me.Leistungen1.TabIndex = 0
        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(262, 28)
+        Me.ToolStripLabel2.Text = "Total verrechnete Akonto-Rechnungen"
+        '
+        'ToolStripSeparator8
+        '
+        Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
+        Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 27)
+        '
        'Behandlung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
@@ -1157,8 +1184,6 @@ Partial Class Behandlung
        Me.ctxmenubehandlung.ResumeLayout(False)
        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SuperTabControl1.ResumeLayout(False)
-        Me.SuperTabControlPanel2.ResumeLayout(False)
-        Me.Panel1.ResumeLayout(False)
        Me.SuperTabControlPanel4.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
@@ -1168,6 +1193,8 @@ Partial Class Behandlung
        Me.ToolStrip1.PerformLayout()
        Me.SuperTabControlPanel1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
+        Me.SuperTabControlPanel2.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
        Me.tsbtnbehandlungdelete.ResumeLayout(False)
        Me.tsbtnbehandlungdelete.PerformLayout()
        Me.ContextMenuStrip1.ResumeLayout(False)
@@ -1310,4 +1337,8 @@ Partial Class Behandlung
    Friend WithEvents OpenFileDialog1 As OpenFileDialog
    Friend WithEvents AkontoRechnungVorschauToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents NeueAkontoZahlungToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents AkontoRechnungPDFPerMailToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents ToolStripLabel1 As ToolStripLabel
+    Friend WithEvents ToolStripLabel2 As ToolStripLabel
+    Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
 End Class