FSN#39054 Budgetcontrole uitbreiding: BGT module heeft deze optie nodig

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

APPL/FIN/fin.inc

@@ -462,7 +462,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
 
             switch (ref_type)
             {
-                case "O": //  (melding)opdracht
+                case "O": //  (mld)opdracht, kan ook zonder melding (bgt)
                     var sql = "SELECT o.mld_melding_key"
                             + "     , o.mld_opdr_bedrijfopdr_volgnr"
                             + "     , sd.ins_srtdiscipline_prefix prefix"
@@ -473,10 +473,10 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                             + "     , ins_tab_discipline itd"
                             + "     , mld_stdmelding sm"
                             + "     , mld_melding m"
-                            + " WHERE sd.ins_srtdiscipline_key = itd.ins_srtdiscipline_key"
-                            + "   AND itd.ins_discipline_key = sm.mld_ins_discipline_key"
-                            + "   AND m.mld_stdmelding_key = sm.mld_stdmelding_key"
-                            + "   AND m.mld_melding_key = o.mld_melding_key"
+                            + " WHERE sd.ins_srtdiscipline_key(+) = itd.ins_srtdiscipline_key"       // BGT: opdrachten kunnen zonder melding
+                            + "   AND itd.ins_discipline_key(+) = sm.mld_ins_discipline_key"
+                            + "   AND m.mld_stdmelding_key = sm.mld_stdmelding_key(+)"
+                            + "   AND m.mld_melding_key(+) = o.mld_melding_key"
                             + "   AND o.mld_opdr_key = " + fin_factuur.mldopdr_key;
                     oRs = Oracle.Execute(sql);
 
@@ -690,10 +690,10 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                             + "    , mld_melding m"
                             + "    , alg_locatie a"
                             + "    , mld_typeopdr t"
-                            + " WHERE sd.ins_srtdiscipline_key = itd.ins_srtdiscipline_key"
-                            + " AND itd.ins_discipline_key = std.mld_ins_discipline_key"
-                            + " AND m.mld_melding_key = o.mld_melding_key"
-                            + " AND m.mld_stdmelding_key = std.mld_stdmelding_key"
+                            + " WHERE sd.ins_srtdiscipline_key(+) = itd.ins_srtdiscipline_key"
+                            + " AND itd.ins_discipline_key(+) = std.mld_ins_discipline_key"
+                            + " AND m.mld_melding_key(+) = o.mld_melding_key"
+                            + " AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)"
                             + " AND o.mld_typeopdr_key = t.mld_typeopdr_key"
                             + " AND o.mld_opdr_key = " + fin_factuur.mldopdr_key
                             + " AND m.mld_alg_locatie_key = a.alg_locatie_key(+)";
@@ -706,6 +706,7 @@ fin = { func_enabled_factuur: // Wat mag ik zoal op deze specifieke factuur?
                                          ref_type: "O",
                                          ref_volgnr: opdr_volgnr,
                                          referentie: (oRs("ins_srtdiscipline_prefix").Value||"") + fin_factuur.mld_key + "/" + opdr_volgnr,
+                                         //referentie: oRs("mld_opdr_id").Value,
                                          lev_uit: oRs("uitvoerende").Value,
                                          lev_uit_key: oRs("uitvoerende_key").Value,
                                          lev_uit_type: oRs("pbtype").Value,

APPL/FIN/fin_list.asp

@@ -6,11 +6,12 @@
      File:           fin_list.asp
      Description:    Vangt de parameters op en verwerkt die in een aanroep van fin_list
      Parameters:     urole
-                     opdr_key: opdrachtkey
-                     bes_key      TODO
-                     cnt_key      TODO
+                     opdr_key
+                     bes_key
+                     cnt_key
+                     ks_key
      Context:        Vanuit waar een factuuroverzicht van iets maar nodig is
-     Note:        
+     Note:
 */ %>
 
 <!-- #include file="../Shared/common.inc" -->
@@ -20,13 +21,14 @@
 // Je komt bij FIN niet binnen met een bepaalde rol (urole).
 var outputmode = getQParamInt("outputmode", 0); //  0 = screen, 1 = print, 2 = excel etc
 var showall = getQParamInt("showall", 0) == 1;
-  
+
 // Voor velden die de user in kan typen valideren we zodanig dat we er tegen kunnen
 var opdr_key = getQParamInt("opdr_key", -1); // Opdracht
 var bes_key = getQParamInt("bes_key", -1); // Bestelopdracht
 var cnt_key = getQParamInt("cnt_key", -1); // Contract
+var ks_key = getQParamInt("ks_key", -1); // Kostensoort
 var handler_key = getQParamInt("handler", -1); // Uitvoerende
-var embedded = getQParamInt("embedded", -1); 
+var embedded = getQParamInt("embedded", -1);
 
 
 fin_list ( { outputmode: outputmode,
@@ -34,6 +36,7 @@ fin_list ( { outputmode: outputmode,
              bes_key: (bes_key != -1? bes_key : null),
              opdr_key: (opdr_key != -1? opdr_key : null),
              cnt_key: (cnt_key != -1? cnt_key : null),
+             ks_key: (ks_key != -1? ks_key : null),
              handler_key: (handler_key != -1? handler_key : null),
              embedded: (embedded != -1? embedded : null)
            }

APPL/FIN/fin_list.inc

@@ -606,6 +606,8 @@ function fin_list (params)
 
       if (params.opdr_key)
         sql += " AND f.mld_opdr_key = " + params.opdr_key;
+      if (params.ks_key)
+        sql += " AND COALESCE(f.prs_kostensoort_key, o.prs_kostensoort_key) = " + params.ks_key;  // weet niet of we o hier altijd hebben, maar wel bij BGT waar we ks_key gebruiken.
       if (params.bes_key)
         sql += " AND f.bes_bestelopdr_key = " + params.bes_key;
       if (params.cnt_key)