CAPG#29596 voorzieningen waarschuwing groter

svn path=/Website/branches/v5.2.3/; revision=21650

APPL/API/api_mldsoap.asp

@@ -28,6 +28,23 @@
     Session.Codepage = 65001;
     Response.Charset = 'utf-8';
 
+// Zet de loglevel in de API op 1 om de xml te loggen naar de TEMP folder
+function XML2TEMP(xml, postfix)
+{
+    if (!API.apidata.loglevel) return;
+    var in_file = Server.MapPath("./temp") + "/" + customerId + "_" + APIname + "_" + postfix + "_";
+    var jsDate = new Date();
+    var s = String(jsDate.getFullYear()) + padout(jsDate.getMonth() + 1) + padout(jsDate.getDate())
+          + padout(jsDate.getHours()) + padout(jsDate.getMinutes()) + padout(jsDate.getSeconds())
+    in_file = in_file + s + ".xml";
+    //Response.Write(in_file);Response.End;
+
+    var fs  = Server.CreateObject("Scripting.FileSystemObject");
+    var ts  = fs.CreateTextFile(in_file, true, -1); // -1 voor de Unicode
+    ts.WriteLine (xml);                             // Anders hier Invalid procedure call or argument
+    ts.Close();
+}
+
 // CreateFullPath moet hier weg bij overnemen naar trunk 531!
 function CreateFullPath(sPath)
 {
@@ -58,6 +75,8 @@ function CreateFullPath(sPath)
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
     xmlReq.load(Request);
 
+    XML2TEMP(xmlReq.xml, "IN");
+
     var xmlResp = new ActiveXObject("MSXML2.DOMDocument.4.0");
     xmlResp.appendChild(xmlResp.createProcessingInstruction("xml", "version=\"1.0\" encoding=\"utf-8\""))
 

APPL/API/api_opdrsoap.asp

@@ -61,8 +61,6 @@
 
     var tsql = "-";     // Voor tijdelijke statement
     var sql = "-";      // De uiteindelijke update-sql
-    var resultcode = -1;        /* zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed) */
-    var resulttekst = "";
 
     var xmlReq = Server.CreateObject("MSXML2.DOMDocument.4.0");
     xmlReq.load(Request);
@@ -127,6 +125,9 @@
     var opdrachten = xmlReq.getElementsByTagName("opdracht");
     for (i=0; i < opdrachten.length; i++)
     {
+        var resultcode = -1;        /* zolang deze -1 is, is het nog goed. Uiteindelijk eindigt het met 0 (als goed) */
+        var resulttekst = "";
+
         // Lees per node de (optionele) tages en waarden
         //var opdraction      = (opdrachten[i].getElementsByTagName("action"))[0].childNodes[0].nodeValue;
         var opdr_key        = -1;   // Bepalen we zo uit de melding/volgnr
@@ -180,7 +181,7 @@
                     var oRs = Oracle.Execute(sql);
                     var autoorder = oRs("mld_stdmelding_autoorder").value == 1;       
 
-                    var mut_datum = null;
+                    var mut_datum = new Date();
                     if (txt_mut_datum && mld_opdr.typeopdr_afmeldmarge>0)
                     {
                         var mut_datum = XMLtoJsDate(txt_mut_datum);

APPL/CAD/FGII.inc

@@ -3,16 +3,22 @@
 var MODE_IN = 0;
 var MODE_OUT = 1;
 
-function FindDWF(drawing, scenario_key, concept)
+// dwfmode afwezig/0=normaal, 1=conceptfolder, 2=vluchtplan mode
+function FindDWF(drawing, scenario_key, dwfmode)
 {
     // Strip eventuele DWG en DWF van filenaam
-    var fname = drawing.replace(/.dwg/g,'');
-    var fname = fname.replace(/.dwf/g,'');
-    if (concept == 1) {
-        var fullname = S("fg_dwf_path_concept") + fname + ".dwf";
-    } else {
-        var fullname = S("fg_dwf_path") + fname + ".dwf";
+    var fname = drawing.replace(/.dwg$/ig,'');
+    var fname = fname.replace(/.dwf$/ig,'');
+    switch (dwfmode)
+    {
+        case 1: var fullpath = S("fg_dwf_path_concept");
+                break;
+        case 2: var fullpath = S("fg_vlucht_path");
+                break;
+        default: var fullpath = S("fg_dwf_path");
     }
+    var fullname = fullpath + fname + ".dwf"
+
     var fullnameScenario = S("fg_dwf_path_prj") + scenario_key + "\\" + fname + ".dwf";
     __Log("fullnameScenario: " + fullnameScenario);
     var fso = new ActiveXObject("Scripting.FileSystemObject");
@@ -39,7 +45,7 @@ function FindDWF(drawing, scenario_key, concept)
 
 // Momenteel gebruiken we dezelfde DWF voor plan en voor cont
 // Result: dwfPath als gevonden, false/error als niet gevonden
-function SetVerdPlanDWF(pvKey, inoutMode, scenario_key, concept)
+function SetVerdPlanDWF(pvKey, inoutMode, scenario_key, dwfmode)
 {
     if (inoutMode == MODE_IN)
     {
@@ -76,10 +82,10 @@ function SetVerdPlanDWF(pvKey, inoutMode, scenario_key, concept)
     else
     {
     	teknaam = oRs("CAD_TEKENING_FILENAAM").value;
-        fname = FindDWF(teknaam, scenario_key, concept);
+        fname = FindDWF(teknaam, scenario_key, dwfmode);
         if( fname == "" )
         {
-            if (concept)
+            if (dwfmode==1)
                 new SLNKDWF({}).Warning(L("lcl_fg_conceptnotfound"));
             else
                 new SLNKDWF({}).Warning(L("lcl_fg_drawingnotfound")+"\n" + teknaam + "\nIn: " + S("fg_dwf_path"));

APPL/CAD/mySlnk2IMGEv.asp

@@ -21,7 +21,7 @@ pvKey     = getQParamInt("vKey", -1);
 
 fg_dwf_path = S("fg_vlucht_path");
 
-dwfPath = SetVerdPlanDWF(pvKey, MODE_IN, 0);
+dwfPath = SetVerdPlanDWF(pvKey, MODE_IN, 0, 2); // 2==vluchtplan mode
 if (dwfPath)
 {
     var mySLNKDWF = new SLNKDWF({ dwfFile      : dwfPath,

APPL/FAC/fac_preview_xsl.asp

@@ -25,10 +25,19 @@ FCLTHeader.Requires({ plugins: ["jQuery"], js: ["jQuery-ui.js"]
 var autfunction = "WEB_PRSSYS";
 var authparams = user.checkAutorisation(autfunction);
 
+try
+{
 FCLT2XMLResponse({xmlnode: getQParamSafe("xmlnode"),
                   key: getQParamInt("key", -1),
                   mode: getQParam("mode", "email"),
                   srtnotificatie: getQParam("srtnoti"),
                   concept: true });
-
+}
+catch(e)
+{
+    if (String(e.description).indexOf("ORA-01403")>=0)
+        shared.simpel_page("Geen gegevens gevonden. Niet bestaand nummer gebruikt?");
+    else
+        shared.simpel_page("Kan geen preview genereren:<p><blockquote>{0}</blockquote>".format(safe.html(e.description)));
+}
 %>

APPL/FAC/help.asp

@@ -13,7 +13,7 @@
 FCLTHeader.Requires({ plugins: [], js: [] });
 
 var url = getQParam("url", "");
-
+var usedefault = getQParamInt("default", 0) == 1;
 // Vertaalt de url (van de pagina in het actieve frame) naar de naam/code van de module
 // zodat naar de juiste modulestartpagina kan worden gesprongen
 function findparam(params, name)
@@ -42,10 +42,10 @@ var sql = "SELECT fac_setting_default"
         + "  FROM fac_setting fs"
         + " WHERE fs.fac_setting_name = 'helppage_url'";
 var oRs = Oracle.Execute(sql);
-if (!oRs("fac_setting_pvalue").value)
-{ // Default waarde wordt niet overruled
-  var fac_setting_default = "" + oRs("fac_setting_default").value;
-  var linkProtocol = fac_setting_default.substr(0, 5) == "https"? "https" : "http";
+if (usedefault || !oRs("fac_setting_pvalue").value)
+{ // Default waarde niet overrulen of wordt niet overruled
+  helppage_url = "" + oRs("fac_setting_default").value;
+  var linkProtocol = helppage_url.substr(0, 5) == "https"? "https" : "http";
   var isProtocol = (Request.ServerVariables("SERVER_PORT") == "443")? "https" : "http";
   if (isProtocol != linkProtocol)
   { // Nu helppage_url aanpassen aan het protocol wat gebruikt wordt.

APPL/FAC/job_edit_job.asp

@@ -312,7 +312,6 @@ if (job_key > -1)   {
             { perslidKey: person,
               label: L("lcl_requestor"),
               fieldNameKey: "person",
-              filtercode: "M",
               required: true,
               readonly: false
             });

APPL/FAC/prodsearch.asp

@@ -163,8 +163,12 @@ function fncolAction(oRs)
       case "besartikel":
           icon = "../Pictures/cart_p.png";
 
-          if (oRs("foto").value != null){
+          if (oRs("foto").value != null)
+          {
             icon = oRs("foto").value;
+            if (icon.indexOf("/") == -1) // Nog geen enkele slash? Dan moet het wel lokaal zijn.
+                icon = S("bes_image_path") + oRs("disc_key").Value + "/" + icon;
+
             if (icon.match(/\.pdf$/i))
             {
                icon="../Pictures/pdf.jpg";

APPL/INS/ins_inspect.asp

@@ -122,6 +122,7 @@ user.anything_todo_or_abort(tobeinspected > 0); // We klagen niet over enkele we
                 { label: L("lcl_ins_controle"),
                   initKey: srtcont_key,
                   emptyOption: L("lcl_select_srtcontrole"),
+                  //readonly: srtcont_key > 0, // dan wordtie niet gesubmit
                   required: true
                 }
               );
@@ -129,7 +130,7 @@ user.anything_todo_or_abort(tobeinspected > 0); // We klagen niet over enkele we
         {
           sql = "SELECT ins_srtcontrole_info FROM ins_srtcontrole WHERE ins_srtcontrole_key = " + srtcont_key;
           var oRs = Oracle.Execute(sql);
-          RWTEXTAREATR("srtcontrole_info", "fldtxt", L("lcl_ins_info"), oRs("ins_srtcontrole_info").value, {html: "rows='3'"});
+          ROTEXTAREATR("fldtxt", L("lcl_ins_info"), oRs("ins_srtcontrole_info").value, {html: "rows='3'"});
         }
         FCLTcalendar( "deelsrtcontrole_datum",
                       { label    : L("lcl_ins_controle_datum"),

APPL/INS/ins_list.inc

@@ -493,7 +493,7 @@ function ins_list (pautfunction, params)
                   + "        ORDER BY inspectie_next)"
                   + " WHERE rn = 1";
 
-              sqlInspectie_select = "inspectie_next, ins_srtcontrole_omschrijving";
+              sqlInspectie_select = "inspectie_next, ins_srtcontrole_omschrijving, ins_srtcontrole_key";
 
               sqlInspectie_from = ", ("+sqlNext+") ispn"
 
@@ -564,7 +564,6 @@ function ins_list (pautfunction, params)
                     + ", (SELECT " + S("prs_dep_string") + " FROM prs_v_afdeling d WHERE prs_afdeling_key = i.ins_alg_ruimte_key) eigenaar"
                     + ", NULL alg_ruimte_key " // person key
                     + ", i.ins_alg_ruimte_key prs_afdeling_key" // department key
-                    + ", ins_srtcontrole_key"
                     + (koppel_key? ", ins_deelkoppeling_omschrijving, ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key" : "")
                     + sqlOwner_from
                     + ", prs_v_afdeling_boom d"
@@ -581,7 +580,6 @@ function ins_list (pautfunction, params)
                     + ", " + S("prs_pers_string") + " eigenaar"
                     + ", i.ins_alg_ruimte_key alg_ruimte_key " // person key
                     + ", p.prs_afdeling_key prs_afdeling_key" // department key
-                    + ", ins_srtcontrole_key"
                     + (koppel_key? ", ins_deelkoppeling_omschrijving, ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key" : "")
                     + sqlOwner_from
                     + ", prs_perslid p"
@@ -600,7 +598,6 @@ function ins_list (pautfunction, params)
                      + ", c.prs_contactpersoon_naam eigenaar"
                      + ", i.ins_alg_ruimte_key alg_ruimte_key" // person key
                      + ", NULL prs_afdeling_key" // department key
-                     + ", ins_srtcontrole_key"
                      + (koppel_key? ", ins_deelkoppeling_omschrijving, ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key" : "")
                      + sqlOwner_from
                      + ", prs_contactpersoon c"
@@ -648,7 +645,6 @@ function ins_list (pautfunction, params)
                       + ", null eigenaar"
                       + ", i.ins_alg_ruimte_key alg_ruimte_key"
                       + ", 0 dummy1" // department key
-                      + ", ins_srtcontrole_key"
                       + (koppel_key? ", ins_deelkoppeling_omschrijving, ins_deelkoppeling_van_key, ins_deelkoppeling_naar_key" : "")
                       + " FROM ins_deel i"
                       + (terr_key
@@ -1053,7 +1049,7 @@ function ins_list (pautfunction, params)
           var insKey = oRs("ins_deel_key").value;
           var insTypeKey = oRs("ins_srtdeel_key").value;
           var insAvailable = oRs("ins_alg_ruimte_key_org").value == null? 1 : 0;
-          var insSrtControleKey = oRs("ins_srtcontrole_key").value;
+          var insSrtControleKey = (params.inspect? oRs("ins_srtcontrole_key").value : -1);
 
           var data = {insKey:insKey, insTypeKey:insTypeKey, insAvailable:insAvailable, insSrtControleKey:insSrtControleKey};
           return JSON.stringify(data);
@@ -1334,10 +1330,12 @@ function ins_list (pautfunction, params)
         if (params.inspect)
           rst.addAction({ action: "insInspect", caption: L("lcl_ins_controle"), multi: !tiny, multiOnce: true });
         else
+        {
           rst.addAction({ action: "insDelete", caption: L("lcl_delete"), enabler: "eDelete", single: false, multi: !tiny, multiOnce: true});
           rst.addAction({ action: "insMultiEdit", caption: L("lcl_ins_multi_edit"), enabler: "eEdit", multi: !tiny, single: false, multiOnce: true});
           rst.addAction({ action: "insMultiMove", caption: L("lcl_ins_multi_move"), enabler: "NotExist", multi: !tiny, multiOnce: true});
         }
+      }
 
         var count = rst.processResultset();
       } %>

APPL/INS/ins_list.js

@@ -190,6 +190,22 @@ function insInspect(rowArray)
     rowdata = eval('(' + rowArray[0].getAttribute("ROWDATA") + ')');
     srtcontrole_key = rowdata.insSrtControleKey;
   }
+  else
+  {
+    srtcontrolekeyArray = new Array();
+    for (var i = 0; i < rowArray.length; i++)
+    {
+      rowdata = eval('(' + rowArray[i].getAttribute("ROWDATA") + ')');
+      srtcontrolekeyArray[i] = rowdata.insSrtControleKey;
+      // Zijn er twee controlesoorten geselecteerd. Is de waarde gelijk aan de voorgaande.
+      if (i > 0 && srtcontrolekeyArray[i-1] != srtcontrolekeyArray[i])
+      { // Twee controlesoorten zijn niet toegestaan
+        alert(L("lcl_ins_no_same_srtcontrole"));
+        return false;
+      }
+    }
+    srtcontrole_key = srtcontrolekeyArray[0];
+  }
   var subject = L("lcl_ins_multi_controle");
   var url = "../ins/ins_inspect.asp?ins_keys=" + insKeyString + (srtcontrole_key > 0? "&srtcont_key=" + srtcontrole_key : "");
   FcltMgr.openModalDetail(url, rowArray.length > 1? L("lcl_ins_multi_controle") : L("lcl_ins_docontrole"), {callback: FcltCallbackRefresh});

APPL/INS/load_owkenmerk.asp

@@ -187,8 +187,8 @@ if( txt ) rowIndex = txt.rowIndex;
       var kdim    = oRs(15).Value;
 
       var val1 = safe.html(val);
-      var kv = reado ? (ktype == 'X' ? (val? '<a href=\\"'+ S("image_path_virtual") +val1+'\\">'+val1+'</a>' :'') : ("<input type=text style='width:200' value='"+ (val ? val1 : '' )+"' readonly "+"maxlength="+(ktype=='N'&&kdec?klen+1:klen)+">"))
-             : ("<input type='"+(ktype == 'X' &&!val ? 'file' : 'text')+"' onChange=frames.hidFrameKenmerk" + serienr + ".checkK" + i + serienr + "(false) onBlur=frames.hidFrameKenmerk" + serienr + ".checkK" + i + serienr + "(true) name='k" + i + "val" + serienr + "'" + (val? " value='" + val1 + "'" : '')
+      var kv = reado ? (ktype == 'X' ? (val? '<a href=\\"'+ S("image_path_virtual") +val1+'\\">'+val1+'</a>' :'') : ("<input type=text style='width:200' value='"+ safe.htmlattr(val)+"' readonly "+"maxlength="+(ktype=='N'&&kdec?klen+1:klen)+">"))
+             : ("<input type='"+(ktype == 'X' &&!val ? 'file' : 'text')+"' onChange=frames.hidFrameKenmerk" + serienr + ".checkK" + i + serienr + "(false) onBlur=frames.hidFrameKenmerk" + serienr + ".checkK" + i + serienr + "(true) name='k" + i + "val" + serienr + "'" + (val? " value='" + safe.htmlattr(val) + "'" : '')
              + " maxlength="+(ktype=='N'&&kdec?klen+1:klen)
              + (ktype=='D'?' onKeyPress=kenmerkDateKey() onPropertyChange=kenmerkDateChange()':'')
              + " style='width:" + (klen > 28? (klen > 40? "360" : "" + (klen * 100 / 14 + 10)) : "200") + "'>")
@@ -250,7 +250,7 @@ if( txt ) rowIndex = txt.rowIndex;
           kv = "<textarea rows=3 cols=55 "
                + (reado ? " readonly ":(" onChange=frames.hidFrameKenmerk"+serienr+".checkK"+i+serienr+"(false) onBlur=frames.hidFrameKenmerk"+serienr+".checkK"+i+serienr+"(true) name='k"+i+"val" + serienr + "'"))
              + ">"
-             + (val ? val1 : "")+"</textarea>";
+             + safe.textarea(val)+"</textarea>";
       }
       if( ktype == 'L' ) {
         kv = "<p align='bottom' class='disabled'><b id=k" + i + "l>" + def_val + "</b></p>";

APPL/MLD/mld.inc

@@ -674,26 +674,15 @@ mld = {setmeldingstatus:
                          + " AND mo.mld_melding_object_verwijder IS NULL)";
              }
 
-             sql_to_late_accept = "CASE"
-                                + " WHEN fac.gettrackingdate('MLDACP', m.mld_melding_key) IS NULL"
-                                + " THEN CASE"
-                                     + " WHEN fac.gettrackingdate('MLDREJ', m.mld_melding_key) IS NULL"
-                                       + " THEN CASE SIGN(mld_melding_acceptdatum_std - SYSDATE)"
+             // Meldingen worden soms niet geaccepteerd maar direct afgewezen of afgemeld.
+             // Als dit binnen de acceptatietijd gebeurd dan is die melding niet te laat geaccepteerd.
+             sql_to_late_accept = " CASE SIGN (mld_melding_acceptdatum_std - COALESCE(fac.gettrackingdate ('MLDACP', m.mld_melding_key)," // Geaccepteerde meldingen
+                                                                                  + " fac.gettrackingdate ('MLDREJ', m.mld_melding_key)," // Direct afgewezen meldingen
+                                                                                  + " fac.gettrackingdate ('MLDAFM', m.mld_melding_key)," // Direct afgemelde meldingen
+                                                                                  + " SYSDATE))"
                                 + " WHEN -1"
                                 + " THEN 1"
                                 + " ELSE 0"
-                                          + " END"
-                                     + " ELSE CASE SIGN(mld_melding_acceptdatum_std - fac.gettrackingdate('MLDREJ', m.mld_melding_key))"
-                                          + " WHEN -1"
-                                          + " THEN 1"
-                                          + " ELSE 0"
-                                          + " END"
-                                     + " END"
-                                + " ELSE CASE SIGN(mld_melding_acceptdatum_std - fac.gettrackingdate('MLDACP', m.mld_melding_key))"
-                                     + " WHEN -1"
-                                     + " THEN 1"
-                                     + " ELSE 0"
-                                     + " END"
                                 + " END";
 
              sql_to_late_run = " CASE"

APPL/MLD/mld_edit_melding_save.asp

@@ -107,20 +107,23 @@ if (!forcesave && (fronto || frontend) && isNew)
     else if (stdm_info.alg_onrgoed_niveau == "L")
       var where_alg = "org.alg_locatie_key = " + locatiekey;
 
-    var where_obj = "";
-    if (one_object) // Als er 1 object is geselecteerd
-      where_obj = " OR mo.ins_deel_key = " + obj_arr;
+    // Als er exact 1 object is geselecteerd beschouwen
+    // we alleen meldingen op dat object
 
     sql = "SELECT DISTINCT m.mld_melding_key"
         + "  FROM mld_melding m"
         + "     , alg_v_allonroerendgoed org"
-        + "     , mld_melding_object mo"
+        + (one_object?
+          "     , mld_melding_object mo" : "")
         + " WHERE m.mld_alg_onroerendgoed_keys = org.alg_onroerendgoed_keys"
-        + "   AND m.mld_melding_key = mo.mld_melding_key(+)"
+        + (one_object
+          ? "   AND m.mld_melding_key = mo.mld_melding_key"
+            + " AND mo.ins_deel_key = " + obj_arr
+          : "")
         + "   AND m.mld_melding_status IN (0, 2, 3, 4, 7)"
         + "   AND m.mld_melding_parentkey IS NULL" // Geen child meldingen tonen
         + "   AND m.mld_stdmelding_key = " + stdm_key
-        + "   AND (" + where_alg + where_obj + ")";
+        + "   AND " + where_alg;
     oRs = Oracle.Execute(sql);
     if (!oRs.eof)
     { // Er is mogelijk een dubbele melding aanwezig

APPL/MLD/opdr_goedkeur.asp

@@ -33,14 +33,15 @@ var mld_info = mld.mld_melding_info(mld_opdr.mld_key);
 // nu naar status 3 (ter fiattering) of 5 (uitgegeven)
 var approver_key = -1;  // Die gaan we bepalen. Als het niet anders wordt, wordt er niet gefiatteerd
 // Welk bedrag eventueel te controleren?
-// Tegen wiens profiellimiet eventueel te controleren?
+// Tegen wiens profiellimiet eventueel te controleren? Als de kostenplaats bij de opdracht
+// overruled is dan wordt altijd tegen het profiel van de BO-medewerker getest.
 if (mld_opdr.kosten_klant == 1 && mld_info.kostenpl_key == mld_opdr.kp_key)
 {
-    pkey = mld_info.perslidkey;  // aanvrager van melding
+    pkey = mld_info.melder_key;  // aanvrager van melding
 }
 else
 {   // terugzoeken wie *oorspronkelijk* de opdrachtaanmaker was
-    var sql = "select fac.gettrackinguserkey('ORDGOE', "+opdr_key+") from dual";
+    var sql = "SELECT fac.gettrackinguserkey('ORDGOE', "+opdr_key+") FROM DUAL";
     var oRs = Oracle.Execute(sql);
     pkey = oRs(0).Value || mld_info.behandel_key;
 }

APPL/MRK/mrk_list.inc

@@ -153,6 +153,7 @@ function mrk_list (pautfunction, params)
                                    });
 
       // Kolommen
+      rst.addColumn(new Column({caption: "", content: "mrk_bericht_key", datatype: "integer"}));
       rst.addColumn(new Column({caption: L("lcl_mrk_categorie"), content: "ins_discipline_omschrijving"}));
       rst.addColumn(new Column({caption: L("lcl_mrk_onderwerp"), content: "mrk_bericht_titel"}));
       rst.addColumn(new Column({caption: L("lcl_mrk_omschrijving"), content: "mrk_bericht_omschrijving", combine:true, xpurpose: PRINTING_ONLY}));

APPL/PDA/melding.asp

@@ -155,7 +155,7 @@ if ( mld_key > -1)
         + " WHERE g.alg_onroerendgoed_keys = " + plaats_key
         + "   AND g.alg_locatie_key = l.alg_locatie_key";
     var oRs = Oracle.Execute(sql);
-    var plaats_string = oRs("plaats").value;
+    var plaats_string = !oRs.Eof ? oRs("plaats").value : "";
 
 
     sql = "SELECT"
@@ -188,6 +188,13 @@ var subject = mld_key > -1 ? (oRs("ins_srtdiscipline_prefix").Value || "")+ mld_
   <head>
 <% FCLTMHeader.Generate({title:  subject }); %>
     <script type="text/javascript">
+        var timerID=null;
+        function delayed(delay, fn)
+        {
+            if (timerID) clearTimeout(timerID);
+                timerID = setTimeout(fn, delay);
+        }
+
         function mld_accept()
         {
             $.post($("form[name=meld]")[0].action, $("[name=meld]").serialize(), null, "json");
@@ -212,7 +219,12 @@ var subject = mld_key > -1 ? (oRs("ins_srtdiscipline_prefix").Value || "")+ mld_
           if (json.success)
           {
             if (json.mld_key > 0 && !json.opdr_key) // Na opslaan opdracht niet nog een keer de melding weergeven.
+<%            if (qrc) { %>
+                alert("<%=L("lcl_pda_mld_call_confirm")%>");
+                McltCallbackClose(json);
+<%            } else { %>
                 jqToast("Gegevens zijn opgeslagen"); // ' onder nummer ... '
+<%            } %>
 
             if (json.autoorder)
             {

APPL/PDA/mld_list.asp

@@ -4,7 +4,8 @@
      $Id$
 
     File:        pda/mld_list.asp
-    Description: Toont een beknopte meldingenlijst voor op de pda
+    Description: Toont een beknopte meldingenlijst voor op de pda, dat zijn de aan mij
+                 geautoriseerde actieve meldingen op de plaats waar ik ben plus die zonder plaatsgegevens
     Parameters:  -
     Context:     -
 
@@ -100,7 +101,7 @@ var authparams = user.checkAutorisation(autfunction);
       sqln += mld.getfromwherelist_sql(autfunction, params);
 
       if (ruimte_key > -1) {
-        sqln += " AND v.alg_ruimte_key = " + ruimte_key;
+        sqln += " AND (l.alg_locatie_key IS NULL OR v.alg_ruimte_key = " + ruimte_key +")";
       }
       if (ins_key > -1) {
         sqln += " AND m.mld_melding_key IN "
@@ -108,13 +109,13 @@ var authparams = user.checkAutorisation(autfunction);
       }
       if (ins_key == -1 && ruimte_key == -1) { // die lagere keys zijn sterker, ook als ik evt niet ter plaatse ben
           if (gebouw_key > -1) {
-            sqln += " AND v.alg_gebouw_key = " + gebouw_key;
+            sqln += " AND (l.alg_locatie_key IS NULL OR v.alg_gebouw_key = " + gebouw_key +")";
           }
           if (locatie_key > -1) {
-            sqln += " AND l.alg_locatie_key = " + locatie_key;
+            sqln += " AND (l.alg_locatie_key IS NULL OR l.alg_locatie_key = " + locatie_key +")";
           }
           if (verdieping_key > -1) {
-            sqln += " AND v.alg_verdieping_key = " + verdieping_key;
+            sqln += " AND (l.alg_locatie_key IS NULL OR v.alg_verdieping_key = " + verdieping_key +")";
           }
       }
       // apply 3D authorization to the locations and to the organisations (both ALG and PRS)

APPL/PDA/mobile.js

@@ -52,7 +52,7 @@ function jqToast (msg)
     		width: "270px",
     		left: (($(window).width() - 284)/2)+"px",
     		top: ($(window).scrollTop() + $(window).height()/2)+"px" })
-    	.appendTo( $.mobile.pageContainer ).delay( 1500 )
+    	.appendTo( $.mobile.pageContainer ).delay( 2500 )
     	.fadeOut( 400, function(){
 		    $(this).remove();
     	});

APPL/RES/res_plan_room.inc

@@ -205,7 +205,8 @@ function make_plan_room(params)
       + ((params.activiteit_key)?" AND EXISTS (SELECT res_activiteit_key FROM res_activiteitdiscipline rad"
                                             + " WHERE rad.res_discipline_key = rg.res_discipline_key"
                                             + "   AND rad.res_activiteit_key = " + params.activiteit_key + ")" : "")
-      + ((params.srtact > 0)?" AND EXISTS (SELECT ra.res_activiteit_key"
+      + ((!params.activiteit_key && params.srtact > 0)
+                                        ?" AND EXISTS (SELECT ra.res_activiteit_key"
                                         + "  FROM res_activiteitdiscipline rad"
                                         + "  ,    res_activiteit ra"
                                         + " WHERE rad.res_discipline_key = rg.res_discipline_key"

APPL/Shared/Login.inc

@@ -292,7 +292,8 @@ function SecureSSO(ssoProps)
     		}
     		else
             {
-    			__DoLog("Secure SSO login error 3");
+                // FSN#25537 deze komt erg regelmatig voor maar oorzaak onbekend
+    			__Log("Secure SSO login error 3");
     			Response.write("Error: onvoldoende informatie ontvangen.")
     			Response.End;
     			// Response.redirect(strReturnURL) kan oneindige loop geven

APPL/Shared/UploadForm_save.asp

@@ -251,7 +251,6 @@ Public Function VB_savefile(regFilter, flexAllowedExt, fullpath, doEncrypt)
         Exit Function
     End If
 
-    Dim myErr = ""
     CreateFullPath(fullpath)
     If doEncrypt = "1" Then ''Encrypting
         Set oZip = Server.CreateObject("SLNKDWF.Zip")

APPL/Shared/iface.inc

@@ -260,16 +260,17 @@ function RWFIELD(pname, pclass, plabel, pvalue, params)
   var lclass = pclass;
   if (params.infoPointer)  lclass += " details";
   if (!params.readonly && params.required) lclass += " required";
-  var inputtype=" type='number'";
+  var inputtype = (isChrome()? " type='text'" : " type='number'");
+  var lstep="";
   switch (params.datatype) {
     case "number" :      lclass += " number"; break;
     case "float" :       lclass += " float"; break;
-    case "currency" :    lclass += " currency"; break;
+    case "currency" :    lclass += " currency"; lstep= " step='0.01'"; break;
     case "text" :        inputtype = " type='text'"; break;
     default :            inputtype = ""; break;
   }
 %>
-  <input class="<%=lclass%>" <%=inputtype%> name="<%=pname%>" id="<%=pname%>" value="<%=Server.HTMLEncode(pvalue)%>"
+  <input class="<%=lclass%>" <%=inputtype%><%=lstep%> name="<%=pname%>" id="<%=pname%>" value="<%=Server.HTMLEncode(pvalue)%>"
   <%=(params.maxlength? " maxlength="+params.maxlength : "")%>
   <%=(params.readonly? " readonly " : "")%>
   <%=(params.html? " " + params.html + " " : "")%>
@@ -284,6 +285,12 @@ function RWFIELD(pname, pclass, plabel, pvalue, params)
   }
 }
 
+function isChrome()
+{
+    var agent = "" + Request.ServerVariables("HTTP_USER_AGENT");
+    return ((agent.indexOf("Chrome")==-1)?false:true);
+}
+
 function RWFIELDTR(pname, pclass, plabel, pvalue, params)
 {
   params = params||{};

APPL/Shared/kenmerk_common.inc

@@ -1465,14 +1465,23 @@ function _saveFlexKenmerken(parentKey, params) // TODO: support multiMode!
         if (vold != vnew)
         {
             var oRsk = Oracle.Execute(params.allKenmerkenSQL + kk);
-            var label = oRsk("kenmerk_omschrijving");
-            var srt_key = oRsk("srtkenmerk_key"); // voor kenmerkendomein nodig
+            var label = oRsk("kenmerk_omschrijving").Value;
+            var srt_key = oRsk("srtkenmerk_key").Value; // voor kenmerkendomein nodig
+            oRsk.close();
             if (kt == "S" || kt == "R")
             {
                 if (vold != "")
-                    vold = Oracle.Execute("SELECT fac.getrefwaarde('" + params.module + "', " + srt_key + ", " + vold + ") FROM DUAL")(0).value;
+                {
+                    var oRs = Oracle.Execute("SELECT fac.getrefwaarde('" + params.module + "', " + srt_key + ", " + vold + ") FROM DUAL");
+                    vold = oRs(0).value;
+                    oRs.Close();
+                }
                 if (vnew != "")
-                    vnew = Oracle.Execute("SELECT fac.getrefwaarde('" + params.module + "', " + srt_key + ", " + vnew + ") FROM DUAL")(0).value;
+                {
+                    var oRs = Oracle.Execute("SELECT fac.getrefwaarde('" + params.module + "', " + srt_key + ", " + vnew + ") FROM DUAL");
+                    vnew = oRs(0).value;
+                    oRs.Close();
+                }
             }
             trackarray.push(label + ": " + buildTrackText("varchar", vold, vnew));
         }

APPL/Shared/resultset_table_v2.inc

@@ -1084,25 +1084,28 @@ function __rsMakeTableRow(oRs, oRsFlex, cnt, anyMultiActions, noFlexResult)
               else
                   OddRowClass += "suppressRow ";
 
+            if (!isExcel)
+            {
                 if (rowClass)
                   appender_part = " class='" + OddRowClass + rowClass(oRs) + "' ";
                 else
                   if (trClassName != null)
                     appender_part = " class='" + OddRowClass + trClassName + "' ";
+            }
 
             appender += appender_part;
 
-            if (rowBehavior != null)
+            if (rowBehavior != null && !isPrinting && !isExcel)
               appender += " STYLE='behavior: url(" + rowBehavior + ");' ";
 
             var rowID = "";
-            if (keyColumn != null)
+            if (keyColumn != null && !isPrinting && !isExcel)
             {
               rowID = "row" + ( keyColumn instanceof Function ?  keyColumn(oRs) : safe.htmlattr(oRs(keyColumn).Value) );
               appender += " id='" + safe.htmlattr(rowID) + "'";               // give unique id to tr line
               appender += " ROWKEY='" + ( keyColumn instanceof Function ? keyColumn(oRs) : safe.htmlattr(oRs(keyColumn).Value) ) + "'";
             }
-            if (!isPrinting && rowData != null)
+            if (!isPrinting && !isExcel && rowData != null)
               appender += " ROWDATA='" + safe.htmlattr(rowData(oRs)) + "'";
             if (!isPrinting && dblClick != null)
               appender += " onDblClick='" + safe.htmlattr(dblClick) + "'";

CUST/AARW/import/import_catering.bat

@@ -0,0 +1,4 @@
+
+
+cscript ..\..\..\utils\gen_import\gen_import.wsf AARW CATERING >>genimport.log 2>>&1
+

CUST/CAPG/cust.css

@@ -35,3 +35,9 @@ div.fcltframeheader {
 #editbody .fcltblockhead {
     background-color:#D0D0D0;
 }
+
+.warning {
+	height: 70px;
+	line-height: 70px; 
+    font-size: 1.7em;
+}

CUST/HOUT/xsl/cust.xsl

@@ -6,8 +6,44 @@
 		<xsl:value-of select="substring(translate('$Revision$', '$ ', ''), 10)"/>
 	</xsl:variable>
                 
+	<xsl:template match="melding" mode="full">
+       <xsl:choose>
+            <xsl:when test="$mode='summary'"></xsl:when>
+       <xsl:otherwise>
+		<html>
+			<xsl:comment>================================ MELDINGEN ==============================</xsl:comment>
+			<xsl:comment>FACILITOR default XSL template for melding</xsl:comment>
+			<xsl:call-template name="htmlhead"/>
+			<xsl:element name="body">
+				<xsl:if test="$mode!='email'">
+					<xsl:attribute name="onload">window.print();</xsl:attribute>
+				</xsl:if>
+				<xsl:call-template name="pageheader"/>
+				<xsl:choose>
+		         <xsl:when test="$srtnotificatiecode = 'MLDKTO'">
+			         <xsl:apply-templates select="." mode="kto"/>
+		         </xsl:when>
+			      <xsl:otherwise>
+      		      <xsl:apply-templates select="." mode="include"/>
+      		   </xsl:otherwise>
+            </xsl:choose>
+      		<xsl:call-template name="pagefooter"/>
+			</xsl:element>
+		</html>
+       </xsl:otherwise>
+      </xsl:choose>
+	</xsl:template>                
+
   <xsl:template match="melding" mode="include">
     <table border="0" width="100%" cellpadding="2">
+    <tr>
+        <td colspan="3"/>
+    	<td style="text-align:right"><xsl:element name="img">
+					  <xsl:attribute name="width">140px</xsl:attribute>
+						<xsl:attribute name="src">../../appl/shared/barcode.asp?text=<xsl:value-of select="discipline/srtdiscipline/prefix"/><xsl:value-of select="key"/>&amp;height=50&amp;narrow=1&amp;wide=3</xsl:attribute>
+					</xsl:element>
+                </td>
+                </tr>
       <xsl:choose>
       <!-- Met HOUT#22944 CUST01/02-noti vervallen!!!   -->
       <xsl:when test="$srtnotificatiecode='CUSTXX'">

CUST/IVET/cust.css

@@ -117,3 +117,23 @@ div#MgtFAC ul li {
 label {
   white-space: normal;
 }
+
+#portalbody
+{
+    background-color: white;
+}
+#portalmenu table tr td
+{
+    background-color: white;
+}
+#portalmenu span.menukop {
+  width:200px;
+  color: #00877C;
+}
+#portalmenu h2 {
+  color: #ffffff;
+  background-color: #00877C;
+}
+#portalmenu span.menuimg {
+  width:200px;
+}