Update 6.12.23

2023-12-06 20:21:17 +01:00
parent bedd741642
commit f2cb99bb17
152 changed files with 19555 additions and 18732 deletions
--- a/DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb
+++ b/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
--- a/DPM2016/Patient/subclasses/PatientDetailsFirma.resx
+++ b/DPM2016/Patient/subclasses/PatientDetailsFirma.resx
@@ -117,4 +117,7 @@
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
+  <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
 </root>
--- a/DPM2016/Patient/subclasses/PatientDetailsFirma.vb
+++ b/DPM2016/Patient/subclasses/PatientDetailsFirma.vb
@@ -23,6 +23,8 @@ Public Class PatientDetailsFirma
            Catch ex As Exception
                log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
            End Try
+            Me.Label13.Visible = False
+            Me.chklbAdresstyp.Visible = False
            Me.ResumeLayout()
        End Set
    End Property
@@ -383,6 +385,10 @@ Public Class PatientDetailsFirma
                End If

            Next
+            Me.ClsStammdaten_flat1.SQL = "Select * from privat_ansprechpartner where nrprivat=" + Me.PatientNr.ToString
+            Me.ClsStammdaten_flat1.AllowAddNew = False
+            Me.ClsStammdaten_flat1.Tablename = "Privat_Ansprechpartner"
+            Me.ClsStammdaten_flat1.get_data()
        Catch ex As Exception
            log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
        End Try
@@ -565,4 +571,26 @@ Public Class PatientDetailsFirma
    Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged

    End Sub
+
+    Private Sub ClsStammdaten_flat1_Load(sender As Object, e As EventArgs) Handles ClsStammdaten_flat1.Load
+
+    End Sub
+
+    Private Sub NeuerAnsprechpartnerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerAnsprechpartnerToolStripMenuItem.Click
+        Dim f As New frmPrivatAnsprechpartner
+        f.is_new = True
+        f.id = 0
+        f.nrprivat = txtnrprivat.Text
+        f.ShowDialog()
+        If f.DialogResult = DialogResult.OK Then Me.ClsStammdaten_flat1.get_data()
+
+    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()
+    End Sub
 End Class