update 26.7.22
This commit is contained in:
551
DPM2016/Patient/Firma/PatientDetailFirma.vb
Normal file
551
DPM2016/Patient/Firma/PatientDetailFirma.vb
Normal file
@@ -0,0 +1,551 @@
|
||||
Imports DPM2016.MyCombobox
|
||||
Public Class PatientDetailFirma
|
||||
|
||||
#Region "Properties"
|
||||
Dim m_patientnr As Integer
|
||||
|
||||
Property PatientNr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
Try
|
||||
m_patientnr = value
|
||||
Fill_Stammdaten()
|
||||
log.Writelog("Partnerdetails: Get_Data Start", clsLog.Logtype.Information)
|
||||
Get_Data()
|
||||
log.Writelog("Partnerdetails: Get_Data Ende", clsLog.Logtype.Information)
|
||||
AddChanges(Me)
|
||||
Me.cbboxNrAnrede.Select()
|
||||
Me.HasChanges = False
|
||||
Globals.EVH.Fire_PatName_Changed(Me.Patientname, Me.PatientNr)
|
||||
|
||||
Catch ex As Exception
|
||||
log.Writelog("Partnerdetails: Property PatientNr: " + ex.Message, clsLog.Logtype.ApplError)
|
||||
End Try
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_patname As String
|
||||
Property Patientname As String
|
||||
Get
|
||||
Return Me.txtnrprivat.Text + " " + Me.txtName.Text + " " + Me.txtVorname.Text + " " + Me.txtOrt.Text
|
||||
End Get
|
||||
Set(value As String)
|
||||
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_haschanges As Boolean
|
||||
Property HasChanges As Boolean
|
||||
Get
|
||||
Return m_haschanges
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_haschanges = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Deklarationen"
|
||||
Dim DB As New clsDB
|
||||
Dim FormReadonly As Boolean = False
|
||||
Dim log As New clsLog
|
||||
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Closing / Check_Changes"
|
||||
|
||||
''' <summary>
|
||||
''' Prüfung, ob Datenänderungen vorgenommen wurden.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Private Function Check_Changes() As Boolean
|
||||
If Me.FormReadonly Then
|
||||
Return True
|
||||
Exit Function
|
||||
End If
|
||||
Dim msgres As MsgBoxResult
|
||||
If Me.HasChanges Then
|
||||
msgres = MsgBox("Daten wurden verändert. Wollen Sie die Änderungen speichern", vbYesNo + vbQuestion)
|
||||
Select Case msgres
|
||||
Case MsgBoxResult.Yes
|
||||
Save_Data()
|
||||
Return True
|
||||
Case MsgBoxResult.Cancel
|
||||
Return False
|
||||
Case MsgBoxResult.No
|
||||
Me.HasChanges = False
|
||||
Return True
|
||||
End Select
|
||||
Else
|
||||
Return True
|
||||
End If
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Eventhandler ChangeEreignisse"
|
||||
''' <summary>
|
||||
''' Allg Eventhandler für Chanage-Ereignise festlegen
|
||||
''' </summary>
|
||||
''' <param name="Container"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub AddChanges(ByVal Container As Control)
|
||||
Dim l As New List(Of Control)
|
||||
Me.GetControl(Me, "*", l)
|
||||
Dim evh As EventHandler = AddressOf ChangesMade
|
||||
For Each c As Control In l
|
||||
If TypeOf c Is TextBox Then
|
||||
Dim ctl As TextBox = c
|
||||
AddHandler ctl.TextChanged, evh
|
||||
End If
|
||||
If TypeOf c Is MaskedTextBox Then
|
||||
Dim ctl As MaskedTextBox = c
|
||||
AddHandler ctl.TextChanged, evh
|
||||
End If
|
||||
If TypeOf c Is ComboBox Then
|
||||
Dim ctl As ComboBox = c
|
||||
AddHandler ctl.SelectedValueChanged, evh
|
||||
End If
|
||||
If TypeOf c Is RichTextBox Then
|
||||
Dim ctl As RichTextBox = c
|
||||
AddHandler ctl.TextChanged, evh
|
||||
End If
|
||||
If TypeOf c Is CheckBox Then
|
||||
If c.Name <> "cboxNurAktive" Then
|
||||
Dim ctl As CheckBox = c
|
||||
AddHandler ctl.CheckedChanged, evh
|
||||
End If
|
||||
End If
|
||||
If TypeOf c Is DateTimePicker Then
|
||||
Dim ctl As DateTimePicker = c
|
||||
AddHandler ctl.ValueChanged, evh
|
||||
End If
|
||||
If TypeOf c Is CheckedListBox Then
|
||||
Dim ctl As CheckedListBox = c
|
||||
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
''' <summary>
|
||||
''' Envent-Handler für Change-Ereignisse
|
||||
''' </summary>
|
||||
''' <param name="sender"></param>
|
||||
''' <param name="e"></param>
|
||||
''' <remarks></remarks>
|
||||
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
Me.HasChanges = True
|
||||
Dim objtype As System.Type = sender.GetType
|
||||
If objtype.Name = "MaskedTextBox" Then
|
||||
Dim o As MaskedTextBox = sender
|
||||
If o.Text = "01.01.1900" Then o.Text = " . . "
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
|
||||
Me.HasChanges = True
|
||||
End Sub
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
|
||||
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
|
||||
''' </summary>
|
||||
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
|
||||
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
|
||||
''' <param name="L">Liste der gefundenen Objekte</param>
|
||||
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
|
||||
''' </returns>
|
||||
''' <remarks></remarks>
|
||||
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
|
||||
If L Is Nothing Then L = New List(Of Control)
|
||||
Dim Gut As Boolean
|
||||
Dim ReturnFlag As Boolean = False
|
||||
If Key IsNot Nothing Then Key = Key.ToLower
|
||||
|
||||
If BaseControl.HasChildren = True Then
|
||||
For Each ctl As Control In BaseControl.Controls
|
||||
Gut = False
|
||||
If Key Is Nothing Then
|
||||
Gut = True
|
||||
Else
|
||||
If ctl.Name.Length >= Key.Length Then
|
||||
Key = Key.ToLower
|
||||
If Key.StartsWith("*") Then
|
||||
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
|
||||
ElseIf Key.EndsWith("*") Then
|
||||
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
|
||||
Else
|
||||
If Key = ctl.Name.ToLower Then Gut = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Gut = True Then
|
||||
L.Add(ctl)
|
||||
If ReturnAtFirstElement = True Then ReturnFlag = True
|
||||
End If
|
||||
If ReturnFlag = False Then
|
||||
Call GetControl(ctl, Key, L)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
If L.Count - 1 > -1 Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
#Region "Daten_Laden"
|
||||
|
||||
Public Sub Fill_Stammdaten()
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
chklbAdresstyp.Items.Clear()
|
||||
chklbAdresstyp.Items.Add("Leistungserbringer")
|
||||
|
||||
End If
|
||||
log.Writelog("PartnerDetails: Fill_Stammdaten", clsLog.Logtype.Information)
|
||||
Me.cbboxNrAnrede.Table = "Anrede"
|
||||
Me.cbboxNrAnrede.Displaymember = "Anrede_D"
|
||||
Me.cbboxNrAnrede.Valuemember = "NRANREDE"
|
||||
|
||||
Me.cbboxNRTitel.Table = "Titel"
|
||||
Me.cbboxNRTitel.Displaymember = "Titel_D"
|
||||
Me.cbboxNRTitel.Valuemember = "NRTITEL"
|
||||
|
||||
Me.cbboxSprache.Table = "Sprache"
|
||||
Me.cbboxSprache.Displaymember = "Sprachbezeichnung"
|
||||
Me.cbboxSprache.Valuemember = "Sprachcode"
|
||||
|
||||
Me.cbboxStatus.Table = "Status"
|
||||
Me.cbboxStatus.Displaymember = "Status"
|
||||
Me.cbboxStatus.Valuemember = "nrstatus"
|
||||
|
||||
Me.cbboxGeschlecht.Table = "Geschlecht"
|
||||
Me.cbboxGeschlecht.Displaymember = "Geschlecht"
|
||||
Me.cbboxGeschlecht.Valuemember = "NrGeschlecht"
|
||||
|
||||
Me.cbboxNRArbeitgeber.Dataselection = DB.Get_SQL(1)
|
||||
Me.cbboxNRArbeitgeber.Table = "Arbeitgeber"
|
||||
Me.cbboxNRArbeitgeber.Displaymember = "Firmenname"
|
||||
Me.cbboxNRArbeitgeber.Valuemember = "nrfirma"
|
||||
|
||||
log.Writelog("PartnerDetails: Fill_Stammdaten Ende", clsLog.Logtype.Information)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub Get_Data()
|
||||
Dim ctlname As String
|
||||
Dim colname As String
|
||||
Try
|
||||
If Globals.Hide_Gueltig_bis Then
|
||||
Me.Label15.Visible = False
|
||||
Me.dtgueltigbis.Visible = False
|
||||
End If
|
||||
|
||||
DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
|
||||
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
|
||||
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
|
||||
|
||||
colname = c.ColumnName
|
||||
Debug.Print(colname)
|
||||
For Each Ctl As Control In Me.Controls
|
||||
'Dim objtype As System.Type = Ctl.GetType
|
||||
'If objtype.Name = "Label" Then
|
||||
' Exit For
|
||||
'End If
|
||||
ctlname = Ctl.Name
|
||||
log.Writelog("Partnerdtails: Get_Data: " + Ctl.Name, clsLog.Logtype.Information)
|
||||
If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
|
||||
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Ctl.Text = r(c.ColumnName).ToString
|
||||
Exit For
|
||||
End If
|
||||
If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
|
||||
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Dim ct As MyCombobox
|
||||
Dim o As Object = Ctl
|
||||
Try
|
||||
o.SelectedValue = r(c.ColumnName)
|
||||
Catch
|
||||
o.SelectedValue = -1
|
||||
End Try
|
||||
|
||||
Exit For
|
||||
End If
|
||||
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
|
||||
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Dim ct As ComboBox
|
||||
Dim o As Object = Ctl
|
||||
Try
|
||||
o.text = r(c.ColumnName)
|
||||
Catch
|
||||
o.Text = ""
|
||||
End Try
|
||||
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
|
||||
log.Writelog("--Partnerdtails: Get_Data: " + Ctl.Name + " " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Dim dt As DateTimePicker
|
||||
dt = Ctl
|
||||
'Try
|
||||
' dt.Value = r(c.ColumnName)
|
||||
'Catch
|
||||
' dt.Value = " . . "
|
||||
'End Try
|
||||
|
||||
Try
|
||||
dt.Value = r(c.ColumnName)
|
||||
dt.Format = DateTimePickerFormat.Short
|
||||
Catch
|
||||
|
||||
dt.CustomFormat = " " 'An empty SPACE
|
||||
dt.Format = DateTimePickerFormat.Custom
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
Exit For
|
||||
End If
|
||||
'If UCase(Ctl.Name) = "CHKMAIL_KOMMUNIKATION" Then
|
||||
' MsgBox("Hallo")
|
||||
'End If
|
||||
'If UCase(r(c.ColumnName)) = "MAIL_KOMMUNIKATION" Then
|
||||
' MsgBox("Bello")
|
||||
'End If
|
||||
If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
|
||||
Dim cb As CheckBox
|
||||
cb = Ctl
|
||||
|
||||
Try
|
||||
cb.Checked = r(c.ColumnName)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
If LCase(c.ColumnName) = "behandler" Then
|
||||
Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
|
||||
End If
|
||||
Else
|
||||
|
||||
Select Case LCase(c.ColumnName)
|
||||
Case "patient"
|
||||
Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "garant"
|
||||
Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "gesvertreter"
|
||||
Set_Adresstype("Ges. Vertreter", r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "hausarzt"
|
||||
Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "zahnarzt"
|
||||
Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "behandler"
|
||||
Set_Adresstype(c.ColumnName, r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "dhpat"
|
||||
Set_Adresstype("DH-Patient", r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "nichtaufbieten"
|
||||
Set_Adresstype("Nicht Aufbieten", r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "nichtannehmen"
|
||||
Set_Adresstype("Nicht annehmen", r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
Case "betreibung"
|
||||
Set_Adresstype("Betreibung vorhanden", r(c.ColumnName).ToString)
|
||||
log.Writelog("--Partnerdtails: Get_Data Set_Adresstyp: " + c.ColumnName, clsLog.Logtype.Information)
|
||||
End Select
|
||||
End If
|
||||
|
||||
Next
|
||||
Catch ex As Exception
|
||||
log.Writelog("Privatdetails: Get_Data: " + ctlname + " / " + colname + " " + ex.Message, clsLog.Logtype.ApplError)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Set_Adresstype(ByVal feldname, value)
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
If value <> False Then chklbAdresstyp.SetItemCheckState(0, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(0, CheckState.Unchecked)
|
||||
|
||||
End If
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.chklbAdresstyp.Items.Count - 1
|
||||
If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
|
||||
Try
|
||||
If value <> False Then chklbAdresstyp.SetItemCheckState(i, CheckState.Checked) Else chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
|
||||
|
||||
Catch ex As Exception
|
||||
chklbAdresstyp.SetItemCheckState(i, CheckState.Unchecked)
|
||||
|
||||
End Try
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Daten speichern"
|
||||
|
||||
Public Sub Save_Data()
|
||||
DB.Get_Tabledata("privat", " where nrprivat=" + Me.PatientNr.ToString)
|
||||
Dim r As DataRow = DB.dsDaten.Tables(0).Rows(0)
|
||||
|
||||
For Each c As DataColumn In DB.dsDaten.Tables(0).Columns
|
||||
For Each Ctl As Control In Me.Controls
|
||||
If UCase(Ctl.Name) = "TXT" + UCase(c.ColumnName) Then
|
||||
If UCase(Ctl.Name) <> "TXTMUTIERT_AM" And UCase(Ctl.Name) <> "TXTERSTLLT_AM" Then
|
||||
r(c.ColumnName) = Ctl.Text
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
If UCase(Ctl.Name) = "CBBOX" + UCase(c.ColumnName) Then
|
||||
Dim ct As MyCombobox
|
||||
Dim o As Object = Ctl
|
||||
Try
|
||||
r(c.ColumnName) = o.selectedvalue
|
||||
Catch ex As Exception
|
||||
r(c.ColumnName) = 0
|
||||
End Try
|
||||
Exit For
|
||||
End If
|
||||
If UCase(Ctl.Name) = "CBTXTBOX" + UCase(c.ColumnName) Then
|
||||
Dim ct As MyCombobox
|
||||
Dim o As Object = Ctl
|
||||
Try
|
||||
r(c.ColumnName) = o.text
|
||||
Catch ex As Exception
|
||||
r(c.ColumnName) = ""
|
||||
End Try
|
||||
Exit For
|
||||
End If
|
||||
If UCase(Ctl.Name) = "DT" + UCase(c.ColumnName) Then
|
||||
Dim dt As DateTimePicker
|
||||
dt = Ctl
|
||||
r(c.ColumnName) = dt.Value
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If UCase(Ctl.Name) = "CHK" + UCase(c.ColumnName) Then
|
||||
Dim cb As CheckBox
|
||||
cb = Ctl
|
||||
r(c.ColumnName) = cb.Checked
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Select Case LCase(c.ColumnName)
|
||||
Case "behandler"
|
||||
r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
|
||||
End Select
|
||||
Else
|
||||
Select Case LCase(c.ColumnName)
|
||||
Case "patient"
|
||||
r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
|
||||
Case "garant"
|
||||
r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
|
||||
Case "gesvertreter"
|
||||
r(c.ColumnName) = Get_Adresstype("Ges. Vertreter", r(c.ColumnName))
|
||||
Case "hausarzt"
|
||||
r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
|
||||
Case "zahnarzt"
|
||||
r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
|
||||
Case "behandler"
|
||||
r(c.ColumnName) = Get_Adresstype(c.ColumnName, r(c.ColumnName))
|
||||
Case "dhpat"
|
||||
r(c.ColumnName) = Get_Adresstype("DH-Patient", r(c.ColumnName))
|
||||
Case "nichtaufbieten"
|
||||
r(c.ColumnName) = Get_Adresstype("nicht aufbieten", r(c.ColumnName))
|
||||
Case "nichtannehmen"
|
||||
r(c.ColumnName) = Get_Adresstype("nicht annehmen", r(c.ColumnName))
|
||||
Case "betreibung"
|
||||
r(c.ColumnName) = Get_Adresstype("Betreibung vorhanden", r(c.ColumnName))
|
||||
End Select
|
||||
End If
|
||||
|
||||
Next
|
||||
r("Mutiert_am") = Now
|
||||
r("mutierer") = Globals.ActUser
|
||||
DB.Update_Data()
|
||||
Me.HasChanges = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function Get_Adresstype(ByVal feldname, value) As Integer
|
||||
Try
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
If UCase(feldname) = "BEHANDLER" Then Return chklbAdresstyp.GetItemChecked(0)
|
||||
Else
|
||||
Dim i As Integer
|
||||
For i = 0 To Me.chklbAdresstyp.Items.Count - 1
|
||||
If UCase(chklbAdresstyp.Items(i).ToString) = UCase(feldname) Then
|
||||
Return chklbAdresstyp.GetItemChecked(i)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Catch
|
||||
Return -1
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Public Function Create_new()
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
|
||||
If Nr = Me.PatientNr Then
|
||||
Me.Save_Data()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cbboxNrAnrede_Leave(sender As Object, e As EventArgs) Handles txtVorname.Leave, txtName.Leave, cbboxNrAnrede.Leave, cbboxNRTitel.Leave
|
||||
Dim alt As String = Me.txtBriefanrede.Text
|
||||
Dim neu As String
|
||||
If Me.cbboxNrAnrede.Text = "Frau" Then
|
||||
neu = "Sehr geehrte Frau "
|
||||
If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
|
||||
neu = neu + Me.txtName.Text
|
||||
Else
|
||||
neu = "Sehr geehrter Herr "
|
||||
If Me.cbboxNRTitel.Text <> "" Then neu = neu + Me.cbboxNRTitel.Text + " "
|
||||
neu = neu + Me.txtName.Text
|
||||
End If
|
||||
If alt <> neu Then Me.txtBriefanrede.Text = neu
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub txtPLZ_Leave(sender As Object, e As EventArgs) Handles txtPLZ.Leave
|
||||
If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
|
||||
End Sub
|
||||
|
||||
Private Sub PatientDetailFirma_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
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
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user