shu/DPM_PADM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update 20240102

Browse Source
This commit is contained in:
Stefan Hutter
2024-01-02 22:23:16 +01:00
parent 31b67036c3
commit 6164ec3d16
219 changed files with 429344 additions and 1191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb generated
View File

@@ -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

24
DPM2016/Patient/subclasses/PatientDetailsFirma.vb
View File

@@ -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