Files
Facilitor/APPL/PDA/mld_list.asp
Erik Groener 8988fbd7b2 SZDB#74054 Tonen in lijst van flexkenmerken ook in mobile ondersteunen
svn path=/Website/trunk/; revision=70255
2025-09-09 13:22:30 +00:00

999 lines
43 KiB
Plaintext

<%@ language = "JavaScript" %>
<% /*
$Revision$
$Id$
File: pda/mld_list.asp
Description: Toont een beknopte meldingenlijst voor mobile, dat zijn de aan mij
geautoriseerde actieve meldingen op de plaats waar ik ben plus die zonder plaatsgegevens
Parameters: -
urole: optioneel om de lijst te beperken obv van die specifieke rol=autorisaties (fo, bo, mi)
Context: -
Note: Gestripte versie van mld/mld_list.inc
*/
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/discx3d.inc" -->
<!-- #include file="../Shared/selector.inc" -->
<!-- #include file="../Shared/getkenmerksql.inc" -->
<!-- #include file="./resultset_table.inc" -->
<!-- #include file="./mobile.inc" -->
<!-- #include file="./iface.inc" -->
<!-- #include file="../mld/mld.inc" -->
<%
perform=false; // ???? JGL: MLD.INC gebruikt deze illegaal globaal TODO!
frontend=false;
var mld_key = getQParamInt("mld_key", -1, true); // Meldingnr
var searchtekst = getQParamUTF8("searchtekst", "", true); // Searchtekst
var ruimte_key = getQParamInt("ruimte_key", -1);
var res_ruimte_key = getQParamInt("res_ruimte_key", -1);
var rsv_ruimte_key = getQParamInt("rsv_ruimte_key", -1); // Lijst tonen van alle meldingen met dezelfde rsv_ruimte_key (reservering).
var ins_key = getQParamInt("ins_key", -1);
var self = getQParamInt("self", -1);
var status = getQParamIntArray("status", []);
var behandel3_key = getQParamInt("behandel", -1);
var group_type = getQParamInt("grpby", 1); // 1 = Vakgroep (default), 2 = Behandelteam, 4 = locatie
var p_cnt_disc = getQParamInt("cnt_disc", 2);
var p_cnt_mld = getQParamInt("cnt_mld", 10);
var p_loc_key = getQParamInt("loc_key", -1);
var bld_key = getQParamInt("bld_key", -1);
if (bld_key > -1 && group_type & 4) {
group_type -= 4;
}
// &1 = Pending(0),Ingevoerd(2),Ingezien(3)
// &2 = Geaccepteerd(4), Uitgegeven(7), Niet opgelost(99)
// &4 = Afgemeld
// De submit van deze pagina krijgt de individuele checkboxen mee
// maar je mag ook direct fase meegeven, defaul 0x011
var fase1 = getQParamInt("fase1", 0); // 0 of 1
var fase2 = getQParamInt("fase2", 0); // 0 of 2
var fase4 = getQParamInt("fase4", 0); // 0 of 4
if (fase1 == 0 && fase2 == 0 && fase4 == 0) {
fase1 = 1;
fase2 = 2;
// fase4 blijft 0
}
var fase = getQParamInt("fase", fase1 + fase2 + fase4);
var srtdisc_key = getQParamInt("srtdisc", -1); // Soort melding
if (srtdisc_key == -1) {
var sql = "SELECT MAX (ins_srtdiscipline_key) ins_srtdiscipline_key"
+ " , COUNT (1) aantal_vakgroeptypen"
+ " FROM ins_srtdiscipline"
+ " WHERE ins_srtdiscipline_module = 'MLD'"
+ " AND ins_srtdiscipline_verwijder IS NULL";
var oRs = Oracle.Execute(sql);
if (!oRs.EoF && oRs("aantal_vakgroeptypen").Value == 1) {
srtdisc_key = oRs("ins_srtdiscipline_key").Value;
}
oRs.Close();
}
if (srtdisc_key > 0) {
lcl.set_dialect(srtdisc_key, "MLD_SRTDISCIPLINE_KEY");
}
// else mixed srtdisc, terugvallen op de default
var show_disciplines = false;
var show_locatie = ((group_type & 4) == 4);
function getDistrictKey()
{
var loc_key = user.alg_locatie_key({withcurrent:true});
if (loc_key == -1)
return -1;
var sqlDis = "SELECT alg_district_key FROM alg_locatie WHERE alg_locatie_key = " + loc_key;
var oRsDis = Oracle.Execute(sqlDis);
var initDis = oRsDis(0).Value;
oRsDis.Close();
return initDis;
}
// bepaal filterlevel voor mobiel. Filterlevel kan afwijken van werklocatie niveau
var filterLevel = (S("mobile_alg_filterlevel") ? S("mobile_alg_filterlevel") : S("mobile_alg_level"));
// cases zonder break om bovenliggende niveaus mee te pakken
// Als filterlevel=A dan blijven alle keys op default -1 staan.
var verdieping_key = -1;
var gebouw_key = -1;
var locatie_key = -1;
var district_key = -1;
switch(filterLevel) {
case "V": verdieping_key = getQParamInt("verdieping_key" , user.alg_verdieping_key({withcurrent:true}));
case "G": gebouw_key = getQParamInt("gebouw_key" , user.alg_gebouw_key({withcurrent:true}));
case "L": locatie_key = getQParamInt("locatie_key" , user.alg_locatie_key({withcurrent:true}));
case "D": district_key = getQParamInt("district_key" , getDistrictKey());
}
var qrc = getQParamInt("qrc", 0) != 0;
var meldbron_key = getQParamInt("meldbronkey", 7);
var deelsrtcont_key = getQParamInt("deelsrtcont_key", -1); // nieuwe melding vanuit een controletaak
var grp_sel = getQParamUTF8("grp", "");
var disc_sql_prefix = mld_key == -1 && group_type == 2 ? "md2" : "md";
var subject = L("lcl_mobile_meldingen");
var ruimteKeyArr = [];
// Locatie: bepaal de omschrijving
if (p_loc_key > -1 && self <= 0) {
var sql = "SELECT alg_locatie_omschrijving"
+ " FROM alg_locatie"
+ " WHERE alg_locatie_key = " + p_loc_key;
var oRs = Oracle.Execute(sql);
if (!oRs.eof)
{
subject += " " + oRs("alg_locatie_omschrijving").Value;
}
oRs.Close();
} else if (p_loc_key == -2) {
subject += " " + L("lcl_mld_without_alg_loc");
}
// Reserveerbare ruimte: bepaal de alg_ruimte(s) en omschrijving
if (res_ruimte_key > -1 && ruimte_key == -1)
{
var sql = "SELECT res_ruimte_nr plaats "
+ " FROM res_ruimte"
+ " WHERE res_ruimte_key = " + res_ruimte_key
var oRs = Oracle.Execute(sql);
subject += " " + oRs("plaats").Value;
oRs.Close();
var sql = "SELECT alg_ruimte_key "
+ " FROM res_alg_ruimte rag"
+ " WHERE rag.res_ruimte_key = " + res_ruimte_key
+ " AND rag.res_alg_ruimte_verwijder IS NULL";
var oRs = Oracle.Execute(sql);
while (!oRs.eof) {
ruimte_key = oRs("alg_ruimte_key").value; // pak er maar eentje, meestal is het er maar een
ruimteKeyArr.push(oRs("alg_ruimte_key").value);
oRs.MoveNext();
}
oRs.Close();
}
// Gewone ruimte: bepaal de omschrijving
if (ruimte_key > -1 && res_ruimte_key == -1)
{
var sql = "SELECT aog.alg_plaatsaanduiding"
+ " FROM alg_v_onroerendgoed_gegevens aog"
+ " WHERE aog.alg_ruimte_key = " + ruimte_key;
var oRs = Oracle.Execute(sql);
subject += " " + oRs("alg_plaatsaanduiding").Value;
oRs.Close();
}
// Object: bepaal de omschrijving
if (ins_key > -1)
{
var sql = " SELECT ins_deel_omschrijving"
+ " FROM ins_deel id"
+ " WHERE id.ins_deel_key = " + ins_key;
var oRs = Oracle.Execute(sql);
subject += " " + oRs("ins_deel_omschrijving").Value;
oRs.Close();
}
// Wat zijn de criteria voor de meldingslijst?
// Standaard lopende meldingen (0,2,3,4,7)
var givenurole = getQParamSafe("urole", "none");
if (givenurole == "none")
urole = "bo"; // om nog even compatible te zijn met wat we deden
else
urole = givenurole;
var params = { urole: urole };
params.srtdisc_key = (srtdisc_key != -1 ? srtdisc_key : null);
params.flags = [];
var checkboxParams = [];
var hasParamFlag = false;
// in tegenstelling tot desktop zijn hier de flags default on
// en kun je dus expliciet zaken wegfilteren met &flagN=off
for (flagkey=0; flagkey < S("mld_melding_flags"); flagkey++)
{
if (getQParam("flag" + flagkey, "off") == "on")
{
hasParamFlag = true;
checkboxParams[flagkey] = "on";
params.flags.push(flagkey);
}
else
{
checkboxParams[flagkey] = "false";
}
}
var actiecodeATT = getQParam("actiecodeATT", "off");
params.actiecodeATT = actiecodeATT == "on";
var has_actiecodeFE = getQParam("has_actiecodeFE", 0);
var actiecodeFE = getQParam("actiecodeFE", !has_actiecodeFE ? "on" : "off");
params.actiecodeFE = actiecodeFE == "on";
has_actiecodeFE = 1;
params.actiecodeBO = true;
if (!hasParamFlag)
{
for (flagkey=0; flagkey < S("mld_melding_flags"); flagkey++)
{
if (getQParam("flag" + flagkey, "on") == "off")
{
checkboxParams[flagkey] = "off";
}
else
{
params.flags.push(flagkey);
checkboxParams[flagkey] = "on";
}
}
}
params.behandel3_key = behandel3_key;
params.disc_type = group_type & 3;
__Log("status length = " + status.length);
if (status.length > 0)
{ // Er is/zijn (een) status(sen) meegegeven.
if (status.join(",").indexOf("0") >= 0) params.mldstpen = true; // Status "Pending(0)".
if (status.join(",").indexOf("2") >= 0) params.mldstnew = true; // Status "Ingevoerd(2)".
if (status.join(",").indexOf("4") >= 0) params.mldstacc = true; // Status "Geaccepteerd(4)".
if (status.join(",").indexOf("7") >= 0) params.mldstuit = true; // Status "Uitgegeven(7)".
if (status.join(",").indexOf("5") >= 0) params.mldstafm = true; // Status "Afgemeld(5)".
if (status.join(",").indexOf("99") >= 0) params.mldnieto = true; // Status "Niet opgelost(99)".
}
else
{
if ((fase & 1) && (S("mld_restrict_mobile_to_me") != 1 || ruimte_key > 0 || ins_key > 0 || rsv_ruimte_key > 0))
{
params.mldstpen = true; // Status "Pending(0)".
params.mldstnew = true; // Status "Ingevoerd(2)".
}
if (fase & 2)
{
params.mldstacc = true; // Status "Geaccepteerd(4)".
params.mldstuit = true; // Status "Uitgegeven(7)".
params.mldnieto = true; // Status "Niet opgelost(99)".
}
if (fase & 4)
{
params.mldstafm = true; // Status "Afgemeld(5)".
}
}
if ((self > 0 || S("mld_restrict_mobile_to_me") == 1) && ruimte_key == -1 && ins_key == -1 && rsv_ruimte_key == -1)
{
params.behandel3_key = user_key;
}
// Hier ook op dezelfde rechten testen als in de desktop mode.
// Eerst kijken we breed naar MLD-rechten, later doen we er op basis van een optionele urole nog
// iets mee qua filtering, want je wilt niet altijd alles zien wat je mag zien..
if (givenurole == "none")
autfunction = ["WEB_MLDFOF", "WEB_MLDBOF", "WEB_MLDBO2", "WEB_MLDBAC"];
else
autfunction = (urole == "fo" ? ["WEB_MLDFOF"] : (urole == "bo" ? ["WEB_MLDBOF", "WEB_MLDBO2"] : ["WEB_MLDBAC"]));
// De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden
var authparams = user.checkAutorisation(autfunction);
var addparams = user.checkAutorisation((user.has("WEB_MLDFOF") ? "WEB_MLDFOF" : "WEB_MLDUSE"), true);
var canAdd = addparams && addparams.ALGwritelevel;
%>
<html>
<head>
<% FCLTMHeader.Generate({}); %>
</head>
<body>
<%
var sqln = "SELECT /* + OPT_PARAM('_OPTIMIZER_COST_BASED_TRANSFORMATION', 'OFF') */"
+ " m.mld_melding_key"
+ " , m.mld_melding_datum"
+ " , m.mld_melding_parentkey"
+ " , m.mld_melding_einddatum"
+ " , CASE WHEN mld_melding_einddatum > SYSDATE"
+ " THEN 1"
+ " ELSE 0"
+ " END optijd"
+ " , (SELECT COUNT(mld_opdr_key) FROM mld_opdr WHERE mld_melding_key = m.mld_melding_key) nrOrders"
+ " , (SELECT COUNT(o.mld_statusopdr_key)"
+ " FROM mld_opdr o"
+ " WHERE mld_melding_key = m.mld_melding_key"
+ " AND o.mld_statusopdr_key NOT IN (1, 2, 6, 7, 9)) nrActief"
+ " , m.mld_melding_acceptdatum_std"
+ " , std.mld_stdmelding_planbaar"
+ " , std.mld_stdmelding_image"
+ " , mld_melding_status"
+ " , mld_melding_spoed"
+ " , TO_CHAR(SUBSTR(mld_melding_omschrijving, 1, 4000)) mld_melding_omschrijving"
+ " , mld_melding_onderwerp"
+ " , mld_melding_flag"
+ " , mld_melding_actiecode"
+ " , (SELECT MAX(fac_tracking_datum)"
+ " FROM (SELECT t.fac_tracking_datum"
+ " FROM fac_tracking t"
+ " , fac_srtnotificatie sn"
+ " WHERE t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key"
+ " AND t.fac_tracking_refkey = m.mld_melding_key"
+ " AND sn.fac_srtnotificatie_xmlnode = 'melding'"
+ " UNION ALL"
+ " SELECT mld_melding_note_aanmaak recentdatum"
+ " FROM mld_melding_note"
+ " WHERE mld_melding_key = m.mld_melding_key)) recentdatum"
+ " , CASE WHEN (m.mld_melding_start_key IS NOT NULL AND m.mld_workflowstep_key IS NULL)"
+ " THEN 1 ELSE 0 END isVervolg"
+ " , COALESCE(l.alg_locatie_key, -2) alg_locatie_key"
+ " , l.alg_locatie_omschrijving alg_locatie_omschrijving"
+ " , DECODE(v.alg_plaatsaanduiding, '', DECODE (l.alg_locatie_omschrijving, '','',' ('||l.alg_locatie_omschrijving||')'), v.alg_plaatsaanduiding || DECODE(v.alg_plaatsomschrijving, '','' ,' (' || v.alg_plaatsomschrijving || ')'))"
+ " plaatsmelding"
+ " , CASE "
+ " WHEN COALESCE(sd.ins_srtdiscipline_prefix, '@') = '@'"
+ " THEN ''"
+ " ELSE sd.ins_srtdiscipline_prefix END ins_srtdiscipline_prefix"
+ " , " + lcl.xsqla(disc_sql_prefix+".ins_discipline_omschrijving", disc_sql_prefix+".ins_discipline_key")
+ " , " + disc_sql_prefix+".ins_discipline_image"
+ " , " + lcl.xsqla('std.mld_stdmelding_omschrijving', 'std.mld_stdmelding_key')
+ " , (SELECT prs_perslid_naam_friendly"
+ " FROM prs_v_perslid_fullnames_all"
+ " WHERE prs_perslid_key = m.prs_perslid_key) melder"
+ " , (SELECT prs_perslid_naam_friendly"
+ " FROM prs_v_perslid_fullnames_all"
+ " WHERE prs_perslid_key = COALESCE(m.mld_melding_behandelaar2_key,m.mld_melding_behandelaar_key)) behandelaar"
if (S("mld_num_prefix_mode") == 1) // kostenplaats of afdeling
{
sqln += ", COALESCE((SELECT prs_afdeling_naam"
+ " FROM prs_afdeling d1"
+ " WHERE m.prs_afdeling_key = d1.prs_afdeling_key),"
+ " (SELECT prs_kostenplaats_nr"
+ " FROM prs_kostenplaats k"
+ " WHERE m.prs_kostenplaats_key = k.prs_kostenplaats_key),"
+ " (SELECT prs_afdeling_naam"
+ " FROM prs_afdeling d2"
+ " WHERE m.prs_afdeling_key = d2.prs_afdeling_key)) mld_prefix";
}
// Kenmerken van de melding
sqln += ", (SELECT LISTAGG( COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " ," + lcl.xsql("skm.mld_srtkenmerk_omschrijving", "skm.mld_srtkenmerk_key")
+ " ) || ':'|| CHR(160) || "
+ " CASE WHEN skm.mld_srtkenmerk_kenmerktype IN ('R', 'r', 'S')"
+ " THEN flx.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.mld_kenmerkmelding_waarde)"
+ " WHEN ( skm.mld_srtkenmerk_kenmerktype = 'N'"
+ " AND skm.mld_srtkenmerk_lengte = 1"
+ " AND skm.mld_srtkenmerk_nmin = 0"
+ " AND skm.mld_srtkenmerk_nmax = 1"
+ " AND (skm.mld_srtkenmerk_dec = 0 OR skm.mld_srtkenmerk_dec IS NULL)"
+ " )"
+ " THEN DECODE (km.mld_kenmerkmelding_waarde,"
+ " 0, "+safe.qL("lcl_check_0")+", "
+ " 1, "+safe.qL("lcl_check_1")+", "
+ " km.mld_kenmerkmelding_waarde)"
+ " ELSE km.mld_kenmerkmelding_waarde"
+ " END"
+ " , CHR(13)"
+ " )"
+ " WITHIN GROUP (ORDER BY mld_kenmerk_volgnummer)"
+ " FROM mld_srtkenmerk skm, mld_kenmerk k, mld_kenmerkmelding km"
+ " WHERE km.mld_melding_key = m.mld_melding_key"
+ " AND k.mld_kenmerk_key = km.mld_kenmerk_key"
+ " AND BITAND(k.mld_kenmerk_inlijst,1) = 1"
+ " AND BITAND(skm.mld_srtkenmerk_systeem,4) = 0" // niet als vertrouwelijk
+ " AND skm.mld_srtkenmerk_key = k.mld_srtkenmerk_key"
+ " AND skm.mld_srtkenmerk_verwijder IS NULL"
+ " AND k.mld_kenmerk_verwijder IS NULL"
+ " AND km.mld_kenmerkmelding_verwijder IS NULL"
+ " ) flex ";
// Voeg aan de sql het FROM en WHERE gedeelte toe
// Geef alleen het meldingnummer mee indien ingevuld
params.track_mldnew = false; // fac_tracking op MLDNEW niet gebruiken
params.searchtekst = searchtekst;
if(mld_key > 0)
params = {urole: urole, mld_key: mld_key}
if (mld_key > 0)
{
var sqln_arr = mld.getfromwherelist_sql(autfunction, params);
sqln_arr[0] += " AND m.mld_melding_key = " + mld_key;
sqln_arr[1] += " AND m.mld_melding_key = " + mld_key;
// apply 3D authorization to the locations and to the organisations (both ALG and PRS)
sqln = discx3d (sqln + sqln_arr[0],
["md.ins_discipline_key", "m.mld_ins_discipline_key"], // rechten op vakgroep OF op behandelteam
"di.alg_regio_key",
"l.alg_district_key",
"l.alg_locatie_key",
"v.alg_gebouw_key",
"v.alg_verdieping_key",
"v.alg_ruimte_key",
"b.prs_bedrijf_key",
"b.prs_afdeling_key",
autfunction,
[],
2)
+ " UNION "
+ sqln + sqln_arr[1];
}
else
{
var sql_select = sqln;
var sql_where = " AND mld_melding_parentkey IS NULL"; // child-meldingen hoef ik mobiel niet te zien.
if (p_loc_key > -1)
{
sql_where += " AND l.alg_locatie_key = " + p_loc_key;
}
else if (p_loc_key == -2)
{
sql_where += " AND l.alg_locatie_key IS NULL";
}
if (ruimte_key > -1 && ruimteKeyArr.length <= 1)
{
sql_where += " AND (l.alg_locatie_key IS NULL OR v.alg_ruimte_key = " + ruimte_key + ")"; // PF: ik denk dat plaatsloze meldingen niet getoond hoeven worden als ruimtekey is gegeven, maar het staat er vast niet voor niks
}
if (ruimteKeyArr.length > 1)
{
sql_where += " AND v.alg_ruimte_key IN (" + ruimteKeyArr.join(',') + ")";
}
if (ins_key > -1)
{
sql_where += " AND m.mld_melding_key IN"
+ " (SELECT mld_melding_key FROM mld_melding_object WHERE mld_melding_object_verwijder IS NULL AND ins_deel_key = " + ins_key + ")";
}
if (rsv_ruimte_key > -1)
{
sql_where += " AND m.mld_melding_key IN"
+ " (SELECT mld_melding_key FROM mld_melding WHERE res_rsv_ruimte_key = " + rsv_ruimte_key + ")";
}
if (ins_key == -1 && rsv_ruimte_key == -1 && ruimte_key == -1 && ruimteKeyArr.length == 0)
{ // die lagere keys zijn sterker, ook als ik evt niet ter plaatse ben
if (district_key > -1)
{
sql_where += " AND (l.alg_locatie_key IS NULL OR l.alg_district_key = " + district_key + ")";
}
if (locatie_key > -1)
{
sql_where += " AND (l.alg_locatie_key IS NULL OR l.alg_locatie_key = " + locatie_key + ")";
}
if (gebouw_key > -1)
{
sql_where += " AND (l.alg_locatie_key IS NULL OR v.alg_gebouw_key = " + gebouw_key + ")";
}
if (verdieping_key > -1)
{
sql_where += " AND (l.alg_locatie_key IS NULL OR v.alg_verdieping_key = " + verdieping_key + ")";
}
}
if (bld_key > -1)
{ // In zoekpanel gebouw gekozen.
sql_where += ( bld_key == 0
? " AND m.mld_alg_onroerendgoed_keys IS NULL"
: " AND (v.alg_gebouw_key = " + bld_key + " OR v.alg_terreinsector_key = " + bld_key + ")"
);
}
if (srtdisc_key != -1 &&
srtdisc_key == S("cnd_gebreken_srtdisc_key")) {
params.mldstpen = false; // Status "Pending(0)".
params.mldstnew = false; // Status "Ingevoerd(2)".
params.mldstacc = false; // Status "Geaccepteerd(4)".
params.mldstuit = false; // Status "Uitgegeven(7)".
params.mldnieto = false; // Status "Niet opgelost(99)".
// Dit resulteert eigenlijk gewoon in een lijst met alle statussen (want alles false = alles tonen)
}
// Voeg aan de sql het FROM en WHERE gedeelte toe
var sqln_arr = mld.getfromwherelist_sql(autfunction, params);
// apply 3D authorization to the locations and to the organisations (both ALG and PRS)
sqln = discx3d (sql_select + sqln_arr[0] + sql_where,
["md.ins_discipline_key", "m.mld_ins_discipline_key"], // rechten op vakgroep OF op behandelteam
"di.alg_regio_key",
"l.alg_district_key",
"l.alg_locatie_key",
"v.alg_gebouw_key",
"v.alg_verdieping_key",
"v.alg_ruimte_key",
"b.prs_bedrijf_key",
"b.prs_afdeling_key",
autfunction,
[],
2)
+ " UNION "
+ sql_select + sqln_arr[1] + sql_where;
// Alleen groepering toepassen indien er 3 of meer vakgroepen zijn en meer dan 10 meldingen.
// Bepaal aantal vakgroepen en aantal meldingen.
var cnt_disc = 0; // Aantal vakgroepen.
var cnt_mld = 0; // Aantal meldingen.
var discipline = "";
// PF: Dit is wel een hele dure query (net zo als de echte) die je wilt voorkomen wanneer het kan zeg!
// Bijvoorbeeld niet als ik specifieke parameters gebruik, maar liever nog minder vaak
if (show_locatie)
{
var disc_oms = (group_type == 2 ? "NVL(ins_discipline_omschrijving, " + safe.qL("lcl_mld_no_team") + ")"
: "ins_discipline_omschrijving");
}
else if (ruimte_key == -1 && ins_key == -1)
{
var disc_oms = (group_type == 2 ? "NVL(ins_discipline_omschrijving, " + safe.qL("lcl_mld_no_team") + ")"
: "ins_discipline_omschrijving");
var sqln_count = "SELECT COUNT(1) nr_disc"
+ " , " + disc_oms + " discipline"
+ " FROM (" + sqln + ") rec2"
+ " GROUP BY " + disc_oms;
var oRs = Oracle.Execute(sqln_count);
while (!oRs.eof)
{
if (!cnt_disc) // alleen de eerste
{
discipline = oRs("discipline").Value;
}
cnt_disc++;
cnt_mld += oRs("nr_disc").Value;
oRs.MoveNext();
}
oRs.Close();
if (cnt_disc > p_cnt_disc && cnt_mld > p_cnt_mld)
show_disciplines = true;
if (res_ruimte_key == -1) // Anders zit de plaats al in de titel
{
if (group_type == 1)
{
if (cnt_disc == 1)
subject += " " + discipline;
else if (grp_sel != "")
subject += " " + grp_sel;
}
else if (group_type == 2)
{
if (cnt_disc == 1 && !show_disciplines)
{
if (discipline == L("lcl_mld_no_team"))
discipline = L("lcl_mld_without_team");
subject += " " + discipline;
}
else if (grp_sel != "")
{
if (grp_sel.toUpperCase() == "NULL")
subject += " " + L("lcl_mld_without_team");
else
subject += " " + grp_sel;
}
}
}
}
// PF: lijkt me ook niet altijd goed: wat is nou mogelijk zinvol?
if (S("mld_bo_sort_descending") == 0) var order_by = " mld_melding_einddatum";
if (S("mld_bo_sort_descending") == 1) var order_by = " mld_melding_key DESC";
if (S("mld_bo_sort_descending") == 2) var order_by = " recentdatum DESC";
if (urole == "fo") var order_by = " mld_melding_key DESC";
sqln = "SELECT * FROM (" + sqln + ") rec2"
+ (grp_sel == ""
? ""
: " WHERE ins_discipline_omschrijving" + (grp_sel.toUpperCase() == "NULL" ? " IS NULL"
: " = " + safe.quoted_sql(grp_sel)))
+ " ORDER BY"
+ ((show_locatie && p_loc_key == -1) ? " alg_locatie_omschrijving," : "")
+ ((show_disciplines && grp_sel == "") ? " ins_discipline_omschrijving NULLS FIRST," : "") // is dus al vertaald
+ order_by;
}
/* Grotendeels gekopieerd uit /MLD/mld_list.inc */
function fnrowClass(oRs)
{
if (oRs("mld_melding_parentkey").Value > 0)
return " child";
var mldStatus = oRs("mld_melding_status").Value;
var class1 = "";
if (urole != "fe")
{
var lnow = new Date();
// Alles wat al geaccepteerd had moeten zijn wordt expired1
// in deze statussen zijn geen opdrachten aanwezig dus kan nooit status unsolved optreden
if ((mldStatus == 2 || mldStatus == 3) && oRs("mld_melding_acceptdatum_std").Value < lnow)
class1 += ' expired1';
// Alles wat al klaar had moeten zijn wordt expired2
if (oRs("mld_stdmelding_planbaar").Value != 2 && (mldStatus == 4 || mldStatus == 7) && oRs("optijd").Value == 0)
class1 += ' expired2';
// Meldingen met uitgegeven(7) worden unsolved als er 0 lopende opdrachten zijn
// en meer dan 0 opdrachten so wie so (er zijn dus opdrachten geweest)
if (urole == "bo" && (mldStatus == 4 || mldStatus == 7)
&& oRs("nrOrders").Value > 0
&& oRs("nrActief").Value == 0) class1 += ' unsolved';
// Als de melding klaar is, maar nog niet alle opdrachten, of nog loopt
// met niet alle opdrachten klaar, dan ook extra attentie (UWVA#20684)
if (((mldStatus == 5 || mldStatus == 6) && oRs("nrActief").Value > 0)
||(mldStatus == 7 && oRs("nrActief").Value > 0 && oRs("nrActief").Value < oRs("nrOrders").Value))
class1 += ' unready';
// Meldingen waaraan je nog niet hoeft te beginnen tonen we sleepy.
if (oRs("mld_melding_datum").Value > lnow) class1 += ' sleepy';
}
var recent = new Date();
recent.setMinutes(recent.getMinutes() - S("mld_melding_recent"));
var mld_recent = new Date(oRs("recentdatum").Value);
if (mld_recent > recent)
{
class1 += " updated";
}
// Voor een vervolgmelding.
if (oRs("isVervolg").Value)
class1 += " vervolg";
return safe.htmlattr(class1);
}
function fnUrgentie(oRs)
{
var displ = "";
switch (oRs("mld_melding_spoed").Value)
{
case 1 : displ = "<span id='urg_kritiek1'>" + I("fa-exclamation-triangle fa-2x", { fastyle: "fas" }) + "&nbsp;</span>"; break;
case 2: displ = "<span id='urg_hoog1'>" + I("fa-exclamation-triangle fa-2x", { fastyle: "fas" }) + "&nbsp;</span>"; break;
//case 3: Normaal heeft geen plaatje.
case 4: displ = "<span id='urg_laag1'>" + I("fa-arrow-circle-down") + "&nbsp;</span>"; break;
case 5: displ = "<span id='urg_hold1'>" + I("fa-pause-circle") + "&nbsp;</span>"; break;
}
displ = (oRs("mld_melding_status").Value == 2? L("lcl_new") : "") + displ;
return displ;
}
function fncolLink(oRs)
{
var url = "";
if ((show_locatie && p_loc_key == -1) || (show_disciplines && grp_sel == ""))
{
url = rooturl + "/appl/pda/mld_list.asp"
+ "?urole="+urole
+ (self > 0? "&self=" + self : "")
+ (group_type & 2 ? "&grpby=2" : "")
+ "&behandel=" + behandel3_key
+ (status.length > 0? "&status=" + status.join(",") : "")
+ (ins_key > -1? "&ins_key=" + ins_key : "")
+ (bld_key > -1? "&bld_key=" + bld_key : "")
+ (srtdisc_key > -1? "&srtdisc=" + srtdisc_key : "")
+ "&fase=" + fase
+ "&actiecodeFE=" + actiecodeFE
+ (actiecodeATT == "on" ? "&actiecodeATT=on" : "")
+ "&searchtekst=" + safe.urlUTF8(searchtekst)
+ "&cnt_disc=" + p_cnt_disc + "&cnt_mld=" + p_cnt_mld;
if (show_locatie && p_loc_key == -1)
{
url += "&loc_key=" + (oRs("alg_locatie_key").Value || "");
}
else if (show_disciplines && grp_sel == "")
{
url += "&loc_key=" + p_loc_key
+ "&grp=" + encodeURIComponent(oRs("ins_discipline_omschrijving").Value || "null");
}
// neem de expliciete flags mee
for (flagkey=0; flagkey < S("mld_melding_flags"); flagkey++)
{
var xflag = getQParam("flag" + flagkey, "x");
if (xflag == "on")
url+= "&flag" + flagkey + "=on";
else if (xflag == "off")
url += "&flag" + flagkey + "=off";
}
}
else
{
url = rooturl + "/appl/pda/melding.asp?mld_key=" + oRs("mld_melding_key").Value;
}
return url;
};
function fncolIcon(oRs) {
var img = "";
if (group) {
if ((group_type & 4) != 4 && show_disciplines) {
img = oRs("ins_discipline_image").Value;
}
} else {
img = oRs("mld_stdmelding_image").Value;
}
if ((img || "").match(/fa-/)) {
return img;
}
}
function fncolGroup(oRs)
{
var tekst = "";
if ((group_type & 4) == 4) // groeperen op locatie
tekst = safe.html(oRs("alg_locatie_omschrijving").Value || L("lcl_mld_no_alg_loc"));
else if (show_disciplines) {
if ((group_type & 2) == 2) // groeperen op behandelteam
tekst = safe.html(oRs("ins_discipline_omschrijving").Value || L("lcl_mld_no_team"));
else // groeperen op vakgroep
tekst = safe.html(oRs("ins_discipline_omschrijving").Value);
}
return tekst;
};
function fncolHeader(oRs)
{
var tekst = (oRs("ins_srtdiscipline_prefix").Value || "") + oRs("mld_melding_key").Value;
if (S("mld_num_prefix_mode") > 0 && oRs("mld_prefix").Value)
tekst = oRs("mld_prefix").Value + "#" + tekst;
return tekst;
};
function fnDetailColumn(oRs)
{
var tekst = oRs("mld_stdmelding_omschrijving").Value;
if (ruimte_key > -1 || ins_key > -1 || (cnt_disc > 1 && grp_sel == ""))
tekst += " (" + safe.html(oRs("ins_discipline_omschrijving").Value || L("lcl_mld_no_team")) + ")";
return tekst;
}
function fncolSubHeader(oRs)
{
var flagkey = (S("mld_melding_flags") > 0 && urole!="fe" && oRs("mld_melding_flag").Value)||0;
var actiecode = oRs("mld_melding_actiecode").Value;
var subheader = "<div class='listbodykop'>"
+ (oRs("melder").Value != oRs("behandelaar").Value
? I("fa-user") + "&nbsp;" + safe.html(oRs("melder").Value)
: ""
)
+ (actiecode & 128 ? "<span class='ac128'>" + I("fa-bell", { fastyle: "fas" }) + "&nbsp;" + L("lcl_mld_actiecodeATT") + "</span>" : "")
+ (actiecode & 2 ? "<span class='ac2'>" + I("fa-user-circle", { fastyle: "fas" }) + "&nbsp;" + L("lcl_mld_actiecodeFE") + "</span>" : "")
+ (oRs("melder").Value != oRs("behandelaar").Value || actiecode & 128 || actiecode & 2 ? "<br>" : "")
+ (oRs("plaatsmelding").Value? I("fa-map-marker") + "&nbsp;" + safe.html(oRs("plaatsmelding").Value) + "<br>" : "")
+ ((oRs("mld_stdmelding_planbaar").Value&2) != 2
? I("fa-clock") + "&nbsp;" + toDateTimeString(oRs("mld_melding_einddatum").Value, false, false, true) + "<br>"
: ""
)
+ (flagkey ? "<span class='mldflag"+flagkey+"'>" + I("fa-fclt-flag") + "</span>&nbsp;" + L("lcl_mld_flag" + flagkey)+ "<br>" : "")
+ (oRs("behandelaar").Value
? I("fa-hand-point-right") + "&nbsp;" + safe.html(oRs("behandelaar").Value)
: ""
)
+ "</div>"
+ (oRs("mld_melding_onderwerp").Value != null ? "<span class='subject'>" + safe.html(oRs("mld_melding_onderwerp").Value) + "</span><br>" : "")
+ (oRs("mld_melding_omschrijving").Value? "<div class='listbodytext limit-lines-2'>" + safe.html(shorttxt(shared.stripbbcodes(oRs("mld_melding_omschrijving").Value), S("rs_mobile_maxchar"))) + "</div>" : "");
var flexkenmerken = LIST_KENMERK_COL(oRs, {kmcol: "flex"});
return subheader + flexkenmerken;
};
function fncolStatus(oRs)
{
var mldStatus = parseInt(oRs("mld_melding_status").Value);
var mld_status = mld.getmldstatustext(mldStatus);
return mld_status;
}
PAGE_START({ datacache: false });
%>
<script>
function mld_filter()
{
document.forms.mld_filter_list.submit();
}
function mld_close(mld_key_arr) {
$.post( "<%=rooturl%>/appl/mld/mld_close_save.asp?mld_key=" + mld_key_arr.join(",")
, McltCallbackRefresh
, "json");
}
function mld_home()
{
window.location.href = rooturl + "/appl/pda/Facilitor.asp";
}
function changeGebouw()
{
if ($("#bld_key").val() == -1)
{
$("#bld_key option").filter(function()
{ return $(this).text() == L("lcl_bld_terra");}
).prop("selected", true);
}
}
$(function()
{ changeGebouw();
}
);
</script>
<% FILTER_PANEL_START(); %>
<form name="u2" id="mld_filter_list" action="<%=rooturl%>/appl/pda/mld_list.asp" method="get" accept-charset="utf-8">
<input type="hidden" name="grp" id="grp" value="<%=safe.htmlattr(grp_sel)%>">
<input type="hidden" name="urole" value="<%=urole%>">
<input type="hidden" name="grpby" id="grpby" value="<%=group_type%>">
<input type="hidden" name="qrc" id="qrc" value="<%=(qrc ? 1 : 0)%>">
<input type="hidden" name="deelsrtcont_key" id="deelsrtcont_key" value="<%=deelsrtcont_key%>">
<input type="hidden" name="meldbron_key" id="meldbron_key" value="<%=meldbron_key%>">
<input type="hidden" name="srtdisc" id="srtdisc" value="<%=srtdisc_key%>">
<input type="hidden" name="has_actiecodeFE" id="has_actiecodeFE" value="<%=has_actiecodeFE%>">
<input type="hidden" name="cnt_disc" id="cnt_disc" value="<%=p_cnt_disc%>">
<input type="hidden" name="cnt_mld" id="cnt_mld" value="<%=p_cnt_mld%>">
<%
if (S("mld_melding_flags") > 1)
{
CONTROLGROUP_START();
for (flagkey=0; flagkey < S("mld_melding_flags"); flagkey++) {
var label_html = '<span class="mldflag' + flagkey + ' flag">' + I("fa-fclt-flag" + (flagkey == 0 ? "0" : ""))
+ ' <span>' + L("lcl_mld_flag" + flagkey)
+ '</span>';
CHB_FIELD("flag" + flagkey, label_html, checkboxParams[flagkey] == "on", { "inline": true });
}
CONTROLGROUP_END();
}
CONTROLGROUP_START();
CHB_FIELD("actiecodeFE", I("fa-user-circle", { fastyle: "fas" }) + "<span>" + L("lcl_mld_actiecodeFEchk") + "</span>", (actiecodeFE == "on"), { "inline": true });
CHB_FIELD("actiecodeATT", I("fa-bell", { fastyle: "fas" }) + "<span>" + L("lcl_mld_actiecodeATTchk") + "</span>", (actiecodeATT == "on"), { "inline": true });
CONTROLGROUP_END();
if (S("mld_restrict_mobile_to_me") == 1 && self <= 0)
{
%>
<input type="hidden" name="self" id="mldbehall" value="-1">
<% }
else
{
CONTROLGROUP_START();
var radios = [
{ id: "mldbehall", value: "-1", checked: (self <= 0), label: L("lcl_mld_melding_all") },
{ id: "mldbehown", value: "1", checked: (self > 0), label: L("lcl_mld_melding_own") }
];
RADIO_GROUP("self", radios);
CONTROLGROUP_END();
}
if (status.length == 0) {
CONTROLGROUP_START();
CHB_FIELD("mldtebeh", L("lcl_mld_chk_bo_mldNew"), (fase & 1) == 1, { "inline": true });
CHB_FIELD("mldinbeh", L("lcl_mld_chk_bo_mldSelf"), (fase & 2) == 1, { "inline": true });
CHB_FIELD("mldafm", L("lcl_mld_chk_bo_mldAfm"), (fase & 4) == 1, { "inline": true });
CONTROLGROUP_END();
}
CONTROLGROUP_START();
if (behandel3_key < 0 && !(S("mld_restrict_mobile_to_me") == 1 && self <= 0))
{
%>
<label for="behandel"><%=safe.html(L("lcl_mld_no_handler"))%></label>
<select name="behandel" id="behandel" class="<%=MOBILE_UI_CLASSES.select%>">
<option value="-2" <%=((behandel3_key == -2) ? "selected" : "")%> ><%=safe.html(L("lcl_Yes"))%></option>
<option value="-1" <%=((behandel3_key == -1) ? "selected" : "")%> ><%=safe.html(L("lcl_No"))%></option>
</select>
<% }
CONTROLGROUP_END();
CONTROLGROUP_START();
%> <input type="text" placeholder="<%=L("lcl_call_number")%>" class="<%=MOBILE_UI_CLASSES.input%>" id="mld_key" name="mld_key" <%=(mld_key > 0) ? "value='" + mld_key + "'" : ""%>>
<input type="text" placeholder="<%=L("lcl_search_diff_fields")%>" class="<%=MOBILE_UI_CLASSES.input%>" id="searchtekst" name="searchtekst" <%=(searchtekst != "") ? "value='" + safe.htmlattr(searchtekst) + "'" : ""%>>
<%
if (inArray(filterLevel, ["L", "D", "A"])) { // Anders is een gebouwfilter niet relevant
// Gebruiken we uberhaupt plaatsen bij meldingen?
var sql = "SELECT 1 FROM ins_srtdiscipline WHERE ins_srtdiscipline_alg <> 0";
var oRs = Oracle.Execute(sql);
var anyPlace = !oRs.eof;
oRs.close();
if (anyPlace) {
var sqlbld_select = "";
var sqlbld_where = "";
switch (filterLevel) {
case "L": sqlbld_where = "b.alg_locatie_key = " + locatie_key;
break;
case "D": sqlbld_select = "l.alg_locatie_code || '-' || ";
sqlbld_where = "l.alg_district_key = " + district_key;
break;
case "A": sqlbld_select = "l.alg_locatie_code || '-' || ";
sqlbld_where = "1 = 1";
break;
}
var sqlbld = "SELECT 0, " + safe.quoted_sql(L("lcl_mld_no_bld_ter")) + " FROM DUAL"
+ " UNION "
+ "SELECT alg_terreinsector_key, " + sqlbld_select + "alg_terreinsector_naam"
+ " FROM alg_v_aanwezigterreinsector b, alg_locatie l"
+ " WHERE b.alg_locatie_key = l.alg_locatie_key"
+ " AND " + sqlbld_where
+ " UNION "
+ "SELECT alg_gebouw_key, " + sqlbld_select + "alg_gebouw_naam"
+ " FROM alg_v_aanweziggebouw b, alg_locatie l"
+ " WHERE b.alg_locatie_key = l.alg_locatie_key"
+ " AND " + sqlbld_where
+ " ORDER BY 2";
FCLTselector( "bld_key"
, sqlbld
, { label: L("lcl_bld_terra")
, initKey: bld_key
, placeholder: true
, emptyOption: ""
, onChange: "changeGebouw()"
, mobile: true
});
}
}
CONTROLGROUP_END();
CONTROLGROUP_START();
BUTTON(L("lcl_mobile_panel_filter"), { id: "search_submit", click: "mld_filter()", icon: "fa-fclt-refresh" });
CONTROLGROUP_END();
%>
</form>
<% FILTER_PANEL_END();
var withContext = (ruimte_key > -1 || ins_key > -1 || rsv_ruimte_key > -1);
var multiactions = [];
if (user.has("WEB_MLDFOF") || user.has("WEB_MLDBOF")) {
multiactions.push({ icon: "fa-flag-checkered", action: "mld_close", caption: L("lcl_close") });
}
var group = (show_locatie && p_loc_key == -1) || (show_disciplines && grp_sel == "");
HEADER({
title: subject,
back: (!qrc && withContext),
filterPanel: !withContext,
addaction: canAdd? (rooturl + "/appl/pda/melding.asp?mld_key=-1" + (ins_key > -1? "&ins_key=" + ins_key : "") + (ruimte_key > -1? "&ruimte_key=" + ruimte_key : "") + "&meldbronkey=" + meldbron_key + (deelsrtcont_key>-1 ? "&deelsrtcont_key=" + deelsrtcont_key : "")) : false,
multiactions: !group && multiactions.length
});
CONTENT_START();
var rst = new ResultsetTable({sql: sqln,
keyColumn: "mld_melding_key",
groupColumn: (group ? fncolGroup : null),
groupSelect: "",
rowClass: fnrowClass,
linkColumn: fncolLink,
iconColumn: fncolIcon,
headerColumn: fncolHeader,
detailColumn: fnDetailColumn,
asideColumn: fnUrgentie,
subheaderColumn: fncolSubHeader,
ID: "complainstable",
multiactions: multiactions,
showAll: true
});
var cnt = rst.processResultset();
CONTENT_END();
FOOTER();
PAGE_END();
PDA_PAGE_END(); %>
</body>
</html>
<% ASPPAGE_END(); %>