RWSN#36797 FO meldingen in Mobile

svn path=/Website/trunk/; revision=31126

APPL/PDA/melding.asp

@@ -22,6 +22,7 @@
 
 <!-- #include file="../Shared/common.inc" -->
 <!-- #include file="../Shared/selector.inc" -->
+<!-- #include file="../Shared/persoonselector.inc" -->
 <!-- #include file="../Shared/kostenplaatsselector.inc" -->
 <!-- #include file="../Shared/get_objecten_sql.inc" -->
 <!-- #include file="./resultset_table.inc" -->
@@ -39,6 +40,7 @@ var mld_key = getQParamInt("mld_key",-1);
 var action = getQParam("action", "");
 var qrc = getQParamInt("qrc", 0) != 0;
 var meldbron_key = getQParamInt("meldbronkey", 7);
+var urole = getQParam("urole", "fe");
 var mld_info = {};
 var plaats_key = -1;
 var plaats_niveau = "";
@@ -46,6 +48,11 @@ var ins_keys_arr = [];
 var ins_name_arr = [];
 var addSubheader = false;
 
+var autfunction = (urole=="fe" ? "WEB_MLDUSE" : "WEB_MLDFOF");
+var fronto = (urole=="fo");
+var frontend = (urole=="fe");
+
+
 // Mogelijke parameters voor toevoegen only
 if (mld_key == -1)
 {
@@ -192,7 +199,6 @@ else
 {
     // NIEUWE MELDING Stdm_Key is ondertussen gegarandeerd
     mld_info.stdm = stdm_key;
-    this_mld = {};
     var melder_obj = user;
 
     // Bepaal de gedetailleerdste plaats die mobiel bekend is of meegegeven.
@@ -238,6 +244,13 @@ else
     mld_info.mld_stdmelding_omschrijving = stdm_info.stdmelding_omschrijving ;
     mld_info.srtdisc_oms = stdm_info.srtdisc_oms;
     mld_info.ins_discipline_omschrijving = stdm_info.discipline_omschrijving;
+
+    this_mld = mld.func_enabled_mld(mld_info.srtdisc, "S"); // wat mag ik zoal op een nieuwe melding
+    mld_info.melder_key = (( fronto && S("mld_fo_default_user"))
+                           || frontend
+                           || (!this_mld.canFOwrite && !this_mld.canBOwrite && this_mld.canFEwrite)
+                           ? user_key
+                           : -1);
 }
 var subject = (mld_key > -1
               ? (mld_info.prefix || "")+ mld_key + " " + mld_info.mld_stdmelding_omschrijving
@@ -445,8 +458,13 @@ if (action != "forward")
 <%
         if (mld_key == -1)
         { // Nieuw, maar deze velden kunnen we zelf verzinnen
+          if (!fronto)
+          {
+%>
+             <input type="hidden" name="person" value="<%=user_key%>">
+<%
+          }
 %>
-            <input type="hidden" name="person" value="<%=user_key%>">
             <input type="hidden" name="locatiekey" value="<%=locatie_key%>">
             <input type="hidden" name="gebouwkey" value="<%=gebouw_key%>">
             <input type="hidden" name="verdiepingkey" value="<%=verdieping_key%>">
@@ -472,8 +490,24 @@ if (action != "forward")
                 ROFIELD("fld", L("lcl_vakgroup")       , (mld_info.prefix ? mld_info.prefix+"-" : "") + mld_info.ins_discipline_omschrijving);
             BLOCK_END();
         }
+        else  // nieuwe, alleen voor FO
+        {
+            if (fronto)
+            {
+                var personEditable = (mld_key > 0 && this_mld.canPersChange) || (mld_key < 0);
+                FCLTpersoonselector("person",
+                                    "sgPerson",
+                                    { perslidKey: mld_info.melder_key,
+                                      label: L("lcl_mld_name"),
+                                      fieldNameKey: "person",
+                                      readonly: !personEditable,
+                                      autlevel: this_mld.authparams(autfunction) && this_mld.authparams(autfunction).PRSwritelevel,
+                                      required: personEditable
+                                    });
+            }
+        }
 
-       if (mld_info.show_ins && stdm_info.alg_onrgoed_obj_niveau)
+        if (mld_info.show_ins && stdm_info.alg_onrgoed_obj_niveau)
         {
             if (ins_key > 0 && mld_key < 0)
             { // Nieuwe melding waarbij het object bekend is: via qrc-code

APPL/PDA/melding_new.asp

@@ -31,7 +31,17 @@ var mld_key = getQParamInt("mld_key", -1);  // -1 betekent nieuwe
 var qrc = getQParamInt("qrc", 0) != 0;
 var action = getQParam("action", "");
 
-var transitParam = buildTransitParam(["mld_key", "action", "disc", "srtdisc", "ins_key", "locatie_key", "gebouw_key", "verdieping_key", "ruimte_key", "meldbronkey"]);
+// Heeft gebruiker urole=fo bepalen adhv fac_functie
+var sql = "SELECT COUNT(*) aantal"
+        + "  FROM fac_v_my_disciplines"
+        + " WHERE prs_perslid_key = " + user_key
+        + "   AND fac_functie_code = 'WEB_MLDFOF'";
+var oRs = Oracle.Execute(sql);
+var urole = (oRs("aantal").Value == 0 ? "fe" : "fo");
+var params = {urole: urole};
+oRs.Close();
+
+var transitParam = buildTransitParam(["mld_key", "action", "disc", "srtdisc", "ins_key", "locatie_key", "gebouw_key", "verdieping_key", "ruimte_key", "meldbronkey", "urole"], params);
 
 // Verplicht:
 var disc_key = getQParamInt("disc", -1);
@@ -40,7 +50,6 @@ var srtdisc_key = getQParamInt("srtdisc", -1);
 // Optioneel
 var ins_key = getQParamInt("ins_key", -1);  // test UWVA:11525 Het kan zijn dat ik vanuit de lijst deze meekrijg om een nieuwe aan te maken
 
-var urole = 'fe'; // in mobile altijd FE
 autfunction = (urole=='fe' ? "WEB_MLDUSE" : "WEB_MLDFOF");
 
 if (srtdisc_key > 0)
@@ -130,7 +139,7 @@ if (srtdisc_key > 0)
                           , perslidKey: user_key // altijd voor jezelf via mobile
                           , autfunctionKey: auth_key
                           };
-        var filtcode = 'FE';
+        var filtcode = urole.toUpperCase();
         if (action == "forward")
         {
             var this_mld = mld.func_enabled_melding(mld_key);

APPL/Shared/Suggest/stdmeldingFilter.inc

@@ -19,6 +19,7 @@ function getFiltClauseStdmelding(pfiltcode, params, init)
   {
     switch(pfiltcode)
     {
+      case "FO":   break;
       case "FE":   lfiltClause.where += " AND sm.mld_stdmelding_notfrontend = 0";
                    break;
       case "VDK":  // Alleen de vakgroepen die gewijzigd mogen worden mag je zien