MS ZSG

app/DD-Record-Organizer/frmLoginUserSelect.vb

@@ -7,7 +7,8 @@
     End Sub
 
     Private Sub frmLoginUserSelect_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Dim Sql = String.Format("SELECT * FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1")
+        Dim Sql = String.Format("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'")
         Dim DT_USER = ClassDatabase.Return_Datatable(Sql)
         Try
             DD_ECMAdmin.TBAD_Users.Clear()