diff --git a/APPL/MLD/mld_forward_save.asp b/APPL/MLD/mld_forward_save.asp index 20559fbfa3..26afe4d4e4 100644 --- a/APPL/MLD/mld_forward_save.asp +++ b/APPL/MLD/mld_forward_save.asp @@ -52,6 +52,7 @@ var sql = "SELECT mm.mld_stdmelding_key" + " , mm.mld_melding_opmerking" + " , mm.mld_melding_spoed" + " , msm.mld_ins_discipline_key" + + " , mm.mld_melding_einddatum" + " FROM mld_melding mm, mld_stdmelding msm" + " WHERE mm.mld_stdmelding_key = msm.mld_stdmelding_key" + " AND mld_melding_key = " + mld_key; @@ -60,6 +61,7 @@ var old_stdm = oRs("mld_stdmelding_key").Value; var old_disc = oRs("mld_ins_discipline_key").Value; var mld_opm = oRs("mld_melding_opmerking").Value || ""; var spoed = oRs("mld_melding_spoed").Value; +var einddatum = new Date(oRs("mld_melding_einddatum").Value); oRs.Close(); var this_stdm = mld.mld_stdmeldinginfo(stdm_key); @@ -107,6 +109,18 @@ else fields.push({ dbs: "mld_melding_spoed", typ: "key", val: 3, track: L("lcl_mld_urg"), foreign: mld.getpriotext }); var mldUpd = buildTrackingUpdate("mld_melding", " mld_melding_key = " + mld_key, fields); Oracle.Execute(mldUpd.sql); + + // Als een melding wordt doorgestuurd naar een andere stdmelding die niet planbaar is, kan de einddatum aangepast worden door de trigger mld_t_mld_melding_B_IU. + // Dan wordt dat niet getrackt. Hier controleren of de einddatum door de trigger is aangepast en desnoods tracking toevoegen. + var sql = "SELECT m.mld_melding_einddatum" + + " FROM mld_melding m" + + " WHERE m.mld_melding_key = " + mld_key; + var oRs = Oracle.Execute(sql); + var einddatum_new = new Date(oRs("mld_melding_einddatum").Value); + oRs.Close(); + if (einddatum.getTime() != einddatum_new.getTime()) + mldUpd.trackarray.push(L("lcl_mld_enddate") + ": " + buildTrackText("datetime", einddatum, einddatum_new)); + if (mldUpd.trackarray.length) { var formattedID = this_stdm.ins_srtdiscipline_prefix + mld_key + " (" + this_stdm.discipline_omschrijving + "/" + this_stdm.stdmelding_omschrijving + ")";