update 26.7.22
This commit is contained in:
863
DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb
generated
Normal file
863
DPM2016/Patient/Firma/PatientDetailFirma.Designer.vb
generated
Normal file
@@ -0,0 +1,863 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class PatientDetails
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'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()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.txtnrprivat = New System.Windows.Forms.TextBox()
|
||||
Me.lblNr = New System.Windows.Forms.Label()
|
||||
Me.lblAnrede = New System.Windows.Forms.Label()
|
||||
Me.lblTitel = New System.Windows.Forms.Label()
|
||||
Me.txtMutierer = New System.Windows.Forms.TextBox()
|
||||
Me.txtMutiert_am = New System.Windows.Forms.TextBox()
|
||||
Me.txtErstellt_am = New System.Windows.Forms.TextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.chklbAdresstyp = New System.Windows.Forms.CheckedListBox()
|
||||
Me.txtBemerkung = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtFaxG = New System.Windows.Forms.TextBox()
|
||||
Me.txtName = New System.Windows.Forms.TextBox()
|
||||
Me.lbltelg = New System.Windows.Forms.Label()
|
||||
Me.lblName = New System.Windows.Forms.Label()
|
||||
Me.txtTelg = New System.Windows.Forms.TextBox()
|
||||
Me.txtVorname = New System.Windows.Forms.TextBox()
|
||||
Me.lblahv = New System.Windows.Forms.Label()
|
||||
Me.txtahvnr = New System.Windows.Forms.TextBox()
|
||||
Me.lblVorname = New System.Windows.Forms.Label()
|
||||
Me.lblBeruf = New System.Windows.Forms.Label()
|
||||
Me.txtBeruf = New System.Windows.Forms.TextBox()
|
||||
Me.txtCOAdresse = New System.Windows.Forms.TextBox()
|
||||
Me.lblArbeitgeber = New System.Windows.Forms.Label()
|
||||
Me.lblCO = New System.Windows.Forms.Label()
|
||||
Me.txtStrasse = New System.Windows.Forms.TextBox()
|
||||
Me.lblSprache = New System.Windows.Forms.Label()
|
||||
Me.lblStrasse = New System.Windows.Forms.Label()
|
||||
Me.txtPLZ = New System.Windows.Forms.TextBox()
|
||||
Me.lblStatus = New System.Windows.Forms.Label()
|
||||
Me.lblPLZOrt = New System.Windows.Forms.Label()
|
||||
Me.lblBriefanrede = New System.Windows.Forms.Label()
|
||||
Me.txtOrt = New System.Windows.Forms.TextBox()
|
||||
Me.txtBriefanrede = New System.Windows.Forms.TextBox()
|
||||
Me.lblGebDat = New System.Windows.Forms.Label()
|
||||
Me.lblGeschlecht = New System.Windows.Forms.Label()
|
||||
Me.txttelp = New System.Windows.Forms.TextBox()
|
||||
Me.lblInternet = New System.Windows.Forms.Label()
|
||||
Me.lblTelefon = New System.Windows.Forms.Label()
|
||||
Me.txtWeb = New System.Windows.Forms.TextBox()
|
||||
Me.txtFaxp = New System.Windows.Forms.TextBox()
|
||||
Me.lblemail = New System.Windows.Forms.Label()
|
||||
Me.lblFaxP = New System.Windows.Forms.Label()
|
||||
Me.txtE_Mail = New System.Windows.Forms.TextBox()
|
||||
Me.txtNatel = New System.Windows.Forms.TextBox()
|
||||
Me.lblMobile = New System.Windows.Forms.Label()
|
||||
Me.dtgebdat = New System.Windows.Forms.DateTimePicker()
|
||||
Me.dtGueltigab = New System.Windows.Forms.DateTimePicker()
|
||||
Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox()
|
||||
Me.lblGLN = New System.Windows.Forms.Label()
|
||||
Me.txtGLN = New System.Windows.Forms.TextBox()
|
||||
Me.txtZSR = New System.Windows.Forms.TextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.chkMail_Kommunikation = New System.Windows.Forms.CheckBox()
|
||||
Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox()
|
||||
Me.cbboxGeschlecht = New DPM2016.MyCombobox()
|
||||
Me.cbboxSprache = New DPM2016.MyCombobox()
|
||||
Me.cbboxStatus = New DPM2016.MyCombobox()
|
||||
Me.cbboxNRTitel = New DPM2016.MyCombobox()
|
||||
Me.cbboxNrAnrede = New DPM2016.MyCombobox()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'txtnrprivat
|
||||
'
|
||||
Me.txtnrprivat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtnrprivat.Location = New System.Drawing.Point(74, 14)
|
||||
Me.txtnrprivat.Name = "txtnrprivat"
|
||||
Me.txtnrprivat.ReadOnly = True
|
||||
Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.txtnrprivat.Size = New System.Drawing.Size(48, 20)
|
||||
Me.txtnrprivat.TabIndex = 0
|
||||
'
|
||||
'lblNr
|
||||
'
|
||||
Me.lblNr.AutoSize = True
|
||||
Me.lblNr.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblNr.Location = New System.Drawing.Point(4, 16)
|
||||
Me.lblNr.Name = "lblNr"
|
||||
Me.lblNr.Size = New System.Drawing.Size(21, 13)
|
||||
Me.lblNr.TabIndex = 103
|
||||
Me.lblNr.Text = "Nr."
|
||||
'
|
||||
'lblAnrede
|
||||
'
|
||||
Me.lblAnrede.AutoSize = True
|
||||
Me.lblAnrede.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblAnrede.Location = New System.Drawing.Point(4, 41)
|
||||
Me.lblAnrede.Name = "lblAnrede"
|
||||
Me.lblAnrede.Size = New System.Drawing.Size(41, 13)
|
||||
Me.lblAnrede.TabIndex = 104
|
||||
Me.lblAnrede.Text = "Anrede"
|
||||
'
|
||||
'lblTitel
|
||||
'
|
||||
Me.lblTitel.AutoSize = True
|
||||
Me.lblTitel.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblTitel.Location = New System.Drawing.Point(4, 68)
|
||||
Me.lblTitel.Name = "lblTitel"
|
||||
Me.lblTitel.Size = New System.Drawing.Size(27, 13)
|
||||
Me.lblTitel.TabIndex = 105
|
||||
Me.lblTitel.Text = "Titel"
|
||||
'
|
||||
'txtMutierer
|
||||
'
|
||||
Me.txtMutierer.Location = New System.Drawing.Point(586, 257)
|
||||
Me.txtMutierer.Name = "txtMutierer"
|
||||
Me.txtMutierer.ReadOnly = True
|
||||
Me.txtMutierer.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.txtMutierer.Size = New System.Drawing.Size(135, 20)
|
||||
Me.txtMutierer.TabIndex = 207
|
||||
'
|
||||
'txtMutiert_am
|
||||
'
|
||||
Me.txtMutiert_am.Location = New System.Drawing.Point(586, 234)
|
||||
Me.txtMutiert_am.Name = "txtMutiert_am"
|
||||
Me.txtMutiert_am.ReadOnly = True
|
||||
Me.txtMutiert_am.Size = New System.Drawing.Size(135, 20)
|
||||
Me.txtMutiert_am.TabIndex = 206
|
||||
'
|
||||
'txtErstellt_am
|
||||
'
|
||||
Me.txtErstellt_am.Location = New System.Drawing.Point(586, 212)
|
||||
Me.txtErstellt_am.Name = "txtErstellt_am"
|
||||
Me.txtErstellt_am.ReadOnly = True
|
||||
Me.txtErstellt_am.Size = New System.Drawing.Size(135, 20)
|
||||
Me.txtErstellt_am.TabIndex = 205
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label18.Location = New System.Drawing.Point(527, 260)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(45, 13)
|
||||
Me.Label18.TabIndex = 204
|
||||
Me.Label18.Text = "Mutierer"
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label17.Location = New System.Drawing.Point(527, 237)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(56, 13)
|
||||
Me.Label17.TabIndex = 203
|
||||
Me.Label17.Text = "Mutiert am"
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label16.Location = New System.Drawing.Point(528, 215)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(55, 13)
|
||||
Me.Label16.TabIndex = 202
|
||||
Me.Label16.Text = "Erstellt am"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label15.Location = New System.Drawing.Point(272, 280)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(50, 13)
|
||||
Me.Label15.TabIndex = 201
|
||||
Me.Label15.Text = "Gültig bis"
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label14.Location = New System.Drawing.Point(272, 256)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(49, 13)
|
||||
Me.Label14.TabIndex = 200
|
||||
Me.Label14.Text = "Gültig ab"
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label13.Location = New System.Drawing.Point(527, 42)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(53, 13)
|
||||
Me.Label13.TabIndex = 199
|
||||
Me.Label13.Text = "Adresstyp"
|
||||
'
|
||||
'chklbAdresstyp
|
||||
'
|
||||
Me.chklbAdresstyp.FormattingEnabled = True
|
||||
Me.chklbAdresstyp.Items.AddRange(New Object() {"Patient", "Garant", "Zahnarzt", "Ges. Vertreter", "Hausarzt", "Behandler", "DH-Patient", "Nicht annehmen", "Nicht aufbieten", "Betreibung vorhanden"})
|
||||
Me.chklbAdresstyp.Location = New System.Drawing.Point(586, 39)
|
||||
Me.chklbAdresstyp.Name = "chklbAdresstyp"
|
||||
Me.chklbAdresstyp.Size = New System.Drawing.Size(137, 154)
|
||||
Me.chklbAdresstyp.TabIndex = 30
|
||||
'
|
||||
'txtBemerkung
|
||||
'
|
||||
Me.txtBemerkung.Location = New System.Drawing.Point(275, 327)
|
||||
Me.txtBemerkung.Multiline = True
|
||||
Me.txtBemerkung.Name = "txtBemerkung"
|
||||
Me.txtBemerkung.Size = New System.Drawing.Size(446, 101)
|
||||
Me.txtBemerkung.TabIndex = 29
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label2.Location = New System.Drawing.Point(272, 307)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(61, 13)
|
||||
Me.Label2.TabIndex = 198
|
||||
Me.Label2.Text = "Bemerkung"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label1.Location = New System.Drawing.Point(272, 226)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label1.TabIndex = 197
|
||||
Me.Label1.Text = "Fax G."
|
||||
'
|
||||
'txtFaxG
|
||||
'
|
||||
Me.txtFaxG.Location = New System.Drawing.Point(342, 223)
|
||||
Me.txtFaxG.Name = "txtFaxG"
|
||||
Me.txtFaxG.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtFaxG.TabIndex = 26
|
||||
'
|
||||
'txtName
|
||||
'
|
||||
Me.txtName.Location = New System.Drawing.Point(74, 93)
|
||||
Me.txtName.Name = "txtName"
|
||||
Me.txtName.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtName.TabIndex = 3
|
||||
'
|
||||
'lbltelg
|
||||
'
|
||||
Me.lbltelg.AutoSize = True
|
||||
Me.lbltelg.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lbltelg.Location = New System.Drawing.Point(272, 200)
|
||||
Me.lbltelg.Name = "lbltelg"
|
||||
Me.lbltelg.Size = New System.Drawing.Size(57, 13)
|
||||
Me.lbltelg.TabIndex = 196
|
||||
Me.lbltelg.Text = "Telefon G."
|
||||
'
|
||||
'lblName
|
||||
'
|
||||
Me.lblName.AutoSize = True
|
||||
Me.lblName.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblName.Location = New System.Drawing.Point(4, 96)
|
||||
Me.lblName.Name = "lblName"
|
||||
Me.lblName.Size = New System.Drawing.Size(35, 13)
|
||||
Me.lblName.TabIndex = 178
|
||||
Me.lblName.Text = "Name"
|
||||
'
|
||||
'txtTelg
|
||||
'
|
||||
Me.txtTelg.Location = New System.Drawing.Point(342, 197)
|
||||
Me.txtTelg.Name = "txtTelg"
|
||||
Me.txtTelg.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtTelg.TabIndex = 25
|
||||
'
|
||||
'txtVorname
|
||||
'
|
||||
Me.txtVorname.Location = New System.Drawing.Point(74, 119)
|
||||
Me.txtVorname.Name = "txtVorname"
|
||||
Me.txtVorname.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtVorname.TabIndex = 4
|
||||
'
|
||||
'lblahv
|
||||
'
|
||||
Me.lblahv.AutoSize = True
|
||||
Me.lblahv.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblahv.Location = New System.Drawing.Point(272, 148)
|
||||
Me.lblahv.Name = "lblahv"
|
||||
Me.lblahv.Size = New System.Drawing.Size(43, 13)
|
||||
Me.lblahv.TabIndex = 195
|
||||
Me.lblahv.Text = "AHV-Nr"
|
||||
'
|
||||
'txtahvnr
|
||||
'
|
||||
Me.txtahvnr.Location = New System.Drawing.Point(342, 145)
|
||||
Me.txtahvnr.Name = "txtahvnr"
|
||||
Me.txtahvnr.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtahvnr.TabIndex = 22
|
||||
'
|
||||
'lblVorname
|
||||
'
|
||||
Me.lblVorname.AutoSize = True
|
||||
Me.lblVorname.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblVorname.Location = New System.Drawing.Point(4, 122)
|
||||
Me.lblVorname.Name = "lblVorname"
|
||||
Me.lblVorname.Size = New System.Drawing.Size(49, 13)
|
||||
Me.lblVorname.TabIndex = 179
|
||||
Me.lblVorname.Text = "Vorname"
|
||||
'
|
||||
'lblBeruf
|
||||
'
|
||||
Me.lblBeruf.AutoSize = True
|
||||
Me.lblBeruf.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblBeruf.Location = New System.Drawing.Point(272, 122)
|
||||
Me.lblBeruf.Name = "lblBeruf"
|
||||
Me.lblBeruf.Size = New System.Drawing.Size(32, 13)
|
||||
Me.lblBeruf.TabIndex = 194
|
||||
Me.lblBeruf.Text = "Beruf"
|
||||
'
|
||||
'txtBeruf
|
||||
'
|
||||
Me.txtBeruf.Location = New System.Drawing.Point(342, 119)
|
||||
Me.txtBeruf.Name = "txtBeruf"
|
||||
Me.txtBeruf.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtBeruf.TabIndex = 21
|
||||
'
|
||||
'txtCOAdresse
|
||||
'
|
||||
Me.txtCOAdresse.Location = New System.Drawing.Point(74, 145)
|
||||
Me.txtCOAdresse.Name = "txtCOAdresse"
|
||||
Me.txtCOAdresse.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtCOAdresse.TabIndex = 5
|
||||
'
|
||||
'lblArbeitgeber
|
||||
'
|
||||
Me.lblArbeitgeber.AutoSize = True
|
||||
Me.lblArbeitgeber.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblArbeitgeber.Location = New System.Drawing.Point(272, 96)
|
||||
Me.lblArbeitgeber.Name = "lblArbeitgeber"
|
||||
Me.lblArbeitgeber.Size = New System.Drawing.Size(61, 13)
|
||||
Me.lblArbeitgeber.TabIndex = 193
|
||||
Me.lblArbeitgeber.Text = "Arbeitgeber"
|
||||
'
|
||||
'lblCO
|
||||
'
|
||||
Me.lblCO.AutoSize = True
|
||||
Me.lblCO.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblCO.Location = New System.Drawing.Point(4, 148)
|
||||
Me.lblCO.Name = "lblCO"
|
||||
Me.lblCO.Size = New System.Drawing.Size(27, 13)
|
||||
Me.lblCO.TabIndex = 180
|
||||
Me.lblCO.Text = "C/O"
|
||||
'
|
||||
'txtStrasse
|
||||
'
|
||||
Me.txtStrasse.Location = New System.Drawing.Point(74, 171)
|
||||
Me.txtStrasse.Name = "txtStrasse"
|
||||
Me.txtStrasse.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtStrasse.TabIndex = 6
|
||||
'
|
||||
'lblSprache
|
||||
'
|
||||
Me.lblSprache.AutoSize = True
|
||||
Me.lblSprache.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblSprache.Location = New System.Drawing.Point(272, 69)
|
||||
Me.lblSprache.Name = "lblSprache"
|
||||
Me.lblSprache.Size = New System.Drawing.Size(47, 13)
|
||||
Me.lblSprache.TabIndex = 192
|
||||
Me.lblSprache.Text = "Sprache"
|
||||
'
|
||||
'lblStrasse
|
||||
'
|
||||
Me.lblStrasse.AutoSize = True
|
||||
Me.lblStrasse.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblStrasse.Location = New System.Drawing.Point(4, 174)
|
||||
Me.lblStrasse.Name = "lblStrasse"
|
||||
Me.lblStrasse.Size = New System.Drawing.Size(42, 13)
|
||||
Me.lblStrasse.TabIndex = 181
|
||||
Me.lblStrasse.Text = "Strasse"
|
||||
'
|
||||
'txtPLZ
|
||||
'
|
||||
Me.txtPLZ.Location = New System.Drawing.Point(74, 197)
|
||||
Me.txtPLZ.Name = "txtPLZ"
|
||||
Me.txtPLZ.Size = New System.Drawing.Size(48, 20)
|
||||
Me.txtPLZ.TabIndex = 7
|
||||
'
|
||||
'lblStatus
|
||||
'
|
||||
Me.lblStatus.AutoSize = True
|
||||
Me.lblStatus.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblStatus.Location = New System.Drawing.Point(272, 42)
|
||||
Me.lblStatus.Name = "lblStatus"
|
||||
Me.lblStatus.Size = New System.Drawing.Size(37, 13)
|
||||
Me.lblStatus.TabIndex = 191
|
||||
Me.lblStatus.Text = "Status"
|
||||
'
|
||||
'lblPLZOrt
|
||||
'
|
||||
Me.lblPLZOrt.AutoSize = True
|
||||
Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblPLZOrt.Location = New System.Drawing.Point(4, 200)
|
||||
Me.lblPLZOrt.Name = "lblPLZOrt"
|
||||
Me.lblPLZOrt.Size = New System.Drawing.Size(46, 13)
|
||||
Me.lblPLZOrt.TabIndex = 182
|
||||
Me.lblPLZOrt.Text = "PLZ/Ort"
|
||||
'
|
||||
'lblBriefanrede
|
||||
'
|
||||
Me.lblBriefanrede.AutoSize = True
|
||||
Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblBriefanrede.Location = New System.Drawing.Point(4, 435)
|
||||
Me.lblBriefanrede.Name = "lblBriefanrede"
|
||||
Me.lblBriefanrede.Size = New System.Drawing.Size(65, 13)
|
||||
Me.lblBriefanrede.TabIndex = 190
|
||||
Me.lblBriefanrede.Text = "Brief-Anrede"
|
||||
'
|
||||
'txtOrt
|
||||
'
|
||||
Me.txtOrt.Location = New System.Drawing.Point(128, 197)
|
||||
Me.txtOrt.Name = "txtOrt"
|
||||
Me.txtOrt.Size = New System.Drawing.Size(108, 20)
|
||||
Me.txtOrt.TabIndex = 8
|
||||
'
|
||||
'txtBriefanrede
|
||||
'
|
||||
Me.txtBriefanrede.Location = New System.Drawing.Point(74, 432)
|
||||
Me.txtBriefanrede.Name = "txtBriefanrede"
|
||||
Me.txtBriefanrede.Size = New System.Drawing.Size(647, 20)
|
||||
Me.txtBriefanrede.TabIndex = 17
|
||||
'
|
||||
'lblGebDat
|
||||
'
|
||||
Me.lblGebDat.AutoSize = True
|
||||
Me.lblGebDat.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblGebDat.Location = New System.Drawing.Point(4, 253)
|
||||
Me.lblGebDat.Name = "lblGebDat"
|
||||
Me.lblGebDat.Size = New System.Drawing.Size(44, 13)
|
||||
Me.lblGebDat.TabIndex = 183
|
||||
Me.lblGebDat.Text = "GebDat"
|
||||
'
|
||||
'lblGeschlecht
|
||||
'
|
||||
Me.lblGeschlecht.AutoSize = True
|
||||
Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblGeschlecht.Location = New System.Drawing.Point(4, 408)
|
||||
Me.lblGeschlecht.Name = "lblGeschlecht"
|
||||
Me.lblGeschlecht.Size = New System.Drawing.Size(61, 13)
|
||||
Me.lblGeschlecht.TabIndex = 189
|
||||
Me.lblGeschlecht.Text = "Geschlecht"
|
||||
'
|
||||
'txttelp
|
||||
'
|
||||
Me.txttelp.Location = New System.Drawing.Point(74, 275)
|
||||
Me.txttelp.Name = "txttelp"
|
||||
Me.txttelp.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txttelp.TabIndex = 11
|
||||
'
|
||||
'lblInternet
|
||||
'
|
||||
Me.lblInternet.AutoSize = True
|
||||
Me.lblInternet.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblInternet.Location = New System.Drawing.Point(4, 382)
|
||||
Me.lblInternet.Name = "lblInternet"
|
||||
Me.lblInternet.Size = New System.Drawing.Size(43, 13)
|
||||
Me.lblInternet.TabIndex = 188
|
||||
Me.lblInternet.Text = "Internet"
|
||||
'
|
||||
'lblTelefon
|
||||
'
|
||||
Me.lblTelefon.AutoSize = True
|
||||
Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblTelefon.Location = New System.Drawing.Point(4, 278)
|
||||
Me.lblTelefon.Name = "lblTelefon"
|
||||
Me.lblTelefon.Size = New System.Drawing.Size(55, 13)
|
||||
Me.lblTelefon.TabIndex = 184
|
||||
Me.lblTelefon.Text = "Telefon p."
|
||||
'
|
||||
'txtWeb
|
||||
'
|
||||
Me.txtWeb.Location = New System.Drawing.Point(74, 379)
|
||||
Me.txtWeb.Name = "txtWeb"
|
||||
Me.txtWeb.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtWeb.TabIndex = 15
|
||||
'
|
||||
'txtFaxp
|
||||
'
|
||||
Me.txtFaxp.Location = New System.Drawing.Point(74, 301)
|
||||
Me.txtFaxp.Name = "txtFaxp"
|
||||
Me.txtFaxp.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtFaxp.TabIndex = 12
|
||||
'
|
||||
'lblemail
|
||||
'
|
||||
Me.lblemail.AutoSize = True
|
||||
Me.lblemail.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblemail.Location = New System.Drawing.Point(4, 356)
|
||||
Me.lblemail.Name = "lblemail"
|
||||
Me.lblemail.Size = New System.Drawing.Size(36, 13)
|
||||
Me.lblemail.TabIndex = 187
|
||||
Me.lblemail.Text = "E-Mail"
|
||||
'
|
||||
'lblFaxP
|
||||
'
|
||||
Me.lblFaxP.AutoSize = True
|
||||
Me.lblFaxP.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblFaxP.Location = New System.Drawing.Point(4, 304)
|
||||
Me.lblFaxP.Name = "lblFaxP"
|
||||
Me.lblFaxP.Size = New System.Drawing.Size(36, 13)
|
||||
Me.lblFaxP.TabIndex = 185
|
||||
Me.lblFaxP.Text = "Fax p."
|
||||
'
|
||||
'txtE_Mail
|
||||
'
|
||||
Me.txtE_Mail.Location = New System.Drawing.Point(74, 353)
|
||||
Me.txtE_Mail.Name = "txtE_Mail"
|
||||
Me.txtE_Mail.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtE_Mail.TabIndex = 14
|
||||
'
|
||||
'txtNatel
|
||||
'
|
||||
Me.txtNatel.Location = New System.Drawing.Point(74, 327)
|
||||
Me.txtNatel.Name = "txtNatel"
|
||||
Me.txtNatel.Size = New System.Drawing.Size(162, 20)
|
||||
Me.txtNatel.TabIndex = 13
|
||||
'
|
||||
'lblMobile
|
||||
'
|
||||
Me.lblMobile.AutoSize = True
|
||||
Me.lblMobile.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblMobile.Location = New System.Drawing.Point(4, 330)
|
||||
Me.lblMobile.Name = "lblMobile"
|
||||
Me.lblMobile.Size = New System.Drawing.Size(38, 13)
|
||||
Me.lblMobile.TabIndex = 186
|
||||
Me.lblMobile.Text = "Mobile"
|
||||
'
|
||||
'dtgebdat
|
||||
'
|
||||
Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtgebdat.Location = New System.Drawing.Point(74, 247)
|
||||
Me.dtgebdat.Name = "dtgebdat"
|
||||
Me.dtgebdat.Size = New System.Drawing.Size(162, 20)
|
||||
Me.dtgebdat.TabIndex = 10
|
||||
'
|
||||
'dtGueltigab
|
||||
'
|
||||
Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtGueltigab.Location = New System.Drawing.Point(342, 251)
|
||||
Me.dtGueltigab.Name = "dtGueltigab"
|
||||
Me.dtGueltigab.Size = New System.Drawing.Size(162, 20)
|
||||
Me.dtGueltigab.TabIndex = 27
|
||||
'
|
||||
'dtgueltigbis
|
||||
'
|
||||
Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dtgueltigbis.Location = New System.Drawing.Point(342, 277)
|
||||
Me.dtgueltigbis.Name = "dtgueltigbis"
|
||||
Me.dtgueltigbis.Size = New System.Drawing.Size(162, 20)
|
||||
Me.dtgueltigbis.TabIndex = 28
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label3.Location = New System.Drawing.Point(3, 225)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label3.TabIndex = 208
|
||||
Me.Label3.Text = "Kanton"
|
||||
'
|
||||
'cbtxtboxKanton
|
||||
'
|
||||
Me.cbtxtboxKanton.FormattingEnabled = True
|
||||
Me.cbtxtboxKanton.Items.AddRange(New Object() {"AG", "AR", "AI", "BL", "BS", "BE", "FR", "GE", "GL", "GR", "JU", "LU", "NE", "NW", "OW", "SG", "SH", "SZ", "SO", "TG", "TI", "UR", "VD", "VS", "ZG", "ZH"})
|
||||
Me.cbtxtboxKanton.Location = New System.Drawing.Point(74, 221)
|
||||
Me.cbtxtboxKanton.Name = "cbtxtboxKanton"
|
||||
Me.cbtxtboxKanton.Size = New System.Drawing.Size(162, 21)
|
||||
Me.cbtxtboxKanton.TabIndex = 9
|
||||
'
|
||||
'lblGLN
|
||||
'
|
||||
Me.lblGLN.AutoSize = True
|
||||
Me.lblGLN.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblGLN.Location = New System.Drawing.Point(272, 174)
|
||||
Me.lblGLN.Name = "lblGLN"
|
||||
Me.lblGLN.Size = New System.Drawing.Size(56, 13)
|
||||
Me.lblGLN.TabIndex = 210
|
||||
Me.lblGLN.Text = "GLN/ZSR"
|
||||
'
|
||||
'txtGLN
|
||||
'
|
||||
Me.txtGLN.Location = New System.Drawing.Point(342, 171)
|
||||
Me.txtGLN.Name = "txtGLN"
|
||||
Me.txtGLN.Size = New System.Drawing.Size(107, 20)
|
||||
Me.txtGLN.TabIndex = 23
|
||||
'
|
||||
'txtZSR
|
||||
'
|
||||
Me.txtZSR.Location = New System.Drawing.Point(455, 171)
|
||||
Me.txtZSR.Name = "txtZSR"
|
||||
Me.txtZSR.Size = New System.Drawing.Size(49, 20)
|
||||
Me.txtZSR.TabIndex = 24
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label4.Location = New System.Drawing.Point(528, 308)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(101, 13)
|
||||
Me.Label4.TabIndex = 211
|
||||
Me.Label4.Text = "Mail-Kommunikation"
|
||||
'
|
||||
'chkMail_Kommunikation
|
||||
'
|
||||
Me.chkMail_Kommunikation.AutoSize = True
|
||||
Me.chkMail_Kommunikation.Location = New System.Drawing.Point(706, 308)
|
||||
Me.chkMail_Kommunikation.Name = "chkMail_Kommunikation"
|
||||
Me.chkMail_Kommunikation.Size = New System.Drawing.Size(15, 14)
|
||||
Me.chkMail_Kommunikation.TabIndex = 212
|
||||
Me.chkMail_Kommunikation.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbboxNRArbeitgeber
|
||||
'
|
||||
Me.cbboxNRArbeitgeber.Dataselection = Nothing
|
||||
Me.cbboxNRArbeitgeber.Displaymember = Nothing
|
||||
Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(342, 91)
|
||||
Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber"
|
||||
Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(162, 21)
|
||||
Me.cbboxNRArbeitgeber.TabIndex = 20
|
||||
Me.cbboxNRArbeitgeber.Table = Nothing
|
||||
Me.cbboxNRArbeitgeber.TableAlias = ""
|
||||
Me.cbboxNRArbeitgeber.Valuemember = Nothing
|
||||
'
|
||||
'cbboxGeschlecht
|
||||
'
|
||||
Me.cbboxGeschlecht.Dataselection = Nothing
|
||||
Me.cbboxGeschlecht.Displaymember = Nothing
|
||||
Me.cbboxGeschlecht.Location = New System.Drawing.Point(74, 405)
|
||||
Me.cbboxGeschlecht.Name = "cbboxGeschlecht"
|
||||
Me.cbboxGeschlecht.Size = New System.Drawing.Size(162, 21)
|
||||
Me.cbboxGeschlecht.TabIndex = 16
|
||||
Me.cbboxGeschlecht.Table = Nothing
|
||||
Me.cbboxGeschlecht.TableAlias = ""
|
||||
Me.cbboxGeschlecht.Valuemember = Nothing
|
||||
'
|
||||
'cbboxSprache
|
||||
'
|
||||
Me.cbboxSprache.Dataselection = Nothing
|
||||
Me.cbboxSprache.Displaymember = Nothing
|
||||
Me.cbboxSprache.Location = New System.Drawing.Point(342, 65)
|
||||
Me.cbboxSprache.Name = "cbboxSprache"
|
||||
Me.cbboxSprache.Size = New System.Drawing.Size(162, 21)
|
||||
Me.cbboxSprache.TabIndex = 19
|
||||
Me.cbboxSprache.Table = Nothing
|
||||
Me.cbboxSprache.TableAlias = ""
|
||||
Me.cbboxSprache.Valuemember = Nothing
|
||||
'
|
||||
'cbboxStatus
|
||||
'
|
||||
Me.cbboxStatus.Dataselection = Nothing
|
||||
Me.cbboxStatus.Displaymember = Nothing
|
||||
Me.cbboxStatus.Location = New System.Drawing.Point(342, 38)
|
||||
Me.cbboxStatus.Name = "cbboxStatus"
|
||||
Me.cbboxStatus.Size = New System.Drawing.Size(162, 21)
|
||||
Me.cbboxStatus.TabIndex = 18
|
||||
Me.cbboxStatus.Table = Nothing
|
||||
Me.cbboxStatus.TableAlias = ""
|
||||
Me.cbboxStatus.Valuemember = Nothing
|
||||
'
|
||||
'cbboxNRTitel
|
||||
'
|
||||
Me.cbboxNRTitel.Dataselection = Nothing
|
||||
Me.cbboxNRTitel.Displaymember = Nothing
|
||||
Me.cbboxNRTitel.Location = New System.Drawing.Point(74, 65)
|
||||
Me.cbboxNRTitel.Name = "cbboxNRTitel"
|
||||
Me.cbboxNRTitel.Size = New System.Drawing.Size(162, 21)
|
||||
Me.cbboxNRTitel.TabIndex = 2
|
||||
Me.cbboxNRTitel.Table = Nothing
|
||||
Me.cbboxNRTitel.TableAlias = ""
|
||||
Me.cbboxNRTitel.Valuemember = Nothing
|
||||
'
|
||||
'cbboxNrAnrede
|
||||
'
|
||||
Me.cbboxNrAnrede.Dataselection = Nothing
|
||||
Me.cbboxNrAnrede.Displaymember = Nothing
|
||||
Me.cbboxNrAnrede.Location = New System.Drawing.Point(74, 38)
|
||||
Me.cbboxNrAnrede.Name = "cbboxNrAnrede"
|
||||
Me.cbboxNrAnrede.Size = New System.Drawing.Size(162, 21)
|
||||
Me.cbboxNrAnrede.TabIndex = 1
|
||||
Me.cbboxNrAnrede.Table = Nothing
|
||||
Me.cbboxNrAnrede.TableAlias = ""
|
||||
Me.cbboxNrAnrede.Valuemember = Nothing
|
||||
'
|
||||
'PatientDetails
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.chkMail_Kommunikation)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.txtZSR)
|
||||
Me.Controls.Add(Me.txtGLN)
|
||||
Me.Controls.Add(Me.lblGLN)
|
||||
Me.Controls.Add(Me.cbtxtboxKanton)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.cbboxNRArbeitgeber)
|
||||
Me.Controls.Add(Me.cbboxGeschlecht)
|
||||
Me.Controls.Add(Me.cbboxSprache)
|
||||
Me.Controls.Add(Me.cbboxStatus)
|
||||
Me.Controls.Add(Me.cbboxNRTitel)
|
||||
Me.Controls.Add(Me.cbboxNrAnrede)
|
||||
Me.Controls.Add(Me.dtgueltigbis)
|
||||
Me.Controls.Add(Me.dtGueltigab)
|
||||
Me.Controls.Add(Me.dtgebdat)
|
||||
Me.Controls.Add(Me.txtMutierer)
|
||||
Me.Controls.Add(Me.txtMutiert_am)
|
||||
Me.Controls.Add(Me.txtErstellt_am)
|
||||
Me.Controls.Add(Me.Label18)
|
||||
Me.Controls.Add(Me.Label17)
|
||||
Me.Controls.Add(Me.Label16)
|
||||
Me.Controls.Add(Me.Label15)
|
||||
Me.Controls.Add(Me.Label14)
|
||||
Me.Controls.Add(Me.Label13)
|
||||
Me.Controls.Add(Me.chklbAdresstyp)
|
||||
Me.Controls.Add(Me.txtBemerkung)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.txtFaxG)
|
||||
Me.Controls.Add(Me.txtName)
|
||||
Me.Controls.Add(Me.lbltelg)
|
||||
Me.Controls.Add(Me.lblName)
|
||||
Me.Controls.Add(Me.txtTelg)
|
||||
Me.Controls.Add(Me.txtVorname)
|
||||
Me.Controls.Add(Me.lblahv)
|
||||
Me.Controls.Add(Me.txtahvnr)
|
||||
Me.Controls.Add(Me.lblVorname)
|
||||
Me.Controls.Add(Me.lblBeruf)
|
||||
Me.Controls.Add(Me.txtBeruf)
|
||||
Me.Controls.Add(Me.txtCOAdresse)
|
||||
Me.Controls.Add(Me.lblArbeitgeber)
|
||||
Me.Controls.Add(Me.lblCO)
|
||||
Me.Controls.Add(Me.txtStrasse)
|
||||
Me.Controls.Add(Me.lblSprache)
|
||||
Me.Controls.Add(Me.lblStrasse)
|
||||
Me.Controls.Add(Me.txtPLZ)
|
||||
Me.Controls.Add(Me.lblStatus)
|
||||
Me.Controls.Add(Me.lblPLZOrt)
|
||||
Me.Controls.Add(Me.lblBriefanrede)
|
||||
Me.Controls.Add(Me.txtOrt)
|
||||
Me.Controls.Add(Me.txtBriefanrede)
|
||||
Me.Controls.Add(Me.lblGebDat)
|
||||
Me.Controls.Add(Me.lblGeschlecht)
|
||||
Me.Controls.Add(Me.txttelp)
|
||||
Me.Controls.Add(Me.lblInternet)
|
||||
Me.Controls.Add(Me.lblTelefon)
|
||||
Me.Controls.Add(Me.txtWeb)
|
||||
Me.Controls.Add(Me.txtFaxp)
|
||||
Me.Controls.Add(Me.lblemail)
|
||||
Me.Controls.Add(Me.lblFaxP)
|
||||
Me.Controls.Add(Me.txtE_Mail)
|
||||
Me.Controls.Add(Me.txtNatel)
|
||||
Me.Controls.Add(Me.lblMobile)
|
||||
Me.Controls.Add(Me.txtnrprivat)
|
||||
Me.Controls.Add(Me.lblNr)
|
||||
Me.Controls.Add(Me.lblAnrede)
|
||||
Me.Controls.Add(Me.lblTitel)
|
||||
Me.Name = "PatientDetailFirma"
|
||||
Me.Size = New System.Drawing.Size(737, 461)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents txtnrprivat As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblNr As System.Windows.Forms.Label
|
||||
Friend WithEvents lblAnrede As System.Windows.Forms.Label
|
||||
Friend WithEvents lblTitel As System.Windows.Forms.Label
|
||||
Friend WithEvents txtMutierer As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtMutiert_am As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtErstellt_am As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label17 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||||
Friend WithEvents chklbAdresstyp As System.Windows.Forms.CheckedListBox
|
||||
Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents txtFaxG As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtName As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lbltelg As System.Windows.Forms.Label
|
||||
Friend WithEvents lblName As System.Windows.Forms.Label
|
||||
Friend WithEvents txtTelg As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtVorname As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblahv As System.Windows.Forms.Label
|
||||
Friend WithEvents txtahvnr As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblVorname As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBeruf As System.Windows.Forms.Label
|
||||
Friend WithEvents txtBeruf As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtCOAdresse As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblArbeitgeber As System.Windows.Forms.Label
|
||||
Friend WithEvents lblCO As System.Windows.Forms.Label
|
||||
Friend WithEvents txtStrasse As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblSprache As System.Windows.Forms.Label
|
||||
Friend WithEvents lblStrasse As System.Windows.Forms.Label
|
||||
Friend WithEvents txtPLZ As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblStatus As System.Windows.Forms.Label
|
||||
Friend WithEvents lblPLZOrt As System.Windows.Forms.Label
|
||||
Friend WithEvents lblBriefanrede As System.Windows.Forms.Label
|
||||
Friend WithEvents txtOrt As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtBriefanrede As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblGebDat As System.Windows.Forms.Label
|
||||
Friend WithEvents lblGeschlecht As System.Windows.Forms.Label
|
||||
Friend WithEvents txttelp As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblInternet As System.Windows.Forms.Label
|
||||
Friend WithEvents lblTelefon As System.Windows.Forms.Label
|
||||
Friend WithEvents txtWeb As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtFaxp As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblemail As System.Windows.Forms.Label
|
||||
Friend WithEvents lblFaxP As System.Windows.Forms.Label
|
||||
Friend WithEvents txtE_Mail As System.Windows.Forms.TextBox
|
||||
Friend WithEvents txtNatel As System.Windows.Forms.TextBox
|
||||
Friend WithEvents lblMobile As System.Windows.Forms.Label
|
||||
Friend WithEvents dtgebdat As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents dtGueltigab As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents dtgueltigbis As System.Windows.Forms.DateTimePicker
|
||||
Friend WithEvents cbboxNrAnrede As DPM2016.MyCombobox
|
||||
Friend WithEvents cbboxNRTitel As DPM2016.MyCombobox
|
||||
Friend WithEvents cbboxStatus As DPM2016.MyCombobox
|
||||
Friend WithEvents cbboxSprache As DPM2016.MyCombobox
|
||||
Friend WithEvents cbboxGeschlecht As DPM2016.MyCombobox
|
||||
Friend WithEvents cbboxNRArbeitgeber As DPM2016.MyCombobox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents cbtxtboxKanton As ComboBox
|
||||
Friend WithEvents lblGLN As Label
|
||||
Friend WithEvents txtGLN As TextBox
|
||||
Friend WithEvents txtZSR As TextBox
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents chkMail_Kommunikation As CheckBox
|
||||
End Class
|
||||
120
DPM2016/Patient/Firma/PatientDetailFirma.resx
Normal file
120
DPM2016/Patient/Firma/PatientDetailFirma.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
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
|
||||
300
DPM2016/Patient/Patient.Designer.vb
generated
300
DPM2016/Patient/Patient.Designer.vb
generated
@@ -41,30 +41,33 @@ Partial Class Patient
|
||||
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
|
||||
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.btnVTX = New System.Windows.Forms.Button()
|
||||
Me.PatientDetails1 = New DPM2016.PatientDetails()
|
||||
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
|
||||
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel7 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.ClsDokumente1 = New DPM2016.clsDokumente()
|
||||
Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.Recall1 = New DPM2016.Recall()
|
||||
Me.Recall = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.Behandlung1 = New DPM2016.Behandlung()
|
||||
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
|
||||
Me.Abrechnung = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.Finanzen1 = New DPM2016.Finanzen()
|
||||
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Stammdaten_Firma = New DevComponents.DotNetBar.SuperTabItem()
|
||||
Me.SuperTabControlPanel8 = New DevComponents.DotNetBar.SuperTabControlPanel()
|
||||
Me.PatientDetails1 = New DPM2016.PatientDetails()
|
||||
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
|
||||
Me.ClsDokumente1 = New DPM2016.clsDokumente()
|
||||
Me.Recall1 = New DPM2016.Recall()
|
||||
Me.Finanzen1 = New DPM2016.Finanzen()
|
||||
Me.Behandlung1 = New DPM2016.Behandlung()
|
||||
Me.PatientAbrechnung1 = New DPM2016.PatientAbrechnung()
|
||||
Me.PatientDetailsFirma1 = New DPM2016.PatientDetailsFirma()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuperTabControl1.SuspendLayout()
|
||||
@@ -76,6 +79,7 @@ Partial Class Patient
|
||||
Me.SuperTabControlPanel2.SuspendLayout()
|
||||
Me.SuperTabControlPanel5.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.SuperTabControlPanel8.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolStrip1
|
||||
@@ -83,9 +87,9 @@ Partial Class Patient
|
||||
Me.ToolStrip1.AllowDrop = True
|
||||
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnnew, Me.tsbtnSave, Me.ToolStripButton4, Me.tstxtsuche, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 30)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1278, 27)
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1704, 31)
|
||||
Me.ToolStrip1.TabIndex = 15
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
@@ -95,7 +99,7 @@ Partial Class Patient
|
||||
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
|
||||
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnquit.Name = "tsbtnquit"
|
||||
Me.tsbtnquit.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtnquit.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnquit.Text = "Schliessen"
|
||||
'
|
||||
'tsbtnnew
|
||||
@@ -104,7 +108,7 @@ Partial Class Patient
|
||||
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
|
||||
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnnew.Name = "tsbtnnew"
|
||||
Me.tsbtnnew.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtnnew.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnnew.Text = "Neuer Datensatz"
|
||||
'
|
||||
'tsbtnSave
|
||||
@@ -113,7 +117,7 @@ Partial Class Patient
|
||||
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
|
||||
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnSave.Name = "tsbtnSave"
|
||||
Me.tsbtnSave.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtnSave.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnSave.Text = "Speichern"
|
||||
'
|
||||
'ToolStripButton4
|
||||
@@ -122,14 +126,15 @@ Partial Class Patient
|
||||
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||
Me.ToolStripButton4.Size = New System.Drawing.Size(24, 24)
|
||||
Me.ToolStripButton4.Size = New System.Drawing.Size(29, 24)
|
||||
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
|
||||
Me.ToolStripButton4.Visible = False
|
||||
'
|
||||
'tstxtsuche
|
||||
'
|
||||
Me.tstxtsuche.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||
Me.tstxtsuche.Name = "tstxtsuche"
|
||||
Me.tstxtsuche.Size = New System.Drawing.Size(100, 27)
|
||||
Me.tstxtsuche.Size = New System.Drawing.Size(132, 31)
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
@@ -137,7 +142,7 @@ Partial Class Patient
|
||||
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton2.Name = "ToolStripButton2"
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(24, 24)
|
||||
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
|
||||
Me.ToolStripButton2.Text = "Dokument löschen"
|
||||
Me.ToolStripButton2.Visible = False
|
||||
'
|
||||
@@ -147,14 +152,14 @@ Partial Class Patient
|
||||
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
|
||||
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton3.Name = "ToolStripButton3"
|
||||
Me.ToolStripButton3.Size = New System.Drawing.Size(24, 24)
|
||||
Me.ToolStripButton3.Size = New System.Drawing.Size(29, 24)
|
||||
Me.ToolStripButton3.Text = "Dokument anzeigen"
|
||||
Me.ToolStripButton3.Visible = False
|
||||
'
|
||||
'ToolStripLabel1
|
||||
'
|
||||
Me.ToolStripLabel1.Name = "ToolStripLabel1"
|
||||
Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 24)
|
||||
Me.ToolStripLabel1.Size = New System.Drawing.Size(48, 28)
|
||||
Me.ToolStripLabel1.Text = "Suche"
|
||||
'
|
||||
'tsbtnfirst
|
||||
@@ -163,7 +168,7 @@ Partial Class Patient
|
||||
Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
|
||||
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnfirst.Name = "tsbtnfirst"
|
||||
Me.tsbtnfirst.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtnfirst.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnfirst.Text = "Erster Datensatz"
|
||||
'
|
||||
'tsbtprev
|
||||
@@ -172,7 +177,7 @@ Partial Class Patient
|
||||
Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
|
||||
Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtprev.Name = "tsbtprev"
|
||||
Me.tsbtprev.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtprev.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtprev.Text = "Vorheriger Datensatz"
|
||||
'
|
||||
'tsbtnnext
|
||||
@@ -181,7 +186,7 @@ Partial Class Patient
|
||||
Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
|
||||
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnnext.Name = "tsbtnnext"
|
||||
Me.tsbtnnext.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtnnext.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnnext.Text = "nächster Datensatz"
|
||||
'
|
||||
'tsbtnlast
|
||||
@@ -190,13 +195,13 @@ Partial Class Patient
|
||||
Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
|
||||
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnlast.Name = "tsbtnlast"
|
||||
Me.tsbtnlast.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtnlast.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnlast.Text = "Letzter Datensatz"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 27)
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 31)
|
||||
'
|
||||
'tsbtnVTX
|
||||
'
|
||||
@@ -204,7 +209,7 @@ Partial Class Patient
|
||||
Me.tsbtnVTX.Image = CType(resources.GetObject("tsbtnVTX.Image"), System.Drawing.Image)
|
||||
Me.tsbtnVTX.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnVTX.Name = "tsbtnVTX"
|
||||
Me.tsbtnVTX.Size = New System.Drawing.Size(24, 24)
|
||||
Me.tsbtnVTX.Size = New System.Drawing.Size(29, 28)
|
||||
Me.tsbtnVTX.Text = "ToolStripButton1"
|
||||
'
|
||||
'SuperTabControl1
|
||||
@@ -222,23 +227,25 @@ Partial Class Patient
|
||||
Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
|
||||
Me.SuperTabControl1.ControlBox.Name = ""
|
||||
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel8)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel7)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
|
||||
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
|
||||
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 51)
|
||||
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 61)
|
||||
Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControl1.Name = "SuperTabControl1"
|
||||
Me.SuperTabControl1.ReorderTabsEnabled = True
|
||||
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.SuperTabControl1.SelectedTabIndex = 0
|
||||
Me.SuperTabControl1.Size = New System.Drawing.Size(1278, 635)
|
||||
Me.SuperTabControl1.Size = New System.Drawing.Size(1704, 783)
|
||||
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.SuperTabControl1.TabIndex = 18
|
||||
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
|
||||
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Stammdaten_Firma, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
|
||||
Me.SuperTabControl1.Text = "SuperTabControl1"
|
||||
'
|
||||
'SuperTabControlPanel1
|
||||
@@ -246,33 +253,23 @@ Partial Class Patient
|
||||
Me.SuperTabControlPanel1.Controls.Add(Me.btnVTX)
|
||||
Me.SuperTabControlPanel1.Controls.Add(Me.PatientDetails1)
|
||||
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
|
||||
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1278, 610)
|
||||
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel1.TabIndex = 1
|
||||
Me.SuperTabControlPanel1.TabItem = Me.Stammdaten
|
||||
'
|
||||
'btnVTX
|
||||
'
|
||||
Me.btnVTX.Image = CType(resources.GetObject("btnVTX.Image"), System.Drawing.Image)
|
||||
Me.btnVTX.Location = New System.Drawing.Point(739, 38)
|
||||
Me.btnVTX.Location = New System.Drawing.Point(985, 47)
|
||||
Me.btnVTX.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.btnVTX.Name = "btnVTX"
|
||||
Me.btnVTX.Size = New System.Drawing.Size(75, 41)
|
||||
Me.btnVTX.Size = New System.Drawing.Size(100, 50)
|
||||
Me.btnVTX.TabIndex = 18
|
||||
Me.btnVTX.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PatientDetails1
|
||||
'
|
||||
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PatientDetails1.HasChanges = False
|
||||
Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PatientDetails1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
|
||||
Me.PatientDetails1.Name = "PatientDetails1"
|
||||
Me.PatientDetails1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
|
||||
Me.PatientDetails1.PatientNr = 0
|
||||
Me.PatientDetails1.Size = New System.Drawing.Size(1278, 610)
|
||||
Me.PatientDetails1.TabIndex = 17
|
||||
'
|
||||
'Stammdaten
|
||||
'
|
||||
Me.Stammdaten.AttachedControl = Me.SuperTabControlPanel1
|
||||
@@ -284,22 +281,13 @@ Partial Class Patient
|
||||
'
|
||||
Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
|
||||
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel4.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
|
||||
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel4.TabIndex = 0
|
||||
Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
|
||||
'
|
||||
'Krankengeschichte1
|
||||
'
|
||||
Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Krankengeschichte1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
|
||||
Me.Krankengeschichte1.Name = "Krankengeschichte1"
|
||||
Me.Krankengeschichte1.Patientnr = 0
|
||||
Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.Krankengeschichte1.TabIndex = 0
|
||||
'
|
||||
'Krankengeschichte
|
||||
'
|
||||
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
|
||||
@@ -311,22 +299,13 @@ Partial Class Patient
|
||||
'
|
||||
Me.SuperTabControlPanel7.Controls.Add(Me.ClsDokumente1)
|
||||
Me.SuperTabControlPanel7.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SuperTabControlPanel7.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel7.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel7.Name = "SuperTabControlPanel7"
|
||||
Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.SuperTabControlPanel7.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel7.TabIndex = 0
|
||||
Me.SuperTabControlPanel7.TabItem = Me.Dokumente
|
||||
'
|
||||
'ClsDokumente1
|
||||
'
|
||||
Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ClsDokumente1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
|
||||
Me.ClsDokumente1.Name = "ClsDokumente1"
|
||||
Me.ClsDokumente1.Patientnr = 0
|
||||
Me.ClsDokumente1.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.ClsDokumente1.TabIndex = 0
|
||||
'
|
||||
'Dokumente
|
||||
'
|
||||
Me.Dokumente.AttachedControl = Me.SuperTabControlPanel7
|
||||
@@ -338,22 +317,13 @@ Partial Class Patient
|
||||
'
|
||||
Me.SuperTabControlPanel6.Controls.Add(Me.Recall1)
|
||||
Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel6.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
|
||||
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel6.TabIndex = 0
|
||||
Me.SuperTabControlPanel6.TabItem = Me.Recall
|
||||
'
|
||||
'Recall1
|
||||
'
|
||||
Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Recall1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Recall1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
|
||||
Me.Recall1.Name = "Recall1"
|
||||
Me.Recall1.Patientnr = 0
|
||||
Me.Recall1.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.Recall1.TabIndex = 0
|
||||
'
|
||||
'Recall
|
||||
'
|
||||
Me.Recall.AttachedControl = Me.SuperTabControlPanel6
|
||||
@@ -365,23 +335,13 @@ Partial Class Patient
|
||||
'
|
||||
Me.SuperTabControlPanel3.Controls.Add(Me.Behandlung1)
|
||||
Me.SuperTabControlPanel3.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
|
||||
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel3.TabIndex = 0
|
||||
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
|
||||
'
|
||||
'Behandlung1
|
||||
'
|
||||
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Behandlung1.HasChanges = False
|
||||
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Behandlung1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
|
||||
Me.Behandlung1.Name = "Behandlung1"
|
||||
Me.Behandlung1.PatientNr = 0
|
||||
Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.Behandlung1.TabIndex = 0
|
||||
'
|
||||
'Behandlungen
|
||||
'
|
||||
Me.Behandlungen.AttachedControl = Me.SuperTabControlPanel3
|
||||
@@ -393,23 +353,13 @@ Partial Class Patient
|
||||
'
|
||||
Me.SuperTabControlPanel2.Controls.Add(Me.PatientAbrechnung1)
|
||||
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel2.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
|
||||
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel2.TabIndex = 0
|
||||
Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
|
||||
'
|
||||
'PatientAbrechnung1
|
||||
'
|
||||
Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PatientAbrechnung1.HasChanges = False
|
||||
Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PatientAbrechnung1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
|
||||
Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
|
||||
Me.PatientAbrechnung1.PatientNr = 0
|
||||
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.PatientAbrechnung1.TabIndex = 0
|
||||
'
|
||||
'Abrechnung
|
||||
'
|
||||
Me.Abrechnung.AttachedControl = Me.SuperTabControlPanel2
|
||||
@@ -421,22 +371,13 @@ Partial Class Patient
|
||||
'
|
||||
Me.SuperTabControlPanel5.Controls.Add(Me.Finanzen1)
|
||||
Me.SuperTabControlPanel5.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 25)
|
||||
Me.SuperTabControlPanel5.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel5.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.SuperTabControlPanel5.Name = "SuperTabControlPanel5"
|
||||
Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel5.TabIndex = 0
|
||||
Me.SuperTabControlPanel5.TabItem = Me.Finanzen
|
||||
'
|
||||
'Finanzen1
|
||||
'
|
||||
Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Finanzen1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4)
|
||||
Me.Finanzen1.Name = "Finanzen1"
|
||||
Me.Finanzen1.Patientnr = 0
|
||||
Me.Finanzen1.Size = New System.Drawing.Size(1278, 612)
|
||||
Me.Finanzen1.TabIndex = 0
|
||||
'
|
||||
'Finanzen
|
||||
'
|
||||
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
|
||||
@@ -451,8 +392,8 @@ Partial Class Patient
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(4, 2, 0, 2)
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(1278, 24)
|
||||
Me.MenuStrip1.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(1704, 30)
|
||||
Me.MenuStrip1.TabIndex = 19
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
@@ -460,37 +401,142 @@ Partial Class Patient
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(59, 26)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(150, 26)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(928, 0)
|
||||
Me.Label1.Location = New System.Drawing.Point(1237, 0)
|
||||
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(63, 20)
|
||||
Me.Label1.Size = New System.Drawing.Size(77, 25)
|
||||
Me.Label1.TabIndex = 20
|
||||
Me.Label1.Text = "Label1"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Stammdaten_Firma
|
||||
'
|
||||
Me.Stammdaten_Firma.AttachedControl = Me.SuperTabControlPanel8
|
||||
Me.Stammdaten_Firma.GlobalItem = False
|
||||
Me.Stammdaten_Firma.Name = "Stammdaten_Firma"
|
||||
Me.Stammdaten_Firma.Text = "Stammdaten"
|
||||
'
|
||||
'SuperTabControlPanel8
|
||||
'
|
||||
Me.SuperTabControlPanel8.Controls.Add(Me.PatientDetailsFirma1)
|
||||
Me.SuperTabControlPanel8.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.SuperTabControlPanel8.Location = New System.Drawing.Point(0, 28)
|
||||
Me.SuperTabControlPanel8.Name = "SuperTabControlPanel8"
|
||||
Me.SuperTabControlPanel8.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.SuperTabControlPanel8.TabIndex = 0
|
||||
Me.SuperTabControlPanel8.TabItem = Me.Stammdaten_Firma
|
||||
'
|
||||
'PatientDetails1
|
||||
'
|
||||
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PatientDetails1.HasChanges = False
|
||||
Me.PatientDetails1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PatientDetails1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.PatientDetails1.Name = "PatientDetails1"
|
||||
Me.PatientDetails1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
|
||||
Me.PatientDetails1.PatientNr = 0
|
||||
Me.PatientDetails1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.PatientDetails1.TabIndex = 17
|
||||
'
|
||||
'Krankengeschichte1
|
||||
'
|
||||
Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Krankengeschichte1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Krankengeschichte1.Name = "Krankengeschichte1"
|
||||
Me.Krankengeschichte1.Patientnr = 0
|
||||
Me.Krankengeschichte1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.Krankengeschichte1.TabIndex = 0
|
||||
'
|
||||
'ClsDokumente1
|
||||
'
|
||||
Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ClsDokumente1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.ClsDokumente1.Name = "ClsDokumente1"
|
||||
Me.ClsDokumente1.Patientnr = 0
|
||||
Me.ClsDokumente1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.ClsDokumente1.TabIndex = 0
|
||||
'
|
||||
'Recall1
|
||||
'
|
||||
Me.Recall1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Recall1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Recall1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Recall1.Name = "Recall1"
|
||||
Me.Recall1.Patientnr = 0
|
||||
Me.Recall1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.Recall1.TabIndex = 0
|
||||
'
|
||||
'Finanzen1
|
||||
'
|
||||
Me.Finanzen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Finanzen1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Finanzen1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Finanzen1.Name = "Finanzen1"
|
||||
Me.Finanzen1.Patientnr = 0
|
||||
Me.Finanzen1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.Finanzen1.TabIndex = 0
|
||||
'
|
||||
'Behandlung1
|
||||
'
|
||||
Me.Behandlung1.Auftragsmanagement = False
|
||||
Me.Behandlung1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Behandlung1.HasChanges = False
|
||||
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Behandlung1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.Behandlung1.Name = "Behandlung1"
|
||||
Me.Behandlung1.PatientNr = 0
|
||||
Me.Behandlung1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.Behandlung1.TabIndex = 0
|
||||
'
|
||||
'PatientAbrechnung1
|
||||
'
|
||||
Me.PatientAbrechnung1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PatientAbrechnung1.HasChanges = False
|
||||
Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PatientAbrechnung1.Margin = New System.Windows.Forms.Padding(5)
|
||||
Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
|
||||
Me.PatientAbrechnung1.PatientNr = 0
|
||||
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.PatientAbrechnung1.TabIndex = 0
|
||||
'
|
||||
'PatientDetailsFirma1
|
||||
'
|
||||
Me.PatientDetailsFirma1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PatientDetailsFirma1.HasChanges = False
|
||||
Me.PatientDetailsFirma1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PatientDetailsFirma1.Name = "PatientDetailsFirma1"
|
||||
Me.PatientDetailsFirma1.Patientname = "0 Hutter Stefan Pfäffikon SZ"
|
||||
Me.PatientDetailsFirma1.PatientNr = 0
|
||||
Me.PatientDetailsFirma1.Size = New System.Drawing.Size(1704, 755)
|
||||
Me.PatientDetailsFirma1.TabIndex = 0
|
||||
'
|
||||
'Patient
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1278, 686)
|
||||
Me.ClientSize = New System.Drawing.Size(1704, 844)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.SuperTabControl1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Margin = New System.Windows.Forms.Padding(4)
|
||||
Me.Name = "Patient"
|
||||
Me.ShowInTaskbar = False
|
||||
Me.Text = "Patient"
|
||||
@@ -507,6 +553,7 @@ Partial Class Patient
|
||||
Me.SuperTabControlPanel5.ResumeLayout(False)
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.SuperTabControlPanel8.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -553,4 +600,7 @@ Partial Class Patient
|
||||
Friend WithEvents SuperTabControlPanel7 As DevComponents.DotNetBar.SuperTabControlPanel
|
||||
Friend WithEvents Dokumente As DevComponents.DotNetBar.SuperTabItem
|
||||
Friend WithEvents ClsDokumente1 As clsDokumente
|
||||
Friend WithEvents SuperTabControlPanel8 As DevComponents.DotNetBar.SuperTabControlPanel
|
||||
Friend WithEvents Stammdaten_Firma As DevComponents.DotNetBar.SuperTabItem
|
||||
Friend WithEvents PatientDetailsFirma1 As PatientDetailsFirma
|
||||
End Class
|
||||
|
||||
@@ -124,7 +124,7 @@
|
||||
<data name="tsbtnquit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
|
||||
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
|
||||
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
|
||||
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
|
||||
@@ -142,7 +142,7 @@
|
||||
<data name="tsbtnnew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
|
||||
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
|
||||
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
|
||||
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
|
||||
@@ -157,7 +157,7 @@
|
||||
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
|
||||
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
|
||||
AElFTkSuQmCC
|
||||
</value>
|
||||
@@ -165,7 +165,7 @@
|
||||
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
|
||||
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
|
||||
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
|
||||
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
|
||||
@@ -180,7 +180,7 @@
|
||||
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
|
||||
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
|
||||
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
|
||||
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
|
||||
@@ -196,7 +196,7 @@
|
||||
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAJDSURBVDhPjZLfa1JhHMa96bYuo7uiywi66CYIgq6iYPUX
|
||||
dNlVREEXUbQXN21zmDjRlpYw21yuFWNo/miTVgpLM5Y76rH5+9d0LsOjDk0vns57PLJMox544PC+3+fz
|
||||
vs/LkfR0Q68/9ICMX5TKJq7KhpiuE5nsrDjeL0LIYaPRGCyVSqjX6391IpGESjVtEmMHIlLZzWaziU6n
|
||||
809Ho98wNjZxWox2pdZoSavVwoF/ot1uC6bfv+/lCztQKB5fEKNdUUBjfx/U9UYDLH+KzeuHcyMgnNjb
|
||||
@@ -212,7 +212,7 @@
|
||||
<data name="tsbtnfirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAb0SURBVFhH7ZZ5UJNnHsftzh6ddXd2XbfiScIhuNTR7bpd
|
||||
ioqplktBlHIjKoIHlTOQEO5gICRAIAeHBAiQEJAz3ISWpWkpp3Jf4irbbbvq2N0d9x+3O63td5+8xsxg
|
||||
mFbtrH/1O/OZ58n7zLzv53l+v/edrPkhLyoc+UfmvWN/82gbvP5Lw6UXF9sgdTgjrvPB3PI/EVf4wRKX
|
||||
y/2RYelRUir+SmMrbujsmR1fboro+DJAOKGLr1igGZafO3Y+Db+x8VNr3Nmd6J3/HDP3vsAbYTWw9axY
|
||||
@@ -248,7 +248,7 @@
|
||||
<data name="tsbtprev.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAATuSURBVFhH7ZVrTFNXAMfNMrclRp0vwAeyDQukkSxOEUFd
|
||||
dRCQKI/J++F4KagoIFZABG8FKgVaKNDCqEBpeZZHEdCWTR4O5VVKizAJm+A2cZpNk73MPixu/x2uNS77
|
||||
JlI++Ut+ueeeJj2/3nt676LXGBNK3mfSofneUavVLjZMLRw2wVWhB1NUv4/ffYyEoq96DdPGZ1Nw1TIr
|
||||
/+pa14RWtOsfQv/gCbaFyWH42LiQxXdY+cmmT5f0oWf6F3Td/ZX2PU+xkQMo6g1GYFWK/QHFX5KOCVwZ
|
||||
@@ -275,7 +275,7 @@
|
||||
<data name="tsbtnnext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAUdSURBVFhH7ZVpTJRXFIZJU5smRls3tFrBqiyl4q4oLgOK
|
||||
CrVlU8qmIIggSxEQAQecBYZFBnSQfRmWmWEoWwHZtAOOM4DAMCMooqao1DU1rTG2tj8a27eXLzf910SB
|
||||
8ZdP8iY3955z7pt7zpfP4B3/h1arndap+claKBkypFtvlyiRSj1871e4stt+s/CW+9Ltt8f6QxKM/PwH
|
||||
mq4+wa7IJph6yuTLvaUz6bH+WeKUC+3jl+i89wLKO88RldcD028q7pp7SzfREP1i/HUWVHeeoeXGU0at
|
||||
@@ -303,7 +303,7 @@
|
||||
<data name="tsbtnlast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAAcBSURBVFhH7ZZ5TJRnHsdJs9ts0ujWar0QhxtKvahrsYoO
|
||||
KCCo5VBYTkUQQQFHwIEBZmQ4hmE45b6HYQ4GGUBukIKOICjHjEABcReraT02ZtM03TX7h3X3uw9v3kCb
|
||||
oY01qX/1k3yTJ8/veL/z/J7J++r9zo/h8/nvHOd1WzNj2tfQW28XpwtNN29oH8P6tPJflv7yQHr77fGR
|
||||
txjT/3iBFs0zOEa3wdxXoTT1l6+kw28Mt/ohI1b8N7VNdPvLDRHtL31EWvXF6lkGHV7C0K0EmqcvcP3h
|
||||
@@ -339,7 +339,7 @@
|
||||
<data name="tsbtnVTX.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACMAAAAhCAYAAABTERJSAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
|
||||
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAA1NSURBVFhHbVf3W1RnGt2/YXef/LCrERBmYAYYerMmKhbq
|
||||
MH2GoWliYrK6pmgSNeGJaBCDNEFAivTepIOgEhuKYRyCGluwoBEFE6xY9uy5V58Vk/3hZYZ7v7nfue93
|
||||
3vOe9y9/j6vDzNgW2Kmb4WXqgzy4FW7aTjhoqiFbVY+3zfsgWVkKe30RXM11mB1aC9fIXtjqD0Ji7oOD
|
||||
thmOmkY4aushZcgMTZBFNkNqbIW9bj+kho6XYWxj8LqpAdLIakjNZfA07cIJ6yX8ZDkuxl/eiqnBzKh6
|
||||
|
||||
@@ -9,7 +9,13 @@
|
||||
Cursor = Cursors.WaitCursor
|
||||
Globals.OnLoad = True
|
||||
m_nrpatient = value
|
||||
Me.PatientDetails1.PatientNr = value
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.PatientDetailsFirma1.PatientNr = value
|
||||
Else
|
||||
Me.PatientDetails1.PatientNr = value
|
||||
End If
|
||||
|
||||
|
||||
Me.PatientAbrechnung1.PatientNr = value
|
||||
Me.Behandlung1.PatientNr = value
|
||||
Me.Finanzen1.Patientnr = value
|
||||
@@ -37,6 +43,7 @@
|
||||
Function detail_has_changes()
|
||||
Dim res As Boolean = False
|
||||
If Me.PatientDetails1.HasChanges Then res = True
|
||||
If Me.PatientDetailsFirma1.HasChanges Then res = True
|
||||
If PatientAbrechnung1.HasChanges Then res = True
|
||||
If res = True Then
|
||||
Dim qres As MsgBoxResult
|
||||
@@ -78,11 +85,18 @@
|
||||
Dim db1 As New clsDB
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
'Me.PatientDetails1.chklbAdresstyp.Visible = False
|
||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = False
|
||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = True
|
||||
Me.PatientDetails1.Label13.Visible = False
|
||||
Me.PatientDetailsFirma1.Label13.Visible = False
|
||||
Me.SuperTabControl1.Tabs("Behandlungen").Text = "Projekte"
|
||||
Me.SuperTabControl1.Tabs("Recall").Visible = False
|
||||
Me.SuperTabControl1.Tabs("Abrechnung").Visible = False
|
||||
Me.PatientDetails1.lblName.Text = "Name/Firma"
|
||||
Else
|
||||
Me.SuperTabControl1.Tabs("Stammdaten").Visible = True
|
||||
Me.SuperTabControl1.Tabs("Stammdaten_Firma").Visible = False
|
||||
|
||||
End If
|
||||
If UCase(db1.Get_Option("60020")) = "FALSE" Then Exit Sub
|
||||
Try
|
||||
@@ -118,8 +132,13 @@
|
||||
End Sub
|
||||
|
||||
Private Sub evh_PatName_Changed(name As String, nr As Integer) Handles evh.PatName_Changed
|
||||
|
||||
If nr = Me.PatientNr Then Me.Text = name
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||
Else
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
End If
|
||||
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
|
||||
End Sub
|
||||
|
||||
@@ -133,8 +152,13 @@
|
||||
|
||||
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
|
||||
If Me.PatientNr = Nr Then
|
||||
Me.Text = PatientDetails1.Patientname
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
||||
Me.Text = PatientDetailsFirma1.Patientname
|
||||
Me.Label1.Text = PatientDetailsFirma1.Patientname
|
||||
Else
|
||||
Me.Text = PatientDetails1.Patientname
|
||||
Me.Label1.Text = PatientDetails1.Patientname
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
1005
DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb
generated
Normal file
1005
DPM2016/Patient/subclasses/PatientDetailsFirma.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
120
DPM2016/Patient/subclasses/PatientDetailsFirma.resx
Normal file
120
DPM2016/Patient/subclasses/PatientDetailsFirma.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
563
DPM2016/Patient/subclasses/PatientDetailsFirma.vb
Normal file
563
DPM2016/Patient/subclasses/PatientDetailsFirma.vb
Normal file
@@ -0,0 +1,563 @@
|
||||
Imports DPM2016.MyCombobox
|
||||
Public Class PatientDetailsFirma
|
||||
#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"
|
||||
Try
|
||||
Me.ClsStammdaten_flat1.Tablename = "PADM_Ansprechpartner"
|
||||
Me.ClsStammdaten_flat1.SQL = "Select * from padm_ansprechpartner where aktiv=1 and nrprivat=" + Me.PatientNr.ToString
|
||||
Me.ClsStammdaten_flat1.get_data()
|
||||
Me.ClsStammdaten_flat1.ToolStripButton5.Visible = False
|
||||
Catch
|
||||
End Try
|
||||
|
||||
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 PatientDetails_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
|
||||
|
||||
Private Sub lblName_Click(sender As Object, e As EventArgs) Handles lblName.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub txtName_TextChanged(sender As Object, e As EventArgs) Handles txtName.TextChanged
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user