1223 lines
58 KiB
JavaScript
1223 lines
58 KiB
JavaScript
// ******************************************
|
|
// * $Id$
|
|
// *
|
|
// * sendNotification()
|
|
// * Onderstaande functies worden alleen vanuit sendNotificatie aangeroepen:
|
|
// * notificationMail()
|
|
// * notificationSMS()
|
|
// * notificationAPP()
|
|
// * notificationSYS()
|
|
// *
|
|
// * Verstuur de notificaties voor putorders.
|
|
// *
|
|
// * Uses: scr="../wsf_shared.js"
|
|
// * scr="./puo_settings.js"
|
|
// * scr="./puo_shared.js
|
|
// * scr="./puo_xmltools.js"
|
|
// * scr="./puo_sendmail.js"
|
|
// * src="./puo_sendsms.js"
|
|
// * src="./puo_sendfile.js"
|
|
// *
|
|
// ******************************************
|
|
// Als ref_key meegeven dan alleen notificaties met die referentie (en module zoals afgeleid uit pcode) zonder delay
|
|
function sendNotification(ref_key, pcode, params)
|
|
{
|
|
params = params || {};
|
|
var puo_const = { STATUS_PORTAL: 1 // Niet via Putorders
|
|
, STATUS_EMAIL: 2
|
|
, STATUS_SMS: 4
|
|
, STATUS_POPUP: 8 // Niet via Putorders
|
|
, STATUS_SUMMARY_XSL: 16 // SMS/Email subject via XSL?
|
|
, STATUS_APPPUSH: 32 // Via Google Firebase
|
|
};
|
|
|
|
var oAbout = new ActiveXObject("SLNKDWF.About");
|
|
|
|
// De scheduled putorders
|
|
Log2File(2, "** START sendNotification (" + toDateTimeString(new Date()) + ")");
|
|
|
|
var sql = "SELECT COUNT(*) aantal,"
|
|
+ " MIN(fac_notificatie_notbefore) eerste,"
|
|
+ " MAX(fac_notificatie_notbefore) laatste"
|
|
+ " FROM fac_notificatie"
|
|
+ " WHERE fac_notificatie_queue = 'DEFAULT'" // putorders doet alleen de DEFAULT queue
|
|
+ " AND fac_notificatie_notbefore > SYSDATE"
|
|
+ " AND ( BITAND (fac_notificatie_status, " + (puo_const.STATUS_EMAIL | puo_const.STATUS_SMS| puo_const.STATUS_APPPUSH) + ") > 0"
|
|
+ " OR fac_notificatie_systeemadres IS NOT NULL"
|
|
+ " OR prs_bedrijfadres_key IS NOT NULL)"
|
|
|
|
var tmStart = oAbout.usTimer;
|
|
var oRs = Oracle.Execute(sql);
|
|
var tm = Math.round((oAbout.usTimer - tmStart) / 1000);
|
|
if (tm > 500)
|
|
{
|
|
Log2File(1, "Skipping test took {0} ms".format(tm));
|
|
}
|
|
var aantalfuture = oRs("aantal").Value;
|
|
var firstdatum = new Date(oRs("eerste").Value);
|
|
var lastdatum = new Date(oRs("laatste").Value);
|
|
|
|
if (aantalfuture)
|
|
{
|
|
Log2File(1, "{0} Skipping {1} delayed notifications for between {2} and {3}".format(toDateTimeString(new Date()), aantalfuture, toDateTimeString(firstdatum), toDateTimeString(lastdatum)));
|
|
if (forceOrders)
|
|
Log2File(1, "*But* parameter FORCE is given so sending anyway");
|
|
}
|
|
oRs.Close();
|
|
|
|
var sqlmain
|
|
= "SELECT prs_perslid_key_receiver"
|
|
+ " , fac_notificatie_receiver_email"
|
|
+ " , fac_notificatie_receiver_phone"
|
|
+ " , fac_notificatie_oms"
|
|
+ " , fac_notificatie_status"
|
|
+ " , fac_notificatie_refkey"
|
|
+ " , fac_notificatie_key"
|
|
+ " , fac_srtnotificatie_xmlnode"
|
|
+ " , fac_srtnotificatie_code"
|
|
+ " , fac_notificatie_naam"
|
|
+ " , fac_notificatie_notbefore"
|
|
+ " , fac_srtnotificatie_srtkm_key"
|
|
+ " , BITAND(fac_srtnotificatie_noticollegas, 1) noti_collegas"
|
|
+ " , NVL(fac_notificatie_extrakey, -1) fac_notificatie_extrakey"
|
|
+ " , fac_notificatie_sender_email"
|
|
+ " , COALESCE(fac_notificatie_lang, 'NL') fac_notificatie_lang"
|
|
+ " , fac_notificatie_systeemadres"
|
|
+ " , fac_notificatie_attachments"
|
|
+ " , prs_bedrijfadres_key"
|
|
+ " , fac_notificatie_datum"
|
|
+ " , fac_notificatie_failcount"
|
|
+ " , prs_perslid_key_sender"
|
|
+ " , fac_notificatie_geturl"
|
|
+ " , fac_notificatie_getbody"
|
|
+ " , prs_perslid_inactief"
|
|
+ " , fac_notificatie_realuser" // voor eventuele overrules
|
|
+ " FROM fac_notificatie f"
|
|
+ " , fac_srtnotificatie fs"
|
|
+ " , prs_perslid p"
|
|
+ " WHERE fac_notificatie_queue = 'DEFAULT'" // putorders doet alleen de DEFAULT queue
|
|
+ " AND ( BITAND (f.fac_notificatie_status, " + (puo_const.STATUS_EMAIL | puo_const.STATUS_SMS| puo_const.STATUS_APPPUSH) + ") > 0"
|
|
+ " OR f.fac_notificatie_systeemadres IS NOT NULL"
|
|
+ " OR f.prs_bedrijfadres_key IS NOT NULL)"
|
|
+ " AND NOT EXISTS (SELECT 1" // nooit een notificatie sturen als een oudere van dezelfde opdracht nog (steeds) faalt. Alleen voor bedrijfadressen
|
|
+ " FROM fac_notificatie oudere, fac_srtnotificatie ouderefs"
|
|
+ " WHERE oudere.fac_notificatie_key < f.fac_notificatie_key" // ouder
|
|
+ " AND oudere.prs_bedrijfadres_key = f.prs_bedrijfadres_key" // naar hetzelfde adres
|
|
+ " AND ouderefs.fac_srtnotificatie_key = oudere.fac_srtnotificatie_key"
|
|
+ " AND ouderefs.fac_srtnotificatie_xmlnode = fs.fac_srtnotificatie_xmlnode" // over dezelfde opdracht
|
|
+ " AND oudere.fac_notificatie_refkey = f.fac_notificatie_refkey)" //over dezelfde opdracht
|
|
+ " AND f.prs_perslid_key_receiver = p.prs_perslid_key(+)"
|
|
+ " AND f.fac_srtnotificatie_key = fs.fac_srtnotificatie_key(+)";
|
|
|
|
var what_sql = [];
|
|
if ((S("puo_flags") & 1) == 1) // Degene met email/sms/app
|
|
{
|
|
what_sql.push("BITAND (f.fac_notificatie_status, " + (puo_const.STATUS_EMAIL | puo_const.STATUS_SMS| puo_const.STATUS_APPPUSH) + ") > 0");
|
|
}
|
|
else
|
|
{
|
|
Log2File(1, "====== Skipping actual notification sending because of puo_flags&1==0");
|
|
}
|
|
|
|
if ((S("puo_flags") & 2) == 2)
|
|
{
|
|
what_sql.push("(f.fac_notificatie_systeemadres IS NOT NULL OR f.prs_bedrijfadres_key IS NOT NULL)");
|
|
}
|
|
else
|
|
{
|
|
Log2File(1, "====== Skipping actual order sending because of puo_flags&2==0");
|
|
}
|
|
|
|
if (!what_sql.length)
|
|
{
|
|
Log2File(1, "====== Nothing to do because of puo_flags, exiting");
|
|
return;
|
|
}
|
|
sqlmain += " AND ({0})".format(what_sql.join(" OR "));
|
|
|
|
var sql_puo = sqlmain
|
|
+ (!forceOrders? " AND fac_notificatie_notbefore <= SYSDATE":"")
|
|
+ " ORDER BY CASE WHEN fac_notificatie_failcount = 0 THEN 0 ELSE 1 END," // falers altijd lagere prio
|
|
+ " fac_notificatie_prioriteit NULLS LAST" // laag nummer is hoge prio
|
|
+ " , fac_notificatie_datum"
|
|
+ " , fac_notificatie_key";
|
|
|
|
|
|
Log2File(3, sql_puo);
|
|
|
|
var notiMAILed = 0;
|
|
var notiSMSed = 0;
|
|
var notiAPPed = 0;
|
|
var notiSYSed = 0;
|
|
var notiPRSed = 0;
|
|
|
|
// Strikt genomen moet dit binnen de loop omdat er tijdens de loop
|
|
// ongewenste notificaties kunnen zijn bijgekomen. Dat gaat me te ver
|
|
{
|
|
var sql = "BEGIN fac.fac_pre_putorders(); END;";
|
|
Log2File(3, sql);
|
|
try
|
|
{ // we weten niet of pre_putorders bij de klant is gedefinieerd maar kunnen het wel timen
|
|
var tmStart = oAbout.usTimer;
|
|
Oracle.Execute(sql);
|
|
var tm = Math.round((oAbout.usTimer - tmStart) / 1000);
|
|
if (tm > 500)
|
|
{
|
|
Log2File(1, "pre_putorders took {0} ms".format(tm));
|
|
}
|
|
}
|
|
catch(e)
|
|
{
|
|
Log2File(0, "fac.fac_pre_putorders failed: ({0})".format(e.description), "E");
|
|
// Wel doorgaan opdat een putsystemnotificatie over dat falen eventueel wel verstuurd wordt
|
|
}
|
|
}
|
|
|
|
var delayed = null;
|
|
var lastrealuser = "";
|
|
var lastnotificatie_key = -1;
|
|
while (true)
|
|
{
|
|
var oRs = Oracle.Execute(sql_puo); // iedere keer opnieuw openen. Er kan een hogere prio notificatie tussengekomen zijn
|
|
if (oRs.EOF) // niets (meer) te doen
|
|
{
|
|
oRs.Close();
|
|
|
|
if (!delayed) // is er een notificatie die we nog niet direct mogen versturen (bijvoorbeeld een faler die we over twee uur opnieuw proberen)?
|
|
{
|
|
var sql2 = "SELECT MIN(fac_notificatie_notbefore) eerstvolgende"
|
|
+ " FROM ({0})".format(sqlmain);
|
|
var oRs = Oracle.Execute(sql2);
|
|
Log2File(3, sql2);
|
|
if (oRs("eerstvolgende").Value != null)
|
|
{
|
|
delayed = new Date(oRs("eerstvolgende").Value);
|
|
}
|
|
oRs.Close();
|
|
}
|
|
if (S("tsk_master_schema")) // Stoppen. De master start ons wel als het handig/ nodig is
|
|
{
|
|
if (S("puo_schedule_putorders") > 0)
|
|
{
|
|
Log2File(1, "Putorders will be forced in {0} minute(s)".format(S("puo_schedule_putorders")));
|
|
|
|
var dtschedule = new Date();
|
|
dtschedule.setMinutes(dtschedule.getMinutes() + S("puo_schedule_putorders"));
|
|
if (!delayed || delayed > dtschedule)
|
|
{
|
|
delayed = dtschedule;
|
|
}
|
|
}
|
|
if (delayed)
|
|
{
|
|
var sql2 = "BEGIN tsk.starttask(p_taskcode => 'PUTORDERS', p_nextrun => {0}); END;".format(delayed.toSQL(true, true));
|
|
Log2File(3, sql2);
|
|
Oracle.Execute(sql2);
|
|
}
|
|
// Taak was al wel verwijderd
|
|
}
|
|
break; // uit de loop
|
|
}
|
|
|
|
if (lastnotificatie_key == oRs("fac_notificatie_key").value)
|
|
{
|
|
// 1 minuut uitstellen om bij zeer ernstig falen verderop te voorkomen dat we in een heel strakke loop komen
|
|
if (typeof WScript != 'undefined')
|
|
{
|
|
WScript.Echo("Strange, no progress for notification {0}. Napping for 60 seconds".format(lastnotificatie_key));
|
|
}
|
|
var oAbout = new ActiveXObject("SLNKDWF.About");
|
|
oAbout.Sleep(60*1000);
|
|
Log2File(0, "Strange, no progress for notification {0}. I took a nap for 60 seconds".format(lastnotificatie_key));
|
|
}
|
|
lastnotificatie_key = oRs("fac_notificatie_key").value;
|
|
|
|
delayed = null;
|
|
|
|
Log2File(2, "\n\n" + Fill(100, "="));
|
|
Log2File(1, "\n== Notificatie " + oRs("fac_notificatie_key").value + "; "
|
|
+ oRs("fac_srtnotificatie_code").value + " " + oRs("fac_notificatie_refkey").value + "; "
|
|
+ (oRs("fac_notificatie_naam").Value && oRs("fac_notificatie_naam").Value != String(oRs("fac_notificatie_refkey").value) ? oRs("fac_notificatie_naam").Value + " ": "")
|
|
+ (oRs("fac_srtnotificatie_srtkm_key").value?"attach_srtkenmerkkey " + oRs("fac_srtnotificatie_srtkm_key").value + " ": "")
|
|
+ "(" + toDateTimeString(new Date()) + ")"
|
|
+ (params.userident ? " user: " + params.userident : "")
|
|
);
|
|
|
|
// Was ik een beetje op tijd volgens planning?
|
|
if (oRs("fac_notificatie_failcount").Value == 0)
|
|
{
|
|
var notbefore = new Date(oRs("fac_notificatie_notbefore"));
|
|
var late = Math.round((new Date().getTime() - notbefore.getTime()) / 1000);
|
|
if (late > 5)
|
|
{
|
|
Log2File(1, "Notbefore was {0}, we are {1} seconds late".format(toDateTimeString(notbefore), late));
|
|
}
|
|
}
|
|
var realuser = oRs("fac_notificatie_realuser").Value;
|
|
if (realuser && realuser != lastrealuser)
|
|
{
|
|
Log2File(1, "Switching to custenv.wsc overrules by " + realuser);
|
|
if (realuser.indexOf("@") > -1 && typeof WScript != 'undefined') // AAREON\JOSGL@/trunk
|
|
{
|
|
rooturl = realuser.split("@")[1]; // '/trunk'
|
|
if (rooturl && !WScript.ScriptFullName.toLowerCase().replace(/\\/g, "/").match(rooturl.toLowerCase() + "/"))
|
|
{
|
|
Log2File(1, "Putorders is running in {0}, notification origin is {1}.\nThis may not be what you expected".format(WScript.ScriptFullName, rooturl));
|
|
}
|
|
realuser = realuser.split("@")[0];
|
|
}
|
|
var domain = realuser.split("\\")[0];
|
|
var username = realuser.split("\\")[1];
|
|
tryOverrules(domain, username);
|
|
lastrealuser = realuser;
|
|
}
|
|
if (oRs("prs_perslid_inactief").Value != null)
|
|
{
|
|
var upd_p = "UPDATE fac_notificatie"
|
|
+ " SET fac_notificatie_status = 0"
|
|
+ " WHERE fac_notificatie_key = " + oRs("fac_notificatie_key").Value;
|
|
Log2File(3, upd_p);
|
|
Oracle.Execute(upd_p);
|
|
Log2File(2, "Inactive receiver: " + oRs("fac_notificatie_receiver_email").Value);
|
|
}
|
|
else
|
|
{
|
|
var XMLnode = oRs("fac_srtnotificatie_xmlnode").value || "";
|
|
var NotificationXSL = getXslName(XMLnode);
|
|
|
|
notiMAILed += notificationMail(oRs, NotificationXSL, puo_const);
|
|
notiSMSed += notificationSMS (oRs, NotificationXSL, puo_const);
|
|
notiAPPed += notificationAPP (oRs, NotificationXSL, puo_const);
|
|
|
|
notiSYSed += notificationSYS (oRs, puo_const);
|
|
if (oRs("prs_bedrijfadres_key").Value > 0)
|
|
{
|
|
var nn_success = notificationPRS (oRs, puo_const);
|
|
if (nn_success)
|
|
{
|
|
notiPRSed += nn_success;
|
|
}
|
|
}
|
|
}
|
|
|
|
// Onszelf alvast opruimen, bitje STATUS_POPUP kan nog over zijn
|
|
var sql2 = "DELETE fac_notificatie"
|
|
+ " WHERE fac_notificatie_status IN (0, 16)" // STATUS_SUMMARY_XSL 16 is niet interessant
|
|
+ " AND fac_notificatie_systeemadres IS NULL"
|
|
+ " AND prs_bedrijfadres_key IS NULL"
|
|
+ " AND fac_notificatie_key = " + oRs("fac_notificatie_key").value;
|
|
Log2File(3, sql2);
|
|
Oracle.Execute(sql2);
|
|
|
|
Log2File(2, Fill(100, "=") + "\n\n");
|
|
|
|
oRs.Close();
|
|
}
|
|
|
|
if (ref_key > 0 && pcode)
|
|
{
|
|
// Zal altijd '1' zijn als we hier komen
|
|
}
|
|
else
|
|
{
|
|
if (notiMAILed > 0) Log2File(1, " " + notiMAILed + " email messages sent (using smtp server {0}:{1})".format(S("puo_smtpserver"), S("puo_smtpserverport")));
|
|
if (notiSMSed > 0) Log2File(1, " " + notiSMSed + " SMS messages sent");
|
|
if (notiAPPed > 0) Log2File(1, " " + notiAPPed + " APP notifications sent");
|
|
if (notiSYSed > 0) Log2File(1, " " + notiSYSed + " systemadres messages sent");
|
|
if (notiPRSed > 0) Log2File(1, " " + notiPRSed + " prs_bedrijfadres messages sent");
|
|
}
|
|
}
|
|
|
|
var v_aanduiding = "";
|
|
function notificationMail(rec, p_notificationXSL, params)
|
|
{
|
|
// ======================== 2=mail ========================
|
|
Log2File(2, "\n*> notificationMail");
|
|
var noti_mailed = 0;
|
|
try
|
|
{
|
|
var receiver_email = rec("fac_notificatie_receiver_email").value || "";
|
|
var sender_email = rec("fac_notificatie_sender_email").value || "";
|
|
var attach_refkey = rec("fac_notificatie_refkey").value;
|
|
var attach_srtkenmerkkey = rec("fac_srtnotificatie_srtkm_key").value;
|
|
var srtcode = rec("fac_srtnotificatie_code").value || "";
|
|
var xmlnode = rec("fac_srtnotificatie_xmlnode").value || "";
|
|
|
|
var geturl = rec("fac_notificatie_geturl").Value;
|
|
var getbody = rec("fac_notificatie_getbody").Value;
|
|
var prs_perslid_key_receiver = rec("prs_perslid_key_receiver").Value;
|
|
var noti_collegas = rec("noti_collegas").Value;
|
|
|
|
v_aanduiding = "notificationMail 1";
|
|
if (rec("fac_notificatie_status").value & params.STATUS_EMAIL) // bitwise AND
|
|
{
|
|
var cc_arr = [];
|
|
if (noti_collegas && prs_perslid_key_receiver)
|
|
{
|
|
var sql_noti = "SELECT p.prs_perslid_email"
|
|
+ " FROM prs_perslid p"
|
|
+ " , (SELECT c.prs_perslid_key_alt prs_vervanger"
|
|
+ " , c.prs_perslid_key prs_ontvanger"
|
|
+ " FROM prs_collega c"
|
|
+ " UNION"
|
|
+ " SELECT c.prs_perslid_key prs_vervanger"
|
|
+ " , r.prs_perslid_key prs_ontvanger"
|
|
+ " FROM fac_gebruikersgroep r"
|
|
+ " , fac_gebruikersgroep c"
|
|
+ " , fac_groep g"
|
|
+ " WHERE r.fac_groep_key = c.fac_groep_key"
|
|
+ " AND r.fac_groep_key = g.fac_groep_key"
|
|
+ " AND g.fac_groep_collega = 1"
|
|
+ " ) k"
|
|
+ " WHERE k.prs_vervanger = p.prs_perslid_key"
|
|
+ " AND k.prs_ontvanger = " + prs_perslid_key_receiver;
|
|
|
|
var oRs_noti = Oracle.Execute(sql_noti);
|
|
while (!oRs_noti.eof)
|
|
{
|
|
var noti_cc = oRs_noti("prs_perslid_email").Value||"";
|
|
if (noti_cc != "")
|
|
{
|
|
cc_arr.push(noti_cc);
|
|
}
|
|
oRs_noti.MoveNext();
|
|
}
|
|
oRs_noti.Close();
|
|
}
|
|
v_aanduiding = "notificationMail 2";
|
|
var mail_params = { attachFileName: ""
|
|
, attachments: []
|
|
, cc: cc_arr.join(";")
|
|
};
|
|
if (geturl) // Fetch data from url to mail
|
|
{
|
|
v_aanduiding = "notificationMail 3";
|
|
if (!S("puo_fclt_web_url"))
|
|
{
|
|
throw { description: "XXXX found in XML but puo_fclt_web_url not set." };
|
|
}
|
|
//var geturl = "appl/fac/fac_report.asp?showall=1&outputmode=1&usrrap_key=8&viewname=fac_v_rap_auditusage&mode=list&columns=naam%2Cfclt_f_login%2Cfclt_f_groep%2Caantal_rechten&groupby=%2C%2C%2C&scf_pivot=0&fclt_f_login=&fclt_f_groep="
|
|
//var geturl = "api2/reports.csv?usrrap_key=1081"; // 1081 is slapende meldingen
|
|
var fac_web_url = S("puo_fclt_web_url") + geturl + "&fac_id=" + customerId;
|
|
Log2File(1, "Fetching " + fac_web_url);
|
|
var url = fac_web_url //+ "&APIKEY=" + S("puo_fclt_web_apikey");
|
|
|
|
Log2File(1, "using context of prs_perslid_key " + prs_perslid_key_receiver);
|
|
var jwt = getBearerToken(prs_perslid_key_receiver, "_INTERNAL", 30);
|
|
|
|
var http_request = doHTTP(url, { method: getbody?"POST":"GET",
|
|
data: getbody,
|
|
headers: { "accept": "application/html", // html is voorkeur maar we kunnen meer aan
|
|
"Authorization" : "Bearer " + jwt
|
|
}
|
|
});
|
|
var strResult = http_request.responseText;
|
|
var contentType = /*global*/ lastContentType || "";
|
|
Log2File(1, "Got " + contentType);
|
|
var ext = "txt";
|
|
var isHTML = contentType.match(/text\/html/);
|
|
if (isHTML)
|
|
{
|
|
ext = "html"
|
|
var strResult = strResult.replace(/<script\b[^<]*(?:(?!<\/script>)<[^<]*)*<\/script>/gi, "<!-- stripped script -->");
|
|
var strResult = strResult.replace(/<link rel=.*>/gi, "<!-- stripped css -->");
|
|
}
|
|
else if (contentType.match(/text\/csv/))
|
|
{
|
|
ext = "csv";
|
|
}
|
|
else if (contentType.match(/application\/json/))
|
|
{
|
|
ext = "json";
|
|
try
|
|
{
|
|
var jresult = JSON.parse(strResult);
|
|
}
|
|
catch (e)
|
|
{
|
|
throw { description: "Weird: could not parse JSON: {0}".format(strResult)};
|
|
}
|
|
if ("tmpxlsx" in jresult)
|
|
{
|
|
var tmpxlsx = custabspath + "/../../temp/" + customerId + "/" + jresult.tmpxlsx;
|
|
mail_params.include_cust_file = tmpxlsx;
|
|
mail_params.tempdelete = jresult.deletefile;
|
|
ext = "xlsx";
|
|
}
|
|
}
|
|
mail_params.attachFileName = "Facilitor_{0}.{1}".format(toDateTimeString(new Date()), ext);
|
|
sendMail( sender_email
|
|
, receiver_email
|
|
, rec("fac_notificatie_oms").Value // body
|
|
, isHTML?"":rec("fac_notificatie_oms").Value // body
|
|
, mail_params.include_cust_file?"":strResult // bodyhtml
|
|
, mail_params
|
|
);
|
|
// TODO: eventueel tmpxlsx opruimen
|
|
}
|
|
else if (!rec("fac_srtnotificatie_xmlnode").value)
|
|
{
|
|
v_aanduiding = "notificationMail 4";
|
|
Log2File(2, "Text-only notificatie");
|
|
var subject = rec("fac_notificatie_oms").Value;
|
|
var body = subject;
|
|
var htmlbody = "";
|
|
if (subject.indexOf("<br>") > 0)
|
|
{
|
|
var body = "";
|
|
var htmlbody = subject.substr(subject.indexOf('<br>') + 4); // de rest
|
|
var subject = subject.split('<br>', 1)[0]; // alleen tot 1e <br> in de subject
|
|
}
|
|
sendMail( sender_email
|
|
, receiver_email
|
|
, subject
|
|
, body
|
|
, htmlbody
|
|
, mail_params
|
|
);
|
|
}
|
|
else
|
|
{
|
|
v_aanduiding = "notificationMail 5";
|
|
mail_params.fcltid = rec("fac_srtnotificatie_xmlnode").value + ":" + rec("fac_notificatie_refkey").value; // komt in message header X-FCLT-fcltid
|
|
if (rec("fac_notificatie_extrakey").value > 0)
|
|
mail_params.fcltid += ":" + rec("fac_notificatie_extrakey").value;
|
|
|
|
// Errors in de generatie van de XML worden afgevangen in fetchXMLContent
|
|
// De functie levert dan een lege string, de notificatie wordt dan als verzonden
|
|
// afgehandeld
|
|
var xml_content = fetchXMLContent( rec("fac_srtnotificatie_xmlnode").value
|
|
, rec("fac_notificatie_refkey").value
|
|
, rec("fac_notificatie_extrakey").value
|
|
, ""
|
|
, rec("fac_notificatie_lang").value
|
|
, {
|
|
srtnotificatie: rec("fac_srtnotificatie_code").value,
|
|
notificatie_key: rec("fac_notificatie_key").Value }
|
|
);
|
|
|
|
v_aanduiding = "notificationMail 5a";
|
|
if (xml_content)
|
|
{
|
|
if (attach_srtkenmerkkey > 0 && xmlnode == "melding") // alleen voor MLDAFM en MLDAFR
|
|
{
|
|
var sqlkenmerk = "SELECT vk.mld_kenmerk_key"
|
|
+ " FROM mld_kenmerk vk"
|
|
+ " , mld_melding m"
|
|
+ " , mld_stdmelding s"
|
|
+ " , mld_discipline d"
|
|
+ " WHERE m.mld_melding_key = " + attach_refkey
|
|
+ " AND vk.mld_srtkenmerk_key = " + attach_srtkenmerkkey
|
|
+ " AND s.mld_stdmelding_key = m.mld_stdmelding_key"
|
|
+ " AND s.mld_ins_discipline_key = d.ins_discipline_key"
|
|
+ " AND ((vk.mld_stdmelding_key = s.mld_stdmelding_key AND vk.mld_kenmerk_niveau = 'S')"
|
|
+ " OR (vk.mld_stdmelding_key = s.mld_ins_discipline_key AND vk.mld_kenmerk_niveau = 'D')"
|
|
+ " OR (vk.mld_stdmelding_key = d.ins_srtdiscipline_key AND vk.mld_kenmerk_niveau = 'T'))";
|
|
Log2File(3, sqlkenmerk);
|
|
var oRs = Oracle.Execute(sqlkenmerk);
|
|
if (!oRs.Eof)
|
|
{
|
|
mail_params.module = "MLD";
|
|
mail_params.refkey = attach_refkey;
|
|
mail_params.kenmerk_key = [];
|
|
while (!oRs.Eof)
|
|
{
|
|
mail_params.kenmerk_key.push(oRs("mld_kenmerk_key").Value);
|
|
oRs.MoveNext();
|
|
}
|
|
}
|
|
oRs.Close();
|
|
}
|
|
|
|
var SubjectText = "";
|
|
var SubjectTextXSL = "";
|
|
//
|
|
Log2File(2, "XSL file used=" + p_notificationXSL);
|
|
SubjectText = rec("fac_notificatie_oms").value;
|
|
v_aanduiding = "notificationMail 5aa";
|
|
|
|
strResult = XML2HTML( xml_content
|
|
, p_notificationXSL
|
|
, rec("fac_srtnotificatie_code").value
|
|
, "email"
|
|
);
|
|
|
|
var icsResult = ""; // default geen ics
|
|
if (strResult.indexOf("<!--ADDICS-->") > -1) // <xsl:comment>ADDICS</xsl:comment>
|
|
{
|
|
icsResult = XML2HTML( xml_content
|
|
, p_notificationXSL
|
|
, rec("fac_srtnotificatie_code").value
|
|
, "ics"
|
|
);
|
|
}
|
|
|
|
if (rec("fac_notificatie_status").value & params.STATUS_SUMMARY_XSL)
|
|
{
|
|
v_aanduiding = "notificationMail 5b";
|
|
// Via XSL
|
|
SubjectTextXSL = XML2HTML( xml_content
|
|
, p_notificationXSL
|
|
, rec("fac_srtnotificatie_code").value
|
|
, "summary"
|
|
);
|
|
Log2File(2, "SubjectText na vertaling" + SubjectTextXSL);
|
|
if (SubjectTextXSL)
|
|
{
|
|
SubjectText = SubjectTextXSL;
|
|
}
|
|
}
|
|
//
|
|
mail_params.notimode = "email";
|
|
mail_params.srtnotificatie = rec("fac_srtnotificatie_code").value;
|
|
|
|
if (S("puo_notificationinmailbody"))
|
|
{
|
|
Log2File(2, "Mailnotificatie in de body");
|
|
// In de body
|
|
var attachment_str = rec("fac_notificatie_attachments").value || "";
|
|
if (attachment_str)
|
|
{
|
|
attach_arr = attachment_str.split("|");
|
|
var isBijlageKey = !isNaN(parseInt(attach_arr[0]));
|
|
if (attach_arr.length && isBijlageKey)
|
|
{ // attachments worden doorgegeven met een bijlagen_key
|
|
for (i=0; i<attach_arr.length; i++)
|
|
{ // array van objecten met bijlagen_key
|
|
mail_params.attachments.push( { bijlagen_key: parseInt(attach_arr[i]) });
|
|
}
|
|
}
|
|
else if (attach_arr.length)
|
|
{ // array met slechts 1 element die path-string bevat
|
|
mail_params.attachments_path = attach_arr;
|
|
}
|
|
}
|
|
mail_params.attachics = icsResult;
|
|
v_aanduiding = "notificationMail 5c";
|
|
sendMail( sender_email
|
|
, receiver_email
|
|
, SubjectText
|
|
, ""
|
|
, strResult
|
|
, mail_params
|
|
);
|
|
}
|
|
else
|
|
{
|
|
var startPos = strResult.indexOf("qrc=") + 4;
|
|
var imgstart = strResult.lastIndexOf("<img", startPos); // moet wel binnen een <img> vallen
|
|
var imgend = strResult.indexOf(">", imgstart);
|
|
var quote = strResult.substr(startPos, 1);
|
|
var eindPos = strResult.indexOf(quote, startPos + 2);
|
|
if (startPos > 4 && eindPos > startPos && imgstart > 0 && imgend > startPos)
|
|
{
|
|
var qrc = strResult.substring(startPos + 1, eindPos);
|
|
qrc = qrc.replace(/\&/g, "&"); // Het was nog HTML/XML-encoded
|
|
var xc = new ActiveXObject("SLNKDWF.QRCode");
|
|
xc.Text = qrc;
|
|
__Log("Creating QRC: " + qrc);
|
|
var oXML = new ActiveXObject("Msxml2.DOMDocument.6.0");
|
|
var oNode = oXML.createElement("encodeddata");
|
|
oNode.dataType = "bin.base64"; // Zeer snelle oplossing
|
|
oNode.nodeTypedValue = xc.GetAsPNG();
|
|
var b64 = oNode.text;
|
|
|
|
var newbody = strResult.substr(0, startPos - 4) + "src=\"data:image/png;base64," + b64 + "\"" + strResult.substr(eindPos + 1);
|
|
strResult = newbody;
|
|
}
|
|
|
|
Log2File(2, "Mailnotificatie als attachment");
|
|
mail_params.attachFileName = "Facilitor.html";
|
|
v_aanduiding = "notificationMail 6";
|
|
sendMail( sender_email
|
|
, receiver_email
|
|
, SubjectText
|
|
, "Zie HTML attachment"
|
|
, strResult
|
|
, mail_params
|
|
);
|
|
}
|
|
v_aanduiding = "notificationMail 7";
|
|
// trackaction of sent mail
|
|
var sqlSrtNotificatie = "SELECT fac_srtnotificatie_code"
|
|
+ " FROM fac_srtnotificatie"
|
|
+ " WHERE fac_srtnotificatie_code LIKE '%TRK'"
|
|
+ " AND fac_srtnotificatie_code <> 'MESTRK'"
|
|
+ " AND fac_srtnotificatie_xmlnode IN (SELECT sn.fac_srtnotificatie_xmlnode FROM fac_srtnotificatie sn"
|
|
+ " WHERE sn.fac_srtnotificatie_code='" + srtcode + "')";
|
|
var oRs = Oracle.Execute(sqlSrtNotificatie);
|
|
if (!oRs.Eof)
|
|
{
|
|
// Ook eventuele bijlagen loggen.
|
|
var bijlagen_naam = [];
|
|
if (mail_params.attachments.length)
|
|
{
|
|
var bijlagen_keys = [];
|
|
for (var i=0; i<mail_params.attachments.length; i++)
|
|
{
|
|
bijlagen_keys.push(mail_params.attachments[i].bijlagen_key);
|
|
}
|
|
var sql_b = "SELECT fac_bijlagen_filename FROM fac_bijlagen where fac_bijlagen_key IN (" + bijlagen_keys.join(",") + ")";
|
|
var oRs_b = Oracle.Execute(sql_b);
|
|
while (!oRs_b.eof)
|
|
{
|
|
bijlagen_naam.push(oRs_b("fac_bijlagen_filename").Value);
|
|
oRs_b.MoveNext();
|
|
}
|
|
oRs_b.Close();
|
|
}
|
|
if (mail_params.attachments_path)
|
|
{
|
|
bijlagen_naam.push(mail_params.attachments_path);
|
|
}
|
|
|
|
var paction = "#" + oRs("fac_srtnotificatie_code").Value;
|
|
// Let op: sender_email kan overruled zijn in sendMail!
|
|
var txt = S("puo_lcl_tracknoti").format(srtcode, receiver_email, SubjectText, sender_email);
|
|
txt = txt + (bijlagen_naam.length ? "\nAttachment(s): " + bijlagen_naam.join("; ") : "");
|
|
var sql = "BEGIN fac.trackaction({0}, {1}, NULL, NULL, {2}); END;".format(safe.quoted_sql(paction), refkeyOrExtrakey(rec), safe.quoted_sql(txt));
|
|
Oracle.Execute(sql);
|
|
}
|
|
oRs.Close();
|
|
Log2File(2, "Mail sent");
|
|
}
|
|
}
|
|
noti_mailed++;
|
|
}
|
|
}
|
|
catch(e)
|
|
{
|
|
Log2File(0, "v_aanduiding: " + v_aanduiding);
|
|
var severity = "E";
|
|
if (String(e.description).indexOf("The parameter is incorrect") > -1)
|
|
{
|
|
severity = "I";
|
|
Log2File(0, "'The parameter is incorrect' detected. Lowering severity to 'I' to prevent putsystemnotification e-mail explosion (UWVA#89050)");
|
|
}
|
|
Log2File(0, toDateTimeString(new Date()) + " Error in SendNotification/MAIL (using smtp server {0}:{1})\n{2}".format(S("puo_smtpserver"), S("puo_smtpserverport"), e.description), severity);
|
|
// Wel doorvallen naar wissen bitjes: we blijven notificaties niet tot in den treure proberen
|
|
}
|
|
finally
|
|
{
|
|
// == DONE MAIL ==
|
|
if (clearNotifications)
|
|
{
|
|
// Let op: bitwise AND en NOT controle.
|
|
var controle = (255 & ~params.STATUS_EMAIL & ~params.STATUS_SUMMARY_XSL);
|
|
var sql = "UPDATE fac_notificatie"
|
|
+ " SET fac_notificatie_status = BITAND (fac_notificatie_status, " + controle + ")"
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value;
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
}
|
|
else
|
|
Log2File(1, "Parameter KEEP given, *not* clearing email notification " + rec("fac_notificatie_key").value);
|
|
}
|
|
return noti_mailed;
|
|
}
|
|
|
|
|
|
function notificationSMS(rec, p_notificationXSL, params)
|
|
{
|
|
// ======================== 4=SMS ========================
|
|
Log2File(2, "\n*> notificationSMS");
|
|
var noti_smsed = 0;
|
|
try
|
|
{
|
|
if (rec("fac_notificatie_status").value & params.STATUS_SMS) // bitwise AND
|
|
{
|
|
var fac_notificatie_receiver_phone = rec("fac_notificatie_receiver_phone").value;
|
|
|
|
var SMSText = rec("fac_notificatie_oms").value;
|
|
var SMSTextXSL = "";
|
|
|
|
if ((rec("fac_notificatie_status").value & params.STATUS_SUMMARY_XSL) && (rec("fac_srtnotificatie_xmlnode").value))
|
|
{
|
|
// Errors in de generatie van de XML worden afgevangen in fetchXMLContent
|
|
// De functie levert dan een lege string, de notificatie wordt dan als verzonden
|
|
// afgehandeld
|
|
var xml_content = fetchXMLContent( rec("fac_srtnotificatie_xmlnode").value
|
|
, rec("fac_notificatie_refkey").value
|
|
, rec("fac_notificatie_extrakey").value
|
|
, ""
|
|
, rec("fac_notificatie_lang").value
|
|
, { srtnotificatie: rec("fac_srtnotificatie_code").value,
|
|
notificatie_key: rec("fac_notificatie_key").Value
|
|
}
|
|
);
|
|
|
|
if (xml_content)
|
|
{
|
|
Log2File(2, "XSL file used=" + p_notificationXSL)
|
|
SMSTextXSL = XML2HTML( xml_content
|
|
, p_notificationXSL
|
|
, rec("fac_srtnotificatie_code").value
|
|
, "summary"
|
|
);
|
|
Log2File(2, "SMSText na vertaling" + SMSTextXSL);
|
|
if (SMSTextXSL)
|
|
{
|
|
SMSText = SMSTextXSL;
|
|
}
|
|
}
|
|
}
|
|
|
|
var smsResult = sendSMS( fac_notificatie_receiver_phone
|
|
, SMSText
|
|
);
|
|
if (smsResult)
|
|
{
|
|
Log2File(2, "SMS sent");
|
|
noti_smsed++;
|
|
}
|
|
}
|
|
}
|
|
catch(e)
|
|
{
|
|
Log2File(0, toDateTimeString(new Date()) + " Error in SendNotification/SMS: " + e.description, "E");
|
|
// Wel doorvallen naar wissen bitjes: we blijven notificaties niet tot in den treure proberen
|
|
}
|
|
finally
|
|
{
|
|
// == DONE SMS ==
|
|
if (clearNotifications)
|
|
{
|
|
// Let op: bitwise AND en NOT controle.
|
|
var controle = (255 & ~params.STATUS_SMS & ~params.STATUS_SUMMARY_XSL);
|
|
sql = "UPDATE fac_notificatie"
|
|
+ " SET fac_notificatie_status = BITAND (fac_notificatie_status, " + controle + ")"
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value;
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
}
|
|
else
|
|
Log2File(1, "Parameter KEEP given, *not* clearing SMS notification " + rec("fac_notificatie_key").value);
|
|
}
|
|
|
|
return noti_smsed;
|
|
}
|
|
|
|
function notificationAPP(rec, p_notificationXSL, params)
|
|
{
|
|
// ======================== 4=APP ========================
|
|
Log2File(2, "\n*> notificationAPP");
|
|
var noti_apped = 0;
|
|
try
|
|
{
|
|
if (rec("fac_notificatie_status").value & params.STATUS_APPPUSH) // bitwise AND
|
|
{
|
|
var prs_perslid_key_receiver = rec("prs_perslid_key_receiver").value;
|
|
|
|
var APPText = rec("fac_notificatie_oms").value;
|
|
var APPTextXSL = "";
|
|
var APPurl = "";
|
|
|
|
if (rec("fac_srtnotificatie_xmlnode").value)
|
|
APPurl = "?u=" + rec("fac_srtnotificatie_xmlnode").value + "&k=" + rec("fac_notificatie_refkey").value;
|
|
|
|
if ((rec("fac_notificatie_status").value & params.STATUS_SUMMARY_XSL) && (rec("fac_srtnotificatie_xmlnode").value))
|
|
{
|
|
|
|
// Errors in de generatie van de XML worden afgevangen in fetchXMLContent
|
|
// De functie levert dan een lege string, de notificatie wordt dan als verzonden
|
|
// afgehandeld
|
|
var xml_content = fetchXMLContent( rec("fac_srtnotificatie_xmlnode").value
|
|
, rec("fac_notificatie_refkey").value
|
|
, rec("fac_notificatie_extrakey").value
|
|
, ""
|
|
, rec("fac_notificatie_lang").value
|
|
, { srtnotificatie: rec("fac_srtnotificatie_code").value }
|
|
);
|
|
|
|
if (xml_content)
|
|
{
|
|
Log2File(2, "XSL file used=" + p_notificationXSL)
|
|
APPTextXSL = XML2HTML( xml_content
|
|
, p_notificationXSL
|
|
, rec("fac_srtnotificatie_code").value
|
|
, "summary"
|
|
);
|
|
Log2File(2, "APPText na vertaling" + APPTextXSL);
|
|
if (APPTextXSL)
|
|
{
|
|
APPText = APPTextXSL;
|
|
}
|
|
}
|
|
}
|
|
|
|
var appResult = sendAPP( prs_perslid_key_receiver
|
|
, APPText
|
|
, APPurl
|
|
, { // geef wat handige informatie door (zo lang we nog geen stylesheet achtige oplossing hebben
|
|
"receiverkey" : prs_perslid_key_receiver,
|
|
"xmlnode" : rec("fac_srtnotificatie_xmlnode").value,
|
|
"code" : rec("fac_srtnotificatie_code").value,
|
|
"refkey" : rec("fac_notificatie_refkey").value,
|
|
"extrakey" : rec("fac_notificatie_extrakey").value,
|
|
"lang" : rec("fac_notificatie_lang").value
|
|
}
|
|
);
|
|
if (appResult)
|
|
{
|
|
Log2File(2, "APP sent");
|
|
noti_apped++;
|
|
}
|
|
}
|
|
}
|
|
catch(e)
|
|
{
|
|
Log2File(0, toDateTimeString(new Date()) + " Error in SendNotification/APP: " + e.description, "E");
|
|
// Wel doorvallen naar wissen bitjes: we blijven notificaties niet tot in den treure proberen
|
|
}
|
|
finally
|
|
{
|
|
// == DONE APP ==
|
|
if (clearNotifications)
|
|
{
|
|
// Let op: bitwise AND en NOT controle.
|
|
var controle = (255 & ~params.STATUS_APPPUSH & ~params.STATUS_SUMMARY_XSL);
|
|
sql = "UPDATE fac_notificatie"
|
|
+ " SET fac_notificatie_status = BITAND (fac_notificatie_status, " + controle + ")"
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value;
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
}
|
|
else
|
|
Log2File(1, "Parameter KEEP given, *not* clearing app notification " + rec("fac_notificatie_key").value);
|
|
}
|
|
|
|
return noti_apped;
|
|
}
|
|
|
|
/*
|
|
Dit zijn *notificaties* die als *opdracht* verstuurd worden
|
|
Voornamelijk voor system2system koppelingen
|
|
Bijvoorbeeld AANS -> CSUN koppeling
|
|
*/
|
|
// Deprecated 2021.1, use notificationPRS
|
|
function notificationSYS(rec, params)
|
|
{
|
|
// ======================== Systeemadres ========================
|
|
// Het systeemadres wordt niet aangemerkt als bitje in de status kolom
|
|
Log2File(2, "\n*> notificationSYS");
|
|
var SendOrderResult = { resultcode: 1 };
|
|
var noti_sysed = 0;
|
|
|
|
var systeemadres = rec("fac_notificatie_systeemadres").value;
|
|
if (!systeemadres)
|
|
return noti_sysed;
|
|
|
|
try
|
|
{
|
|
var xmlnode = rec("fac_srtnotificatie_xmlnode").value || "";
|
|
var refkey = rec("fac_notificatie_refkey").value;
|
|
var extrakey = rec("fac_notificatie_extrakey").value;
|
|
var taal = rec("fac_notificatie_lang").value;
|
|
var code = rec("fac_srtnotificatie_code").value || "";
|
|
var sender_email = rec("fac_notificatie_sender_email").value || "";
|
|
|
|
var connect = new ConnectorCls();
|
|
// Met FSN#34131 hoop ik echte prs_bedrijfadres informatie te krijgen
|
|
// Tot die tijd ook even zo: je mag achteraan het systeemadres
|
|
// een ##1 zetten voor andere encoding
|
|
var encoding = 0; // text/xml
|
|
if (systeemadres.indexOf('##') > -1)
|
|
{
|
|
encoding = systeemadres.split('##')[1];
|
|
systeemadres = systeemadres.split('##')[0];
|
|
}
|
|
var bedrijfadres = { url: systeemadres,
|
|
error_handling: 0,
|
|
extension: "xml",
|
|
ordermode: 0,
|
|
certificateName: "",
|
|
AttachFile: "",
|
|
username: "",
|
|
password: "",
|
|
encoding: encoding };
|
|
|
|
puo_hook.initialize(bedrijfadres);
|
|
connect.connect(bedrijfadres); // vult eventueel bedrijfadres.username/password
|
|
|
|
if (xmlnode)
|
|
{
|
|
// Errors in de generatie van de XML worden afgevangen in fetchXMLContent
|
|
// De functie levert dan een lege string, de notificatie wordt dan als verzonden
|
|
// afgehandeld
|
|
var SendOrderResult = -1;
|
|
var xml_content = fetchXMLContent( xmlnode
|
|
, refkey
|
|
, extrakey
|
|
, ""
|
|
, taal
|
|
, { srtnotificatie: rec("fac_srtnotificatie_code").value }
|
|
);
|
|
if (xml_content)
|
|
{
|
|
var Bijlagen = {};
|
|
var ordernr = "Onbekend";
|
|
var System2SystemXSL = S("puo_system2systemxsl");
|
|
|
|
Log2File(3, "In Notifications sender=" + sender_email);
|
|
Log2File(4, "xsl=" + S("puo_system2systemxsl"));
|
|
Log2File(4, "xsl2=" + System2SystemXSL);
|
|
Log2File(4, "ordernr=" + ordernr);
|
|
Log2File(4, "key=" + refkey);
|
|
Log2File(4, "order_mode=" + bedrijfadres.ordermode);
|
|
Log2File(4, "Code=" + code);
|
|
Log2File(4, "XMLnode=" + xmlnode);
|
|
|
|
var SendOrderResult = SendOrder ( connect
|
|
, xml_content
|
|
, bedrijfadres
|
|
, System2SystemXSL
|
|
, ordernr
|
|
, refkey
|
|
, sender_email
|
|
, xmlnode
|
|
, code
|
|
, Bijlagen
|
|
);
|
|
}
|
|
|
|
if (SendOrderResult.resultcode != 0)
|
|
{
|
|
Log2File(0, "Notification to systeemadres failed. Errorcode:" + SendOrderResult.resultcode);
|
|
}
|
|
else
|
|
{
|
|
Log2File(2, "Notification to systeemadres sent");
|
|
noti_sysed++;
|
|
}
|
|
}
|
|
}
|
|
catch(e)
|
|
{
|
|
Log2File(0, toDateTimeString(new Date()) + " Error in SendNotification/Systemaddress: " + e.description, "E");
|
|
// Wel doorvallen naar wissen bitjes: we blijven notificaties niet tot in den treure proberen
|
|
}
|
|
finally
|
|
{
|
|
// == DONE Systeemadres ==
|
|
if (SendOrderResult.resultcode == 0)
|
|
{
|
|
if (clearNotifications)
|
|
{
|
|
sql = "UPDATE fac_notificatie"
|
|
+ " SET fac_notificatie_systeemadres = NULL "
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
}
|
|
else
|
|
Log2File(1, "Parameter KEEP given, *not* clearing system notification " + rec("fac_notificatie_key").value);
|
|
}
|
|
else
|
|
{
|
|
var failcount = rec("fac_notificatie_failcount") + 1;
|
|
// Interval tussen pogingen steeds 10 minuten langer, max 120 minuten
|
|
var backofminutes = Math.min(S("puo_faildelaymax"), failcount * S("puo_faildelayincrement"));
|
|
var nextdate = new Date();
|
|
nextdate.setMinutes(nextdate.getMinutes() + backofminutes);
|
|
var sql = "UPDATE fac_notificatie"
|
|
+ " SET fac_notificatie_failcount = " + failcount
|
|
+ " , fac_notificatie_faildatum = SYSDATE"
|
|
+ " , fac_notificatie_failmessage = " + safe.quoted_sql(SendOrderResult.errtext)
|
|
+ " , fac_notificatie_notbefore = " + nextdate.toSQL(true, true)
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value;
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
|
|
Log2File(1, "Failed {0} time(s) since {1}, delaying until {2}".format(failcount,
|
|
toDateTimeString(new Date(rec("fac_notificatie_datum").Value)),
|
|
toDateTimeString(nextdate)));
|
|
// Let op dat er latere notificaties over dezelfde xmlnode kunnen zijn of kunnen komen
|
|
// Als je wilt dat ze nooit out-of-order worden verwerkt moet de custom-queue
|
|
// processor zelf zo slim zijn om ook te stoppen met deze opdracht zodra hij
|
|
// *een* notbefore in de toekomst tegenkomt.
|
|
// Als de aanroeper nog een cursor op fac_v_notifyqueue open heeft staan ziet
|
|
// die cursor bovenstaande wijziging nog niet!
|
|
// ==> Zo geavanceerd doen we het bij deze notificaties niet.
|
|
}
|
|
}
|
|
|
|
return noti_sysed;
|
|
}
|
|
|
|
function refkeyOrExtrakey(rec)
|
|
{
|
|
return rec("fac_srtnotificatie_xmlnode").value == "reservering" ? rec("fac_notificatie_extrakey").value : rec("fac_notificatie_refkey").value;
|
|
}
|
|
|
|
function trk_action(srtcode, refkey, txt)
|
|
{
|
|
var sqlSrtNotificatie = "SELECT fac_srtnotificatie_code"
|
|
+ " FROM fac_srtnotificatie"
|
|
+ " WHERE fac_srtnotificatie_code LIKE '%TRK'"
|
|
+ " AND fac_srtnotificatie_code <> 'MESTRK'"
|
|
+ " AND fac_srtnotificatie_xmlnode IN (SELECT sn.fac_srtnotificatie_xmlnode FROM fac_srtnotificatie sn"
|
|
+ " WHERE sn.fac_srtnotificatie_code=" + safe.quoted_sql(srtcode) + ")";
|
|
var oRs = Oracle.Execute(sqlSrtNotificatie);
|
|
if (!oRs.Eof)
|
|
{
|
|
var paction = "#" + oRs("fac_srtnotificatie_code").Value;
|
|
var sql = "BEGIN fac.trackaction({0}, {1}, NULL, NULL, {2}); END;".format(safe.quoted_sql(paction), refkey, safe.quoted_sql(txt));
|
|
Oracle.Execute(sql);
|
|
}
|
|
oRs.Close();
|
|
}
|
|
|
|
// Notification to a fac_notificatie.prs_bedrijfadres
|
|
function notificationPRS(rec, params)
|
|
{
|
|
// ======================== prs_bedrijfadres ========================
|
|
// Het bedrijfadres wordt niet aangemerkt als bitje in de status kolom
|
|
Log2File(2, "\n*> notification PRS_BEDRIJFADRES");
|
|
var noti_prsed = 0;
|
|
|
|
if (!rec("prs_bedrijfadres_key").Value)
|
|
return noti_prsed;
|
|
|
|
var bedrijfadres_key = rec("prs_bedrijfadres_key").value;
|
|
var sql = "SELECT b.prs_bedrijf_naam"
|
|
+ " FROM prs_bedrijf b, prs_bedrijfadres ba"
|
|
+ " WHERE ba.prs_bedrijfadres_key = " + bedrijfadres_key
|
|
+ " AND ba.prs_bedrijf_key = b.prs_bedrijf_key";
|
|
var oRs = Oracle.Execute(sql);
|
|
var bedrijfnaam = oRs("prs_bedrijf_naam").Value; // Handig voor logging
|
|
oRs.Close();
|
|
Log2File(0, "Notification to company: {0} (adres_key {1})".format(bedrijfnaam, bedrijfadres_key));
|
|
|
|
var keeploglevel = S("puo_loglevel");
|
|
try
|
|
{
|
|
var props = {
|
|
ordernr: rec("fac_notificatie_naam").Value || (rec("fac_srtnotificatie_code").Value + "_" + rec("fac_notificatie_refkey").value), // voor eventuele filename
|
|
extrakey: rec("fac_notificatie_extrakey").Value,
|
|
subject: rec("fac_notificatie_oms").Value,
|
|
srtcode: rec("fac_srtnotificatie_code").Value,
|
|
sender: rec("fac_notificatie_sender_email").Value,
|
|
aanmaak: rec("fac_notificatie_datum").Value,
|
|
taal: rec("fac_notificatie_lang").Value,
|
|
notificatie_key: rec("fac_notificatie_key").Value
|
|
};
|
|
if (props.srtcode == 'ORDNEW' ||
|
|
props.srtcode == 'ORDSND' ||
|
|
props.srtcode == 'ORDUPD' || // zorg dat als teverzenden=2 wordt gezet dat mld_opdr_verzonden wel bijgewerkt raakt
|
|
props.srtcode == 'BES2NE' ||
|
|
props.srtcode == 'CNTNEW' ||
|
|
props.srtcode == 'RESSND')
|
|
{
|
|
props.marksent = marksent;
|
|
}
|
|
|
|
var SendOrderResult = send2address(
|
|
rec("prs_bedrijfadres_key").Value,
|
|
rec("fac_srtnotificatie_xmlnode").Value,
|
|
rec("fac_notificatie_refkey").Value,
|
|
props
|
|
)
|
|
var failcount = rec("fac_notificatie_failcount");
|
|
if (SendOrderResult.resultcode != 0 && SendOrderResult.resultcode != 2) // 0 = ok, 2 = onbekend (e-mail)
|
|
{
|
|
failcount ++;
|
|
Log2File(0, "Notification {0} to prs_bedrijfadres failed. Errorcode: {1}".format(rec("fac_srtnotificatie_code").Value||"", SendOrderResult.resultcode));
|
|
|
|
// Interval tussen pogingen steeds 10 minuten langer, max 120 minuten
|
|
var backofminutes = Math.min(S("puo_faildelaymax"), failcount * S("puo_faildelayincrement"));
|
|
var nextdate = new Date();
|
|
nextdate.setMinutes(nextdate.getMinutes() + backofminutes);
|
|
var sql = "UPDATE fac_notificatie"
|
|
+ " SET fac_notificatie_failcount = " + failcount
|
|
+ " , fac_notificatie_faildatum = SYSDATE"
|
|
+ " , fac_notificatie_failmessage = " + safe.quoted_sql(SendOrderResult.errtext)
|
|
+ " , fac_notificatie_notbefore = " + nextdate.toSQL(true, true)
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
|
|
var firstdatum = new Date(rec("fac_notificatie_datum").Value);
|
|
var lastdate = new Date(firstdatum);
|
|
lastdate.setHours(lastdate.getHours() + S("puo_faillimit"));
|
|
if (nextdate > lastdate)
|
|
{
|
|
var msg = "Failed {0} time(s) since {1} now. Giving up after {2} hours.".format(failcount, toDateTimeString(firstdatum), S("puo_faillimit"));
|
|
Log2File(1, msg);
|
|
|
|
sql = "UPDATE fac_notificatie"
|
|
+ " SET prs_bedrijfadres_key = NULL "
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
|
|
// dan moeten we er nog een nette lcl van maken maar putorders kent geen LCL's
|
|
//trk_action(props.srtcode, refkeyOrExtrakey(rec), msg);
|
|
}
|
|
else
|
|
{
|
|
Log2File(1, "Failed {0} time(s) since {1}, delaying until {2}".format(failcount,
|
|
toDateTimeString(new Date(rec("fac_notificatie_datum").Value)),
|
|
toDateTimeString(nextdate)));
|
|
}
|
|
}
|
|
else
|
|
{
|
|
Log2File(2, "Notification to prs_bedrijfadres sent");
|
|
if (!props.marksent) // dan xxxTRK proberen
|
|
{
|
|
var txt = S("puo_lcl_tracknoti_sys").format(props.srtcode, bedrijfnaam);
|
|
if (failcount > 0)
|
|
txt += S("puo_lcl_tracknoti_sys_fail").format(failcount);
|
|
trk_action(props.srtcode, refkeyOrExtrakey(rec), txt);
|
|
}
|
|
noti_prsed++;
|
|
}
|
|
}
|
|
catch(e)
|
|
{
|
|
Log2File(0, toDateTimeString(new Date()) + " Error in notificationPRS: " + e.description, "E");
|
|
// Wel doorvallen naar wissen bitjes: we blijven notificaties niet tot in den treure proberen
|
|
}
|
|
finally
|
|
{
|
|
// == DONE prs_bedrijfadres ==
|
|
if (SendOrderResult && (SendOrderResult.resultcode == 0 || SendOrderResult.resultcode == 2))
|
|
{
|
|
if (clearNotifications)
|
|
{
|
|
sql = "UPDATE fac_notificatie"
|
|
+ " SET prs_bedrijfadres_key = NULL "
|
|
+ " WHERE fac_notificatie_key = " + rec("fac_notificatie_key").value
|
|
Log2File(3, sql);
|
|
Oracle.Execute(sql);
|
|
}
|
|
else
|
|
Log2File(1, "Parameter KEEP given, *not* clearing bedrijfadres notification " + rec("fac_notificatie_key").value);
|
|
}
|
|
}
|
|
if (S("puo_loglevel") != keeploglevel)
|
|
settings.overrule_setting("puo_loglevel", keeploglevel); // was mogelijk overruled door send2address
|
|
|
|
return noti_prsed;
|
|
}
|
|
|
|
function getXslName(pNode)
|
|
{
|
|
var fso = new ActiveXObject("Scripting.FileSystemObject");
|
|
var resxslsheet = S("puo_notificationxsl").toLowerCase() || "";
|
|
|
|
if (pNode)
|
|
{
|
|
if (fso.FileExists(custabspath + "/xsl/" + pNode + ".xsl"))
|
|
resxslsheet = "xsl/" + pNode + ".xsl";
|
|
}
|
|
|
|
if (resxslsheet == "" || !fso.FileExists(custabspath + "/" + resxslsheet))
|
|
resxslsheet = "xsl/" + customerId.toLowerCase() + ".xsl";
|
|
|
|
if (!fso.FileExists(custabspath + "/" + resxslsheet))
|
|
resxslsheet = "../../appl/shared/default.xsl";
|
|
|
|
return resxslsheet;
|
|
}
|