admin/Facilitor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge 2016.1 patches

Browse Source 
svn path=/Website/trunk/; revision=29621
This commit is contained in:
Jos Groot Lipman
2016-06-01 18:57:14 +00:00
parent 482f5aa932 ba256244ad
commit 1654033ece
33 changed files with 690 additions and 1115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
APPL/API2/api2.inc
View File

@@ -1184,6 +1184,9 @@ api2 = {
},
toDate: function (dt)
{
if (dt instanceof Array)
MULTI_DATE_NOT_SUPPORTED;
if (dt instanceof Date)
return dt;
// LET OP: Een (new Date) gemaakt binnen een plugin is vreemd genoeg geen (instanceof Date)

49
APPL/API2/model_companies.inc
View File

@@ -12,15 +12,19 @@
*/
%>
<!-- #include file="../prs/prs.inc" -->
<!-- #include file="./model_custom_fields.inc"-->
<%
model_companies =
function model_companies()
{
table: "prs_bedrijf",
primary: "prs_bedrijf_key",
records_name: "companies",
record_name: "company",
fields: {"id" : { dbs: "prs_bedrijf_key" , typ: "key", filter: "exact" },
this.table = "prs_bedrijf";
this.primary = "prs_bedrijf_key";
this.records_name = "companies";
this.record_name = "company";
this.fields = {
"id" : { dbs: "prs_bedrijf_key" , typ: "key", filter: "exact" },
"name" : { dbs: "prs_bedrijf_naam" , typ: "varchar", filter: "like" },
"postaddress" : { dbs: "prs_bedrijf_post_adres" , typ: "varchar", filter: "like" },
"postzipcode" : { dbs: "prs_bedrijf_post_postcode" , typ: "varchar", filter: "like" },
@@ -48,21 +52,30 @@ model_companies =
"email" : { dbs: "prs_bedrijf_email" , typ: "varchar", filter: "like" },
"location" : { dbs: "prs_bedrijfdienstlocatie.alg_locatie_key", typ: "key", foreign: "alg_locatie", filter: prs.getLocationSql },
"service" : { dbs: "prs_bedrijfdienstlocatie.prs_dienst_key", typ: "key", foreign: "prs_dienst", filter: "like" }
},
REST_GET: function _GET(params)
};
this.includes = {
"custom_fields" : {
"model": new model_custom_fields(this, "PRS", { readman: true, readuse: true, pNiveau: "B" }),
"joinfield": "flexparentkey"
}
};
this.REST_GET = function _GET(params)
{
var autfunction = "WEB_RELMAN";
params.authparams = user.checkAutorisation(autfunction, null, null, true); // pessimistisch
// TODO: Add authorization
var query = api2.sqlfields(params, model_companies);
var query = api2.sqlfields(params, this);
query.wheres.push("prs_bedrijf_verwijder IS NULL");
/* we need the dienstlocatie for the service and location */
query.tables.push("prs_bedrijfdienstlocatie");
query.wheres.push("prs_bedrijfdienstlocatie.prs_bedrijf_key(+) = prs_bedrijf.prs_bedrijf_key")
var wheres = api2.sqlfilter(params, model_companies)
var wheres = api2.sqlfilter(params, this)
query.wheres = query.wheres.concat(wheres);
var sql = "SELECT " + query.selects.join(", ")
@@ -70,18 +83,18 @@ model_companies =
+ " WHERE " + query.wheres.join(" AND " )
+ " ORDER BY prs_bedrijf_naam";
var json = api2.sql2json (params, sql, model_companies);
var json = api2.sql2json (params, sql, this);
return json;
},
PUT: function (params) /* update company */
};
this.PUT = function (params) /* update company */
{
},
POST: function (params) /* new company */
};
this.POST = function (params) /* new company */
{
},
DELETE: function (params) /* delete company */
};
this.DELETE = function (params) /* delete company */
{
}
};
}
%>

8
APPL/API2/model_mld_workflowrule.inc
View File

@@ -94,6 +94,14 @@ function model_mld_workflowrule(mystart_key)
"dbs": "mld_workflowrule_condition",
"label": L("mld_workflowrule_condition"),
"typ": "memo"
},
"otherpath": {
"dbs": "mld_workflowrule_result",
"label": "Otherpath",
"typ": "number",
"required": true,
"hidden_fld": true,
"defaultvalue": 1
}
};
var prev_key = getQParamInt("prevstep", -1)

9
APPL/API2/model_persons.inc
View File

@@ -56,6 +56,7 @@ function model_persons()
"initials" : { dbs: "prs_perslid_voorletters", "label": L("lcl_prs_person_initials"), typ: "varchar" },
"prefix" : { dbs: "prs_perslid_tussenvoegsel", "label": L("lcl_prs_person_tussen"), typ: "varchar" },
"gender" : { dbs: "prs_perslid_geslacht", "label": L("lcl_prs_person_geslacht"), typ: "varchar", LOV: genderLOV() },
"language" : { dbs: "prs_perslid_lang", "label": L("lcl_lcl_taal"), typ: "varchar" },
"phone" : { dbs: "prs_perslid_telefoonnr", "label": L("lcl_prs_person_phone"), typ: "varchar" },
"mobile" : { dbs: "prs_perslid_mobiel", "label": L("lcl_prs_person_mobile"), typ: "varchar" },
"email" : { dbs: "prs_perslid_email", "label": L("lcl_prs_person_email"), typ: "varchar", filter: "exact"},
@@ -73,14 +74,14 @@ function model_persons()
};
this.includes = {
"custom_fields" : {
"model": new model_custom_fields(this, "PRS", { readman: true, readuse: true }),
"joinfield": "flexparentkey"
},
"authorization": {
"model": new model_fac_gebruikersgroep(),
"joinfield": "user"
},
"custom_fields" : {
"model": new model_custom_fields(this, "PRS", { readman: true, readuse: true, pNiveau: "P" }),
"joinfield": "flexparentkey"
},
"tracking": {
"model": new model_tracking(["perslid"]),
"joinfield": "fac_tracking_refkey"

63
APPL/API2/model_prs_ruimteafdeling.inc Normal file
View File

@@ -0,0 +1,63 @@
<% /*
$Revision$
$Id$
File: model_prs_ruimteafdeling.inc
Description:
Context:
Notes:
*/
%>
<%
function model_prs_ruimteafdeling()
{
this.table = "prs_ruimteafdeling";
this.primary = "prs_ruimteafdeling_key";
this.records_name = "prs_ruimteafdelings";
this.record_name = "prs_ruimteafdeling";
this.autfunction = "WEB_ALGUSE";
this.record_title = L("prs_ruimteafdeling");
this.records_title = L("prs_ruimteafdeling_m");
this.fields = {
"id": {
"dbs": "prs_ruimteafdeling_key",
"label": "Key",
"typ": "key",
"required": true,
"filter": "exact",
"seq": "prs_s_prs_ruimteafdeling_key"
},
"department": {
"dbs": "prs_afdeling_key",
"label": L("lcl_prs_organisatie"),
"typ": "key",
"required": true,
"foreign": "PRS_AFDELING"
},
"room": {
"dbs": "alg_ruimte_key",
"label": L("lcl_room"),
"typ": "key",
"required": true
},
"occupation": {
"dbs": "prs_ruimteafdeling_bezetting",
"label": L("lcl_prs_ruimtebezetting"),
"typ": "float",
"required": true
}
};
this.REST_GET = generic_REST_GET(this);
this.REST_POST = generic_REST_POST(this);
this.REST_PUT = generic_REST_PUT(this);
this.REST_DELETE = generic_REST_DELETE(this);
}
%>

45
APPL/API2/model_reservations.inc
View File

@@ -17,7 +17,7 @@
*/
%>
<!-- #include file="../Shared/discxalg3d.inc"-->
<!-- #include file="../Shared/discx3d.inc"-->
<!-- #include file="../res/res.inc" -->
<!-- #include file="./model_reservationequipment.inc"-->
<!-- #include file="./model_reservationconsumables.inc"-->
@@ -63,7 +63,8 @@ function model_reservations(rsv_key, params)
"resroom" : { dbs: "res_ruimte_opstelling.res_ruimte_key", typ: "key", filter: "exact", label: L("lcl_room"), foreign: "res_ruimte" },
"configuration" : { dbs: "res_ruimte_opstelling.res_opstelling_key", typ: "key", foreign: "res_opstelling" },
"approved" : { dbs: "res_rsv_ruimte_afgerond", typ: "number", label: L("lcl_res_resappr"), track: true },
"warning" : { dbs: "res_rsv_ruimte_dirtlevel", typ: "number", foreign: fndirtwarn, readonly: true }
"warning" : { dbs: "res_rsv_ruimte_dirtlevel", typ: "number", foreign: fndirtwarn, readonly: true },
"reservation" : { dbs: "res_reservering_key", typ: "key", label: L("lcl_reservation") }
};
// Mogelijke waarden voor res_rsv_ruimte_flag is afhankelijk van het aantal toegestane flags.
@@ -114,9 +115,27 @@ function model_reservations(rsv_key, params)
if (!params.filter.id)
query.wheres.push("res_rsv_ruimte_van BETWEEN SYSDATE - " + S("facilitiespast_res") + " AND SYSDATE + " + S("facilitiesfuture_res"));
}
else
{
if (!params.filter.from && !params.filter.to)
query.wheres.push("res_rsv_ruimte_van >= SYSDATE"); // reserveringen die nog moeten beginnen!
}
query.tables.push("res_ruimte_opstelling");
query.wheres.push("res_rsv_ruimte.res_ruimte_opstel_key = res_ruimte_opstelling.res_ruimte_opstel_key");
query.tables.push("res_ruimte rr");
query.tables.push("res_alg_ruimte ra");
query.tables.push("alg_v_ruimte_gegevens_all rg");
query.tables.push("alg_district di");
query.tables.push("prs_perslid p");
query.tables.push("prs_v_afdeling_boom boom");
query.wheres.push("res_rsv_ruimte.res_ruimte_opstel_key = res_ruimte_opstelling.res_ruimte_opstel_key(+)");
query.wheres.push("rr.res_ruimte_key(+) = ra.res_ruimte_key");
query.wheres.push("ra.res_ruimte_key(+) = res_ruimte_opstelling.res_ruimte_key");
query.wheres.push("rg.alg_ruimte_key = COALESCE(res_rsv_ruimte.alg_ruimte_key, ra.alg_ruimte_key)");
query.wheres.push("rg.alg_district_key = di.alg_district_key");
query.wheres.push("res_rsv_ruimte.res_rsv_ruimte_contact_key = p.prs_perslid_key");
query.wheres.push("boom.prs_afdeling_key = p.prs_afdeling_key");
var wheres = api2.sqlfilter(params, this);
query.wheres = query.wheres.concat(wheres);
@@ -125,9 +144,25 @@ function model_reservations(rsv_key, params)
var sql = "SELECT " + query.selects.join(", ")
+ " FROM " + query.tables.join(", ")
+ " WHERE " + query.wheres.join(" AND " )
+ " ORDER BY res_rsv_ruimte.res_rsv_ruimte_key"; // Order by nodig voor includes
+ " WHERE " + query.wheres.join(" AND " );
// Over het resultaat moet nog de 3D rasp, altijd
sql = discx3d (sql,
"rr.res_discipline_key",
"di.alg_regio_key",
"rg.alg_district_key",
"rg.alg_locatie_key",
"rg.alg_gebouw_key",
"rg.alg_verdieping_key",
"rg.alg_ruimte_key",
"boom.prs_bedrijf_key",
"boom.prs_afdeling_key",
autfunction,
"",
2,null,3
);
sql += " ORDER BY res_rsv_ruimte.res_rsv_ruimte_key"; // Order by nodig voor includes
if (query.orderbys.length)
sql += ", " + query.orderbys.join(", ");

14
APPL/API2/model_rooms.inc
View File

@@ -15,6 +15,7 @@
<!-- #include file="./model_cadcontours.inc" -->
<!-- #include file="./model_custom_fields.inc"-->
<!-- #include file="./model_tracking.inc"-->
<!-- #include file="./model_prs_ruimteafdeling.inc"-->
<%
function model_rooms(room_key, params)
{
@@ -76,12 +77,17 @@ function model_rooms(room_key, params)
}
}
},
"custom_fields" : { model: new model_custom_fields(this, "ALG", { readman: true, readuse: true }),
joinfield: "flexparentkey"
"custom_fields" : {
"model": new model_custom_fields(this, "ALG", { readman: true, readuse: true }),
"joinfield": "flexparentkey"
},
"tracking": {
model: new model_tracking(['ruimte']),
joinfield: "fac_tracking_refkey"
"model": new model_tracking(["ruimte"]),
"joinfield": "fac_tracking_refkey"
},
"departments": {
"model": new model_prs_ruimteafdeling(),
"joinfield": "room"
}
}

9
APPL/API2/model_visitors.inc
View File

@@ -13,6 +13,7 @@
%>
<!-- #include file="../Shared/discxalg3d.inc"-->
<!-- #include file="./model_custom_fields.inc"-->
<%
model_visitors =
{
@@ -29,6 +30,14 @@ model_visitors =
"out" : { dbs: "bez_bezoekers_out", typ: "datetime", label: L("lcl_bez_out_date")},
"appointment": { dbs: "bez_afspraak_key", typ: "key", xforeign: "bez_afspraak"}
},
includes: {
"custom_fields" : {
"model": new model_custom_fields(this, "BEZ", { readman: true, readuse: true }),
"joinfield": "flexparentkey"
}
},
list: { columns: ["name", "company", "in", "out"] },
REST_GET: function _GET(params)

2
APPL/BEZ/bez_edit_afspraak.asp
View File

@@ -257,7 +257,7 @@ else
}
else
{
RWFIELDTR("personH", "fld", L("lcl_vis_visit"), bez_afspraak.gastheer, {maxlength : 30, required: (S("vis_afspraak_host_uses_keys") & 2) == 2 })
RWFIELDTR("personH", "fld", L("lcl_vis_visit"), bez_afspraak.gastheer.substr(0, 50), {maxlength : 50, required: (S("vis_afspraak_host_uses_keys") & 2) == 2 })
RWFIELDTR("phone", "fld", L("lcl_phone"), bez_afspraak.telf_nr, {maxlength : 15, required: S("vis_afspraak_tel_required") == 1 })
} %>

2
APPL/BEZ/bez_edit_afspraak.js
View File

@@ -277,7 +277,7 @@ function bezFlexListACallbackJs(rowNr)
function BezoekerSelected(data, orgData)
{
var rowNr = orgData.rownr;
$("#bez" + rowNr).val(data.naam);
$("#bez" + rowNr).val(data.naam.substr(0, 30));
$("#bed" + rowNr).val(data.bedrijf);
if (data.contkey)
$("#contkey" + rowNr).val(data.contkey);

16
APPL/BEZ/bez_edit_bezoekers.inc
View File

@@ -159,14 +159,15 @@ function bez_edit_bezoekers(afspraak_key, afspraak_begin, afspraak_eind, loc_key
<% } %>
<td>
<% /* ContactpersoonBedrijfSelected laadt nieuwe flexkenmerken en bijbehorende verplichte flexkenmerk bij personen zorgen er ook voor dat personen eventueel verplicht wordt [checkRequiredGroup("10S" + params.suggestid.substr(3))]; */ %>
<%
<% // Bij suggestbox met contactpersonen (params.contactonly) geen maximale lengte eis.
var bezreado = res_ruimte_extern || oRs("prs_contactpersoon_key").Value != null || oRs("prs_perslid_key").Value != null
RWFIELD("bez" + next_vis, "fld", "", oRs("bez_afspraak_naam").Value,
{ maxlength: "30", readonly: bezreado, html: (params.contactonly? "sgonChange='ContactpersoonBedrijfSelected'" : 'onChange="checkRequiredGroup(\'10S' + next_vis + '\')"') }) %>
{ maxlength: (params.contactonly? null : "30"), readonly: bezreado, html: (params.contactonly? "sgonChange='ContactpersoonBedrijfSelected'" : 'onChange="checkRequiredGroup(\'10S' + next_vis + '\')"') }) %>
</td>
<td>
<% RWFIELD("bed" + next_vis, "fld", "", oRs("bez_afspraak_bedrijf").Value,
{ maxlength: "60", readonly: bezreado, html: (params.contactonly? "sgonChange='ContactpersoonBedrijfSelected'" : '') } ) %>
<% // Bij suggestbox met bedrijven (params.contactonly) geen maximale lengte eis.
RWFIELD("bed" + next_vis, "fld", "", oRs("bez_afspraak_bedrijf").Value,
{ maxlength: (params.contactonly? null : "60"), readonly: bezreado, html: (params.contactonly? "sgonChange='ContactpersoonBedrijfSelected'" : '') } ) %>
</td>
<td>
<!--Gebouw/Terrein-->
@@ -317,9 +318,10 @@ function bez_edit_bezoekers(afspraak_key, afspraak_begin, afspraak_eind, loc_key
{ %>
ih.insertCell(-1).innerHTML = '<img src="../Pictures/bezcontact.png" class="ilbutton" title="<%=titel%>" OnClick=selectPerson(' + next_vis + ')>';
<% } %>
<% /* ContactpersoonBedrijfSelected laadt nieuwe flexkenmerken en bijbehorende verplichte flexkenmerk bij personen zorgen er ook voor dat personen eventueel verplicht wordt [checkRequiredGroup("10S" + params.suggestid.substr(3))]; */ %>
ih.insertCell(-1).innerHTML = '<input type="text" class="fld fldnotresponsive" name="bez' + next_vis + '" id="bez' + next_vis + '" maxlength="30" <% if (!params.contactonly) {%> onChange="checkRequiredGroup(\'10S' + next_vis + '\')" <% } %> <%=params.contactonly? 'sgonChange="ContactpersoonBedrijfSelected"' : 'onChange="checkRequiredGroup(\\\'10S' + next_vis + '\\\')"'%>>';
ih.insertCell(-1).innerHTML = '<input type="text" class="fld fldnotresponsive" name="bed' + next_vis + '" id="bed' + next_vis + '" maxlength="60" <%=params.contactonly? 'sgonChange="ContactpersoonBedrijfSelected"' : ''%>>';
<% /* ContactpersoonBedrijfSelected laadt nieuwe flexkenmerken en bijbehorende verplichte flexkenmerk bij personen zorgen er ook voor dat personen eventueel verplicht wordt [checkRequiredGroup("10S" + params.suggestid.substr(3))];
Bij suggestbox met contactpersonen/bedrijven (params.contactonly) geen maximale lengte eis. */ %>
ih.insertCell(-1).innerHTML = '<input type="text" class="fld fldnotresponsive" name="bez' + next_vis + '" id="bez' + next_vis + '" <% if (!params.contactonly) {%> onChange="checkRequiredGroup(\'10S' + next_vis + '\')" <% } %> <%=params.contactonly? 'sgonChange="ContactpersoonBedrijfSelected"' : 'maxlength="30" onChange="checkRequiredGroup(\\\'10S' + next_vis + '\\\')"'%>>';
ih.insertCell(-1).innerHTML = '<input type="text" class="fld fldnotresponsive" name="bed' + next_vis + '" id="bed' + next_vis + '" <%=params.contactonly? 'sgonChange="ContactpersoonBedrijfSelected"' : 'maxlength="60"'%>>';
<% if (S("vis_parking_key") != -1 && this_bez.canWritePrk)
{ %>
ih.insertCell(-1).innerHTML = '<div id="prkdiv' + next_vis + '"></div>';

1
APPL/Localscripts/FcltMgr.js
View File

@@ -680,7 +680,6 @@ var FcltMgr =
+' id="fcltmodal'+FcltMgr._modalCount+'" name="fcltmodal'+FcltMgr._modalCount+'" style="padding: 0px; '+ css_scroll +'"'
+' src="' + url + '">'
+'</iframe>';
this.fixActiveelementError();
$(html).dialog(params).dialog('open');
},

32
APPL/MLD/mld_edit_melding.asp
View File

@@ -576,21 +576,6 @@ lcl.set_dialect(mld_melding.srtdisc, "MLD_SRTDISCIPLINE_KEY");
});
personForExist = true;
}
// Een FE kan niet togglen
// Als bij nieuwe meldingen de peroon initieel wordt ingevuld dan de OnChange van de persoon suggestbox uitvoeren,
// maar bij een melding bij Reservering niet, dan hebben we die gegevens juist al bepaald en overgenomen
if (rsv_ruimte_key < 0) {
%>
<script type="text/javascript">
jQuery(document).ready(function()
{
if (<%=mld_key%> < 0 && <%=mld_melding.melder_key%> > 0)
onChangeMelder(<%=mld_melding.melder_key%>);
});
</script>
<%
}
if (!stdm_info.is_kto_antwoord)
{
@@ -624,6 +609,23 @@ lcl.set_dialect(mld_melding.srtdisc, "MLD_SRTDISCIPLINE_KEY");
<input type="hidden" id="person" name="person" value="<%=user_key%>">
<% }
// Een FE kan niet togglen
// Als bij nieuwe meldingen de peroon initieel wordt ingevuld dan de OnChange van de persoon suggestbox uitvoeren,
// maar bij een melding bij Reservering niet, dan hebben we die gegevens juist al bepaald en overgenomen
if (rsv_ruimte_key < 0) {
%>
<script type="text/javascript">
jQuery(document).ready(function()
{
if (<%=mld_key%> < 0 && <%=mld_melding.melder_key%> > 0)
onChangeMelder(<%=mld_melding.melder_key%>);
});
</script>
<%
}
BLOCK_START("mldMelding", L("lcl_mld_categorie"), true);
// Setting mld_selector_mode:
// Selector mode vakgroep/melding voor de frontend.

6
APPL/RES/res.inc
View File

@@ -482,7 +482,11 @@ res = {
if (typeof mode == "undefined") mode = 0;
var sql = "SELECT fac.DatumTijdPlusUitvoerTijd(SYSDATE, COALESCE(" + (mode == 1? "res_disc_params_cancel_dagen" : "res_disc_params_expire_dagen") + ", 1),"
+ " 'DAGEN', " + ((restype == "CV" && S("res_cat_t1") >= 0)? S("res_cat_t1") : S("res_t1")) + ", "
+ " COALESCE(res_disc_params_expire_tijd, " + ((restype == "CV" && S("res_cat_t2") >= 0)? S("res_cat_t2") : S("res_t2")) + "), 1) datum"
+ " COALESCE(CASE"
+ " WHEN res_disc_params_expire_tijd = -1 OR res_disc_params_expire_tijd IS NULL"
+ " THEN NULL"
+ " ELSE res_disc_params_expire_tijd"
+ " END, " + ((restype == "CV" && S("res_cat_t2") >= 0)? S("res_cat_t2") : S("res_t2")) + "), 1) datum"
+ " , res_disc_params_expire_tijd"
+ " , COALESCE(" + (mode == 1? "res_disc_params_cancel_dagen" : "res_disc_params_expire_dagen") + ", 1) dagen"
+ " , ins_discipline_min_level"

9
APPL/RES/res_edit_rsv_ruimte.asp
View File

@@ -797,6 +797,14 @@ FCLTHeader.Requires({plugins: ["jQuery", "kenmerk"],
var date_from = new Date(parseInt($("#date_from").val()));
var date_to = new Date(parseInt($("#date_to").val()));
// FSN#36654 door een oude bug zijn er gepinde tabbladen naar 'nieuwe reservering' die tot AiAi's leiden
// Dat lossen we hier silent op (tot we ooit die foutieve tabbladen hebben opgeruimd)
// Merk op dat *heel* incidenteel een gebruiker het via de gewone interface ook lukte
// deze error te krijgen. Dat was dan niet relaxed en die AiAi willen we wel blijven zien
// en hopelijk ooit oplossen
if (relaxed && !(date_from && date_from.getTime() && date_to && date_to.getTime()))
return;
date_to.setFullYear(date_from.getFullYear()); // We hebben alleen een tijdstip namelijk
date_to.setMonth(date_from.getMonth());
date_to.setDate(date_from.getDate());
@@ -816,6 +824,7 @@ FCLTHeader.Requires({plugins: ["jQuery", "kenmerk"],
url += "&vis=" + nbez; // nog niet moeilijk doen over ongeldige waarden
visheader = nbez ? " (" + nbez + L("lcl_res_nrpers_inplanbord") + ")": "";
}
FcltMgr.fixActiveelementError(); // Ging soms mis met IE8
FcltMgr.openModalDetail(url,
L("lcl_res_select_inplanbord") + $('#sel_activity :selected').text() + visheader,
{ resizable: false,

2
APPL/Shared/default.inc
View File

@@ -9,7 +9,7 @@
Note: Sinds 5.2.2 zitten de settings in de database
*/
var FCLTVersion="2016.1c UC";
var FCLTVersion="2016.1d";
var FCLTMinDatabaseSchema="28";
var custpath = rooturl + "/cust/" + customerId; // path to customer files

8
APPL/Shared/kenmerk_js.asp
View File

@@ -70,8 +70,12 @@ function checkRequiredGroup(group)
}
}
var in_use = false; // Semaphore(Seinvlag) om nested loop van de alerts van twee velden met te lange invoer te vermijden.
function checkKenmerk(field, show, ktype, klen, kdec, kmin, kmax)
{
if (!in_use)
{
in_use = true;
var valid = true;
var value = field.value;
var err = "<%=L("lcl_mld_invalid_kenmerk_format")%>";
@@ -144,8 +148,8 @@ function checkKenmerk(field, show, ktype, klen, kdec, kmin, kmax)
}
if (show && !valid)
{
alert(err);
field.focus();
alert(err);
}
else if (!show && valid && field.className.match(/required\d*S\d*/g) && field.className.match(/required\d*S\d*/g).length > 0)
{ // Er is een required groep aanwezig.
@@ -154,8 +158,10 @@ function checkKenmerk(field, show, ktype, klen, kdec, kmin, kmax)
checkRequiredGroup(group);
}
in_use = false;
return valid;
}
}
// Op een generieke manier documenten openen
// DWF bestanden worden eventueel met de SLNKDWF viewer geopend

3
CUST/AKZA/Exchange/ImportExchangeFull.bat Normal file
View File

@@ -0,0 +1,3 @@
IF EXIST tmp_Exchange_all.bat DEL tmp_Exchange_all.bat
CScript ..\..\..\UTILS\Exchange\exchange_all.js AKZA EXCHFULL EXCHSYNC
::CALL tmp_Exchange_all.bat

5
CUST/AKZA/Exchange/exchange.config.js
View File

@@ -4,5 +4,8 @@
password : 'pass@word1', // Let op: dat werkt alleen als ServerXMLHTTP denkt op intranet te zitten
maxchange : 25, // Maximaal 25 wijzigingen tegelijk. De rest komt de volgende keer wel
maxrecurring: 100, // Maximaal 1e 100 occurences van een recurring afspraak
xmlfolder : "./xml/" // Hier komen alle opgehaalde XML's geplaatst. Moet bestaan
fullpast : 0, // Tot 0 dagen in het verleden bij nachtelijke EXCHFULL calendar-sync
fullfuture : 90, // Tot 90 dagen in de toekomst bij nachtelijke EXCHFULL calendar-sync
xmlfolder : "./xml/", // Hier komen alle opgehaalde XML's geplaatst. Moet bestaan
loglevel : 0
}

70
CUST/AKZA/xsl/cust.xsl
View File

@@ -308,18 +308,12 @@ p.MsoNormal {
</td>
</tr>
<tr>
<td align="right"><b>Locatie:</b></td>
<td align="left">
<xsl:value-of select="voor/plaats/regio/district/locatie/code"/> (<xsl:value-of select="plaats/regio/district/locatie/omschrijving"/>)
</td>
<td align="right" valign="top"><b>Afdeling: </b></td>
<td align="left"><xsl:value-of select="voor/afdeling/omschrijving"/></td>
<td/>
<td/>
</tr>
<tr>
<td align="right" valign="top"><b>Werkplek: </b></td>
<td align="left">
<xsl:value-of select="voor/werkplek/plaats/plaatsaanduiding"/></td>
<td></td>
<td><xsl:choose><xsl:when test="kostenplaats/module!='ALG'">Kosten aanvrager</xsl:when></xsl:choose></td>
</tr>
<tr height="20px">
@@ -1906,7 +1900,7 @@ p.MsoNormal {
<td width="15%">Amount<br/>Bedrag<br/>Betrag<br/>Montant</td>
</tr>
<tr><td colspan="4"><hr/></td></tr>
<xsl:for-each select="materialen[code='vm']">
<xsl:for-each select="materialen[count(code)=0]">
<xsl:sort select="volgnr"/>
<tr>
<td><xsl:value-of select="format-number(aantal, '0,00', 'european')"/></td>
@@ -1938,7 +1932,7 @@ p.MsoNormal {
</xsl:choose>
OF NO COMMERCIAL VALUE<br/>
FREE OF CHARGE<br/>
VALUE FOR CUSTOMS PURPOSES ONLY: &#8364; <xsl:value-of select="format-number(sum(materialen[code='vm']/totaalprijs), '0,00', 'european')"/><br/>
VALUE FOR CUSTOMS PURPOSES ONLY: &#8364; <xsl:value-of select="format-number(sum(materialen[count(code)=0]/totaalprijs), '0,00', 'european')"/><br/>
EORI NUMBER: NL 001824521
</div>
<xsl:if test="kenmerk[@naam='Vrije tekst op bon']!=''">
@@ -2413,10 +2407,6 @@ p.MsoNormal {
<td width="20%" class="label"><xsl:value-of select="//lcl/FAC/e-mail"/></td>
<td width="80%" class="value">: <xsl:value-of select="rsv_ruimte[volgnr=$min_volgnr]/contact_user/email"/></td>
</tr>
<tr>
<td width="20%" class="label"><xsl:value-of select="//lcl/FAC/locatie"/></td>
<td width="80%" class="value">: <xsl:value-of select="rsv_ruimte[volgnr=$min_volgnr]/contact_user/werkplek/plaats/regio/district/locatie/omschrijving"/></td>
</tr>
<tr>
<td width="20%" class="label"><xsl:value-of select="//lcl/FAC/afdeling"/></td>
<td width="80%" class="value">: <xsl:value-of select="rsv_ruimte[volgnr=$min_volgnr]/contact_user/afdeling/omschrijving"/></td>
@@ -3067,8 +3057,15 @@ p.MsoNormal {
<tr height="4.2cm">
<xsl:for-each select="//facilitor/rapport/rapport_data/data_row">
<xsl:sort select="INS_DEEL_OMSCHRIJVING"/>
<xsl:sort select="FCLT_F_IDENTIFICATIE"/>
<xsl:if test="position() &gt;= $p_pos and position() &lt;= $p_pos + $p_cols - 1">
<xsl:apply-templates select="." mode="qrc"/>
</xsl:if>
</xsl:for-each>
</tr>
</xsl:template>
<xsl:template match="data_row" mode="qrc">
<td style="text-align: center; vertical-align: top; margin:0;padding:0">
<xsl:element name="img">
<xsl:attribute name="style">height: 4.25cm; width: 4.25cm; margin:0cm; padding:0; border:none</xsl:attribute>
@@ -3084,17 +3081,16 @@ p.MsoNormal {
../../cust/akza/akzonobel.gif
</xsl:attribute>
</xsl:element>
<br/><br/>
&#160;&#160;&#160;<xsl:value-of select="INS_DEEL_OMSCHRIJVING"/><br/>
<br/>&#160;&#160;&#160;<xsl:value-of select="FCLT_F_IDENTIFICATIE"/><br/>
&#160;&#160;&#160;<sub><xsl:value-of select="ALG_GEBOUW_CODE"/> - <xsl:value-of select="ALG_VERDIEPING_CODE"/></sub>
</td>
</xsl:if>
</xsl:for-each>
</tr>
</xsl:template>
<xsl:template match="rapport">
<html>
<xsl:call-template name="facilitorstyles"/>
<xsl:if test="$srtnotificatiecode = 'CUST01'">
@@ -3283,16 +3279,9 @@ p.MsoNormal {
<xsl:if test="@view = 'AKZA_V_INS_QRC'">
<xsl:variable name="p_rows" select="6"/>
<xsl:variable name="p_cols" select="2"/>
<!--
<style>td {border: 1px solid #888; }</style>
<table border="0" width="100%" cellpadding="2">
<tr height="300"><td align="center"><span style="font-size:24pt;color:#000000">QR Code</span></td></tr>
<tr height="300"><td align="center"><span style="font-size:24pt;color:#000000">Generator</span></td></tr>
</table>
-->
<xsl:for-each select="//facilitor/rapport/rapport_data/data_row">
<xsl:sort select="INS_DEEL_OMSCHRIJVING"/>
<xsl:sort select="FCLT_F_IDENTIFICATIE"/>
<xsl:if test="position() mod ($p_rows * $p_cols) = 0">
<xsl:comment>=== Na elke p_rows*p_cols records (m*n passen op 1 A4) =====</xsl:comment>
<xsl:call-template name="qrc_ins_new_page">
@@ -3313,6 +3302,21 @@ p.MsoNormal {
</xsl:for-each>
</xsl:if>
<xsl:if test="@view = 'AKZA_V_INS_QRC_SINGLE'">
<table cellpadding="0" cellspacing="0" style="margin:0 0 0 2mm; padding:0">
<tr>
<td style="height: 2.8cm; width 4.5cm">&#160;</td>
<td style="height: 2.8cm; width 5.5cm">&#160;</td>
</tr>
<xsl:for-each select="rapport_data/data_row">
<xsl:sort select="FCLT_F_IDENTIFICATIE"/>
<tr height="4.2cm" style="page-break-after:always;">
<xsl:apply-templates select="." mode="qrc"/>
</tr>
</xsl:for-each>
</table>
</xsl:if>
</html>
</xsl:template>
@@ -3355,6 +3359,14 @@ p.MsoNormal {
<xsl:call-template name="facilitorstyles"/>
</head>
<body>
<xsl:choose>
<xsl:when test="$srtnotificatiecode = 'CUST05'">
<p>Beste <xsl:value-of select="voornaam"/>,</p>
<p>Voor een aantal van de objecten die je beheert, is deze maand een actie vereist. Kijk in het overzicht <xsl:element name="a"><xsl:attribute name="href">http://facws001/branch20161/?fac_id=AKZA&amp;u=oBgLrHAaWPpDxuuY</xsl:attribute><xsl:attribute name="target">_blank</xsl:attribute>Taken op mijn objecten</xsl:element> in FACILITOR voor meer informatie.</p>
<p>Met vriendelijke groet,</p>
<p>TS Deventer</p>
</xsl:when>
<xsl:otherwise>
<table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="50%">
<xsl:call-template name="prs_begintext"/>
<tr>
@@ -3403,6 +3415,8 @@ p.MsoNormal {
</tr>
</xsl:if>
</table>
</xsl:otherwise>
</xsl:choose>
</body>
</html>
</xsl:template>

0
CUST/DJIN/export/NACHTWERK/.gitignore vendored Normal file
View File

18
CUST/DJIN/export/gen_export_NACHTWERK.bat Normal file
View File

@@ -0,0 +1,18 @@
REM GEN_EXPORT_NACHTWERK.BAT
REM
REM DJIN
REM
REM "Dummy" export die feitelijk niets exporteert, maar elke nacht
REM zaken bijwerkt in de database (bv. het schonen van afspraken).
REM
REM Context : roep deze file aan indien nodig, of schedule deze
REM Vereist : de randvoorwaarde voor het gebruik van gen_export
REM
REM $Revision$
REM $Id$
REM
REM (c) 2016 Facilitor B.V.
REM
REM ================================================== create exportfile
CALL ..\..\..\utils\gen_export\gen_export.bat NACHTWERK

18
CUST/HCAS/xsl/cust.xsl
View File

@@ -188,20 +188,20 @@
</xsl:template>
<xsl:template match="rapport">
<xsl:if test="@view = 'hcas_v_rap_qrc_ins'">
<xsl:if test="@view = 'HCAS_V_RAP_QRC_INS' or @view = 'HCAS_V_RAP_QRC_INS_MLD'">
<xsl:for-each select="rapport_data/data_row">
<xsl:sort select="INS_DEEL_OMSCHRIJVING"/>
<div style="border: 1px solid black; float: left; padding-bottom: 10px; margin: 5px; width: 400px; height: 470px; text-align: center; font-size: 20pt;">
<xsl:sort select="FCLT_F_IDENTIFICATIE"/>
<div style="background-color: black; position: relative; margin: 0; padding: 0; width: 58.5mm; height: 19.5mm; page-break-after: always; border-bottom: 1px solid white;">
<xsl:element name="img">
<xsl:attribute name="src">
../../appl/shared/qrcode.asp?size=16&amp;text=/%3Fu%3D<xsl:value-of select="HIDE_F_BOOKMARK_ID"/>%26ins_key%3D<xsl:value-of select="INS_DEEL_KEY"/>
../../appl/shared/qrcode.asp?size=2&amp;text=/%3Fu%3D<xsl:value-of select="HIDE_F_BOOKMARK_ID"/>%26ins_key%3D<xsl:value-of select="INS_DEEL_KEY"/>
</xsl:attribute>
<xsl:attribute name="alt"><xsl:value-of select="INS_DEEL_OMSCHRIJVING"/></xsl:attribute>
<xsl:attribute name="width">400px</xsl:attribute>
<xsl:attribute name="style">position: absolute; margin: 0; padding: 0; top: 1mm; left: 1mm; width: 17.5mm; height: 17.5mm; border: none;</xsl:attribute>
</xsl:element>
<xsl:element name="span">
<xsl:attribute name="style">position: absolute; margin: 0; padding: 0; top: <xsl:value-of select="round(19 + (string-length(FCLT_F_IDENTIFICATIE)) div 5)"/>pt; left: 22mm; width: 36mm; color: white; font-size: <xsl:value-of select="round(14 - (string-length(FCLT_F_IDENTIFICATIE)) div 3)"/>pt; font-family: Verdana, Arial, sans-serif; font-weight: bold;</xsl:attribute>
<xsl:value-of select="FCLT_F_IDENTIFICATIE"/>
</xsl:element>
<br/>
<xsl:value-of select="INS_DEEL_OMSCHRIJVING"/><br/>
<xsl:value-of select="FCLT_F_BOOKMARK"/>
</div>
</xsl:for-each>
</xsl:if>

5
CUST/KFHT/export/ftp_opdr2htc.scr
View File

@@ -1,8 +1,7 @@
open csmftp01.hightechcampus.nl
user Facilitor
hH5Aqj3
quote pasv
hash
cd Import
binary
mput EXACT*.xml
mput EXACT\Facilitor*.xml
bye

7
CUST/KFHT/export/gen_export_EXACT.bat
View File

@@ -14,12 +14,11 @@ REM (c) 2015 Facilitor B.V.
REM
REM ================================================== cleanup
copy .\Exact\EXACT*.xml .\Exact\Backup
del .\Exact\EXACT*.xml
copy .\EXACT\Facilitor*.xml .\EXACT\Backup
del .\EXACT\Facilitor*.xml
REM ================================================== create exportfile
CALL ..\..\..\utils\gen_export\gen_export.bat EXACT
REM ================================================== transfer file to HTC/Exact
DATE /t >> ftp.log
@FOR %%F in (*.xml) do cscript /NoLogo sendftp.js %%F %%~nxF>>ftp.log 2>>ftperr.log
ftp.exe -ni -s:ftp_opdr2htc.scr

3
CUST/KFHT/import/ftp_htc2opdr.scr
View File

@@ -1,9 +1,8 @@
open csmftp01.hightechcampus.nl
user Facilitor
hH5Aqj3
pasv
hash
lcd Export
cd Export
mget *.xml
mdelete *.xml
bye

7
CUST/KFHT/import/gen_import_exact.bat
View File

@@ -13,13 +13,8 @@ REM
REM (c) 2015 Facilitor B.V.
REM
REM ================================================== cleanup
copy .\Exact\EXACT*.xml .\Exact\Backup
del .\Exact\EXACT*.xml
REM ================================================== transfer file to KIEN/FACILITOR
ftp.exe -n -s:ftp_htc2opdr.scr
ftp.exe -ni -s:ftp_htc2opdr.scr
REM ================================================== create exportfile
REM cscript ..\..\..\utils\gen_import\gen_import.wsf KFHT EXACT >>gen_import.log 2>>&1

2
CUST/MDUX/xsl/cust.xsl
View File

@@ -831,7 +831,7 @@
<!-- 5912 = Eriks bv -->
<xsl:when test="bedrijf/key=18045">
<b>Klantnummer: </b>
<xsl:value-of select="bestelling/voor/afdeling/kenmerk[@key='18045']"/>
<xsl:value-of select="bestelling/voor/afdeling/kenmerk[@key='1020']"/>
<br/>
</xsl:when>
<xsl:otherwise>

17
CUST/PCHE/xsl/cust.xsl
View File

@@ -97,6 +97,16 @@
<br/>
<br/>
<br/>Geachte heer/mevrouw<br/><br/><br/>
<xsl:choose>
<xsl:when test="kostenplaatsnr != ''">
Hierbij ontvangt u de factuur voor aanpassingen op uw abonnement(en) t.b.v. parkeren op Strijp-S.<br/>
<br/>
<xsl:if test="omschrijving != ''">
<xsl:value-of select="omschrijving"/><br/>
</xsl:if>
<br/>
</xsl:when>
<xsl:otherwise>
Hierbij ontvangt u de factuur voor uw abonnement(en) t.b.v. parkeren op Strijp-S.<br/>
Uw abonnement(en) zijn geldig van <xsl:value-of select="datum3/datum"/> t/m <xsl:value-of select="datum4/datum"/>.<br/>
<xsl:if test="getal4 != '0'">
@@ -120,6 +130,9 @@
<table width="100%" border="0" style="font-size: 12pt">
<tbody>
<xsl:for-each select="msxml:node-set($verkoopregels)/verkoopfactuurregel">
<xsl:choose>
<xsl:when test="kostenplaatsnr != ''">
<tr>
<td class="factuur">
<xsl:choose>
@@ -158,12 +171,14 @@
</xsl:call-template>
</td>
</tr>
</xsl:otherwise>
</xsl:choose>
</xsl:for-each>
<tr>
<td colSpan="9" height="20"/>
</tr>
<tr>
<td class="factuur">Totaal excusief BTW</td>
<td class="factuur">Totaal exclusief BTW</td>
<td class="factuur" colspan="2">
</td>
<td class="factuur" style="text-align:right">

694
CUST/PCHH/xsl/cust.xsl
View File

@@ -110,8 +110,7 @@
<br/>
<br/>
<xsl:if test="kenmerk[@naam='Soort mutatie']='Inhuizing'"> U ontvangt bericht zodra bovengenoemde aansluitingen zijn aangemeld bij energieleverancier Engie. </xsl:if>
<xsl:if test="kenmerk[@naam='Soort mutatie']='Uithuizing'"> U ontvangt binnenkort de eindafrekening(en). </xsl:if>
<br/>
<xsl:if test="kenmerk[@naam='Soort mutatie']='Uithuizing'"> U ontvangt bericht zodra bovengenoemde aanlsuiting(en) zijn afgemeld bij energieleverancier Engie. </xsl:if>
<br/>
</td>
</tr>
@@ -608,695 +607,4 @@
</xsl:template>
<xsl:template match="opdracht" mode="include">
<xsl:choose>
<xsl:when test="opdrachttype/key!='822'">
<table border="0" width="100%" cellpadding="2">
<tr>
<td colspan="4" class="caption" style="padding-top:20px;padding-bottom:20px">
<b>
<xsl:choose>
<xsl:when test="statusopdr_key = 10 and statusopdr_key_refiat &gt; 0">
<xsl:value-of select="//lcl/MLD/hergoedkeuring"/>:&#xA0;
</xsl:when>
<xsl:when test="(statusopdr_key = 3 or statusopdr_key = 4) and statusopdr_key_refiat &gt; 0">
<xsl:value-of select="//lcl/MLD/herfiattering"/>:&#xA0;
</xsl:when>
</xsl:choose>
<xsl:value-of select="opdrachttype/omschrijving"/>&#160;
<xsl:value-of select="melding/stdmelding/discipline/srtdiscipline/prefix"/>
<xsl:value-of select="melding/key"/>/<xsl:value-of select="bedrijfopdr_volgnr"/></b>
</td>
</tr>
<tr>
<td width="16%"/>
<td width="17%"/>
<td width="17%"/>
<td width="16%" align="right">
<b><xsl:value-of select="//lcl/FAC/bedrijf"/>:</b>
</td>
<td width="17%">
<xsl:value-of select="uitvoerende/bedrijf/naam"/>
</td>
<td width="17%">
</td>
</tr>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/contactpersoon"/>:</b>
</td>
<td>
<xsl:value-of select="contactpersoon/naam_full"/>
</td>
</tr>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/telefoon"/>:</b>
</td>
<td>
<xsl:value-of select="contactpersoon/telefoon1"/>
</td>
</tr>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/adres"/>:</b>
</td>
<td>
<xsl:value-of select="uitvoerende/bedrijf/post_adres"/>
</td>
</tr>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/plaats"/>:</b>
</td>
<td>
<xsl:value-of select="uitvoerende/bedrijf/post_plaats"/>
</td>
</tr>
<tr>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/contactpersoon"/>:</b>
</td>
<td align="left">
<xsl:value-of select="backoffice_contact/naam_full"/>
</td>
<td colspan="3"/>
</tr>
<tr>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/telefoon"/>:</b>
</td>
<td align="left">
<xsl:value-of select="backoffice_contact/telefoonnr"/>
</td>
<td align="left">
</td>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/kostenplaats"/>:</b>
</td>
<td align="left">
<xsl:value-of select="kostenplaats/nr"/>
</td>
</tr>
<xsl:if test="melding/kenmerk[@naam='Ordernr']!=''">
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/ordernr"/>:</b>
</td>
<td align="left">
<xsl:value-of select="melding/kenmerk[@naam='Ordernr']"/>
</td>
</tr>
</xsl:if>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/datum_gereed"/>:</b>
</td>
<td align="left">
<xsl:value-of select="datumgereed/datum"/>
</td>
</tr>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/datum_verzonden"/>:</b>
</td>
<td align="left">
<xsl:value-of select="datumverzonden/datum"/>
</td>
</tr>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/status"/>:</b>
</td>
<td align="left">
<xsl:value-of select="status"/>
</td>
</tr>
<tr>
<td align="right" valign="top">
<b><xsl:value-of select="//lcl/FAC/omschrijving"/>:</b>
</td>
<td align="left" colspan="3">
<xsl:call-template name="linebreaks">
<xsl:with-param name="string" select="omschrijving"/>
</xsl:call-template>
</td>
</tr>
<tr>
<td colspan="6">
<hr/>
</td>
</tr>
<tr>
<td colspan="6" align="center">
<table width="100%" style="background-color:#EEEEEE;border: 1px solid blue">
<tr>
<td>
<xsl:apply-templates select="melding" mode="include"/>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="6" height="30px" valign="center">
<hr/>
</td>
</tr>
<xsl:variable name="arbeid" select="uren*uurloon"/>
<xsl:variable name="arbeid_refiat" select="uren_refiat*uurloon_refiat"/>
<tr>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/uren"/>:</b>
</td>
<td>
<xsl:value-of select="format-number(uren, '0,00', 'european')"/>
<b>&#xA0;à&#xA0;</b>&#x20AC;&#xA0;<xsl:value-of select="format-number(uurloon, '0,00', 'european')"/></td>
<td style="width:2in;text-align:left">
<xsl:if test="statusopdr_key_refiat &gt; 0">
(<xsl:value-of select="//lcl/MLD/was"/>&#xA0;<xsl:value-of select="format-number(uren, '0,00', 'european')"/>
<b>&#xA0;à&#xA0;</b>&#x20AC;&#xA0;<xsl:value-of select="format-number(uurloon, '0,00', 'european')"/>)
</xsl:if>
</td>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/arbeid"/>:</b>
</td>
<td style="width:1in;text-align:right">&#x20AC;&#xA0;<xsl:value-of select="format-number($arbeid, '0,00', 'european')"/></td>
<td style="width:1in;text-align:right">
<xsl:if test="statusopdr_key_refiat &gt; 0">
(<xsl:value-of select="//lcl/MLD/was"/> &#x20AC;&#xA0;<xsl:value-of select="format-number($arbeid_refiat, '0,00', 'european')"/>)
</xsl:if>
</td>
</tr>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/materiaal"/>:</b>
</td>
<td style="width:1in;text-align:right">&#x20AC;&#xA0;<xsl:value-of select="format-number(materiaal, '0,00', 'european')"/></td>
<td style="width:1in;text-align:right">
<xsl:if test="statusopdr_key_refiat &gt; 0">
(<xsl:value-of select="//lcl/MLD/was"/> &#x20AC;&#xA0;<xsl:value-of select="format-number(materiaal_refiat, '0,00', 'european')"/>)
</xsl:if>
</td>
</tr>
<xsl:variable name="correctie0" select="$arbeid + materiaal"/>
<xsl:variable name="correctie" select="kosten - $correctie0"/>
<xsl:variable name="correctie0_refiat" select="$arbeid_refiat + materiaal_refiat"/>
<xsl:variable name="correctie_refiat" select="kosten_refiat - $correctie0_refiat"/>
<xsl:if test="$correctie!=0">
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/MLD/correctie"/>:</b>
</td>
<td style="width:1in;text-align:right">&#x20AC;&#xA0;<xsl:value-of select="format-number($correctie, '0,00', 'european')"/></td>
<td style="width:1in;text-align:right">
<xsl:if test="statusopdr_key_refiat &gt; 0">
(<xsl:value-of select="//lcl/MLD/was"/> &#x20AC;&#xA0;<xsl:value-of select="format-number($correctie_refiat, '0,00', 'european')"/>)
</xsl:if>
</td>
</tr>
</xsl:if>
<tr>
<td colspan="3"/>
<td align="right">
<b><xsl:value-of select="//lcl/FAC/totaal"/>:</b>
</td>
<td style="width:1in;text-align:right">
<b>&#x20AC;&#xA0;<xsl:value-of select="format-number(kosten, '0,00', 'european')"/></b>
</td>
<td style="width:1in;text-align:right">
<xsl:if test="statusopdr_key_refiat &gt; 0">
(<xsl:value-of select="//lcl/MLD/was"/> &#x20AC;&#xA0;<xsl:value-of select="format-number(kosten_refiat, '0,00', 'european')"/>)
</xsl:if>
</td>
</tr>
</table>
</xsl:when>
<xsl:when test="opdrachttype/key='822'">
<table border="0" width="100%" cellpadding="2">
<tr>
<td colspan="5" class="caption" style="padding-top:20px;padding-bottom:20px">
<xsl:choose>
<xsl:when test="statusopdr_key = 10 and statusopdr_key_refiat &gt; 0">
<xsl:value-of select="//lcl/MLD/hergoedkeuring"/>:&#xA0;
</xsl:when>
<xsl:when test="(statusopdr_key = 3 or statusopdr_key = 4) and statusopdr_key_refiat &gt; 0">
<xsl:value-of select="//lcl/MLD/herfiattering"/>:&#xA0;
</xsl:when>
</xsl:choose>
<xsl:value-of select="melding/kenmerk[@naam='Soort mutatie']"/>&#160;
<xsl:value-of select="melding/stdmelding/discipline/srtdiscipline/prefix"/>
<xsl:value-of select="melding/key"/>/<xsl:value-of select="bedrijfopdr_volgnr"/>&#160;
Koninklijke Volker Wessels Stevin N.V.
</td>
</tr>
<tr>
<td width="25%"> Reden: </td>
<td> <b> <xsl:value-of select="melding/kenmerk[@naam='Reden inhuizing']"/><xsl:value-of select="melding/kenmerk[@naam='Reden uithuizing']"/> </b> </td>
<td width="16%"> Organisatie: </td>
<td> <b> Koninklijke Volker Wessels Stevin N.V.</b> </td>
</tr>
<tr>
<td width="25%"> Product: </td>
<td> <b>
<xsl:if test="count(melding/deel[.//srtdeel[@type='INS']/key='221'])&gt;0"> electra </xsl:if>
<xsl:if test="count(melding/deel[.//srtdeel[@type='INS']/key='222'])&gt;0"> Gas </xsl:if>
</b> </td>
<td> </td>
<td> <b> 1875025594 </b> </td>
</tr>
<tr>
<td width="25%"> <xsl:if test="melding/kenmerk[@naam='Soort mutatie']='Inhuizing'"> Emailadres voor meterstanden/vko overzichten: </xsl:if> </td>
<td> <xsl:if test="melding/kenmerk[@naam='Soort mutatie']='Inhuizing'"> <b> <xsl:value-of select="melding/kenmerk[@naam='Contactpersoon']"/> </b> </xsl:if> </td>
<td width="16%"> Contactpersoon: </td>
<td> <b> Nadine Kappert </b> </td>
</tr>
<tr>
<td width="25%"> Verzamelfactuur: </td>
<td> <b> <xsl:value-of select="melding/kenmerk[@naam='Verzamelfactuur']"/> </b> </td>
<td width="16%"> Telefoonnummer: </td>
<td> <b> 088-186 1000 </b> </td>
</tr>
<tr>
<td width="25%"> Eerste factuurreferentie: </td>
<td> <b> <xsl:value-of select="melding/kenmerk[@naam='Eerste factuurreferentie']"/> </b> </td>
<td width="16%"> E-mail </td>
<td> <b> energie@pch-fm.nl </b> </td>
</tr>
</table>
<p>
<xsl:choose>
<!-- details werkbon inhuizing -->
<xsl:when test="melding/kenmerk[@naam='Soort mutatie']='Inhuizing'">
<xsl:if test="count(melding/deel[.//srtdeel[@type='INS']/key='221'])&gt;0">
<table width="100%" border="10" style="background-color:#EEEEEE;border: 1px solid blue">
<tr>
<td colspan="23" align="left">
<b> GEGEVENS ELECTRA AANSLUITING(EN) </b>
</td>
</tr>
<tr>
<th> EAN code </th>
<th> Ingangsdatum </th>
<th> Adres </th>
<th> Postcode </th>
<th> Plaats </th>
<th> Type gebruiker </th>
<th> Verw. jaarverbruik </th>
<th> Soort meter </th>
<th> Verw. piek % </th>
<th> Verblijfsfunctie </th>
<th> Doorlaatwaarde </th>
<th> Soort aansluiting </th>
<th> Energiebel. cluster </th>
<th> Naam cluster </th>
<th> Factuurtenaamstelling </th>
<th> Debiteurnummer </th>
<th> Factuuradres </th>
<th> Postcode </th>
<th> Plaats </th>
<th> Freq. verbruiksoverzicht </th>
<th> Verzamelfactuur </th>
<th> Fee </th>
</tr>
<xsl:for-each select="melding/deel[.//srtdeel[@type='INS']/key='221']">
<xsl:sort select="omschrijving"/>
<tr>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='EAN code']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Aanmelddatum']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Adres']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Postcode']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Plaats']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Type gebruiker']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Verwacht jaarverbruik']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Soort meter']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Verwacht piekpercentage']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Verblijfsfunctie']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Doorlaatwaarde']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Soort aansluiting']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Energiebelastingclustering']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Naam energiebelastingcluster']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/naam"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/leverancier_nr"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/post_adres"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/post_postcode"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/post_plaats"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Freq. verbruiksoverzicht']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/kenmerk[@naam='Verzamelfactuur']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/kenmerk[@naam='Fee']"/>
</td>
</tr>
</xsl:for-each>
<xsl:if test="melding/kenmerk[@naam='Reden inhuizing']='Regulier (switch)'">
<tr>
<td colspan="9" align="left">
<b> MEETDATA ELECTRA </b>
</td>
</tr>
<tr>
<th> EAN nummer </th>
<th> Verw. jaarverbruik </th>
<th> Opnamedatum </th>
<th> Meterstand </th>
<th> Stand telwerk II </th>
<th> Stand telwerk III </th>
<th> Stand telwerk IV </th>
<th> Emailadres meterstanden </th>
</tr>
<xsl:for-each select="melding/deel[.//srtdeel[@type='INS']/key='221']">
<xsl:sort select="omschrijving"/>
<tr>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='EAN code']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Verwacht jaarverbruik']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Opnamedatum']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Meterstand']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Meterstand telwerk II']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Meterstand telwerk III']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Meterstand telwerk IV']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/email"/>
</td>
</tr>
</xsl:for-each>
</xsl:if>
</table>
</xsl:if>
<xsl:if test="count(melding/deel[.//srtdeel[@type='INS']/key='222'])&gt;0">
<table width="100%" border="10" style="background-color:#EEEEEE;border: 1px solid blue" >
<tr>
<td colspan= "17" align="left" >
<b> GEGEVENS GASAANSLUITING(EN)</b>
</td>
</tr>
<tr>
<th> EAN code </th>
<th> Ingangsdatum </th>
<th> Adres </th>
<th> Postcode </th>
<th> Plaats </th>
<th> Type gebruiker </th>
<th> Verw. jaarverbruik </th>
<th> Blokverwarming </th>
<th> Factuurtenaamstelling </th>
<th> Debiteurnummer </th>
<th> Factuuradres </th>
<th> Postcode </th>
<th> Plaats </th>
<th> Freq. verbruiksoverzicht </th>
<th> Verzamelfactuur </th>
<th> Fee </th>
</tr>
<xsl:for-each select="melding/deel[.//srtdeel[@type='INS']/key='222']">
<xsl:sort select="omschrijving"/>
<tr>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='EAN code']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Aanmelddatum']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Adres']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Postcode']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Plaats']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Type gebruiker']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Verwacht jaarverbruik']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Blokverwarming']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/naam"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/leverancier_nr"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/post_adres"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/post_postcode"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/post_plaats"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Freq. verbruiksoverzicht']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/kenmerk[@naam='Verzamelfactuur']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/kenmerk[@naam='Fee']"/>
</td>
</tr>
</xsl:for-each>
<xsl:if test="melding/kenmerk[@naam='Reden inhuizing']='Regulier (switch)'">
<tr>
<td colspan= "17" align="left" >
<b> MEETDATA GAS</b>
</td>
</tr>
<tr>
<th> EAN code </th>
<th> Verw. jaarverbruik </th>
<th> Opnamedatum </th>
<th> Meterstand </th>
<th> Emailadres meterstanden </th>
</tr>
<xsl:for-each select="melding/deel[.//srtdeel[@type='INS']/key='222']">
<xsl:sort select="omschrijving"/>
<tr>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='EAN code']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Verwacht jaarverbruik']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Opnamedatum']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Meterstand']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Werkmaatschappij']/bedrijf/email"/>
</td>
</tr>
</xsl:for-each>
</xsl:if>
</table>
</xsl:if>
</xsl:when>
<!-- details werkbon uithuizing -->
<xsl:when test="melding/kenmerk[@naam='Soort mutatie']='Uithuizing'">
<xsl:if test="count(melding/deel[.//srtdeel[@type='INS']/key='221'])&gt;0">
<table width="100%" border="10" style="background-color:#EEEEEE;border: 1px solid blue">
<tr>
<td colspan="5" align="left">
<b> Gegevens electra aansluiting(en) </b>
</td>
</tr>
<tr>
<th> EAN code </th>
<th> Gewenste afmelddatum </th>
<th> Adres </th>
<th> Postcode </th>
<th> Plaats </th>
</tr>
<xsl:for-each select="melding/deel[.//srtdeel[@type='INS']/key='221']">
<xsl:sort select="omschrijving"/>
<tr>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='EAN code']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Verwachte afmelddatum']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Adres']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Postcode']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Plaats']"/>
</td>
</tr>
</xsl:for-each>
</table>
</xsl:if>
<xsl:if test="count(melding/deel[.//srtdeel[@type='INS']/key='222'])&gt;0">
<table width="100%" border="10" style="background-color:#EEEEEE;border: 1px solid blue" >
<tr>
<td colspan= "5" align="left" >
<b> Gegevens gasaansluiting(en)</b>
</td>
</tr>
<tr>
<th> EAN code </th>
<th> Gewenste afmelddatum </th>
<th> Adres </th>
<th> Postcode </th>
<th> Plaats </th>
</tr>
<xsl:for-each select="melding/deel[.//srtdeel[@type='INS']/key='222']">
<xsl:sort select="omschrijving"/>
<tr>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='EAN code']"/>
</td>
<td>
<xsl:value-of select="kenmerk[@naam='Verwachte afmelddatum']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Adres']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Postcode']"/>
</td>
<td align="left" valign="top">
<xsl:value-of select="kenmerk[@naam='Plaats']"/>
</td>
</tr>
</xsl:for-each>
</table>
</xsl:if>
</xsl:when>
</xsl:choose>
</p>
<table border="0" width="100%" cellpadding="2">
<tr>
<td colspan="2" class="caption" style="padding-top:20px;padding-bottom:20px">
</td>
</tr>
<tr>
<td colspan="2">
Middels onderstaande ondertekening bevestigd u niet alleen de genoemde mutatie maar tekent u ook voor de aansluit en transport overeenkomst. De algemene voorwaarden behorend bij deze overeenkomst zijn terug te vinden op onze website www.gdfsuez.nl.
</td>
</tr>
<tr/> <tr/>
<tr >
<td width="16%"> Datum: </td>
<td> <b><xsl:value-of select="datumbegin/datum"/></b> </td>
</tr>
<tr>
<td width="16%"> Naam tekenbevoegde: </td>
<td> <b><xsl:value-of select="backoffice_contact/naam_friendly"/> </b> </td>
</tr>
<tr>
<td width="16%"> Handtekening: </td>
<td> </td>
</tr>
</table>
</xsl:when>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>

2
UTILS/Exchange/exchange.config.js.sample
View File

@@ -4,6 +4,8 @@
password : 'pass@word1', // Let op: dat werkt alleen als ServerXMLHTTP denkt op intranet te zitten
maxchange : 25, // Maximaal 25 wijzigingen tegelijk. De rest komt de volgende keer wel
maxrecurring: 100, // Maximaal 1e 100 occurences van een recurring afspraak
fullpast : 0, // Tot 0 dagen in het verleden bij nachtelijke calendar-sync
fullfuture : 90, // Tot 90 dagen in de toekomst bij nachtelijke calendar-sync
xmlfolder : "./xml/", // Hier komen alle opgehaalde XML's geplaatst. Moet bestaan
loglevel : 0
}

67
UTILS/Exchange/exchange.js
View File

@@ -7,11 +7,15 @@
Description: Exchange EWS koppeling
Dit bestand maakt voor één ruimte-mailbox Arguments(0) de xml-bestanden
met calenderitems aan sinds de laatste sync-actie, Arguments(1)
Parameters (0) e-mail adres van de zaal
(1) - syncstate van de zaal of
"EXCHFULL" alles (in de toekomst tot config.fullfuture)
*/
var fso = new ActiveXObject("Scripting.FileSystemObject");
var zaalemail = WScript.Arguments(0);
var zaalsync = WScript.Arguments(1);
var zaalsync = WScript.Arguments(1); // Gebruik EXCHFULL voor alles in bepaalde periode
var inifile = ".\\exchange.config.js";
var f = fso.OpenTextFile(inifile, 1); // ForReading
@@ -23,10 +27,24 @@ WScript.Echo("Connecting to " + config.endpointurl)
// ---
// kunnen we niets mee doExchange(config.endpointurl, "<m:GetRoomLists />", "roomlist.xml");
if (!Date.prototype.toISOString) {
Date.prototype.toISOString = function() {
function pad(n) { return n < 10 ? '0' + n : n }
return this.getUTCFullYear() + '-'
+ pad(this.getUTCMonth() + 1) + '-'
+ pad(this.getUTCDate()) + 'T'
+ pad(this.getUTCHours()) + ':'
+ pad(this.getUTCMinutes()) + ':'
+ pad(this.getUTCSeconds()) + 'Z';
};
}
var oCrypto = new ActiveXObject("SLNKDWF.Crypto");
var sha = oCrypto.hex_sha1(zaalsync); // Gemakkelijker verschillen te zien
WScript.Echo("\n\n==== Room: " + zaalemail + "\nOld sync hash: " + sha);
if (zaalsync != "EXCHFULL")
{
var soapRequest = '<m:SyncFolderItems'
+ ' xmlns:m="http://schemas.microsoft.com/exchange/services/2006/messages" '
+ ' xmlns:t="http://schemas.microsoft.com/exchange/services/2006/types">'
@@ -35,11 +53,6 @@ var soapRequest = '<m:SyncFolderItems'
+ ' <t:AdditionalProperties>'
+ ' <t:FieldURI FieldURI="calendar:CalendarItemType" />'
+ ' <t:FieldURI FieldURI="calendar:Start" />'
// + ' <t:ExtendedFieldURI DistinguishedPropertySetId="Meeting" PropertyId="3" PropertyType="Binary" />' // 3=PidLidGlobalObjectId
// + ' <t:ExtendedFieldURI DistinguishedPropertySetId="Meeting" PropertyId="35" PropertyType="Binary" />' // 35=PidLidCleanGlobalObjectId
// + ' <t:ExtendedFieldURI DistinguishedPropertySetId="Meeting" PropertyId="40" PropertyType="Binary" />' // 40=PidLidOldLocation
// + ' <t:ExtendedFieldURI DistinguishedPropertySetId="Meeting" PropertyId="98" PropertyType="Binary" />' // 98=PidTagOwnerAppointmentId
// + ' <t:FieldURI FieldURI="calendar:Subject" />'
+ ' </t:AdditionalProperties>'
+ ' </m:ItemShape>'
+ ' <m:SyncFolderId>'
@@ -53,6 +66,36 @@ var soapRequest = '<m:SyncFolderItems'
+ ' <m:MaxChangesReturned>' + config.maxchange + '</m:MaxChangesReturned>'
+ ' <m:SyncScope>NormalItems</m:SyncScope>'
+ '</m:SyncFolderItems>';
}
else
{
var dtFrom = new Date();
dtFrom.setHours(0, 0, 0, 0);
var dtTo = new Date(dtFrom);
dtFrom.setDate(dtFrom.getDate() - config.fullpast);
dtTo.setDate(dtTo.getDate() + config.fullfuture);
WScript.Echo("Full syncing from " + dtFrom.toISOString() + " to " + dtTo.toISOString() + " (" + (config.fullfuture + config.fullpast) + " days)");
var soapRequest = '<m:FindItem Traversal="Shallow"'
+ ' xmlns:m="http://schemas.microsoft.com/exchange/services/2006/messages" '
+ ' xmlns:t="http://schemas.microsoft.com/exchange/services/2006/types">'
+ ' <m:ItemShape>'
+ ' <t:BaseShape>IdOnly</t:BaseShape>'
+ ' <t:AdditionalProperties>'
+ ' <t:FieldURI FieldURI="calendar:CalendarItemType" />'
+ ' <t:FieldURI FieldURI="calendar:Start" />'
+ ' </t:AdditionalProperties>'
+ ' </m:ItemShape>'
//+ ' <m:CalendarView StartDate="2016-01-01T17:30:24.127Z" EndDate="2016-05-20T17:30:24.127Z" />'
+ ' <m:CalendarView StartDate="' + dtFrom.toISOString() + '" EndDate="' + dtTo.toISOString() + '" />'
+ ' <m:ParentFolderIds>'
+ ' <t:DistinguishedFolderId Id="calendar">'
+ ' <t:Mailbox>'
+ ' <t:EmailAddress>' + zaalemail + '</t:EmailAddress>'
+ ' </t:Mailbox>'
+ ' </t:DistinguishedFolderId>'
+ ' </m:ParentFolderIds>'
+ '</m:FindItem>';
}
var room_id = safefilename(zaalemail);
var exch = doExchange(config.endpointurl, soapRequest, null);
@@ -66,10 +109,14 @@ if (exch.response != 'NoError')
WScript.Echo("Geen NoError responsecode in response: " + exch.response);
WScript.Quit(1);
}
if (zaalsync != "EXCHFULL")
{
var newsyncstate = xmlDoc.selectSingleNode("//m:SyncState");
var sha = oCrypto.hex_sha1(newsyncstate.text); // Gemakkelijker verschillen te zien
WScript.Echo("New syncstate: " + newsyncstate.text + "\nHash: " + sha + "\nlength: " + newsyncstate.text.length);
}
var calItems = xmlDoc.selectNodes("//t:CalendarItem");
if (calItems.length == 0)
{
@@ -118,6 +165,12 @@ for (var i = 0; i < calItems.length; i++)
fso.DeleteFile(config.xmlfolder + fname);
continue;
}
if (exch.response == 'ErrorAccessDenied')
{
WScript.Echo(" Access Denied negeren we");
fso.DeleteFile(config.xmlfolder + fname);
continue;
}
var start = xmlDoc.selectSingleNode("//t:Start").text;
var type = xmlDoc.selectSingleNode("//t:CalendarItemType").text;
WScript.Echo(" Start: " + start + " " + type);

15
UTILS/Exchange/exchange_all.js
View File

@@ -10,7 +10,7 @@
Parameters: (net als gen_import.wsf)
0: customerId
1: fac_import_app_key/code voor de EXCHANGE import
1: fac_import_app_key/code voor de EXCHANGE import of de EXCHFULL import
2: fac_import_app_key/code voor de EXCHSYNC import
*/
@@ -48,21 +48,28 @@ var sql = "SELECT res_ruimte_key,"
var oRs = Oracle.Execute(sql);
function pad(n) { return n < 10 ? '0' + n : n };
var dt = new Date();
var logfile = "Exchange_" + dt.getUTCFullYear() + '_' + pad(dt.getUTCMonth() + 1) + "_" + import_app_key + ".log";
var fbat = fso.CreateTextFile(batfile, true /* overwrite */);
while (!oRs.Eof)
{
var line = 'CScript /NoLogo ..\\..\\..\\utils\\Exchange\\Exchange.js "'
+ oRs("res_ruimte_extern_id").Value + '" "' + (oRs("res_ruimte_syncstate").Value||"") + '"';
+ oRs("res_ruimte_extern_id").Value + '" "' + (oRs("res_ruimte_syncstate").Value||"") + '"'
+ ' >>' + logfile + ' 2>>&1';
fbat.WriteLine(line);
var line = 'Cscript /NoLogo ..\\..\\..\\utils\\gen_import\\gen_import.wsf '
+ customerId + ' ' + sync_app_key + ' ' + oRs("res_ruimte_key").Value + '>>ExchangeAll.log 2>>&1';
+ customerId + ' ' + sync_app_key + ' ' + oRs("res_ruimte_key").Value + ' >>' + logfile + ' 2>>&1';
fbat.WriteLine(line);
oRs.MoveNext();
}
// E<>n import aan het eind; de room-id is toch uit de XML te halen
var line = 'Cscript /NoLogo ..\\..\\..\\utils\\gen_import\\gen_import.wsf '
+ customerId + ' ' + import_app_key + ' >>ExchangeAll.log 2>>&1';
+ customerId + ' ' + import_app_key + ' >>' + logfile + ' 2>>&1';
fbat.WriteLine(line);
fbat.Close();