Update 20240102

2024-01-02 22:23:16 +01:00
parent 31b67036c3
commit 6164ec3d16
219 changed files with 429344 additions and 1191 deletions
@@ -42,31 +42,31 @@ Partial Class Patient
        Me.tsrbunternehmen = New Syncfusion.Windows.Forms.Tools.ToolStripRadioButton()
        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
        Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
-        Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.btnVTX = New System.Windows.Forms.Button()
-        Me.PatientDetails1 = New DPM2016.PatientDetails()
-        Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
-        Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
-        Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
-        Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Behandlung1 = New DPM2016.Behandlung()
-        Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
-        Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Finanzen1 = New DPM2016.Finanzen()
-        Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
-        Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
-        Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel7 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.ClsDokumente1 = New DPM2016.clsDokumente()
        Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.Recall1 = New DPM2016.Recall()
        Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Finanzen1 = New DPM2016.Finanzen()
+        Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Behandlung1 = New DPM2016.Behandlung()
+        Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
        Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
+        Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.btnVTX = New System.Windows.Forms.Button()
+        Me.PatientDetails1 = New DPM2016.PatientDetails()
+        Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
+        Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
        Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
        Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -74,14 +74,14 @@ Partial Class Patient
        Me.ToolStrip1.SuspendLayout()
        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuperTabControl1.SuspendLayout()
-        Me.SuperTabControlPanel1.SuspendLayout()
-        Me.SuperTabControlPanel8.SuspendLayout()
-        Me.SuperTabControlPanel3.SuspendLayout()
-        Me.SuperTabControlPanel5.SuspendLayout()
-        Me.SuperTabControlPanel4.SuspendLayout()
        Me.SuperTabControlPanel7.SuspendLayout()
        Me.SuperTabControlPanel6.SuspendLayout()
+        Me.SuperTabControlPanel5.SuspendLayout()
+        Me.SuperTabControlPanel3.SuspendLayout()
        Me.SuperTabControlPanel2.SuspendLayout()
+        Me.SuperTabControlPanel8.SuspendLayout()
+        Me.SuperTabControlPanel1.SuspendLayout()
+        Me.SuperTabControlPanel4.SuspendLayout()
        Me.MenuStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
@@ -255,13 +255,13 @@ Partial Class Patient
        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.SuperTabControlPanel1)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
        Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.SuperTabControl1.Location = New System.Drawing.Point(0, 51)
        Me.SuperTabControl1.Name = "SuperTabControl1"
@@ -274,6 +274,180 @@ Partial Class Patient
        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Stammdaten_Firma, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
        Me.SuperTabControl1.Text = "SuperTabControl1"
        '
+        'SuperTabControlPanel7
+        '
+        Me.SuperTabControlPanel7.Controls.Add(Me.ClsDokumente1)
+        Me.SuperTabControlPanel7.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel7.Name = "SuperTabControlPanel7"
+        Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel7.TabIndex = 0
+        Me.SuperTabControlPanel7.TabItem = Me.Dokumente
+        Me.SuperTabControlPanel7.Visible = False
+        '
+        'ClsDokumente1
+        '
+        Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
+        Me.ClsDokumente1.Margin = New System.Windows.Forms.Padding(4)
+        Me.ClsDokumente1.Name = "ClsDokumente1"
+        Me.ClsDokumente1.Patientnr = 0
+        Me.ClsDokumente1.Size = New System.Drawing.Size(1278, 610)
+        Me.ClsDokumente1.TabIndex = 0
+        '
+        'Dokumente
+        '
+        Me.Dokumente.AttachedControl = Me.SuperTabControlPanel7
+        Me.Dokumente.GlobalItem = False
+        Me.Dokumente.Name = "Dokumente"
+        Me.Dokumente.Text = "Dokumente"
+        '
+        'SuperTabControlPanel6
+        '
+        Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
+        Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
+        Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel6.TabIndex = 0
+        Me.SuperTabControlPanel6.TabItem = Me.Recall
+        Me.SuperTabControlPanel6.Visible = False
+        '
+        'Recall1
+        '
+        Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Recall1.Location = New System.Drawing.Point(0, 0)
+        Me.Recall1.Margin = New System.Windows.Forms.Padding(4)
+        Me.Recall1.Name = "Recall1"
+        Me.Recall1.Patientnr = 0
+        Me.Recall1.Size = New System.Drawing.Size(1278, 610)
+        Me.Recall1.TabIndex = 0
+        '
+        'Recall
+        '
+        Me.Recall.AttachedControl = Me.SuperTabControlPanel6
+        Me.Recall.GlobalItem = False
+        Me.Recall.Name = "Recall"
+        Me.Recall.Text = "Recall"
+        '
+        'SuperTabControlPanel5
+        '
+        Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
+        Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
+        Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel5.TabIndex = 0
+        Me.SuperTabControlPanel5.TabItem = Me.Finanzen
+        Me.SuperTabControlPanel5.Visible = False
+        '
+        'Finanzen1
+        '
+        Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
+        Me.Finanzen1.Margin = New System.Windows.Forms.Padding(4)
+        Me.Finanzen1.Name = "Finanzen1"
+        Me.Finanzen1.Patientnr = 0
+        Me.Finanzen1.Size = New System.Drawing.Size(1278, 610)
+        Me.Finanzen1.TabIndex = 0
+        '
+        'Finanzen
+        '
+        Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
+        Me.Finanzen.GlobalItem = False
+        Me.Finanzen.Name = "Finanzen"
+        Me.Finanzen.Text = "Finanzen"
+        '
+        'SuperTabControlPanel3
+        '
+        Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
+        Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
+        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel3.TabIndex = 0
+        Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
+        Me.SuperTabControlPanel3.Visible = False
+        '
+        'Behandlung1
+        '
+        Me.Behandlung1.Auftragsmanagement = False
+        Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Behandlung1.HasChanges = False
+        Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
+        Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4)
+        Me.Behandlung1.Name = "Behandlung1"
+        Me.Behandlung1.PatientNr = 0
+        Me.Behandlung1.Size = New System.Drawing.Size(1278, 610)
+        Me.Behandlung1.TabIndex = 0
+        '
+        'Behandlungen
+        '
+        Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
+        Me.Behandlungen.GlobalItem = False
+        Me.Behandlungen.Name = "Behandlungen"
+        Me.Behandlungen.Text = "Behandlungen"
+        '
+        'SuperTabControlPanel2
+        '
+        Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
+        Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
+        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel2.TabIndex = 0
+        Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
+        Me.SuperTabControlPanel2.Visible = False
+        '
+        'PatientAbrechnung1
+        '
+        Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientAbrechnung1.HasChanges = False
+        Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientAbrechnung1.Margin = New System.Windows.Forms.Padding(4)
+        Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
+        Me.PatientAbrechnung1.PatientNr = 0
+        Me.PatientAbrechnung1.Size = New System.Drawing.Size(1278, 610)
+        Me.PatientAbrechnung1.TabIndex = 0
+        '
+        'Abrechnung
+        '
+        Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
+        Me.Abrechnung.GlobalItem = False
+        Me.Abrechnung.Name = "Abrechnung"
+        Me.Abrechnung.Text = "Abrechnung"
+        '
+        'SuperTabControlPanel8
+        '
+        Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
+        Me.SuperTabControlPanel8.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel8.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel8.Margin = New System.Windows.Forms.Padding(2)
+        Me.SuperTabControlPanel8.Name = "SuperTabControlPanel8"
+        Me.SuperTabControlPanel8.Size = New System.Drawing.Size(1278, 610)
+        Me.SuperTabControlPanel8.TabIndex = 0
+        Me.SuperTabControlPanel8.TabItem = Me.Stammdaten_Firma
+        Me.SuperTabControlPanel8.Visible = False
+        '
+        'PatientDetailsFirma1
+        '
+        Me.PatientDetailsFirma1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.PatientDetailsFirma1.HasChanges = False
+        Me.PatientDetailsFirma1.Location = New System.Drawing.Point(0, 0)
+        Me.PatientDetailsFirma1.Margin = New System.Windows.Forms.Padding(2)
+        Me.PatientDetailsFirma1.Name = "PatientDetailsFirma1"
+        Me.PatientDetailsFirma1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
+        Me.PatientDetailsFirma1.PatientNr = 0
+        Me.PatientDetailsFirma1.Size = New System.Drawing.Size(1278, 610)
+        Me.PatientDetailsFirma1.TabIndex = 0
+        '
+        'Stammdaten_Firma
+        '
+        Me.Stammdaten_Firma.AttachedControl = Me.SuperTabControlPanel8
+        Me.Stammdaten_Firma.GlobalItem = False
+        Me.Stammdaten_Firma.Name = "Stammdaten_Firma"
+        Me.Stammdaten_Firma.Text = "Stammdaten"
+        '
        'SuperTabControlPanel1
        '
        Me.SuperTabControlPanel1.Controls.Add(Me.btnVTX)
@@ -313,92 +487,6 @@ Partial Class Patient
        Me.Stammdaten.Name = "Stammdaten"
        Me.Stammdaten.Text = "Stammdaten"
        '
-        'SuperTabControlPanel8
-        '
-        Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
-        Me.SuperTabControlPanel8.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel8.Location = New System.Drawing.Point(0, 25)
-        Me.SuperTabControlPanel8.Margin = New System.Windows.Forms.Padding(2)
-        Me.SuperTabControlPanel8.Name = "SuperTabControlPanel8"
-        Me.SuperTabControlPanel8.Size = New System.Drawing.Size(1278, 610)
-        Me.SuperTabControlPanel8.TabIndex = 0
-        Me.SuperTabControlPanel8.TabItem = Me.Stammdaten_Firma
-        '
-        'PatientDetailsFirma1
-        '
-        Me.PatientDetailsFirma1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PatientDetailsFirma1.HasChanges = False
-        Me.PatientDetailsFirma1.Location = New System.Drawing.Point(0, 0)
-        Me.PatientDetailsFirma1.Margin = New System.Windows.Forms.Padding(2)
-        Me.PatientDetailsFirma1.Name = "PatientDetailsFirma1"
-        Me.PatientDetailsFirma1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
-        Me.PatientDetailsFirma1.PatientNr = 0
-        Me.PatientDetailsFirma1.Size = New System.Drawing.Size(1278, 610)
-        Me.PatientDetailsFirma1.TabIndex = 0
-        '
-        'Stammdaten_Firma
-        '
-        Me.Stammdaten_Firma.AttachedControl = Me.SuperTabControlPanel8
-        Me.Stammdaten_Firma.GlobalItem = False
-        Me.Stammdaten_Firma.Name = "Stammdaten_Firma"
-        Me.Stammdaten_Firma.Text = "Stammdaten"
-        '
-        'SuperTabControlPanel3
-        '
-        Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
-        Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
-        Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
-        Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 610)
-        Me.SuperTabControlPanel3.TabIndex = 0
-        Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
-        '
-        'Behandlung1
-        '
-        Me.Behandlung1.Auftragsmanagement = False
-        Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Behandlung1.HasChanges = False
-        Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
-        Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4)
-        Me.Behandlung1.Name = "Behandlung1"
-        Me.Behandlung1.PatientNr = 0
-        Me.Behandlung1.Size = New System.Drawing.Size(1278, 610)
-        Me.Behandlung1.TabIndex = 0
-        '
-        'Behandlungen
-        '
-        Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
-        Me.Behandlungen.GlobalItem = False
-        Me.Behandlungen.Name = "Behandlungen"
-        Me.Behandlungen.Text = "Behandlungen"
-        '
-        'SuperTabControlPanel5
-        '
-        Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
-        Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 23)
-        Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
-        Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1278, 618)
-        Me.SuperTabControlPanel5.TabIndex = 0
-        Me.SuperTabControlPanel5.TabItem = Me.Finanzen
-        '
-        'Finanzen1
-        '
-        Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
-        Me.Finanzen1.Margin = New System.Windows.Forms.Padding(4)
-        Me.Finanzen1.Name = "Finanzen1"
-        Me.Finanzen1.Patientnr = 0
-        Me.Finanzen1.Size = New System.Drawing.Size(1278, 618)
-        Me.Finanzen1.TabIndex = 0
-        '
-        'Finanzen
-        '
-        Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
-        Me.Finanzen.GlobalItem = False
-        Me.Finanzen.Name = "Finanzen"
-        Me.Finanzen.Text = "Finanzen"
-        '
        'SuperTabControlPanel4
        '
        Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
@@ -408,6 +496,7 @@ Partial Class Patient
        Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 613)
        Me.SuperTabControlPanel4.TabIndex = 0
        Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
+        Me.SuperTabControlPanel4.Visible = False
        '
        'Krankengeschichte1
        '
@@ -426,88 +515,6 @@ Partial Class Patient
        Me.Krankengeschichte.Name = "Krankengeschichte"
        Me.Krankengeschichte.Text = "Journal"
        '
-        'SuperTabControlPanel7
-        '
-        Me.SuperTabControlPanel7.Controls.Add(Me.ClsDokumente1)
-        Me.SuperTabControlPanel7.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 23)
-        Me.SuperTabControlPanel7.Name = "SuperTabControlPanel7"
-        Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1278, 613)
-        Me.SuperTabControlPanel7.TabIndex = 0
-        Me.SuperTabControlPanel7.TabItem = Me.Dokumente
-        '
-        'ClsDokumente1
-        '
-        Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
-        Me.ClsDokumente1.Margin = New System.Windows.Forms.Padding(4)
-        Me.ClsDokumente1.Name = "ClsDokumente1"
-        Me.ClsDokumente1.Patientnr = 0
-        Me.ClsDokumente1.Size = New System.Drawing.Size(1278, 613)
-        Me.ClsDokumente1.TabIndex = 0
-        '
-        'Dokumente
-        '
-        Me.Dokumente.AttachedControl = Me.SuperTabControlPanel7
-        Me.Dokumente.GlobalItem = False
-        Me.Dokumente.Name = "Dokumente"
-        Me.Dokumente.Text = "Dokumente"
-        '
-        'SuperTabControlPanel6
-        '
-        Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
-        Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 23)
-        Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
-        Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 613)
-        Me.SuperTabControlPanel6.TabIndex = 0
-        Me.SuperTabControlPanel6.TabItem = Me.Recall
-        '
-        'Recall1
-        '
-        Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.Recall1.Location = New System.Drawing.Point(0, 0)
-        Me.Recall1.Margin = New System.Windows.Forms.Padding(4)
-        Me.Recall1.Name = "Recall1"
-        Me.Recall1.Patientnr = 0
-        Me.Recall1.Size = New System.Drawing.Size(1278, 613)
-        Me.Recall1.TabIndex = 0
-        '
-        'Recall
-        '
-        Me.Recall.AttachedControl = Me.SuperTabControlPanel6
-        Me.Recall.GlobalItem = False
-        Me.Recall.Name = "Recall"
-        Me.Recall.Text = "Recall"
-        '
-        'SuperTabControlPanel2
-        '
-        Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
-        Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 23)
-        Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
-        Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1278, 613)
-        Me.SuperTabControlPanel2.TabIndex = 0
-        Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
-        '
-        'PatientAbrechnung1
-        '
-        Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.PatientAbrechnung1.HasChanges = False
-        Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
-        Me.PatientAbrechnung1.Margin = New System.Windows.Forms.Padding(4)
-        Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
-        Me.PatientAbrechnung1.PatientNr = 0
-        Me.PatientAbrechnung1.Size = New System.Drawing.Size(1278, 613)
-        Me.PatientAbrechnung1.TabIndex = 0
-        '
-        'Abrechnung
-        '
-        Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
-        Me.Abrechnung.GlobalItem = False
-        Me.Abrechnung.Name = "Abrechnung"
-        Me.Abrechnung.Text = "Abrechnung"
-        '
        'MenuStrip1
        '
        Me.MenuStrip1.AllowMerge = False
@@ -562,14 +569,14 @@ Partial Class Patient
        Me.ToolStrip1.PerformLayout()
        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SuperTabControl1.ResumeLayout(False)
-        Me.SuperTabControlPanel1.ResumeLayout(False)
-        Me.SuperTabControlPanel8.ResumeLayout(False)
-        Me.SuperTabControlPanel3.ResumeLayout(False)
-        Me.SuperTabControlPanel5.ResumeLayout(False)
-        Me.SuperTabControlPanel4.ResumeLayout(False)
        Me.SuperTabControlPanel7.ResumeLayout(False)
        Me.SuperTabControlPanel6.ResumeLayout(False)
+        Me.SuperTabControlPanel5.ResumeLayout(False)
+        Me.SuperTabControlPanel3.ResumeLayout(False)
        Me.SuperTabControlPanel2.ResumeLayout(False)
+        Me.SuperTabControlPanel8.ResumeLayout(False)
+        Me.SuperTabControlPanel1.ResumeLayout(False)
+        Me.SuperTabControlPanel4.ResumeLayout(False)
        Me.MenuStrip1.ResumeLayout(False)
        Me.MenuStrip1.PerformLayout()
        Me.ResumeLayout(False)
@@ -118,7 +118,7 @@
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
+    <value>1581, 17</value>
  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -474,7 +474,7 @@
 </value>
  </data>
  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>234, 17</value>
+    <value>1687, 17</value>
  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
@@ -84,6 +84,12 @@
    End Function

    Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            Me.Width = My.Settings.PatWindowSizeWidth
+            Me.Height = My.Settings.PatWindowSizeHeight
+        Catch ex As Exception
+
+        End Try
        Select Case Globals.Funktionsstufe
            Case 2
                'Me.Behandlungen.Visible = False
@@ -131,7 +137,7 @@

    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
        save_data()
-
+        Globals.ToastInfo.ShowSaveMesasge(Me.ParentForm)
    End Sub

    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
@@ -97,6 +97,7 @@ Partial Class PatientDetailsFirma
        Me.cbboxStatus = New DPM2016.MyCombobox()
        Me.cbboxNRTitel = New DPM2016.MyCombobox()
        Me.cbboxNrAnrede = New DPM2016.MyCombobox()
+        Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.SuspendLayout()
        '
@@ -714,9 +715,9 @@ Partial Class PatientDetailsFirma
        '
        'ContextMenuStrip1
        '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerAnsprechpartnerToolStripMenuItem, Me.BearbeitenToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerAnsprechpartnerToolStripMenuItem, Me.BearbeitenToolStripMenuItem, Me.LöschenToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(198, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(198, 92)
        '
        'NeuerAnsprechpartnerToolStripMenuItem
        '
@@ -733,7 +734,7 @@ Partial Class PatientDetailsFirma
        'ClsStammdaten_flat1
        '
        Me.ClsStammdaten_flat1.AllowAddNew = True
-        Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati" &
+        Me.ClsStammdaten_flat1.Connectionstring = "data source=shu01\shu00;initial catalog=SHUB_PADM;persist security info=false;workstati" &
    "on id=;packet size=4096;user id=sa;password=*shu29"
        Me.ClsStammdaten_flat1.ContextMenuStrip = Me.ContextMenuStrip1
        Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(79, 336)
@@ -823,6 +824,12 @@ Partial Class PatientDetailsFirma
        Me.cbboxNrAnrede.Valuemember = Nothing
        Me.cbboxNrAnrede.Visible = False
        '
+        'LöschenToolStripMenuItem
+        '
+        Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
+        Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
+        Me.LöschenToolStripMenuItem.Text = "Löschen"
+        '
        'PatientDetailsFirma
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -981,4 +988,5 @@ Partial Class PatientDetailsFirma
    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
    Friend WithEvents NeuerAnsprechpartnerToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
 End Class
@@ -557,7 +557,7 @@ Public Class PatientDetailsFirma
    End Sub

    Private Sub PatientDetails_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
+        Me.ClsStammdaten_flat1.ToolStripButton5.Visible = False
    End Sub

    Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
@@ -587,10 +587,22 @@ Public Class PatientDetailsFirma
    End Sub

    Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
-        Dim f As New frmPrivatAnsprechpartner
-        f.is_new = False
-        f.id = Me.ClsStammdaten_flat1.c1daten.Columns(0).Value
-        f.nrprivat = txtnrprivat.Text
-        f.ShowDialog()
+        Try
+            Dim f As New frmPrivatAnsprechpartner
+            f.is_new = False
+            f.id = Me.ClsStammdaten_flat1.c1daten.Columns(0).Value
+            f.nrprivat = txtnrprivat.Text
+            f.ShowDialog()
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
+        Try
+            Me.ClsStammdaten_flat1.c1daten.Columns("Aktiv").Value = False
+        Catch
+        End Try
+
    End Sub
 End Class