FCLT#55968 Webservice voor Unexus realiseren

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

APPL/PRS/prs_perslid.asp

@@ -29,6 +29,21 @@
   if (prs_key == -1)
     prs_key = getQParamInt("prs_key", -1);
 
+var fuz_tel = getQParam("fuzzytel", "");
+if (fuz_tel)
+{
+    var sql = "SELECT prs_perslid_key"
+            + "  FROM prs_perslid"
+            + " WHERE regexp_replace (prs_perslid_telefoonnr, '*\\D', '') = " + safe.quoted_sql(fuz_tel.replace(" ",""))
+            + "    OR regexp_replace (prs_perslid_mobiel, '*\\D', '') = " + safe.quoted_sql(fuz_tel.replace(" ",""));
+    var oRs = Oracle.Execute(sql);
+    if (!oRs.eof)
+        prs_key = oRs("prs_perslid_key").Value;
+    oRs.Close();
+    // wel fuzzytel, maar geen prs_key gevonden, dan stoppen.
+}
+
+
   var naam = "";
   if (prs_key > 0)
   {