74 lines
2.2 KiB
Plaintext
74 lines
2.2 KiB
Plaintext
' GetWinLineUserData(UserID: Int)
|
|
' ----------------------------------------------------------------------------
|
|
' Holt anhand der UserID Loginname, Namen und Durchwahl
|
|
' aus der Systemtabelle CWLSYSTEM.T002SRV
|
|
'
|
|
' Aus den Daten wird ein String aufgebaut, der dann in Meldungen
|
|
' verwendet werden kann.
|
|
'
|
|
' Returns: GetWinLineUserData : String
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 26.04.2021 / MP
|
|
' Version Date / Editor: 26.04.2021 / MP
|
|
' Version Number: 3.0.0.3
|
|
|
|
Function GetWinLineUserData(UserID)
|
|
|
|
Err.Clear
|
|
GetWinLineUserData = ""
|
|
|
|
If Len(UserID) <= 0 Then
|
|
If DEBUG_ON = True Then
|
|
Msgbox "Parameter UserID ist leer!", vbExclamation, DEFAULT_TITLE & " - GetWinLineUserData"
|
|
End If
|
|
Exit Function
|
|
End If
|
|
|
|
Set Conn = CWLCompany.GetSystemConnection(cwlSystemServerSRV)
|
|
|
|
SQL = "SELECT TOP 1 c001, c026, c028 FROM T002SRV (NOLOCK) "
|
|
SQL = SQL & "WHERE c000 = " & UserID
|
|
|
|
Set Result = Conn.Select(SQL)
|
|
|
|
If DEBUG_ON = True Then
|
|
AddDebugLine "Querying for Original Line Number.. " & vbNewline
|
|
AddDebugLine "Result Columns: " & Result
|
|
AddDebugLine "Result Rows: " & Result.RowCount
|
|
AddDebugLine "SQL: " & SQL
|
|
|
|
ShowDebugBox "GetWinLineUserData"
|
|
End If
|
|
|
|
If Result < 0 Then
|
|
If err <> 0 Then
|
|
Msgbox "Fehler bei Abfrage:" & vbNewline & err.description, vbExclamation, DEFAULT_TITLE & " - GetWinLineUserData"
|
|
Exit Function
|
|
Else
|
|
Msgbox "Abfrage lieferte keine Ergebnisse.", vbExclamation, DEFAULT_TITLE & " - GetWinLineUserData"
|
|
Exit Function
|
|
End If
|
|
End If
|
|
|
|
ResultString = ""
|
|
|
|
If Len(Result.Value("c026")) > 0 Then
|
|
' Name des Benutzers
|
|
ResultString = Result.Value("c026")
|
|
Else
|
|
' Loginname des Benutzers, muss immer belegt sein.
|
|
ResultString = Result.Value("c001")
|
|
End If
|
|
|
|
If Len(Result.Value("c026")) > 0 Then
|
|
' Durchwahl ergänzen, wenn vorhanden
|
|
ResultString = ResultString & " (" & Result.Value("c028") & ")"
|
|
End If
|
|
|
|
GetWinLineUserData = ResultString
|
|
End Function |