DHF Artikel API; AuditFlow

VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb

@@ -468,4 +468,16 @@ Public Class cMitarbeiter
         End Select
         Return ""
     End Function
+
+    Public Shared Function GetUserParam(param As String, Optional maId As Integer = -1, Optional defaultReturn As Object = Nothing) As String
+        Dim result As String = Nothing
+        If maId < 0 Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER Is Nothing Then Return defaultReturn
+            maId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_id
+        End If
+
+        Dim Value = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("usrPr_value", "tblMitarbeiter_UserParams", "usrPr_maId = '" & maId & "' AND usrPr_parameter = '" & param & "'", "ADMIN", defaultReturn)
+        Return Value
+    End Function
+
 End Class