Update 20230215

2023-02-15 21:30:27 +01:00
parent 35df876d21
commit e83b2e6f35
179 changed files with 7274 additions and 7173 deletions
--- a/DPM2016/Behandlung/Behandlung.Designer.vb
+++ b/DPM2016/Behandlung/Behandlung.Designer.vb
@@ -75,6 +75,9 @@ 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.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.c1akonto = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
@@ -94,13 +97,8 @@ Partial Class Behandlung
        Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
        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.Behandungdetail1 = New DPM2016.Benhandungdetail()
-        Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.Panel1 = New System.Windows.Forms.Panel()
-        Me.Leistungen1 = New DPM2016.Leistungen()
        Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
@@ -161,19 +159,21 @@ Partial Class Behandlung
        Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
        Me.C1Leistungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
+        Me.Leistungen1 = New DPM2016.Leistungen()
        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.SuperTabControlPanel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
        Me.SuperTabControlPanel4.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.c1akonto, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ctxmenuakonto.SuspendLayout()
        Me.ToolStrip1.SuspendLayout()
-        Me.SuperTabControlPanel1.SuspendLayout()
-        Me.Panel2.SuspendLayout()
        Me.SuperTabControlPanel2.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.tsbtnbehandlungdelete.SuspendLayout()
@@ -188,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"
        '
@@ -198,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
@@ -207,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
@@ -216,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"
@@ -256,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"
@@ -541,18 +541,45 @@ Partial Class Behandlung
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
        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"
        '
+        'SuperTabControlPanel1
+        '
+        Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
+        Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        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, 972)
+        Me.SuperTabControlPanel1.TabIndex = 1
+        Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.Behandungdetail1)
+        Me.Panel2.Location = New System.Drawing.Point(0, 0)
+        Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1416, 970)
+        Me.Panel2.TabIndex = 9
+        '
+        'STBehandlung
+        '
+        Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
+        Me.STBehandlung.GlobalItem = False
+        Me.STBehandlung.Name = "STBehandlung"
+        Me.STBehandlung.Text = "Behandlung"
+        '
        'SuperTabControlPanel4
        '
        Me.SuperTabControlPanel4.Controls.Add(Me.GroupBox2)
@@ -705,45 +732,6 @@ Partial Class Behandlung
        Me.STAkonto.Name = "STAkonto"
        Me.STAkonto.Text = "Akonto"
        '
-        'SuperTabControlPanel1
-        '
-        Me.SuperTabControlPanel1.Controls.Add(Me.Panel2)
-        Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        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.TabIndex = 1
-        Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
-        '
-        'Panel2
-        '
-        Me.Panel2.Controls.Add(Me.Behandungdetail1)
-        Me.Panel2.Location = New System.Drawing.Point(0, 0)
-        Me.Panel2.Margin = New System.Windows.Forms.Padding(4)
-        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(1416, 970)
-        Me.Panel2.TabIndex = 9
-        '
-        'Behandungdetail1
-        '
-        Me.Behandungdetail1.Behandlungsnr = 0
-        Me.Behandungdetail1.Behandlungsstatus = 0
-        Me.Behandungdetail1.HasChanges = False
-        Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
-        Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
-        Me.Behandungdetail1.Name = "Behandungdetail1"
-        Me.Behandungdetail1.Patientnr = 0
-        Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
-        Me.Behandungdetail1.TabIndex = 0
-        '
-        'STBehandlung
-        '
-        Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
-        Me.STBehandlung.GlobalItem = False
-        Me.STBehandlung.Name = "STBehandlung"
-        Me.STBehandlung.Text = "Behandlung"
-        '
        'SuperTabControlPanel2
        '
        Me.SuperTabControlPanel2.Controls.Add(Me.Panel1)
@@ -765,20 +753,6 @@ Partial Class Behandlung
        Me.Panel1.Size = New System.Drawing.Size(1440, 972)
        Me.Panel1.TabIndex = 1
        '
-        'Leistungen1
-        '
-        Me.Leistungen1.behandler = 0
-        Me.Leistungen1.Behandlungnr = 0
-        Me.Leistungen1.Behandlungsstatus = 0
-        Me.Leistungen1.Dentotar = False
-        Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Leistungen1.Frankenwert = 0R
-        Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
-        Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
-        Me.Leistungen1.Name = "Leistungen1"
-        Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
-        Me.Leistungen1.TabIndex = 0
-        '
        'STLeistung
        '
        Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
@@ -792,7 +766,7 @@ Partial Class Behandlung
        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
@@ -1167,6 +1141,32 @@ Partial Class Behandlung
        '
        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
        '
+        'Behandungdetail1
+        '
+        Me.Behandungdetail1.Behandlungsnr = 0
+        Me.Behandungdetail1.Behandlungsstatus = 0
+        Me.Behandungdetail1.HasChanges = False
+        Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
+        Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Behandungdetail1.Name = "Behandungdetail1"
+        Me.Behandungdetail1.Patientnr = 0
+        Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
+        Me.Behandungdetail1.TabIndex = 0
+        '
+        'Leistungen1
+        '
+        Me.Leistungen1.behandler = 0
+        Me.Leistungen1.Behandlungnr = 0
+        Me.Leistungen1.Behandlungsstatus = 0
+        Me.Leistungen1.Dentotar = False
+        Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Leistungen1.Frankenwert = 0R
+        Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
+        Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
+        Me.Leistungen1.Name = "Leistungen1"
+        Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
+        Me.Leistungen1.TabIndex = 0
+        '
        'Behandlung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
@@ -1184,6 +1184,8 @@ Partial Class Behandlung
        Me.ctxmenubehandlung.ResumeLayout(False)
        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SuperTabControl1.ResumeLayout(False)
+        Me.SuperTabControlPanel1.ResumeLayout(False)
+        Me.Panel2.ResumeLayout(False)
        Me.SuperTabControlPanel4.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
@@ -1191,8 +1193,6 @@ Partial Class Behandlung
        Me.ctxmenuakonto.ResumeLayout(False)
        Me.ToolStrip1.ResumeLayout(False)
        Me.ToolStrip1.PerformLayout()
-        Me.SuperTabControlPanel1.ResumeLayout(False)
-        Me.Panel2.ResumeLayout(False)
        Me.SuperTabControlPanel2.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.tsbtnbehandlungdelete.ResumeLayout(False)