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

     File:               res_mld_opdr_save.asp
     Description:        Opslaan van een res_deel resource onder een mld_opdr record

     Context:
     Note:

*/
var JSON_Result = true;
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/save2db.inc" -->
<!-- #include file="res.inc" -->
<%
protectRequest.validateToken();

var mld_opdr_key = getFParamInt('mld_opdr_key');
var res_deel_key = getFParamInt('res_deel_key');
var res_van = getFParamDate("res_van");
var res_tot = getFParamDate("res_tot");

var sql = "SELECT MIN(res_activiteit_key) res_activiteit_key"
        + "  FROM res_deel rd"
        + "     , res_activiteitdiscipline rad"
        + " WHERE rd.res_discipline_key = rad.res_discipline_key"
        + "   AND rd.res_deel_key = " + res_deel_key;
var oRs = Oracle.Execute(sql);
var act_key = oRs("res_activiteit_key").Value;
oRs.Close()

var resfields = [ { dbs: "res_reservering_key",      typ: "key",      seq: "res_s_res_reservering_key" } ];
var resIns = buildInsert("res_reservering", resfields);
var newres_key = resIns.sequences["res_reservering_key"];
Oracle.Execute(resIns.sql);

var fields =  [ { dbs: "mld_opdr_key",                typ: "key",      val: mld_opdr_key },
                { dbs: "res_rsv_ruimte_omschrijving", typ: "varchar",  val: ""},
                { dbs: "res_rsv_ruimte_opmerking",    typ: "varchar",  val: "" },
                { dbs: "res_rsv_ruimte_van",          typ: "datetime", val: res_van },
                { dbs: "res_rsv_ruimte_tot",          typ: "datetime", val: res_tot },
                { dbs: "res_rsv_ruimte_host_key",     typ: "key",      val: user_key },
                { dbs: "res_activiteit_key",          typ: "key",      val: act_key },
                //{ dbs: "res_status_fo_key",           typ: "number",   frm: "status_fo" },
                { dbs: "res_rsv_ruimte_contact_key",  typ: "key", val: user_key },
                { dbs: "res_rsv_ruimte_key",     typ: "key",    seq: "res_s_res_rsv_ruimte_key" },
                { dbs: "res_reservering_key",    typ: "key",    val: newres_key },
                { dbs: "res_rsv_ruimte_volgnr",  typ: "number", val: 1 }
              ];

var resIns = buildInsert("res_rsv_ruimte", fields);
var rsv_ruimte_key = resIns.sequences["res_rsv_ruimte_key"];
var err = Oracle.Execute(resIns.sql, true);
if (err.friendlyMsg)
    abort_with_warning(err.friendlyMsg);

// Het res_deel object opslaan doen we met een tweede ajax naar res_edit_objcat_save.asp

doneParams = { rsv_ruimte_key: rsv_ruimte_key,
               res_deel_key: res_deel_key,
               success: true
             };
Response.Write(JSON.stringify(doneParams));

ASPPAGE_END();
%>
