<%@language = "javascript" %> <% /* $Revision$ $Id$ File: mld_kenmerk_search_list.asp (vroeger FacmgtVB/mld_stdmeldinggrid.asp) Description: Vangt de parameters van mld_stdmelding_search op en verwerkt die tot een lijst Parameters: Context: Vanuit mld_stdmelding_search.asp Note: */ %> <% var searchtext = getQParam("searchtext", null); var srtdisc_key = getQParamInt("srtdisc_key", -1); var disc_key = getQParamInt("disc_key", -1); var stdm_key = getQParamInt("stdm", -1); var mldgrp_key = getQParamInt("mldgrp_key", -1); var kenmerktype = getQParam("kenmerktype", null); var kenmerk_niveau = getQParam("niveau", null); var show_expired = (getQParamInt("has_show_expired", 0) == 1) && (Request.Querystring("show_expired").count == 1); // Vervallen stdmeldingen ook tonen var simple = getQParamInt("simple", 0); var outputmode = getQParamInt("outputmode", 0); // 0 = screen, 1 = print, 2 = excel etc var showall = getQParamInt("showall", 0) == 1; var authparams = user.checkAutorisation("WEB_MLDMGT"); %>
<% FCLTHeader.Generate({outputmode: outputmode}); %>
<% if (stdm_key > 0) { var sql = "SELECT ins_discipline_key," + " m2.ins_srtdiscipline_key" + " FROM mld_stdmelding md, mld_discipline m2" + " WHERE md.mld_ins_discipline_key = m2.ins_discipline_key" + " AND mld_stdmelding_key = " + stdm_key; var oRs = Oracle.Execute(sql); var dkey = oRs("ins_discipline_key").Value; var skey = oRs("ins_srtdiscipline_key").Value; } if (disc_key > 0) { var sql = "SELECT m2.ins_srtdiscipline_key" + " FROM mld_discipline m2" + " WHERE m2.ins_discipline_key = " + disc_key; var oRs = Oracle.Execute(sql); var skey = oRs("ins_srtdiscipline_key").Value; } var sql = "SELECT sm.mld_stdmelding_key" + "," + lcl.xsql("isd.ins_srtdiscipline_omschrijving", "isd.ins_srtdiscipline_key") + " vakgroeptype" + "," + lcl.xsql("md.ins_discipline_omschrijving", "md.ins_discipline_key") + " vakgroep" + "," + lcl.xsql("sm.mld_stdmelding_omschrijving", "sm.mld_stdmelding_key") + " stdmelding" + " , sm.mld_stdmelding_t_accepttijd.tijdsduur acceptatietijd_tijdsduur" + " , sm.mld_stdmelding_t_accepttijd.eenheid acceptatietijd_eenheid" + " , sm.mld_stdmelding_t_uitvoertijd.tijdsduur uitvoertijd_normaal" + " , sm.mld_stdmelding_t_uitvoertijd.eenheid uitvoertijd_normaal_eenheid" + " , sm.mld_stdmelding_t_uitvtijd_pr1.tijdsduur uitvoertijd_kritisch" + " , sm.mld_stdmelding_t_uitvtijd_pr1.eenheid uitvoertijd_kritisch_eenheid" + " , sm.mld_stdmelding_t_uitvtijd_pr2.tijdsduur uitvoertijd_hoog" + " , sm.mld_stdmelding_t_uitvtijd_pr2.eenheid uitvoertijd_hoog_eenheid" + " , sm.mld_stdmelding_t_uitvtijd_pr4.tijdsduur uitvoertijd_laag" + " , sm.mld_stdmelding_t_uitvtijd_pr4.eenheid uitvoertijd_laag_eenheid" + "," + lcl.xsql("smg.mld_stdmeldinggroep_naam", "smg.mld_stdmeldinggroep_key") + " meldingsgroep" + "," + lcl.xsql("ks.prs_kostensoort_oms", "ks.prs_kostensoort_key") + " prs_kostensoort_oms" + "," + lcl.xsql("pd.prs_dienst_omschrijving", "pd.prs_dienst_key") + " dienst" + " , CASE sm.ins_srtinst_niveau" + " WHEN 'D'" + " THEN (SELECT " + lcl.xsql("insd.ins_discipline_omschrijving", "insd.ins_discipline_key") + " FROM ins_discipline insd WHERE insd.ins_discipline_key = sm.ins_srtinst_key)" + " WHEN 'G'" + " THEN (SELECT " + lcl.xsql("isg.ins_srtgroep_omschrijving", "isg.ins_srtgroep_key") + " FROM ins_srtgroep isg WHERE isg.ins_srtgroep_key = sm.ins_srtinst_key)" + " WHEN 'S'" + " THEN (SELECT " + lcl.xsql("isd.ins_srtdeel_omschrijving", "isd.ins_srtdeel_key") + " FROM ins_srtdeel isd WHERE isd.ins_srtdeel_key = sm.ins_srtinst_key)" + " END objectsoort" + " , sm.mld_stdmelding_vervaldatum vervaldatum" + " , sm.mld_stdmelding_notfrontend" + " , sm.mld_stdmelding_notify" + " , sm.mld_stdmelding_volgnr" + " FROM mld_stdmelding sm" + " , mld_v_aanwezigdiscipline md" + " , ins_srtdiscipline isd" + " , prs_kostensoort ks" + " , mld_stdmeldinggroep smg" + " , prs_dienst pd" + " WHERE md.ins_discipline_key = sm.mld_ins_discipline_key" + " AND sm.prs_kostensoort_key = ks.prs_kostensoort_key(+)" + " AND md.ins_srtdiscipline_key = isd.ins_srtdiscipline_key" + " AND sm.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)" + " AND sm.prs_dienst_key = pd.prs_dienst_key(+)" + " AND sm.mld_stdmelding_verwijder IS NULL" + (show_expired ? "" : " AND (sm.mld_stdmelding_vervaldatum IS NULL OR" + " sm.mld_stdmelding_vervaldatum > SYSDATE)"); if (stdm_key > 0) { sql += " AND sm.mld_stdmelding_key = " + stdm_key + " AND md.ins_discipline_key = " + dkey + " AND isd.ins_srtdiscipline_key = " + skey; } else if (disc_key > 0) { sql += " AND md.ins_discipline_key = " + disc_key + " AND isd.ins_srtdiscipline_key = " + skey; } else if (srtdisc_key > 0) { sql += " AND isd.ins_srtdiscipline_key = " + srtdisc_key; } if (mldgrp_key > 0) { sql += " AND smg.mld_stdmeldinggroep_key = " + mldgrp_key; } sql += " ORDER BY ins_srtdiscipline_prefix || '-' || " + lcl.xsql("md.ins_discipline_omschrijving", "md.ins_discipline_key") + " , "+ lcl.xsql("sm.mld_stdmelding_omschrijving", "sm.mld_stdmelding_key"); function fnAcceptatietijd(oRs) { if (oRs("acceptatietijd_tijdsduur").Value == null) return ""; var acceptatietijd = oRs("acceptatietijd_tijdsduur").Value + (oRs("acceptatietijd_eenheid").Value == 'D'? L("lcl_mld_dagen") : L("lcl_mld_uur")); return acceptatietijd; } function fnUitvoertijden(oRs) { var uur = L("lcl_mld_uur"); var normaal = oRs("uitvoertijd_normaal").Value + (oRs("uitvoertijd_normaal_eenheid").Value == 'D'? L("lcl_mld_dagen") : L("lcl_mld_uur")); var laag = ""; if (oRs("uitvoertijd_laag").Value) laag = ", L: " + (oRs("uitvoertijd_laag").Value + (oRs("uitvoertijd_laag_eenheid").Value == 'D'? L("lcl_mld_dagen") : L("lcl_mld_uur"))); var hoog = ""; if (oRs("uitvoertijd_hoog").Value) hoog = ", H: " + (oRs("uitvoertijd_hoog").Value + (oRs("uitvoertijd_hoog_eenheid").Value == 'D'? L("lcl_mld_dagen") : L("lcl_mld_uur"))); var kritisch = ""; if (oRs("uitvoertijd_kritisch").Value) kritisch = ", K: " + (oRs("uitvoertijd_kritisch").Value + (oRs("uitvoertijd_kritisch_eenheid").Value == 'D'? L("lcl_mld_dagen") : L("lcl_mld_uur"))); return ("N: " + normaal + laag + hoog + kritisch); } function fnKenmerkType(oRs) { return kenmerk.types[oRs("mld_srtkenmerk_kenmerktype").Value]; } buttons = {}; var addurl = "appl/mld/mld_stdmelding.asp?mode=edit"; addurl += buildTransitParam(["srtdisc_key", "disc_key", "stdm"]); buttons = [{ icon: "plus.png", title: L("lcl_add"), action: "FcltMgr.openDetail('" + addurl + "', '" + L("lcl_add") + "', {callback: FcltMgr.reload })" }] var rst = new ResultsetTable({ sql: sql, keyColumn: "mld_stdmelding_key", ID: "mldstdmeldingtable", showAll: showall, outputmode: outputmode, title: L("lcl_mld_stdmeldingen"), buttons: buttons }); rst.addColumn(new Column({caption: "Key", datatype: "number", content: "mld_stdmelding_key"})); rst.addColumn(new Column({caption: L("lcl_mld_vakgroeptype"), content: "vakgroeptype"})); rst.addColumn(new Column({caption: L("lcl_mld_vakgroep"), content: "vakgroep"})); rst.addColumn(new Column({caption: L("lcl_complain"), content: "stdmelding"})); rst.addColumn(new Column({caption: L("lcl_mld_timetoaccept"), content: fnAcceptatietijd})); rst.addColumn(new Column({caption: L("lcl_mld_uitvoertijd"), content: fnUitvoertijden})); rst.addColumn(new Column({caption: L("lcl_mld_meldinggroep"), content: "meldingsgroep"})); rst.addColumn(new Column({caption: L("lcl_charge_type"), content: "prs_kostensoort_oms"})); rst.addColumn(new Column({caption: L("lcl_mld_dienst"),content: "dienst"})); rst.addColumn(new Column({caption: L("lcl_obj_sort"),content: "objectsoort"})); rst.addColumn(new Column({caption: L("lcl_mld_expiration_date"), datatype: "date", content: "vervaldatum"})); rst.addAction({ action: "mkm_edit", caption: L("lcl_edit"), isDefault: true}); var cnt = rst.processResultset(); %>