Public Function HDP_HoleAktuellenPatient(ByRef Patnr As Long, _
                                         ByRef Patnum As String) As Boolean
Dim strErg As String
Dim lng As Long
Dim i As Integer
Dim Flag As Integer
Dim c As String
Dim sPatnum As String
Dim SQL As String
Dim RS As Recordset
 
 
 
 
HDP_HoleAktuellenPatient = False
 
strErg = Space$(300)
Call [color=red]GetPrivateProfileString[/color]("PRDB", _
  "PRDB_LETZTEPATNUM", "", strErg, 255, msHDPFile)
strErg = Trim$(strErg)
sPatnum = ""
For i = 1 To Len(strErg)
    c = Mid(strErg, i, 1)
    If (c >= "0") Then sPatnum = sPatnum & c
Next i
 
If (sPatnum = "") Then Exit Function
If (iFlagDBS) Then Exit Function
On Error GoTo fehler
SQL = "select patnr,patnum from patn_s where patnum = '" & sPatnum & "'"
Set RS = mDBSHDP.OpenRecordset(SQL, dbOpenSnapshot)
RS.MoveFirst
Do Until RS.EOF
    Patnr = RS!Patnr
    Patnum = RS!Patnum
    RS.MoveNext
Loop
RS.Close
If (Patnr = 0) Then Exit Function
HDP_HoleAktuellenPatient = True
Exit Function
fehler:
    Resume Next
End Function