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

Update 20230215

Browse Source
This commit is contained in:
Stefan Hutter
2023-02-15 21:30:27 +01:00
parent 35df876d21
commit e83b2e6f35
179 changed files with 7274 additions and 7173 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

8616
DPM2016/Patient/Patient.resx
View File

File diff suppressed because it is too large Load Diff

722
DPM2016/Patient/Patient.vb
View File

@@ -1,360 +1,364 @@
Public Class Patient
Dim m_nrpatient As Integer
Property PatientNr As Integer
Get
Return m_nrpatient
End Get
Set(value As Integer)
Cursor = Cursors.WaitCursor
Globals.OnLoad = True
m_nrpatient = 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
Me.Recall1.Patientnr = value
Me.ClsDokumente1.Patientnr = value
Globals.OnLoad = False
Cursor = Cursors.Default
End Set
End Property
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If detail_has_changes() = False Then
e.Cancel = True
End If
End Sub
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
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
Select Case qres
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Return True
Case MsgBoxResult.Yes
save_data()
Return True
End Select
Else
Return True
End If
End Function
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case Globals.Funktionsstufe
Case 2
'Me.Behandlungen.Visible = False
'Me.Finanzen.Visible = False
End Select
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
End If
' 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
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
' Globals.sec.Set_Form_Security(Me)
Catch
End Try
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
save_data()
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
If e.KeyCode = Keys.Enter Then
Dim db As New clsDB
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
If nrprivat <> -1 Then Me.PatientNr = nrprivat
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refresh_Grid()
End If
If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then
Me.Krankengeschichte1.Patientnr = Me.PatientNr
End If
db.Dispose()
End If
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
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
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub save_data()
evh.Fire_PatSaved(Me.PatientNr)
End Sub
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
If Me.PatientNr = Nr Then
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
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat")
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
db.Get_Tabledata("Patient", "", db.Get_SQL(10))
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
If detail_has_changes() = False Then Return
Dim xx As Integer = 0
Dim db As New clsDB
Try
Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort>='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name, vorname, ort, nrprivat")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr
End Try
db.Dispose()
Me.Cursor = Cursors.Default
End Sub
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
If detail_has_changes() = False Then Return
Dim xx As Integer = 0
Dim db As New clsDB
Try
Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort<='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name desc, vorname desc, ort desc , nrprivat desc")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr
End Try
db.Dispose()
Me.Cursor = Cursors.Default
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Privat")
db.Get_Tabledata("Privat", " where nrprivat=0")
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
Next
db.dsDaten.Tables(0).Rows(0).Item(0) = newkey
db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True
db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
Me.PatientNr = newkey
db.Dispose()
End Sub
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or SuperTabControl1.SelectedTab.Name = "Journal" Then
Me.Krankengeschichte1.Patientnr = Me.PatientNr
End If
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
Me.Finanzen1.Refresh_Data()
End If
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refreshdata()
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 evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen
If Me.PatientNr = patient Then
SuperTabControl1.SelectNextTab()
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
Private Sub Patient_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
Me.Krankengeschichte1.Refresh_KG()
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
Create_temp_form()
End Sub
Public Function Create_temp_form()
Exit Function
Try
Dim f As New frmdummy
f.Width = 0
f.Height = 0
f.Visible = False
f.MdiParent = Me.MdiParent
f.Show()
f.Close()
f = Nothing
Catch
End Try
End Function
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
End Sub
Public Class Patient
Dim m_nrpatient As Integer
Property PatientNr As Integer
Get
Return m_nrpatient
End Get
Set(value As Integer)
Cursor = Cursors.WaitCursor
Globals.OnLoad = True
m_nrpatient = 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
Me.Recall1.Patientnr = value
Me.ClsDokumente1.Patientnr = value
Globals.OnLoad = False
Cursor = Cursors.Default
End Set
End Property
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs)
Me.Close()
End Sub
Private Sub Patient_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If detail_has_changes() = False Then
e.Cancel = True
End If
End Sub
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
qres = MsgBox("Daten wurden verändert. Änderungen speichern?", vbYesNoCancel + vbQuestion)
Select Case qres
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Return True
Case MsgBoxResult.Yes
save_data()
Return True
End Select
Else
Return True
End If
End Function
Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case Globals.Funktionsstufe
Case 2
'Me.Behandlungen.Visible = False
'Me.Finanzen.Visible = False
End Select
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs("Dokumente").Visible = False
End If
' 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
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
' Globals.sec.Set_Form_Security(Me)
Catch
End Try
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
save_data()
End Sub
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
Private Sub tstxtsuche_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtsuche.KeyDown
If e.KeyCode = Keys.Enter Then
Dim db As New clsDB
Dim nrprivat As Integer = db.Search("Patient", Me.tstxtsuche.Text)
If nrprivat <> -1 Then Me.PatientNr = nrprivat
If Me.SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.Refresh_Grid()
End If
If Me.SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or Me.SuperTabControl1.SelectedTab.Name = "Journal" Then
Me.Krankengeschichte1.Patientnr = Me.PatientNr
End If
db.Dispose()
End If
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
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
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub save_data()
evh.Fire_PatSaved(Me.PatientNr)
End Sub
Private Sub evh_PatSaved(Nr As Integer) Handles evh.PatSaved
If Me.PatientNr = Nr Then
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
Public Sub tsbtnfirst_Click(sender As Object, e As EventArgs) Handles tsbtnfirst.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where nrprivat>0 order by name, vorname, ort,nrprivat")
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnlast_Click(sender As Object, e As EventArgs) Handles tsbtnlast.Click
If detail_has_changes() = False Then Return
Dim db As New clsDB
db.Get_Tabledata("Patient", "", db.Get_SQL(10))
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Dispose()
End Sub
Private Sub tsbtnnext_Click(sender As Object, e As EventArgs) Handles tsbtnnext.Click
If detail_has_changes() = False Then Return
Dim xx As Integer = 0
Dim db As New clsDB
Try
Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort>='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name, vorname, ort, nrprivat")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr
End Try
db.Dispose()
Me.Cursor = Cursors.Default
End Sub
Private Sub tsbtprev_Click(sender As Object, e As EventArgs) Handles tsbtprev.Click
If detail_has_changes() = False Then Return
Dim xx As Integer = 0
Dim db As New clsDB
Try
Me.Cursor = Cursors.WaitCursor
db.Get_Tabledata("Patient", "", "select * from privat where nrprivat=" + Me.PatientNr.ToString)
Dim searchstring As String = ""
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Name").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("Vorname").ToString
searchstring = searchstring + db.dsDaten.Tables(0).Rows(0).Item("ort").ToString
db.Get_Tabledata("Patient", "", "Select top 1 * from privat where name <>'' and nrprivat>0 and name+vorname+ort<='" + searchstring + "' and nrprivat<>" + Me.PatientNr.ToString + " order by name desc, vorname desc, ort desc , nrprivat desc")
' db.Get_Tabledata("Patient", "", db.Get_SQL(11), Me.m_nrpatient.ToString)
Me.PatientNr = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
'MsgBox(ex.Message)
Me.PatientNr = Me.PatientNr
End Try
db.Dispose()
Me.Cursor = Cursors.Default
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim db As New clsDB
Dim newkey As Integer = db.Get_DBKey("Privat")
db.Get_Tabledata("Privat", " where nrprivat=0")
Dim r As DataRow
r = db.dsDaten.Tables(0).NewRow
For Each c As DataColumn In db.dsDaten.Tables(0).Columns
r.Item(c) = db.dsDaten.Tables(0).Rows(0).Item(c)
Next
db.dsDaten.Tables(0).Rows(0).Item(0) = newkey
db.dsDaten.Tables(0).Rows(0).Item("Erstellt_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.dsDaten.Tables(0).Rows(0).Item("aktiv") = True
db.dsDaten.Tables(0).Rows(0).Item("Gueltigab") = Now
db.dsDaten.Tables(0).Rows(0).Item("GEBDAT") = Now
db.dsDaten.Tables(0).Rows.Add(r)
db.Update_Data()
Me.PatientNr = newkey
db.Dispose()
End Sub
Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
If SuperTabControl1.SelectedTab.Name = "Krankengeschichte" Or SuperTabControl1.SelectedTab.Name = "Journal" Then
Me.Krankengeschichte1.Patientnr = Me.PatientNr
End If
If SuperTabControl1.SelectedTab.Name = "Finanzen" Then
Me.Finanzen1.Refresh_Data()
End If
If SuperTabControl1.SelectedTab.Name = "Dokumente" Then
Me.ClsDokumente1.Patientnr = Me.PatientNr
Me.ClsDokumente1.refreshdata()
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 evh_Finanzen_Anzeigen(patient As Integer) Handles evh.Finanzen_Anzeigen
If Me.PatientNr = patient Then
SuperTabControl1.SelectNextTab()
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
Private Sub Patient_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Label1.Left = Me.Width / 2 - 8 - Me.Label1.Width / 2
Me.Krankengeschichte1.Refresh_KG()
End Sub
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Private Sub Patient_TextChanged(sender As Object, e As EventArgs) Handles MyBase.TextChanged
Create_temp_form()
End Sub
Public Function Create_temp_form()
Exit Function
Try
Dim f As New frmdummy
f.Width = 0
f.Height = 0
f.Visible = False
f.MdiParent = Me.MdiParent
f.Show()
f.Close()
f = Nothing
Catch
End Try
End Function
Private Sub tstxtsuche_Click(sender As Object, e As EventArgs) Handles tstxtsuche.Click
End Sub
Private Sub Finanzen1_Load(sender As Object, e As EventArgs) Handles Finanzen1.Load
End Sub
End Class