Anlage des Repos

current/Modules/Sicherungen/Modules_20230623/GetWinLineUserData.vbm

@@ -0,0 +1,74 @@
+' 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