FSN#41029 Lijst key-users automatisch op te vragen (zelfs door sales)

svn path=/Website/trunk/; revision=34391

APPL/FAC/about.asp

@@ -62,6 +62,21 @@ FCLTHeader.Generate(); %>
               + (oRs("fe_users").value>licensed_fe_users ? " \n"+L("lcl_feactualexceedslicensed").format(oRs("fe_users").value-licensed_fe_users): ""));
     oRs.Close();
 
+   sql = "SELECT prs_perslid_naam_full, "
+           + "funcodes"
+           + " FROM fac_v_lcrap_key_stats"
+           + " ORDER BY 1";
+    // yields only one record
+    oRs = Oracle.Execute(sql); 
+    var u=1;
+    while (!oRs.eof) {
+        ROFIELDTR("fldkeyusr", (u==1 ? L("lcl_key_users") : ""),  u + ". " + oRs("prs_perslid_naam_full").value + " [" + oRs("funcodes").value + "]");
+        u += 1;
+        oRs.moveNext();
+    }
+
+    oRs.Close();
+
     // an approximation of the modules used.
     // UDR is a pseudosubmodule from FAC
     // FAQ is not a pseudosubmodule from FAC, but is formally enabled by a setting, as is Mobile
@@ -92,7 +107,7 @@ FCLTHeader.Generate(); %>
        + "  WHERE fac.getsetting ('mobile_enabled') = 1 AND m.fac_module_name = 'PDA' "
        + " ORDER BY 1";
     oRs = Oracle.Execute(sql);
-    var i = 1;;
+    var i = 1;
     while (!oRs.eof) {
         ROFIELDTR("fld", (i==1 ? L("lcl_modules_inuse") : ""),  i + ". " + L(oRs("fac_module_remark").value) + " [" + oRs("fac_module_name").value + "]");
         i += 1;
@@ -100,6 +115,7 @@ FCLTHeader.Generate(); %>
     }
 
     oRs.Close();
+
     BLOCK_END();
 %>
 <p class="aboutfooter"><%=L("lcl_about_footer")%></p>