<%@language = "javascript" %>
<%/*
    $Revision$
    $Id$

    File:               mld_logboek.asp
    Description:        Maak een melding per dag per persoon aan
                        of neem de bestaande als die melding er vandaag al was
                        Ga daarna door naar mld_melding.asp voor het echte werk
    Parameters:         mld_defaultstdmelding
    TODO: Autorisatie
    Context:
    Note:

*/ %>
<!--#include file="../Shared/common.inc" -->
<!--#include file="mld.inc" -->
<!--#include file="../shared/save2db.inc" -->
<%
FCLTHeader.Requires();

var mld_defaultstdmelding = getQParamInt("mld_defaultstdmelding");

var sql = "SELECT MAX(mld_melding_key) mld_melding_key"
        + "  FROM mld_melding"
        + " WHERE prs_perslid_key = " + user_key
        + "   AND mld_melding_status in (0,2,4,7)"  // openstaande meldingen
        + "   AND mld_stdmelding_key = " + mld_defaultstdmelding;
var oRs = Oracle.Execute(sql);
var mld_key = oRs("mld_melding_key").value;
oRs.Close();
if (mld_key == null) // geen bestaande gevonden
{ // Testen of de default standaard melding niet verwijderd of vervallen is.
  var sql = "SELECT mld_stdmelding_key"
          + "  FROM mld_stdmelding"
          + " WHERE mld_stdmelding_key = " + mld_defaultstdmelding
          + "   AND mld_stdmelding_verwijder IS NULL"
          + "   AND (mld_stdmelding_vervaldatum IS NULL OR mld_stdmelding_vervaldatum > SYSDATE)";
  var oRs = Oracle.Execute(sql);
  if (oRs.eof)
  {
    shared.record_not_found();
  }
  else
  { // toevoegen melding
    mld_key = mld.insertmelding(mld_defaultstdmelding, {});
    mld.setmeldingstatus(mld_key, 4); // direct accepteren
  }
  oRs.Close();
}

Response.Redirect("mld_melding.asp?urole=bo&noteonly=1&tracking=0&mld_key=" + mld_key);
%>
<% ASPPAGE_END(); %>
