Update 6.12.23

DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class PatientDetailsFirma
     Inherits System.Windows.Forms.UserControl
 
     'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,8 +20,9 @@ Partial Class PatientDetailsFirma
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.txtZSR = New System.Windows.Forms.TextBox()
@@ -86,6 +87,9 @@ Partial Class PatientDetailsFirma
         Me.lblTitel = New System.Windows.Forms.Label()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.Label6 = New System.Windows.Forms.Label()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.NeuerAnsprechpartnerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat()
         Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
         Me.cbboxGeschlecht = New DPM2016.MyCombobox()
@@ -93,6 +97,7 @@ Partial Class PatientDetailsFirma
         Me.cbboxStatus = New DPM2016.MyCombobox()
         Me.cbboxNRTitel = New DPM2016.MyCombobox()
         Me.cbboxNrAnrede = New DPM2016.MyCombobox()
+        Me.ContextMenuStrip1.SuspendLayout()
         Me.SuspendLayout()
         '
         'chkMail_Kommunikation
@@ -696,7 +701,6 @@ Partial Class PatientDetailsFirma
         Me.Label5.Size = New System.Drawing.Size(55, 13)
         Me.Label5.TabIndex = 282
         Me.Label5.Text = "Ansprech-"
-        Me.Label5.Visible = False
         '
         'Label6
         '
@@ -707,19 +711,37 @@ Partial Class PatientDetailsFirma
         Me.Label6.Size = New System.Drawing.Size(41, 13)
         Me.Label6.TabIndex = 283
         Me.Label6.Text = "Partner"
-        Me.Label6.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerAnsprechpartnerToolStripMenuItem, Me.BearbeitenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(198, 48)
+        '
+        'NeuerAnsprechpartnerToolStripMenuItem
+        '
+        Me.NeuerAnsprechpartnerToolStripMenuItem.Name = "NeuerAnsprechpartnerToolStripMenuItem"
+        Me.NeuerAnsprechpartnerToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
+        Me.NeuerAnsprechpartnerToolStripMenuItem.Text = "Neuer Ansprechpartner"
+        '
+        'BearbeitenToolStripMenuItem
+        '
+        Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
+        Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
+        Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten"
         '
         'ClsStammdaten_flat1
         '
+        Me.ClsStammdaten_flat1.AllowAddNew = True
         Me.ClsStammdaten_flat1.Connectionstring = "data source=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)
         Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1"
-        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(634, 119)
+        Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(634, 178)
         Me.ClsStammdaten_flat1.SQL = ""
         Me.ClsStammdaten_flat1.TabIndex = 281
         Me.ClsStammdaten_flat1.Tablename = Nothing
-        Me.ClsStammdaten_flat1.Visible = False
         '
         'cbboxNRArbeitgeber
         '
@@ -876,9 +898,10 @@ Partial Class PatientDetailsFirma
         Me.Controls.Add(Me.lblNr)
         Me.Controls.Add(Me.lblAnrede)
         Me.Controls.Add(Me.lblTitel)
-        Me.Margin = New System.Windows.Forms.Padding(2, 2, 2, 2)
+        Me.Margin = New System.Windows.Forms.Padding(2)
         Me.Name = "PatientDetailsFirma"
-        Me.Size = New System.Drawing.Size(729, 477)
+        Me.Size = New System.Drawing.Size(729, 535)
+        Me.ContextMenuStrip1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -955,4 +978,7 @@ Partial Class PatientDetailsFirma
     Friend WithEvents ClsStammdaten_flat1 As clsStammdaten_flat
     Friend WithEvents Label5 As Label
     Friend WithEvents Label6 As Label
+    Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents NeuerAnsprechpartnerToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
 End Class