Files
Facilitor/APPL/BES/opdr_sent.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

57 lines
1.7 KiB
Plaintext

<%@ LANGUAGE = JavaScript %>
<% /*
$Revision$
$Id$
File: opdr_sent.asp (voorheen opdr_confirm.asp)
Description: Opdracht is handmatig (bijvoorbeeld fax) naar leverancier verstuurd
Parameters: opdr_key (kan ook een opdracht key sting zijn)
Context: Voor leveranciers die niet electronisch worden aangestuurd heeft
de backoffice een inline action. Ook handig bij demo's als putorders niet draait
Note: Bevestig dat een opdracht verstuurd(!) is.
We weten nog niet of de leverancier er iets mee kan!
Voor electronisch aangestuurde leveranciers gebeurt dit door Putorders
*/ %>
<%
var JSON_Result = true;
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="bes.inc" -->
<%
protectRequest.validateToken();
var opdr_key_arr = getFParamIntArray("opdr_key");
var result = {};
var tobesend = 0;
var ingesloten = [];
// Bepaal de bestel opdrachten in de selectie die
// ook echt "Markeer als verzonden" kunnen of mogen worden.
for (var i = 0; i < opdr_key_arr.length; i++)
{
var this_bestelopdr = bes.func_enabled_bestelopdracht(opdr_key_arr[i]);
if (this_bestelopdr.canSend)
{
ingesloten.push(opdr_key_arr[i]);
tobesend++;
}
}
user.anything_todo_or_abort(tobesend > 0); // We klagen niet over enkele wel en enkele niet
result.message = "";
for (var i = 0; i < ingesloten.length; i++)
{
sql = "BEGIN fac.markorderassent('bestelopdr', " + ingesloten[i] + ", 2, '', " + user_key + "); END;"; // 2=nog onbekend of leverancier accepteert.
Oracle.Execute(sql);
result.success = true;
}
Response.Write(JSON.stringify(result));
%>
<% ASPPAGE_END(); %>