PCHD#40076 Kostenplaatsfilter vervangen door suggest

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

APPL/MLD/mld_search.asp

@@ -57,6 +57,7 @@
 <!-- #include file="../Shared/status.inc" -->
 <!-- #include file="../Shared/selector.inc" -->
 <!-- #include file="../Shared/afdelingselector.inc" -->
+<!-- #include file="../Shared/kostenplaatsselector.inc" -->
 <!-- #include file="../Shared/persoonselector.inc" -->
 <!-- #include file="../Shared/plaatsselector.inc" -->
 <!-- #include file="../Shared/uitvoerendeselector.inc" -->
@@ -1039,30 +1040,18 @@ if (!frontend && srtdisc > -1)
                                         whenEmpty: L("lcl_search_generic")  // want filter
                                       });
 %>
-
                 <!-- Kostenplaats -->
-<%              if (anykpn)
-                {
-%>              <tr class="primsearch noxd">
-                  <td class="label"><label for="kp"><%=L("lcl_mld_kosten")%>:</label></td>
-<%                // Let op: dit is bewust een wildcardfilter
-                  var kpstr = "";
-                  if (kp_key != -1)
-                  {
-                    sql = "SELECT " + S("prs_kpn_string") + " kpstring"
-                        + " FROM prs_kostenplaats k"
-                        + " WHERE prs_kostenplaats_key = " + kp_key;
-                    var oRs = Oracle.Execute(sql);
-                    if (!oRs.eof)
-                      kpstr = oRs("kpstring").Value;
-                  }
-                  // in principe in kp_key voldoende voor de selectie en hoeft de string niet mee. Disabled maken dan?
-%>
-                  <td>
-                    <input class="fldkp wildcard" type="text"  value="<%=safe.htmlattr(kpstr)%>" name="kp">
-                  </td>
-                </tr>
-<%              }
+<%
+                FCLTkostenplaatsselector("kp",
+                                         "kp",
+                                           user_key,
+                                         { kostenplaatsKey: kp_key,
+                                           label: L("lcl_mld_inf_Kostenplaats"),
+                                           readonly: !anykpn,
+                                           suppressEmpty: !anykpn,
+                                           filtercode: "AA" // Alleen actieve kostenplaatsen kunnen selecteren "All Active". Huidige waarde als initi<74>le waarde kan bij kostenplaatsen altijd.
+                                         });
+
                 if ((backo || minfo) && anyorders)
                 { // wat opdrachtfilters
                   // Zijn er vakgroeptypen met bestelgegevens? (Nee, Ja maar niet allemaal, Ja allemaal)

APPL/MLD/mld_search_list.asp

@@ -112,7 +112,7 @@ else
   var meldinggrp_key = getQParamInt("meldinggrp_key", -1); // Meldinggroep
   var behandelgrp_key = getQParamInt("behandelgrp_key", -1); // Behandelgroep
   var stdm_key_arr = getQParamIntArray("sm", [-1]); // Melding (Stdmelding)
-  var kp = getQParam("kp", null); // Kostenplaats
+  var kp = getQParamInt("kp", -1); // Kostenplaats
   var handler = getQParamInt("handler", -1); // Uitvoerende
   var contact_key = getQParamInt("sContact_key", -1); // Contactpersoon
   var opdrtype_key = getQParamInt("opdrtype", -1); // Opdrachttype
@@ -157,7 +157,7 @@ else
   params.meldinggrp_key = (meldinggrp_key != -1 ? meldinggrp_key : null);
   params.behandelgrp_key= (behandelgrp_key != -1 ? behandelgrp_key : null);
   params.stdm_key_arr   = (stdm_key_arr.length > 0 && stdm_key_arr.join(",").indexOf("-1") == -1? stdm_key_arr : null);
-  params.kp             = (kp != ""? kp : null);
+  params.kp             = (kp != -1 ? kp : null);
   params.handler_key    = (handler != -1 ? handler : null);
   params.contact_key    = (contact_key != -1 ? contact_key : null);
   params.opdrtype_key   = (opdrtype_key != -1 ? opdrtype_key : null);