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/Utils/frmSuche.Designer.vb
+++ b/DPM2016/Utils/frmSuche.Designer.vb
@@ -30,17 +30,17 @@ Partial Class frmSuche
        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
        Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
        Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
+        Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.SuperTabItem1 = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.TextBox5 = New System.Windows.Forms.TextBox()
        Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
-        Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.SuperTabItem1 = New DevComponents.DotNetBar.SuperTabItem()
        Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Label4 = New System.Windows.Forms.Label()
@@ -62,18 +62,24 @@ Partial Class frmSuche
        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.DokumentAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.PatientFirmaAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Freitext = New DevComponents.DotNetBar.SuperTabItem()
+        Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
+        Me.btnSucheFreitext = New System.Windows.Forms.Button()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtsucheFreitext = New System.Windows.Forms.TextBox()
        Me.MenuStrip1.SuspendLayout()
        Me.ToolStrip1.SuspendLayout()
        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuperTabControl1.SuspendLayout()
-        Me.SuperTabControlPanel5.SuspendLayout()
        Me.SuperTabControlPanel1.SuspendLayout()
+        Me.SuperTabControlPanel5.SuspendLayout()
        Me.SuperTabControlPanel4.SuspendLayout()
        Me.SuperTabControlPanel2.SuspendLayout()
        Me.SuperTabControlPanel3.SuspendLayout()
        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.ContextMenuStrip2.SuspendLayout()
+        Me.SuperTabControlPanel6.SuspendLayout()
        Me.SuspendLayout()
        '
        'MenuStrip1
@@ -133,11 +139,12 @@ Partial Class frmSuche
        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.SuperTabControlPanel1)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
-        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
+        Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
        Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Top
        Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
        Me.SuperTabControl1.Name = "SuperTabControl1"
@@ -147,9 +154,53 @@ Partial Class frmSuche
        Me.SuperTabControl1.Size = New System.Drawing.Size(800, 129)
        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 = 22
-        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabItem1, Me.SuperTabItem2, Me.SuperTabItem3, Me.SuperTabItem4, Me.Dokumente})
+        Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabItem1, Me.SuperTabItem2, Me.SuperTabItem3, Me.SuperTabItem4, Me.Dokumente, Me.Freitext})
        Me.SuperTabControl1.Text = "SuperTabControl1"
        '
+        'SuperTabControlPanel1
+        '
+        Me.SuperTabControlPanel1.Controls.Add(Me.Button1)
+        Me.SuperTabControlPanel1.Controls.Add(Me.Label1)
+        Me.SuperTabControlPanel1.Controls.Add(Me.TextBox1)
+        Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
+        Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
+        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(800, 104)
+        Me.SuperTabControlPanel1.TabIndex = 1
+        Me.SuperTabControlPanel1.TabItem = Me.SuperTabItem1
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 75)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Suchen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 18)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(61, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Suchbegriff"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(79, 15)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(154, 20)
+        Me.TextBox1.TabIndex = 0
+        '
+        'SuperTabItem1
+        '
+        Me.SuperTabItem1.AttachedControl = Me.SuperTabControlPanel1
+        Me.SuperTabItem1.GlobalItem = False
+        Me.SuperTabItem1.Name = "SuperTabItem1"
+        Me.SuperTabItem1.Text = "Patient"
+        '
        'SuperTabControlPanel5
        '
        Me.SuperTabControlPanel5.Controls.Add(Me.Button6)
@@ -204,50 +255,6 @@ Partial Class frmSuche
        Me.Dokumente.Name = "Dokumente"
        Me.Dokumente.Text = "Dokumente"
        '
-        'SuperTabControlPanel1
-        '
-        Me.SuperTabControlPanel1.Controls.Add(Me.Button1)
-        Me.SuperTabControlPanel1.Controls.Add(Me.Label1)
-        Me.SuperTabControlPanel1.Controls.Add(Me.TextBox1)
-        Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
-        Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
-        Me.SuperTabControlPanel1.Size = New System.Drawing.Size(800, 104)
-        Me.SuperTabControlPanel1.TabIndex = 1
-        Me.SuperTabControlPanel1.TabItem = Me.SuperTabItem1
-        '
-        'Button1
-        '
-        Me.Button1.Location = New System.Drawing.Point(12, 75)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(75, 23)
-        Me.Button1.TabIndex = 2
-        Me.Button1.Text = "Suchen"
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(12, 18)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(61, 13)
-        Me.Label1.TabIndex = 1
-        Me.Label1.Text = "Suchbegriff"
-        '
-        'TextBox1
-        '
-        Me.TextBox1.Location = New System.Drawing.Point(79, 15)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(154, 20)
-        Me.TextBox1.TabIndex = 0
-        '
-        'SuperTabItem1
-        '
-        Me.SuperTabItem1.AttachedControl = Me.SuperTabControlPanel1
-        Me.SuperTabItem1.GlobalItem = False
-        Me.SuperTabItem1.Name = "SuperTabItem1"
-        Me.SuperTabItem1.Text = "Patient"
-        '
        'SuperTabControlPanel4
        '
        Me.SuperTabControlPanel4.Controls.Add(Me.Button4)
@@ -394,7 +401,8 @@ Partial Class frmSuche
        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.PrintInfo.MeasurementDevice = C1.Win.C1TrueDBGrid.PrintInfo.MeasurementDeviceEnum.Screen
+        Me.C1Daten.PrintInfo.MeasurementPrinterName = Nothing
        Me.C1Daten.Size = New System.Drawing.Size(800, 272)
        Me.C1Daten.TabIndex = 23
        Me.C1Daten.Text = "C1TrueDBGrid1"
@@ -404,12 +412,12 @@ Partial Class frmSuche
        '
        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DettailsAnzeigenToolStripMenuItem})
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(160, 26)
        '
        'DettailsAnzeigenToolStripMenuItem
        '
        Me.DettailsAnzeigenToolStripMenuItem.Name = "DettailsAnzeigenToolStripMenuItem"
-        Me.DettailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.DettailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(159, 22)
        Me.DettailsAnzeigenToolStripMenuItem.Text = "Details anzeigen"
        '
        'ContextMenuStrip2
@@ -430,6 +438,50 @@ Partial Class frmSuche
        Me.PatientFirmaAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
        Me.PatientFirmaAnzeigenToolStripMenuItem.Text = "Patient/Firma anzeigen"
        '
+        'Freitext
+        '
+        Me.Freitext.AttachedControl = Me.SuperTabControlPanel6
+        Me.Freitext.GlobalItem = False
+        Me.Freitext.Name = "Freitext"
+        Me.Freitext.Text = "Freitext"
+        '
+        'SuperTabControlPanel6
+        '
+        Me.SuperTabControlPanel6.Controls.Add(Me.btnSucheFreitext)
+        Me.SuperTabControlPanel6.Controls.Add(Me.Label6)
+        Me.SuperTabControlPanel6.Controls.Add(Me.txtsucheFreitext)
+        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(800, 104)
+        Me.SuperTabControlPanel6.TabIndex = 0
+        Me.SuperTabControlPanel6.TabItem = Me.Freitext
+        '
+        'btnSucheFreitext
+        '
+        Me.btnSucheFreitext.Location = New System.Drawing.Point(12, 66)
+        Me.btnSucheFreitext.Name = "btnSucheFreitext"
+        Me.btnSucheFreitext.Size = New System.Drawing.Size(75, 23)
+        Me.btnSucheFreitext.TabIndex = 11
+        Me.btnSucheFreitext.Text = "Suchen"
+        Me.btnSucheFreitext.UseVisualStyleBackColor = True
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(12, 10)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(61, 13)
+        Me.Label6.TabIndex = 10
+        Me.Label6.Text = "Suchbegriff"
+        '
+        'txtsucheFreitext
+        '
+        Me.txtsucheFreitext.Location = New System.Drawing.Point(79, 7)
+        Me.txtsucheFreitext.Name = "txtsucheFreitext"
+        Me.txtsucheFreitext.Size = New System.Drawing.Size(290, 20)
+        Me.txtsucheFreitext.TabIndex = 9
+        '
        'frmSuche
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -447,10 +499,10 @@ Partial Class frmSuche
        Me.ToolStrip1.PerformLayout()
        CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.SuperTabControl1.ResumeLayout(False)
-        Me.SuperTabControlPanel5.ResumeLayout(False)
-        Me.SuperTabControlPanel5.PerformLayout()
        Me.SuperTabControlPanel1.ResumeLayout(False)
        Me.SuperTabControlPanel1.PerformLayout()
+        Me.SuperTabControlPanel5.ResumeLayout(False)
+        Me.SuperTabControlPanel5.PerformLayout()
        Me.SuperTabControlPanel4.ResumeLayout(False)
        Me.SuperTabControlPanel4.PerformLayout()
        Me.SuperTabControlPanel2.ResumeLayout(False)
@@ -460,6 +512,8 @@ Partial Class frmSuche
        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.ContextMenuStrip2.ResumeLayout(False)
+        Me.SuperTabControlPanel6.ResumeLayout(False)
+        Me.SuperTabControlPanel6.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -503,4 +557,9 @@ Partial Class frmSuche
    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
    Friend WithEvents DokumentAnzeigenToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents PatientFirmaAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents SuperTabControlPanel6 As DevComponents.DotNetBar.SuperTabControlPanel
+    Friend WithEvents Freitext As DevComponents.DotNetBar.SuperTabItem
+    Friend WithEvents btnSucheFreitext As Button
+    Friend WithEvents Label6 As Label
+    Friend WithEvents txtsucheFreitext As TextBox
 End Class