<%@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,3,4,7)"  // openstaande meldingen
        + "   AND mld_stdmelding_key = " + mld_defaultstdmelding;
var oRs = Oracle.Execute(sql);
var mld_key = oRs("mld_melding_key").value;
if (mld_key == null) // geen bestaande gevonden
{
  // toevoegen melding
  mld_key = mld.insertmelding(mld_defaultstdmelding, {});
  mld.setmeldingstatus(mld_key, 4); // direct accepteren
}

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