<%@ language="javascript"%> <% /* $Revision$ $Id$ File: ins_history_list.asp (was ins_info.asp) Description: show the history of edited flex properties. Parameters: ins_key Context: Note: */ %> <% FCLTHeader.Requires({ plugins:["jQuery"] }) var urole = getQParamSafe("urole"); // Indien niet meegegeven, veronderstel dan frontend gebruik var insdeelkey = getQParamInt("ins_key"); var since = getQParamDate("date_from", null); var outputmode = getQParamInt("outputmode", 0); // 0 = screen, 1 = print, 2 = excel etc var print = (outputmode == 1 || outputmode == 5); var excel = (outputmode == 2 || outputmode == 6); var showall = getQParamInt("showall", 0) == 1; // De functie checkAutorisation(autfunction) geeft een Response.End indien er geen autorisatie voor autfunction wordt gevonden var autfunction = urole == "fo"? "WEB_INSFOF" : "WEB_INSMAN"; var authparams = user.checkAutorisation(autfunction); %>
<% FCLTHeader.Generate({ outputmode: outputmode }); %>
<% sql = "SELECT kd.ins_kenmerkdeel_aanmaak" + " , COALESCE (" + lcl.xsql("k.ins_kenmerk_omschrijving", "k.ins_kenmerk_key") + " , " + lcl.xsql("sk.ins_srtkenmerk_omschrijving", "sk.ins_srtkenmerk_key") + ") kenmerk_omschrijving" + " , CASE sk.ins_srtkenmerk_kenmerktype" + " WHEN 'X'" + " THEN kd.ins_kenmerkdeel_waarde" + " WHEN 'D'" //+ " THEN " + GetDateTime( "TO_DATE(kd.ins_kenmerkdeel_waarde, 'DD-MM-YYYY')", false) // MGE: heen en terug converteren. Lijkt mij overbodig => TO_CHAR(TO_DATE(kd.ins_kenmerkdeel_waarde, 'DD-MM-YYYY'), 'DD-MM-YYYY') + " THEN kd.ins_kenmerkdeel_waarde" + " ELSE kd.ins_kenmerkdeel_waarde || ' ' || " + lcl.xsql("sk.ins_srtkenmerk_dimensie", "sk.ins_srtkenmerk_key") + " END kenmerkdeelwaarde" + " , kd.ins_kenmerkdeel_verwijder" + " , sk.ins_srtkenmerk_kenmerktype" + " , kd.ins_kenmerk_key" + " , kd.ins_kenmerkdeel_waarde" + " , sk.ins_srtkenmerk_key" + " , " + lcl.xsqla("sk.ins_srtkenmerk_dimensie", "sk.ins_srtkenmerk_key") + " , kd.ins_kenmerkdeel_key" + " , sk.fac_kenmerkdomein_key" + " FROM ins_kenmerkdeel kd" + " , ins_kenmerk k" + " , ins_srtkenmerk sk" + " WHERE kd.ins_kenmerkdeel_verwijder IS NOT NULL" + " AND sk.ins_srtkenmerk_key = k.ins_srtkenmerk_key" + " AND kd.ins_kenmerk_key = k.ins_kenmerk_key" + " AND kd.ins_deel_key = " + insdeelkey + (since? " AND kd.ins_kenmerkdeel_aanmaak >= " + since.toSQL() : "") + " ORDER BY ins_kenmerkdeel_aanmaak DESC"; oRs = Oracle.Execute(sql); function fnValue(oRs) { // Kolom met de waarde content = oRs("kenmerkdeelwaarde").Value; if (oRs("ins_srtkenmerk_kenmerktype").Value == 'X') { content = '' + content + ''; } else if (oRs("ins_srtkenmerk_kenmerktype").Value == 'R' || oRs("ins_srtkenmerk_kenmerktype").Value == 'r' || oRs("ins_srtkenmerk_kenmerktype").Value == 'S') { // PF: wat hier stond was absoluut fout. Het zou zoiets moeten zijn, nooit getest en komt nooit voor // (referentiekenmerken bij meetwaarden) maar toch voor het idee aangepast en niet weggegooid. sql2 = "SELECT fac.getdomeinwaarde(" + oRs("fac_kenmerkdomein_key").Value + ", " + oRs("ins_kenmerkdeel_waarde").Value + ") FROM DUAL"; oRs2 = Oracle.Execute(sql2); if (!oRs2.eof) { content = oRs2(0).Value; } oRs2.close(); } return content; } // Titel sql_omschr = "SELECT ins_deel_omschrijving" + " FROM ins_deel" + " WHERE ins_deel_key = " + insdeelkey; oRs = Oracle.Execute(sql_omschr); var insdeeldescr = oRs("ins_deel_omschrijving").Value; oRs.Close(); var rst = new ResultsetTable({ keyColumn: "ins_kenmerkdeel_key", sql: sql, ID: "inshistable", outputmode: outputmode, title: L("lcl_history") + " " + insdeeldescr, showAll: showall }); rst.addColumn(new Column({caption: L("lcl_obj_prop_dsc"), content: "kenmerk_omschrijving"})); rst.addColumn(new Column({caption: L("lcl_obj_prop_value"), content: fnValue})); rst.addColumn(new Column({caption: L("lcl_obj_prop_create_date"), content: "ins_kenmerkdeel_aanmaak"})); rst.addColumn(new Column({caption: L("lcl_obj_prop_delete_date"), content: "ins_kenmerkdeel_verwijder"})); var count = rst.processResultset(); %>
<% ASPPAGE_END(); %>