' 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