AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS ZSG

Browse Source
This commit is contained in:
SchreiberM
2020-01-15 14:48:46 +01:00
parent 9582091c6d
commit 1f6c197b7f
699 changed files with 516723 additions and 7912 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD-Record-Organizer/frmTask_Editor.vb
View File

@@ -99,7 +99,8 @@ Public Class frmTask_Editor
End Sub
Sub Load_User()
Try
Dim Sql = "SELECT GUID as [User-ID], NAME + ', ' + PRENAME AS [User] FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1"
Dim Sql = "SELECT T.GUID as [User-ID], T.NAME + ', ' + T.PRENAME AS [User] FROM TBDD_USER T INNER JOIN TBDD_USER_MODULES T1 ON T.GUID = T1.USER_ID INNER JOIN TBDD_MODULES T2 ON T1.MODULE_ID = T2.GUID
WHERE T2.SHORT_NAME = 'ADDI' ORDER BY USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql)
If DT Is Nothing = False Then
Me.ListBoxUser.Visible = True