From c984469f10ed76623b0cbe38a1dc39a8fc8d4592 Mon Sep 17 00:00:00 2001
From: Ruud Lipper <ruud.lipper@aareon.nl>
Date: Thu, 22 Jun 2017 06:56:32 +0000
Subject: [PATCH] FSN#41029 Lijst key-users automatisch op te vragen (zelfs
 door sales)

svn path=/Website/trunk/; revision=34391
---
 APPL/FAC/about.asp | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/APPL/FAC/about.asp b/APPL/FAC/about.asp
index 8d285beb46..caeb0baecd 100644
--- a/APPL/FAC/about.asp
+++ b/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>