Files
Facilitor/APPL/BES/bes_submit.asp
Jos Groot Lipman 2aa489e0c7 FCLT#Recordsets die niet gesloten zijn beter detecteren
svn path=/Website/trunk/; revision=47235
2020-06-24 15:42:24 +00:00

73 lines
2.5 KiB
Plaintext

<%@language = "javascript" %>
<% /*
$Revision$
$Id$
File: bes_submit.asp
Description: De BO kan een opdracht handmatig 'bestellen' (opdrachten aanmaken)
Parameters:
Context:
Note: Als bes_disc_params_auto_order is gezet gaat dit automatisch
*/ %>
<%
var JSON_Result = true;
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="bes.inc" -->
<%
protectRequest.validateToken();
var bes_key_arr = getFParamIntArray("bes_key");
var result = {};
var tobesubmitted = 0;
var ingesloten = [];
var opdr_key_array = [];
// Bepaal de bestellingen in de selectie die
// ook echt besteld kunnen of mogen worden.
for (var i = 0; i < bes_key_arr.length; i++)
{
var bes_bestelling = bes.bestelling_info(bes_key_arr[i]); // Globale variabele met alle bes_bestelling informatie
var bes_disc_info = bes.disc_info(bes_bestelling.dis_key); // alle discipline informatie
var this_bes = bes.func_enabled_bestelling(bes_bestelling);
if (this_bes.canSubmit)
{
ingesloten.push(bes_key_arr[i]);
tobesubmitted++;
}
}
user.anything_todo_or_abort(tobesubmitted > 0); // We klagen niet over enkele wel en enkele niet
//if (this_bes.rfoStatus != 4)
// user.auth_required_or_abort(this_bes.canSubmit, JSON.stringify({bes_key: bes_key, bes_submit: false, message: "Is al besteld"}));
//user.auth_required_or_abort(this_bes.canSubmit, JSON.stringify({bes_key: bes_key, bes_submit: false, message: L("lcl_bes_can_not_be_ordered")}));
for (var i = 0; i < ingesloten.length; i++)
{
bes.makeOrders(user_key, ingesloten[i]);
// Zodra bij een bes_bestelling_item de bes_bestelopdr_item wordt ingevuld
// wordt bij de bes_bestelling automatisch de status op 5, besteld gezet
// Zoek de opdracht
var sql = "SELECT DISTINCT boi.bes_bestelopdr_key "
+ " FROM bes_bestelling_item bi, bes_bestelopdr_item boi"
+ " WHERE bi.bes_bestelopdr_item_key=boi.bes_bestelopdr_item_key"
+ " AND bi.bes_bestelling_key = " + ingesloten[i];
var oRs = Oracle.Execute(sql);
var opdr_key = oRs("bes_bestelopdr_key").value;
opdr_key_array.push(opdr_key);
}
if (S("mld_order_autoprint") == 1)
var result = { mld_order_autoprint: 1, opdr_key_array: opdr_key_array, bes_key_array: ingesloten, success: true};
else
var result = { mld_order_autoprint: 0, opdr_key_array: opdr_key_array, bes_key_array: ingesloten, success: true};
Response.Write(JSON.stringify(result));
%>
<% ASPPAGE_END(); %>