MS ZSG

app/DD-Record-Organizer/frmRight_Management.vb

@@ -173,7 +173,8 @@
         End Select
     End Sub
     Sub Refresh_Free_Users()
-        Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGHT_USER WHERE ENTITY_ID = {0}) ORDER BY USERNAME", cmbEntity.SelectedValue)
+        Dim Sql = $"SELECT T.* 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'   AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGHT_USER WHERE ENTITY_ID = {cmbEntity.SelectedValue}) ORDER BY USERNAME"
         Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
         Try
             DD_ECMAdmin.TBAD_Users.Clear()