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

Update 6.12.23

Browse Source
This commit is contained in:
Stefan Hutter
2023-12-06 20:21:17 +01:00
parent bedd741642
commit f2cb99bb17
152 changed files with 19555 additions and 18732 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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