TWYN#54942 kopieerfunctie facturen

svn path=/Website/branches/v2018.2/; revision=39879

APPL/BGT/fin_factuur.asp

@@ -124,5 +124,25 @@ if (parent == "search")
     }
 }
 
+var isClone = getQParamInt("scf_clone",0) == 1;
+var fac_key = getQParamInt("id", -1);
+if (mode == "wrap" && isClone && fac_key > -1)
+{   // Bij het maken van een kopie van de factuur moet ongeacht de filterparameters
+    // wel de keys van project en deelproject doorgegeven worden.
+    var sql = "SELECT p.ins_discipline_key"
+            + "     , p.bgt_project_key"
+            + "  FROM bgt_v_project_full p"
+            + "     , mld_opdr o"
+            + "     , fin_factuur f"
+            + " WHERE p.prs_kostensoort_key = o.prs_kostensoort_key"
+            + "   AND f.mld_opdr_key = o.mld_opdr_key"
+            + "   AND f.fin_factuur_key = " + fac_key;
+    var oRs = Oracle.Execute(sql);
+    model_params.transit.budgetdiscipline = oRs("ins_discipline_key").Value;
+    model_params.transit.budgetproject = oRs("bgt_project_key").Value;
+    oRs.Close();
+}
+
+
 scaffolding(this_model, model_params);
 %>