<%@ language = "JavaScript" %> <% /* $Revision$ $Id$ File: ins_deel.asp Description: List of objects (Mobile version) Parameters: ins_key (bv via QRC) Note: CONCEPTUAL */ %> <% var ins_key = getQParamInt("ins_key"); var qrc = getQParamInt("qrc", 0) != 0; var isResDeel = false; // Bepaal wat objectgegevens, specifiek ook de plaats (TODO: Terrein) var sql = " SELECT id.ins_deel_omschrijving" + " , " + lcl.xsqla("sd.ins_srtdeel_omschrijving", "sd.ins_srtdeel_key") + " , id.ins_deel_opmerking" + " , id.ins_deel_key" + " , id.ins_srtdeel_key" + " , id.ins_deel_parent_key" + " , id.ins_alg_ruimte_type" + " , id.ins_alg_ruimte_key" + " FROM ins_deel id" + " , ins_srtdeel sd" + " WHERE sd.ins_srtdeel_key = id.ins_srtdeel_key" + " AND id.ins_deel_verwijder IS NULL" + " AND id.ins_deel_key = " + ins_key; var oRs = Oracle.Execute(sql); if (!oRs.eof) { var ins_deel_omschrijving = oRs("ins_deel_omschrijving").Value; var ins_srtdeel_omschrijving = oRs("ins_srtdeel_omschrijving").Value; var ins_deel_opmerking = oRs("ins_deel_opmerking").Value; var ins_srtdeel_key = oRs("ins_srtdeel_key").Value;; var ins_parent_key = oRs("ins_deel_parent_key").Value || -1; var ruimte_type = oRs("ins_alg_ruimte_type").Value; var ruimte_key = oRs("ins_alg_ruimte_key").Value; var subject = ins_srtdeel_omschrijving+ " " +ins_deel_omschrijving; var plaats_afdeling = ins.getBindingItemString(ruimte_type, ruimte_key, ins_parent_key); // Haal nog wat gegevens over de parent op als het een onderdeel is. var parent = ""; if (ins_parent_key > -1) { var psql = "SELECT id.ins_deel_omschrijving" + " , " + lcl.xsqla('sd.ins_srtdeel_omschrijving', 'sd.ins_srtdeel_key') + ", ins_deel_parent_key" + " FROM ins_deel id" + " , ins_srtdeel sd" + " WHERE id.ins_srtdeel_key = sd.ins_srtdeel_key" + " AND id.ins_deel_key = " + ins_parent_key; var pRs = Oracle.Execute(psql); parent = pRs("ins_srtdeel_omschrijving").Value + " " + pRs("ins_deel_omschrijving").Value; pRs.Close(); } } oRs.Close(); %>
<% FCLTMHeader.Generate({title: subject}); %>
<% PAGE_START(); HEADER({title: subject, back:!qrc, home: !qrc}); CONTENT_START(); if (ins_parent_key > -1) { ROFIELD("fld", L("lcl_ins_parentobject"), parent); } // zit al in de titel: ROFIELD("fld", L("lcl_obj_identification"), ins_deel_omschrijving); ROFIELD("fld", L("lcl_place"), plaats_afdeling); ROFIELD("fld", L("lcl_ins_opmerking"), ins_deel_opmerking, {suppressEmpty: true}); // Plus flexkenmerken generateFlexKenmerkBlock({ fnpre : function () { BLOCK_START({collapsed: true, title: L("lcl_flexible_properties")}); }, fnpost : BLOCK_END, urole: "fe", ins_key: ins_key, srtdeel_key: ins_srtdeel_key, reado: true }); // Heeft deel ook onderdelen? var sql = "SELECT COUNT(*)" + " FROM ins_v_aanwezigonderdeel" + " WHERE ins_deel_parent_key = " + ins_key; oRs = Oracle.Execute(sql); hasOnderdelen = (oRs(0).Value > 0); // Inspecties mogelijk op dit object? var sql = "SELECT COUNT(*)" + " FROM ins_srtcontrole isc," + " ins_deel d," + " ins_srtdeel sd" + " WHERE sd.ins_srtdeel_key = d.ins_srtdeel_key" + " AND ins_deel_key = " + ins_key + " AND ( isc.ins_srtcontrole_niveau = 'S' AND isc.ins_srtinstallatie_key = d.ins_srtdeel_key" + " OR isc.ins_srtcontrole_niveau = 'G' AND isc.ins_srtinstallatie_key = sd.ins_srtgroep_key" + " OR isc.ins_srtcontrole_niveau = 'D' AND isc.ins_srtinstallatie_key = d.ins_discipline_key" + " )" oRs = Oracle.Execute(sql); canInspect = (oRs(0).Value > 0); //TODO-AUTH: mag ik deze soort (hier) inspecteren? sql = "SELECT res_deel_key FROM res_deel " + " WHERE res_deel_verwijder IS NULL" + " AND res_ins_deel_key = " + ins_key; oRs = Oracle.Execute(sql); if (!oRs.eof) { isResDeel = true; } oRs.Close(); //TODO-AUTH: mag ik deze soort (hier) reserveren? CONTROLGROUP_START() if (canInspect) { BUTTON(L("lcl_mobile_inspecties"), {linkid: "./ins_inspect.asp?ins_key="+ins_key, dataicon: "search", dataajax: 'false'}); } if (isResDeel) { // Zoiets BUTTON(L("lcl_mobile_reserveringen"), {linkid: "./reserveringen.asp?ins_key="+ins_key, dataicon: "grid", dataajax: 'false'}); } if (hasOnderdelen) { BUTTON(L("lcl_subobjects"), {linkid: "./ins_list.asp?ins_parent_key="+ins_key, dataicon: "gear", dataajax: 'false'}); } trackinglines = mobile.hastrackingpage('deel', ins_key); if (trackinglines>0) { BUTTON(L("lcl_history"), {linkid: "#ins-2-"+ins_key, dataicon: "bullets", transition: "pop", datarel: "dialog"}); } if (user.checkAutorisation( "WEB_MLDUSE", true)) { var tsql = "SELECT COUNT(m.mld_melding_key)" + " FROM mld_melding_object mo, mld_melding m" + " WHERE mo.mld_melding_object_verwijder IS NULL" + " AND mo.mld_melding_key = m.mld_melding_key" + " AND m.mld_melding_status IN (0, 2, 3, 4, 7)" // lopende meldingen + " AND mo.ins_deel_key = " + ins_key; var toRs = Oracle.Execute(tsql); if (toRs(0).Value == 0) { // Geen, dan moet ik dus willen toevoegen. // Dan moet er wel een srtdiscipline getoond kunnen worden. var mySRTsql = mld.srtdisc_sql("WEB_MLDUSE", { ins_key: ins_key }); var sql = "SELECT MIN(ins_srtdiscipline_key) ins_srtdiscipline_key" + " , COUNT(DISTINCT ins_srtdiscipline_key) aantal" + " FROM (" + mySRTsql + ")"; var oRs = Oracle.Execute(sql); if (oRs("aantal").Value > 0) BUTTON(L("lcl_mobile_newmelding"), {linkid: "./melding.asp?mld_key=-1&ins_key=" + ins_key , dataicon: "plus", dataajax: 'false'}); oRs.Close(); } else if (toRs(0).Value > 0 && user.checkAutorisation( "WEB_MLDBOF", true)) { BUTTON(L("lcl_mobile_meldingen") + " (" + toRs(0).Value + ")", {linkid: "./mld_list.asp?ins_key=" + ins_key , dataicon: "alert"}); } } CONTROLGROUP_END() CONTENT_END(); FOOTER(); PAGE_END(); if (trackinglines>0) { PAGE_START({id: "ins-2-"+ins_key}) mobile.trackingpage('deel', ins_key, subject); PAGE_END(); } %>