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

Update 27.01.2018

Browse Source
This commit is contained in:
Stefan Hutter
2018-01-27 14:40:31 +01:00
parent 29bc02d707
commit 482a2ae3ce
92 changed files with 28687 additions and 1563 deletions
Download Patch File Download Diff File Expand all files Collapse all files

159
DPM2016/Patient/Patient.Designer.vb generated
View File

@@ -36,13 +36,13 @@ Partial Class Patient
Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnVTX = New System.Windows.Forms.ToolStripButton()
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.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Finanzen1 = New DPM2016.Finanzen()
Me.Finanzen = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Behandlung1 = New DPM2016.Behandlung()
Me.Behandlungen = New DevComponents.DotNetBar.SuperTabItem()
@@ -52,6 +52,12 @@ Partial Class Patient
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Recall1 = New DPM2016.Recall()
Me.Recall = 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()
@@ -59,20 +65,21 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast, Me.ToolStripSeparator1, Me.tsbtnVTX})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1006, 25)
Me.ToolStrip1.Size = New System.Drawing.Size(1278, 25)
Me.ToolStrip1.TabIndex = 15
Me.ToolStrip1.Text = "ToolStrip1"
'
@@ -180,6 +187,20 @@ Partial Class Patient
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
Me.tsbtnlast.Text = "Letzter Datensatz"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'tsbtnVTX
'
Me.tsbtnVTX.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
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(23, 22)
Me.tsbtnVTX.Text = "ToolStripButton1"
'
'SuperTabControl1
'
'
@@ -196,32 +217,43 @@ Partial Class Patient
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.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
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(1006, 728)
Me.SuperTabControl1.Size = New System.Drawing.Size(1278, 637)
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.Krankengeschichte, Me.Finanzen})
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Krankengeschichte})
Me.SuperTabControl1.Text = "SuperTabControl1"
'
'SuperTabControlPanel1
'
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.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1006, 703)
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1278, 612)
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.Name = "btnVTX"
Me.btnVTX.Size = New System.Drawing.Size(75, 41)
Me.btnVTX.TabIndex = 18
Me.btnVTX.UseVisualStyleBackColor = True
'
'PatientDetails1
'
Me.PatientDetails1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -230,7 +262,7 @@ Partial Class Patient
Me.PatientDetails1.Name = "PatientDetails1"
Me.PatientDetails1.Patientname = " "
Me.PatientDetails1.PatientNr = 0
Me.PatientDetails1.Size = New System.Drawing.Size(1006, 703)
Me.PatientDetails1.Size = New System.Drawing.Size(1278, 612)
Me.PatientDetails1.TabIndex = 17
'
'Stammdaten
@@ -240,39 +272,13 @@ Partial Class Patient
Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten"
'
'SuperTabControlPanel5
'
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.Name = "SuperTabControlPanel5"
Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1006, 703)
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.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(1006, 703)
Me.Finanzen1.TabIndex = 0
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
'
'SuperTabControlPanel3
'
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.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1006, 568)
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1278, 612)
Me.SuperTabControlPanel3.TabIndex = 0
Me.SuperTabControlPanel3.TabItem = Me.Behandlungen
'
@@ -283,7 +289,7 @@ Partial Class Patient
Me.Behandlung1.Location = New System.Drawing.Point(0, 0)
Me.Behandlung1.Name = "Behandlung1"
Me.Behandlung1.PatientNr = 0
Me.Behandlung1.Size = New System.Drawing.Size(1006, 568)
Me.Behandlung1.Size = New System.Drawing.Size(1278, 612)
Me.Behandlung1.TabIndex = 0
'
'Behandlungen
@@ -299,7 +305,7 @@ Partial Class Patient
Me.SuperTabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel2.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel2.Name = "SuperTabControlPanel2"
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 568)
Me.SuperTabControlPanel2.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel2.TabIndex = 0
Me.SuperTabControlPanel2.TabItem = Me.Abrechnung
'
@@ -310,7 +316,7 @@ Partial Class Patient
Me.PatientAbrechnung1.Location = New System.Drawing.Point(0, 0)
Me.PatientAbrechnung1.Name = "PatientAbrechnung1"
Me.PatientAbrechnung1.PatientNr = 0
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 568)
Me.PatientAbrechnung1.Size = New System.Drawing.Size(1006, 803)
Me.PatientAbrechnung1.TabIndex = 0
'
'Abrechnung
@@ -326,7 +332,7 @@ Partial Class Patient
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 568)
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1006, 803)
Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
'
@@ -336,23 +342,76 @@ Partial Class Patient
Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
Me.Krankengeschichte1.Name = "Krankengeschichte1"
Me.Krankengeschichte1.Patientnr = 0
Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 568)
Me.Krankengeschichte1.Size = New System.Drawing.Size(1006, 803)
Me.Krankengeschichte1.TabIndex = 0
'
'Krankengeschichte
'
Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
Me.Krankengeschichte.Enabled = False
Me.Krankengeschichte.GlobalItem = False
Me.Krankengeschichte.Name = "Krankengeschichte"
Me.Krankengeschichte.Text = "Krankengeschichte"
'
'SuperTabControlPanel6
'
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.Name = "SuperTabControlPanel6"
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(1006, 803)
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.Name = "Recall1"
Me.Recall1.Patientnr = 0
Me.Recall1.Size = New System.Drawing.Size(1006, 803)
Me.Recall1.TabIndex = 0
'
'Recall
'
Me.Recall.AttachedControl = Me.SuperTabControlPanel6
Me.Recall.GlobalItem = False
Me.Recall.Name = "Recall"
Me.Recall.Text = "Recall"
'
'SuperTabControlPanel5
'
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.Name = "SuperTabControlPanel5"
Me.SuperTabControlPanel5.Size = New System.Drawing.Size(1006, 803)
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.Name = "Finanzen1"
Me.Finanzen1.Patientnr = 0
Me.Finanzen1.Size = New System.Drawing.Size(1006, 803)
Me.Finanzen1.TabIndex = 0
'
'Finanzen
'
Me.Finanzen.AttachedControl = Me.SuperTabControlPanel5
Me.Finanzen.GlobalItem = False
Me.Finanzen.Name = "Finanzen"
Me.Finanzen.Text = "Finanzen"
'
'MenuStrip1
'
Me.MenuStrip1.AllowMerge = False
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.Size = New System.Drawing.Size(1006, 24)
Me.MenuStrip1.Size = New System.Drawing.Size(1278, 24)
Me.MenuStrip1.TabIndex = 19
Me.MenuStrip1.Text = "MenuStrip1"
'
@@ -373,10 +432,11 @@ Partial Class Patient
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1006, 777)
Me.ClientSize = New System.Drawing.Size(1278, 686)
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.Name = "Patient"
Me.ShowInTaskbar = False
@@ -386,10 +446,11 @@ Partial Class Patient
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
Me.SuperTabControlPanel2.ResumeLayout(False)
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False)
@@ -428,4 +489,10 @@ Partial Class Patient
Friend WithEvents SuperTabControlPanel5 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Finanzen As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Finanzen1 As DPM2016.Finanzen
Friend WithEvents SuperTabControlPanel6 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Recall As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents Recall1 As Recall
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents tsbtnVTX As ToolStripButton
Friend WithEvents btnVTX As Button
End Class

3989
DPM2016/Patient/Patient.resx
View File

File diff suppressed because it is too large Load Diff

63
DPM2016/Patient/Patient.vb
View File

@@ -12,7 +12,9 @@
Me.PatientAbrechnung1.PatientNr = value
Me.Behandlung1.PatientNr = value
Me.Finanzen1.Patientnr = value
Me.Recall1.Patientnr = value
Globals.OnLoad = False
End Set
End Property
@@ -53,7 +55,14 @@
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.tsbtnfirst_Click(sender, e)
Dim db As New clsDB
If db.Get_Option(9999) = "" Then
Me.tsbtnVTX.Visible = False
Me.btnVTX.Visible = False
Else
Me.tsbtnVTX.Visible = True
Me.btnVTX.Visible = True
End If
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
@@ -167,5 +176,57 @@
End If
End Sub
Private Sub evh_Recall_Anzeigen(Datum As Date, patient As Integer, behandler As Integer) Handles evh.Recall_Anzeigen
If Me.PatientNr = patient Then
SuperTabControl1.SelectNextTab()
SuperTabControl1.SelectNextTab()
Me.Recall1.SetValues(Datum, patient, behandler)
End If
End Sub
Private Sub tsbtnVTX_Click(sender As Object, e As EventArgs) Handles tsbtnVTX.Click
Dim db As New clsDB
db.Get_Tabledata("Privat", "where nrprivat=" + Me.PatientNr.ToString)
If db.dsDaten.Tables(0).Rows(0).Item("Name") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Vorname") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Strasse") = "" Or db.dsDaten.Tables(0).Rows(0).Item("PLZ") = "" Or db.dsDaten.Tables(0).Rows(0).Item("Ort") = "" Or db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString = "" Then
MsgBox("Name, Vorname, Strasse, PLZ, Ort und Geburtsdatum sind Pflichtfelder. Bitte Daten korrigieren.")
db.Dispose()
Exit Sub
End If
Dim vddsmodule As String = db.Get_Option(9999)
Dim vdspath As String = db.Get_Option(9998) + "\"
Dim filename As String = vdspath + Me.PatientNr.ToString + ".ini"
FileOpen(1, filename, OpenMode.Output)
PrintLine(1, "[Patient]")
PrintLine(1, "PVS=DPM")
PrintLine(1, "BVS=VixWinPRO_Imaging")
PrintLine(1, "PATID=" + Me.PatientNr.ToString)
PrintLine(1, "LASTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("name").ToString)
PrintLine(1, "FIRSTNAME=" + db.dsDaten.Tables(0).Rows(0).Item("vorname").ToString)
PrintLine(1, "BIRTYDAY=" + Format(db.dsDaten.Tables(0).Rows(0).Item("gebdat").ToString, "yyyyMMdd"))
If db.dsDaten.Tables(0).Rows(0).Item("geschlecht").ToString = "1" Then
PrintLine(1, "SEX=F")
Else
PrintLine(1, "SEX=M")
End If
PrintLine(1, "STREET=" + db.dsDaten.Tables(0).Rows(0).Item("strasse").ToString)
PrintLine(1, "CITY=" + db.dsDaten.Tables(0).Rows(0).Item("Ort").ToString)
PrintLine(1, "ZIP=" + db.dsDaten.Tables(0).Rows(0).Item("plz").ToString)
PrintLine(1, "READY=0")
PrintLine(1, "ERRORLEVEL=0")
PrintLine(1, "ERRORTEXT=0")
FileClose(1)
Try
MsgBox(vddsmodule + " " + filename)
Process.Start(vddsmodule, filename)
Catch
End Try
End Sub
Private Sub tnVTX_Click(sender As Object, e As EventArgs) Handles btnVTX.Click
Me.tsbtnVTX_Click(sender, e)
End Sub
End Class

86
DPM2016/Patient/PatientAbrechnung.Designer.vb generated
View File

@@ -116,10 +116,10 @@ Partial Class PatientAbrechnung
Me.cbboxnrzahnarzt.Displaymember = Nothing
Me.cbboxnrzahnarzt.Location = New System.Drawing.Point(122, 305)
Me.cbboxnrzahnarzt.Name = "cbboxnrzahnarzt"
Me.cbboxnrzahnarzt.SelectedValue = Nothing
Me.cbboxnrzahnarzt.Size = New System.Drawing.Size(208, 22)
Me.cbboxnrzahnarzt.TabIndex = 45
Me.cbboxnrzahnarzt.Size = New System.Drawing.Size(208, 21)
Me.cbboxnrzahnarzt.TabIndex = 11
Me.cbboxnrzahnarzt.Table = Nothing
Me.cbboxnrzahnarzt.TableAlias = ""
Me.cbboxnrzahnarzt.Valuemember = Nothing
'
'cbboxnrhausarzt
@@ -128,10 +128,10 @@ Partial Class PatientAbrechnung
Me.cbboxnrhausarzt.Displaymember = Nothing
Me.cbboxnrhausarzt.Location = New System.Drawing.Point(123, 277)
Me.cbboxnrhausarzt.Name = "cbboxnrhausarzt"
Me.cbboxnrhausarzt.SelectedValue = Nothing
Me.cbboxnrhausarzt.Size = New System.Drawing.Size(208, 22)
Me.cbboxnrhausarzt.TabIndex = 44
Me.cbboxnrhausarzt.Size = New System.Drawing.Size(208, 21)
Me.cbboxnrhausarzt.TabIndex = 10
Me.cbboxnrhausarzt.Table = Nothing
Me.cbboxnrhausarzt.TableAlias = ""
Me.cbboxnrhausarzt.Valuemember = Nothing
'
'CBBOXNRFs
@@ -140,10 +140,10 @@ Partial Class PatientAbrechnung
Me.CBBOXNRFs.Displaymember = Nothing
Me.CBBOXNRFs.Location = New System.Drawing.Point(123, 223)
Me.CBBOXNRFs.Name = "CBBOXNRFs"
Me.CBBOXNRFs.SelectedValue = Nothing
Me.CBBOXNRFs.Size = New System.Drawing.Size(208, 22)
Me.CBBOXNRFs.TabIndex = 43
Me.CBBOXNRFs.Size = New System.Drawing.Size(208, 21)
Me.CBBOXNRFs.TabIndex = 8
Me.CBBOXNRFs.Table = Nothing
Me.CBBOXNRFs.TableAlias = ""
Me.CBBOXNRFs.Valuemember = Nothing
'
'CBBOXNRIV
@@ -152,10 +152,10 @@ Partial Class PatientAbrechnung
Me.CBBOXNRIV.Displaymember = Nothing
Me.CBBOXNRIV.Location = New System.Drawing.Point(123, 176)
Me.CBBOXNRIV.Name = "CBBOXNRIV"
Me.CBBOXNRIV.SelectedValue = Nothing
Me.CBBOXNRIV.Size = New System.Drawing.Size(208, 22)
Me.CBBOXNRIV.TabIndex = 42
Me.CBBOXNRIV.Size = New System.Drawing.Size(208, 21)
Me.CBBOXNRIV.TabIndex = 6
Me.CBBOXNRIV.Table = Nothing
Me.CBBOXNRIV.TableAlias = ""
Me.CBBOXNRIV.Valuemember = Nothing
'
'cbboxNRKK
@@ -164,10 +164,10 @@ Partial Class PatientAbrechnung
Me.cbboxNRKK.Displaymember = Nothing
Me.cbboxNRKK.Location = New System.Drawing.Point(123, 122)
Me.cbboxNRKK.Name = "cbboxNRKK"
Me.cbboxNRKK.SelectedValue = Nothing
Me.cbboxNRKK.Size = New System.Drawing.Size(208, 22)
Me.cbboxNRKK.TabIndex = 41
Me.cbboxNRKK.Size = New System.Drawing.Size(208, 21)
Me.cbboxNRKK.TabIndex = 4
Me.cbboxNRKK.Table = Nothing
Me.cbboxNRKK.TableAlias = ""
Me.cbboxNRKK.Valuemember = Nothing
'
'cbboxNRVS
@@ -176,10 +176,10 @@ Partial Class PatientAbrechnung
Me.cbboxNRVS.Displaymember = Nothing
Me.cbboxNRVS.Location = New System.Drawing.Point(123, 70)
Me.cbboxNRVS.Name = "cbboxNRVS"
Me.cbboxNRVS.SelectedValue = Nothing
Me.cbboxNRVS.Size = New System.Drawing.Size(208, 22)
Me.cbboxNRVS.TabIndex = 40
Me.cbboxNRVS.Size = New System.Drawing.Size(208, 21)
Me.cbboxNRVS.TabIndex = 2
Me.cbboxNRVS.Table = Nothing
Me.cbboxNRVS.TableAlias = ""
Me.cbboxNRVS.Valuemember = Nothing
'
'cbboxNrGarant
@@ -188,10 +188,10 @@ Partial Class PatientAbrechnung
Me.cbboxNrGarant.Displaymember = Nothing
Me.cbboxNrGarant.Location = New System.Drawing.Point(123, 42)
Me.cbboxNrGarant.Name = "cbboxNrGarant"
Me.cbboxNrGarant.SelectedValue = Nothing
Me.cbboxNrGarant.Size = New System.Drawing.Size(208, 22)
Me.cbboxNrGarant.TabIndex = 39
Me.cbboxNrGarant.Size = New System.Drawing.Size(208, 21)
Me.cbboxNrGarant.TabIndex = 1
Me.cbboxNrGarant.Table = Nothing
Me.cbboxNrGarant.TableAlias = ""
Me.cbboxNrGarant.Valuemember = Nothing
'
'cbboxNrGesVertreter
@@ -200,10 +200,10 @@ Partial Class PatientAbrechnung
Me.cbboxNrGesVertreter.Displaymember = Nothing
Me.cbboxNrGesVertreter.Location = New System.Drawing.Point(123, 14)
Me.cbboxNrGesVertreter.Name = "cbboxNrGesVertreter"
Me.cbboxNrGesVertreter.SelectedValue = Nothing
Me.cbboxNrGesVertreter.Size = New System.Drawing.Size(208, 22)
Me.cbboxNrGesVertreter.TabIndex = 38
Me.cbboxNrGesVertreter.Size = New System.Drawing.Size(208, 21)
Me.cbboxNrGesVertreter.TabIndex = 0
Me.cbboxNrGesVertreter.Table = Nothing
Me.cbboxNrGesVertreter.TableAlias = ""
Me.cbboxNrGesVertreter.Valuemember = Nothing
'
'Label30
@@ -247,7 +247,7 @@ Partial Class PatientAbrechnung
Me.txtFSNR.Location = New System.Drawing.Point(123, 251)
Me.txtFSNR.Name = "txtFSNR"
Me.txtFSNR.Size = New System.Drawing.Size(208, 20)
Me.txtFSNR.TabIndex = 31
Me.txtFSNR.TabIndex = 9
'
'Label25
'
@@ -272,7 +272,7 @@ Partial Class PatientAbrechnung
Me.txtIVNR.Location = New System.Drawing.Point(123, 201)
Me.txtIVNR.Name = "txtIVNR"
Me.txtIVNR.Size = New System.Drawing.Size(208, 20)
Me.txtIVNR.TabIndex = 27
Me.txtIVNR.TabIndex = 7
'
'Label24
'
@@ -288,7 +288,7 @@ Partial Class PatientAbrechnung
Me.txtKKNR.Location = New System.Drawing.Point(123, 150)
Me.txtKKNR.Name = "txtKKNR"
Me.txtKKNR.Size = New System.Drawing.Size(208, 20)
Me.txtKKNR.TabIndex = 24
Me.txtKKNR.TabIndex = 5
'
'Label23
'
@@ -313,7 +313,7 @@ Partial Class PatientAbrechnung
Me.txtVSNR.Location = New System.Drawing.Point(123, 95)
Me.txtVSNR.Name = "txtVSNR"
Me.txtVSNR.Size = New System.Drawing.Size(208, 20)
Me.txtVSNR.TabIndex = 7
Me.txtVSNR.TabIndex = 3
'
'Label19
'
@@ -398,10 +398,10 @@ Partial Class PatientAbrechnung
Me.cbboxnrbehandler.Displaymember = Nothing
Me.cbboxnrbehandler.Location = New System.Drawing.Point(82, 18)
Me.cbboxnrbehandler.Name = "cbboxnrbehandler"
Me.cbboxnrbehandler.SelectedValue = Nothing
Me.cbboxnrbehandler.Size = New System.Drawing.Size(160, 22)
Me.cbboxnrbehandler.TabIndex = 18
Me.cbboxnrbehandler.Size = New System.Drawing.Size(160, 21)
Me.cbboxnrbehandler.TabIndex = 0
Me.cbboxnrbehandler.Table = Nothing
Me.cbboxnrbehandler.TableAlias = ""
Me.cbboxnrbehandler.Valuemember = Nothing
'
'cbboxzazRecallTyp
@@ -410,10 +410,10 @@ Partial Class PatientAbrechnung
Me.cbboxzazRecallTyp.Displaymember = Nothing
Me.cbboxzazRecallTyp.Location = New System.Drawing.Point(82, 72)
Me.cbboxzazRecallTyp.Name = "cbboxzazRecallTyp"
Me.cbboxzazRecallTyp.SelectedValue = Nothing
Me.cbboxzazRecallTyp.Size = New System.Drawing.Size(160, 22)
Me.cbboxzazRecallTyp.TabIndex = 9
Me.cbboxzazRecallTyp.Size = New System.Drawing.Size(160, 21)
Me.cbboxzazRecallTyp.TabIndex = 2
Me.cbboxzazRecallTyp.Table = Nothing
Me.cbboxzazRecallTyp.TableAlias = ""
Me.cbboxzazRecallTyp.Valuemember = Nothing
'
'txtzazRecallBemerkung
@@ -422,7 +422,7 @@ Partial Class PatientAbrechnung
Me.txtzazRecallBemerkung.Multiline = True
Me.txtzazRecallBemerkung.Name = "txtzazRecallBemerkung"
Me.txtzazRecallBemerkung.Size = New System.Drawing.Size(161, 49)
Me.txtzazRecallBemerkung.TabIndex = 17
Me.txtzazRecallBemerkung.TabIndex = 4
'
'Label11
'
@@ -447,7 +447,7 @@ Partial Class PatientAbrechnung
Me.txtZAZRecallfixmonat.Location = New System.Drawing.Point(82, 99)
Me.txtZAZRecallfixmonat.Name = "txtZAZRecallfixmonat"
Me.txtZAZRecallfixmonat.Size = New System.Drawing.Size(58, 20)
Me.txtZAZRecallfixmonat.TabIndex = 14
Me.txtZAZRecallfixmonat.TabIndex = 3
'
'Label9
'
@@ -473,7 +473,7 @@ Partial Class PatientAbrechnung
Me.txtzazrecall.Location = New System.Drawing.Point(82, 46)
Me.txtzazrecall.Name = "txtzazrecall"
Me.txtzazrecall.Size = New System.Drawing.Size(58, 20)
Me.txtzazrecall.TabIndex = 10
Me.txtzazrecall.TabIndex = 1
'
'Label8
'
@@ -516,10 +516,10 @@ Partial Class PatientAbrechnung
Me.cbboxESTyp.Displaymember = Nothing
Me.cbboxESTyp.Location = New System.Drawing.Point(84, 72)
Me.cbboxESTyp.Name = "cbboxESTyp"
Me.cbboxESTyp.SelectedValue = Nothing
Me.cbboxESTyp.Size = New System.Drawing.Size(160, 22)
Me.cbboxESTyp.TabIndex = 8
Me.cbboxESTyp.Size = New System.Drawing.Size(160, 21)
Me.cbboxESTyp.TabIndex = 2
Me.cbboxESTyp.Table = Nothing
Me.cbboxESTyp.TableAlias = ""
Me.cbboxESTyp.Valuemember = Nothing
'
'cbboxNrRGTyp
@@ -528,10 +528,10 @@ Partial Class PatientAbrechnung
Me.cbboxNrRGTyp.Displaymember = Nothing
Me.cbboxNrRGTyp.Location = New System.Drawing.Point(83, 14)
Me.cbboxNrRGTyp.Name = "cbboxNrRGTyp"
Me.cbboxNrRGTyp.SelectedValue = Nothing
Me.cbboxNrRGTyp.Size = New System.Drawing.Size(160, 22)
Me.cbboxNrRGTyp.TabIndex = 7
Me.cbboxNrRGTyp.Size = New System.Drawing.Size(160, 21)
Me.cbboxNrRGTyp.TabIndex = 0
Me.cbboxNrRGTyp.Table = Nothing
Me.cbboxNrRGTyp.TableAlias = ""
Me.cbboxNrRGTyp.Valuemember = Nothing
'
'Label6

4
DPM2016/Patient/PatientAbrechnung.resx
View File

@@ -112,9 +112,9 @@
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

169
DPM2016/Patient/PatientDetails.Designer.vb generated
View File

@@ -83,6 +83,11 @@ Partial Class PatientDetails
Me.cbboxStatus = New DPM2016.MyCombobox()
Me.cbboxNRTitel = New DPM2016.MyCombobox()
Me.cbboxNrAnrede = New DPM2016.MyCombobox()
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.SuspendLayout()
'
'txtnrprivat
@@ -93,7 +98,7 @@ Partial Class PatientDetails
Me.txtnrprivat.ReadOnly = True
Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.txtnrprivat.Size = New System.Drawing.Size(48, 20)
Me.txtnrprivat.TabIndex = 100
Me.txtnrprivat.TabIndex = 0
'
'lblNr
'
@@ -184,7 +189,7 @@ Partial Class PatientDetails
'
Me.Label15.AutoSize = True
Me.Label15.BackColor = System.Drawing.Color.Transparent
Me.Label15.Location = New System.Drawing.Point(272, 254)
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
@@ -194,7 +199,7 @@ Partial Class PatientDetails
'
Me.Label14.AutoSize = True
Me.Label14.BackColor = System.Drawing.Color.Transparent
Me.Label14.Location = New System.Drawing.Point(272, 230)
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
@@ -217,21 +222,21 @@ Partial Class PatientDetails
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 = 26
Me.chklbAdresstyp.TabIndex = 30
'
'txtBemerkung
'
Me.txtBemerkung.Location = New System.Drawing.Point(275, 301)
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 = 25
Me.txtBemerkung.TabIndex = 29
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Location = New System.Drawing.Point(272, 281)
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
@@ -241,7 +246,7 @@ Partial Class PatientDetails
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Location = New System.Drawing.Point(272, 200)
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
@@ -249,23 +254,23 @@ Partial Class PatientDetails
'
'txtFaxG
'
Me.txtFaxG.Location = New System.Drawing.Point(342, 197)
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 = 22
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 = 2
Me.txtName.TabIndex = 3
'
'lbltelg
'
Me.lbltelg.AutoSize = True
Me.lbltelg.BackColor = System.Drawing.Color.Transparent
Me.lbltelg.Location = New System.Drawing.Point(272, 174)
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
@@ -283,17 +288,17 @@ Partial Class PatientDetails
'
'txtTelg
'
Me.txtTelg.Location = New System.Drawing.Point(342, 171)
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 = 21
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 = 3
Me.txtVorname.TabIndex = 4
'
'lblahv
'
@@ -310,7 +315,7 @@ Partial Class PatientDetails
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 = 20
Me.txtahvnr.TabIndex = 22
'
'lblVorname
'
@@ -337,14 +342,14 @@ Partial Class PatientDetails
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 = 19
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 = 4
Me.txtCOAdresse.TabIndex = 5
'
'lblArbeitgeber
'
@@ -371,7 +376,7 @@ Partial Class PatientDetails
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 = 5
Me.txtStrasse.TabIndex = 6
'
'lblSprache
'
@@ -398,7 +403,7 @@ Partial Class PatientDetails
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 = 6
Me.txtPLZ.TabIndex = 7
'
'lblStatus
'
@@ -424,7 +429,7 @@ Partial Class PatientDetails
'
Me.lblBriefanrede.AutoSize = True
Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent
Me.lblBriefanrede.Location = New System.Drawing.Point(4, 411)
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
@@ -435,20 +440,20 @@ Partial Class PatientDetails
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 = 7
Me.txtOrt.TabIndex = 8
'
'txtBriefanrede
'
Me.txtBriefanrede.Location = New System.Drawing.Point(74, 408)
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 = 15
Me.txtBriefanrede.TabIndex = 17
'
'lblGebDat
'
Me.lblGebDat.AutoSize = True
Me.lblGebDat.BackColor = System.Drawing.Color.Transparent
Me.lblGebDat.Location = New System.Drawing.Point(4, 229)
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
@@ -458,7 +463,7 @@ Partial Class PatientDetails
'
Me.lblGeschlecht.AutoSize = True
Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent
Me.lblGeschlecht.Location = New System.Drawing.Point(4, 384)
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
@@ -466,16 +471,16 @@ Partial Class PatientDetails
'
'txttelp
'
Me.txttelp.Location = New System.Drawing.Point(74, 251)
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 = 9
Me.txttelp.TabIndex = 11
'
'lblInternet
'
Me.lblInternet.AutoSize = True
Me.lblInternet.BackColor = System.Drawing.Color.Transparent
Me.lblInternet.Location = New System.Drawing.Point(4, 358)
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
@@ -485,7 +490,7 @@ Partial Class PatientDetails
'
Me.lblTelefon.AutoSize = True
Me.lblTelefon.BackColor = System.Drawing.Color.Transparent
Me.lblTelefon.Location = New System.Drawing.Point(4, 254)
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
@@ -493,23 +498,23 @@ Partial Class PatientDetails
'
'txtWeb
'
Me.txtWeb.Location = New System.Drawing.Point(74, 355)
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 = 13
Me.txtWeb.TabIndex = 15
'
'txtFaxp
'
Me.txtFaxp.Location = New System.Drawing.Point(74, 277)
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 = 10
Me.txtFaxp.TabIndex = 12
'
'lblemail
'
Me.lblemail.AutoSize = True
Me.lblemail.BackColor = System.Drawing.Color.Transparent
Me.lblemail.Location = New System.Drawing.Point(4, 332)
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
@@ -519,7 +524,7 @@ Partial Class PatientDetails
'
Me.lblFaxP.AutoSize = True
Me.lblFaxP.BackColor = System.Drawing.Color.Transparent
Me.lblFaxP.Location = New System.Drawing.Point(4, 280)
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
@@ -527,23 +532,23 @@ Partial Class PatientDetails
'
'txtE_Mail
'
Me.txtE_Mail.Location = New System.Drawing.Point(74, 329)
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 = 12
Me.txtE_Mail.TabIndex = 14
'
'txtNatel
'
Me.txtNatel.Location = New System.Drawing.Point(74, 303)
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 = 11
Me.txtNatel.TabIndex = 13
'
'lblMobile
'
Me.lblMobile.AutoSize = True
Me.lblMobile.BackColor = System.Drawing.Color.Transparent
Me.lblMobile.Location = New System.Drawing.Point(4, 306)
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
@@ -552,26 +557,26 @@ Partial Class PatientDetails
'dtgebdat
'
Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgebdat.Location = New System.Drawing.Point(74, 223)
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 = 8
Me.dtgebdat.TabIndex = 10
'
'dtGueltigab
'
Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtGueltigab.Location = New System.Drawing.Point(342, 225)
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 = 23
Me.dtGueltigab.TabIndex = 27
'
'dtgueltigbis
'
Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtgueltigbis.Location = New System.Drawing.Point(342, 251)
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 = 24
Me.dtgueltigbis.TabIndex = 28
'
'cbboxNRArbeitgeber
'
@@ -580,7 +585,7 @@ Partial Class PatientDetails
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 = 18
Me.cbboxNRArbeitgeber.TabIndex = 20
Me.cbboxNRArbeitgeber.Table = Nothing
Me.cbboxNRArbeitgeber.TableAlias = ""
Me.cbboxNRArbeitgeber.Valuemember = Nothing
@@ -589,10 +594,10 @@ Partial Class PatientDetails
'
Me.cbboxNrGeschlecht.Dataselection = Nothing
Me.cbboxNrGeschlecht.Displaymember = Nothing
Me.cbboxNrGeschlecht.Location = New System.Drawing.Point(74, 381)
Me.cbboxNrGeschlecht.Location = New System.Drawing.Point(74, 405)
Me.cbboxNrGeschlecht.Name = "cbboxNrGeschlecht"
Me.cbboxNrGeschlecht.Size = New System.Drawing.Size(162, 21)
Me.cbboxNrGeschlecht.TabIndex = 14
Me.cbboxNrGeschlecht.TabIndex = 16
Me.cbboxNrGeschlecht.Table = Nothing
Me.cbboxNrGeschlecht.TableAlias = ""
Me.cbboxNrGeschlecht.Valuemember = Nothing
@@ -604,7 +609,7 @@ Partial Class PatientDetails
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 = 17
Me.cbboxSprache.TabIndex = 19
Me.cbboxSprache.Table = Nothing
Me.cbboxSprache.TableAlias = ""
Me.cbboxSprache.Valuemember = Nothing
@@ -616,7 +621,7 @@ Partial Class PatientDetails
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 = 16
Me.cbboxStatus.TabIndex = 18
Me.cbboxStatus.Table = Nothing
Me.cbboxStatus.TableAlias = ""
Me.cbboxStatus.Valuemember = Nothing
@@ -628,7 +633,7 @@ Partial Class PatientDetails
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 = 1
Me.cbboxNRTitel.TabIndex = 2
Me.cbboxNRTitel.Table = Nothing
Me.cbboxNRTitel.TableAlias = ""
Me.cbboxNRTitel.Valuemember = Nothing
@@ -640,15 +645,63 @@ Partial Class PatientDetails
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 = 0
Me.cbboxNrAnrede.TabIndex = 1
Me.cbboxNrAnrede.Table = Nothing
Me.cbboxNrAnrede.TableAlias = ""
Me.cbboxNrAnrede.Valuemember = Nothing
'
'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
'
'PatientDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
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.cbboxNrGeschlecht)
Me.Controls.Add(Me.cbboxSprache)
@@ -711,7 +764,7 @@ Partial Class PatientDetails
Me.Controls.Add(Me.lblAnrede)
Me.Controls.Add(Me.lblTitel)
Me.Name = "PatientDetails"
Me.Size = New System.Drawing.Size(737, 439)
Me.Size = New System.Drawing.Size(737, 461)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -777,5 +830,9 @@ Partial Class PatientDetails
Friend WithEvents cbboxSprache As DPM2016.MyCombobox
Friend WithEvents cbboxNrGeschlecht 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
End Class

28
DPM2016/Patient/PatientDetails.vb
View File

@@ -16,6 +16,7 @@ Public Class PatientDetails
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)
@@ -266,6 +267,19 @@ Public Class PatientDetails
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
@@ -358,6 +372,16 @@ Public Class PatientDetails
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
@@ -439,8 +463,8 @@ Public Class PatientDetails
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 Me.txtOrt.Text = IntTables.GetOrt(Me.txtPLZ.Text)
If Me.txtOrt.Text = "" Then IntTables.Get_Ort_Kantton(Me.txtPLZ.Text, Me.txtOrt, Me.cbtxtboxKanton)
End Sub
End Class