Update Korrektur QR-Verarbeitung

2022-12-20 23:19:28 +01:00
parent 971afb5716
commit 35df876d21
181 changed files with 20085 additions and 19423 deletions
--- a/DPM2016/Behandlung/Behandlung.Designer.vb
+++ b/DPM2016/Behandlung/Behandlung.Designer.vb
@@ -90,13 +90,17 @@ 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.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
+        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()
@@ -157,10 +161,6 @@ 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.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()
@@ -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, 31)
+        Me.tsbtndelete.Size = New System.Drawing.Size(1713, 27)
        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, 28)
+        Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 24)
        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, 28)
+        Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 24)
        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, 28)
+        Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
        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, 31)
+        Me.GroupBox1.Location = New System.Drawing.Point(0, 27)
        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, 1000)
+        Me.GroupBox1.Size = New System.Drawing.Size(273, 1004)
        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, 977)
+        Me.treebehandlungen.Size = New System.Drawing.Size(265, 981)
        Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
        Me.treebehandlungen.TabIndex = 0
        Me.treebehandlungen.Text = "AdvTree1"
@@ -536,18 +536,18 @@ 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.SuperTabControlPanel4)
        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, 31)
+        Me.SuperTabControl1.Location = New System.Drawing.Point(273, 27)
        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, 1000)
+        Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1004)
        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})
@@ -559,7 +559,7 @@ Partial Class Behandlung
        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, 972)
+        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1440, 976)
        Me.SuperTabControlPanel4.TabIndex = 0
        Me.SuperTabControlPanel4.TabItem = Me.STAkonto
        '
@@ -669,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, 28)
+        Me.ToolStripButton3.Size = New System.Drawing.Size(29, 24)
        Me.ToolStripButton3.Text = "Neu"
        '
        'ToolStripButton4
@@ -678,13 +678,24 @@ 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, 28)
+        Me.ToolStripButton4.Size = New System.Drawing.Size(29, 24)
        Me.ToolStripButton4.Text = "Tabelle aktualisieren"
        '
+        'ToolStripSeparator8
+        '
+        Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
+        Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 27)
+        '
+        'ToolStripLabel2
+        '
+        Me.ToolStripLabel2.Name = "ToolStripLabel2"
+        Me.ToolStripLabel2.Size = New System.Drawing.Size(262, 24)
+        Me.ToolStripLabel2.Text = "Total verrechnete Akonto-Rechnungen"
+        '
        'ToolStripLabel1
        '
        Me.ToolStripLabel1.Name = "ToolStripLabel1"
-        Me.ToolStripLabel1.Size = New System.Drawing.Size(36, 28)
+        Me.ToolStripLabel1.Size = New System.Drawing.Size(36, 24)
        Me.ToolStripLabel1.Text = "0.00"
        '
        'STAkonto
@@ -701,7 +712,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, 972)
+        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 976)
        Me.SuperTabControlPanel1.TabIndex = 1
        Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
        '
@@ -714,6 +725,18 @@ Partial Class Behandlung
        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
@@ -742,6 +765,20 @@ 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
@@ -755,7 +792,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, 1000)
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1004)
        Me.SuperTabControlPanel3.TabIndex = 0
        '
        'tsbtnnew
@@ -1130,43 +1167,6 @@ 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
-        '
-        '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!)