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

Update 2024-01-10

Browse Source
This commit is contained in:
Stefan Hutter
2024-01-10 09:40:00 +01:00
parent 6164ec3d16
commit 2d7f517e98
148 changed files with 2871 additions and 940 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
DPM2016/Patient/PatientDetails.vb
View File

@@ -28,6 +28,23 @@ Public Class PatientDetails
Me.Label13.Visible = False
Me.chklbAdresstyp.Visible = False
End If
If Globals.DruckBranche Then
Me.lblStatus.Visible = False
Me.cbboxStatus.Visible = False
Me.lblSprache.Visible = False
Me.cbboxSprache.Visible = False
Me.lblArbeitgeber.Visible = False
Me.cbboxNRArbeitgeber.Visible = False
Me.lblBeruf.Visible = False
Me.txtBeruf.Visible = False
Me.lblahv.Visible = False
Me.txtahvnr.Visible = False
Me.lblGLN.Visible = False
Me.txtGLN.Visible = False
Me.txtZSR.Visible = False
Me.Label13.Visible = False
Me.chklbAdresstyp.Visible = False
End If
Me.ResumeLayout()
End Set
End Property
@@ -553,7 +570,7 @@ Public Class PatientDetails
End Sub
Private Sub cbboxNrAnrede_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxNrAnrede.SelectedIndexChanged
If Me.cbboxNrAnrede.Text = "Herr" Then Me.cbboxGeschlecht.SelectedValue = 2 Else Me.cbboxGeschlecht.SelectedValue = 1
If Globals.DruckBranche = False Then If Me.cbboxNrAnrede.Text = "Herr" Then Me.cbboxGeschlecht.SelectedValue = 2 Else Me.cbboxGeschlecht.SelectedValue = 1
End Sub