<% /*
     $Revision$
     $Id$

     File:          objectselector.inc
     Description:   Algemene interface functie om een object suggestbox te maken
                    Deze moet je kunnen includen en aanroepen.
                    Resulteert dan uiteindelijk in een zichtbaar textveld aangemaakt die de objectnaam bevat (objectnaam veld)
                    en een hidden keyveld die de key van het object bevat (objectkey veld).
                    Het objectnaam veld heeft geen naam en wordt niet meegesubmit.
                    Het objectkey veld heeft een naam en wordt meegesubmit.
                    Het resultaat heeft de vorm "[<td>label</td><td>]selectveld[</td>]"
     parameters     fieldName:    veldnaam van het objectkey veld. Dit veld wordt gesubmit.
                    objectName:   naam van het suggest object dat wordt aangemaakt.
                    params:       object met meegegeven parameters.
                                  objectKey:         initiële key waarde van het object die ingevuld moet worden.
                                  label:             label dat voor het objectnaam veld wordt weergegeven.
                                  filtercode:        extra filtercode voor de query die gebruikt wordt voor de suggest.
                                  onChange:          onchange op het textveld.
                                  trclass:           wordt ook op de <tr> gezet
                                  autlevel:          autorisatie niveau voor de query die gebruikt wordt voor de suggest.
                                  extraParamField:   veldnaam voor een extra hidden parameter veld.
                                  isBad:             boolean die aangeeft dat het objectnaam veld als ongeldig
                                                     en leeg weergegeven moet worden (true|false(default)).
                                  readonly:          geeft aan of het object veld readonly weergegeven moet worden (true|false(default)).
                                  filtercode:        filtercode van extra filter clausule voor initiële waarde
                                  moreinfo:          geeft een extra informatie button achter het suggest veld. Klikken hierop geeft informatie
                                                     over de geselecteerde waarde
*/ %>

<!-- #include file="./Suggest/objectFilter.inc" -->

<%
FCLTHeader.Requires({ plugins: ["suggest", "jQuery"], js: [] });

function FCLTobjectselector(fieldName, objectName, params)
{
  if (typeof params=="undefined") params = {};

  // Is er een initiele waarde meegegeven? Zoek dan de omschrijving erbij!
  var lobjectName = (params.whenEmpty != null ? params.whenEmpty :  (params.readonly ? L("lcl_select_readonly") : L("lcl_select_object")));

  var lextraInit = "";
  if (params.objectKey && params.objectKey > 0)
  {
    var filtClause = getFiltClauseObject(params);

    sql = "SELECT d.ins_deel_omschrijving objnaam"
        + ", 'dummy' extra"
        + " FROM ins_v_aanwezigdeel d"
        + " WHERE d.ins_deel_key = " + params.objectKey
        + filtClause;
    var oRs = Oracle.Execute(sql);
    lobjectName = oRs("objnaam").value;
    lextraInit = oRs("extra").value;
  }

  // Bouw de url voor de persoons query op
  var objQueryUrl = rooturl + "/appl/shared/suggest/SuggestObject.asp"
                  + ((typeof params.autlevel != "undefined")? "?autlevel=" + params.autlevel : "?autlevel=-1")
                  //+ (params.disckey? "&dis_key=" + params.disckey : "")
                  + (params.filtercode? "&filtcode=" + params.filtercode : "")
                  + (params.autfunction? "&autfunction=" + params.autfunction : "");
  if (params.label)
  { %><tr <%=params.trclass?"class='"+params.trclass+"'":""%>>
    <td class="label">
      <label for="<%=fieldName%>_show"><%=params.label%>:</label>
    </td>
    <td>
<%
  } %>
  <nobr>
    <input id="<%=fieldName%>_show" class="flddep<%=!params.readonly&&params.required? " required" : ""%>" value="<%=safe.htmlattr(lobjectName)%>"
           <%=params.readonly? " readonly tabindex=-1" : ""%>
           <%=params.onChange && !params.readonly? " sgonChange='" + params.onChange + "'" : ""%>>
    <input type="hidden" id="<%=fieldName%>" name="<%=fieldName%>" value="<%=params.objectKey%>">
    <% = params.moreinfo ? "<img class='details' src='" + rooturl + "/appl/Pictures/listdetail.gif' onclick='objectdetails_" + fieldName + "()'>" : ""%>
<%
    if (params.extraParamField)
    { /* het extra parameter veld wordt door suggest object gevuld */%>
      <input type="hidden" id="<%=params.extraParamField%>" name="<%=params.extraParamField%>" value="<%=safe.htmlattr(lextraInit)%>">
<%
    } %>
  </nobr>
<%
  if (params.label)
  { %>
    </td></tr>
<%
  } %>
  <script type="text/javascript">
    function objectdetails_<%=fieldName%> ()
    {
      if ($('#<%=fieldName%>')[0].value != -1) {
        FcltMgr.openDetail("<%=rooturl%>/appl/ins/ins_deel.asp?key=" + $('#<%=fieldName%>')[0].value, $('#<%=fieldName%>')[0].value);
      } else {
        FcltMgr.alert("Wat wil je nou?");
      }
    }
  </script>

<%
  if (!params.readonly)
  {
    if (params.urlAdd)
    {
      var urlAddTxt = "[";
      for (var i = 0; i < params.urlAdd.length; i++)
      {
        urlAddTxt += (i > 0? ", " : "") + "{ urlParam: \"" + params.urlAdd[i].urlParam + "\", field: \"" + params.urlAdd[i].field + "\" }";
      }
      urlAddTxt += "]"
    }
%>
    <script type="text/javascript">
      jQuery(document).ready( function()
                              {
                                <%=objectName%> = new Suggest({ objectName: "<%=objectName%>",
                                                                queryField: $("#<%=fieldName%>_show")[0],
                                                                queryUrl: "<%=objQueryUrl%>",
                                                                initKey: <%=params.objectKey? params.objectKey : -1%>,
                                                                keyField: $("#<%=fieldName%>")[0]
                                                                <%=params.urlAdd? ", urlAdd: " + urlAddTxt : ""%>
                                                                <%=params.extraParamField? ", extraParamField: $(\"" + "#" + params.extraParamField + "\")[0]" : ""%>
                                                                <%=params.extraParamField? ", initExtraParam: \"" + safe.jsstring("" + lextraInit) + "\"": ""%>
                                                                <%=params.isBad? ", isBad: true": ""%>
                                                                <%=params.readonly? ", fieldReadonly: true": ""%>
                                                              });
                              }
                            )
    </script>
<%
  }
}
%>