<%@ language = "JavaScript" %>
<% /*
    $Revision$
    $Id$
    File:          mld_statusupdate.asp
    Description:   Freeze and invoice all reservations for a specific 'prskey'.
    Parameters:
        prskey     Key of person registered as contact (debtor) for booking(s).
        prsnaam    Debtornumber (was ooit persoonsnaam, toen bedrijfsnaam en
                   en tot slot debiteurennummer om '&' in namen te vermijden).
        periode    Voorgaande periode (1) of losse boeking (0).
    Context:       Client specific file to handle freeze-action initiated from
                   a report (only accessible for autorized employees).
    Note:
*/ %>
<%
var JSON_Result = true;
%>
<!-- #include file="../../appl/Shared/common.inc"-->
<!-- #include file="../../appl/Shared/json2.js" -->
<%
  // Alleen WEB_USER02-geautoriseerde WTC-ers mogen een periode afsluiten (het
  // feitelijke bevriezen/AV-en en genereren van een definitieve factuur)!
  var authParams = user.checkAutorisation("WEB_USER02");

  message = "";
  var prskey = getQParamInt("prskey");
  var prsnaam = getQParam("prsnaam","");
  var periode = getQParamInt("periode");

  message = "Factuur(periode) voor " +  prsnaam + " afgesloten.";

  sql = "BEGIN WIBC.freezereserveringen (" + prskey + "," + periode + "); END;";
  Oracle.Execute(sql);

  result = { success : true, message : message }

  Response.Write(JSON.stringify(result));
%>
