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

Merge 5.4.3 Gold D patches

Browse Source 
svn path=/Website/trunk/; revision=23647
This commit is contained in:
Jos Groot Lipman
2014-12-11 12:16:32 +00:00
parent 6fb2e83c57
commit 022ac0d13c
22 changed files with 153 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
APPL/API/api_hmail.asp
View File

@@ -185,7 +185,6 @@ if (result.path)
// TODO: Is er ook een resultaat om terug te melden? 'Geslaagd' bijvoorbeeld?
// Of: adm_tracking: fromAddr + ' stuurt per e-mail ' + oMessage.Attachments.Item(i).fileName
}
oRs.Close();
Response.Write(JSON.stringify(result));
Response.End;

13
APPL/CAD/cad_tekening_list.inc
View File

@@ -104,7 +104,8 @@ function tekening_list(pautfunction, params)
+ " , l.alg_locatie_key"
+ " , g.alg_gebouw_key gebterkey"
+ " , v.alg_verdieping_key"
+ " , TO_CHAR(alg_verdieping_volgnr) volgnr"
+ " , alg_verdieping_volgnr"
+ " , '' alg_terreinsector_code"
+ " , 'B' gebtertype"
+ " FROM alg_locatie l"
+ " , cad_tekening ct"
@@ -124,6 +125,7 @@ function tekening_list(pautfunction, params)
+ " , l.alg_locatie_key"
+ " , t.alg_terreinsector_key gebterkey"
+ " , -1"
+ " , -1 alg_verdieping_volgnr"
+ " , alg_terreinsector_code volgnr"
+ " , 'T' gebtertype"
+ " FROM alg_locatie l"
@@ -161,7 +163,7 @@ function tekening_list(pautfunction, params)
sqln += " ORDER BY UPPER (t.alg_locatie_omschrijving)"
+ " , gebtertype"
+ " , UPPER (t.gebteroms)"
+ " , t.volgnr";
+ " , t.alg_verdieping_volgnr, t.alg_terreinsector_code";
function CvtXML(In)
{
@@ -197,7 +199,7 @@ function tekening_list(pautfunction, params)
function DWGjsDate(oRs, path) // Levert null of jsDate op
{
teknaam = oRs("cad_tekening_filenaam").value + ".dwf";
var teknaam = oRs("cad_tekening_filenaam").value + ".dwf";
teknaam = path + teknaam;
if (!fso.FileExists(teknaam))
{
@@ -214,7 +216,10 @@ function tekening_list(pautfunction, params)
slnkXML.loadXML(slnkProps);
slnkXML.setProperty("SelectionLanguage", "XPath");
slnkXML.setProperty("SelectionNamespaces", "xmlns:ePlot='DWF-ePlot:1.2'");
node = slnkXML.selectSingleNode("ePlot:Page/ePlot:Properties/ePlot:Property[@name = 'Creation Time']");
// Er zitten twee Modification-times in de DWF, eentje van de DWG en eentje van de DWF
// Die van de DWG heeft category='AutoCAD Drawing', die van de DWF heeft geen category
// We willen die laatste hebben
var node = slnkXML.selectSingleNode("ePlot:Page/ePlot:Properties/ePlot:Property[@name = 'Modification Time' and not(@category)]");
if (node)
{
dt = CvtXML(node.attributes.getNamedItem("value").text);

76
APPL/FAC/fac.inc
View File

@@ -683,50 +683,38 @@ fac = {myfunctionssqlstring:
+ " AND niveau = fac_gebruiker_alg_level_write)))"
+ (fiatstatus == "open"
? (S("mld_opdr_approval_all") == 0
? " AND g.prs_perslid_key = " + user_key
+ " AND ((fac_functie_code = 'WEB_ORDGOE'" // En heb ik deze WEB_ORDGOE rechten?
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO2'" // En heb ik deze WEB_ORDGO2 rechten?
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet2"
+ " AND COALESCE(op.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet2"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO3'" // En heb ik deze WEB_ORDGO3 rechten?
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet3"
+ " AND COALESCE(op.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet3"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO4'" // En heb ik deze WEB_ORDGO4 rechten?
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet4"
+ " AND COALESCE(op.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet4"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO5'" // En heb ik deze WEB_ORDGO5 rechten?
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet5"
+ " AND COALESCE(op.mld_opdr_approved, 0) >= mdp.mld_disc_params_bestellimiet5"
+ " )"
+ " )"
: " AND g.prs_perslid_key = " + user_key
+ " AND ((fac_functie_code = 'WEB_ORDGOE'" // En heb ik deze WEB_ORDGOE rechten?
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet2"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO2'" // En heb ik deze WEB_ORDGO2 rechten?
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet3"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet2"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO3'" // En heb ik deze WEB_ORDGO3 rechten?
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet4"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet3"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO4'" // En heb ik deze WEB_ORDGO4 rechten?
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet5"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet4"
+ " )"
+ " OR (fac_functie_code = 'WEB_ORDGO5'" // En heb ik deze WEB_ORDGO5 rechten?
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet5"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet5"
+ " )"
+ " )")
? " AND ((fac_functie_code = 'WEB_ORDGOE'"
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet)"
+ " OR (fac_functie_code = 'WEB_ORDGO2'"
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet2"
+ " AND COALESCE(op.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet2)"
+ " OR (fac_functie_code = 'WEB_ORDGO3'"
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet3"
+ " AND COALESCE(op.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet3)"
+ " OR (fac_functie_code = 'WEB_ORDGO4'"
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet4"
+ " AND COALESCE(op.mld_opdr_approved, 0) = mdp.mld_disc_params_bestellimiet4)"
+ " OR (fac_functie_code = 'WEB_ORDGO5'"
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet5"
+ " AND COALESCE(op.mld_opdr_approved, 0) >= mdp.mld_disc_params_bestellimiet5)"
+ " )"
: " AND ((fac_functie_code = 'WEB_ORDGOE'"
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet2"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet)"
+ " OR (fac_functie_code = 'WEB_ORDGO2'"
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet3"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet2)"
+ " OR (fac_functie_code = 'WEB_ORDGO3'"
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet4"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet3)"
+ " OR (fac_functie_code = 'WEB_ORDGO4'"
+ " AND op.mld_opdr_kosten <= mdp.mld_disc_params_bestellimiet5"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet4)"
+ " OR (fac_functie_code = 'WEB_ORDGO5'"
+ " AND op.mld_opdr_kosten >= mdp.mld_disc_params_bestellimiet5"
+ " AND COALESCE(op.mld_opdr_approved, 0) <= mdp.mld_disc_params_bestellimiet5)"
+ " )")
: "")
+ " )"
+ " AND m.mld_alg_locatie_key = l.alg_locatie_key(+)"

7
APPL/FAC/fac_verify_data.asp
View File

@@ -203,6 +203,13 @@ checker("Controle: queries die geen records mogen opleveren",
// Deprecated + " OR fac_version_otap IS NULL"
+ " OR fac_version_lang IS NULL"
},
{ msg: "Datatype MLD_T_UITVOERTIJD.TIJDSDUUR is te klein (gebruik DB23aTO23b.sql)",
sql: "SELECT type_name, attr_name, precision"
+ " FROM user_type_attrs"
+ " WHERE type_name = 'MLD_T_UITVOERTIJD' "
+ " AND attr_name = 'TIJDSDUUR'"
+ " AND precision < 12"
},
// meldingen met flexkenmerken van verschillende stdmeldingen *tegelijk*
// Dit is in de praktijk ook problematisch (FSN#18613):
{ msg: "meldingen met mld-flexkenmerken van verschillende stdmeldingen. Problematisch (FSN#18613)",

2
APPL/IMP/imp_shared.js
View File

@@ -109,6 +109,7 @@ function impReadStream(fileStream, import_app_key, params)
source.async = false;
source.resolveExternals = false; // van mij hoef je geen DTD's te controleren
source.validateOnParse = false; // van mij hoef je geen DTD's te controleren
source.setProperty("ProhibitDTD", false); // niet moeilijk doen over DTD's
var fileData; // Hier gaan we de data als string in stoppen
win1252Stream.Position = 0
@@ -122,6 +123,7 @@ function impReadStream(fileStream, import_app_key, params)
style.async = false;
style.resolveExternals = false; // van mij hoef je geen DTD's te controleren
style.validateOnParse = false; // van mij hoef je geen DTD's te controleren
style.setProperty("ProhibitDTD", false); // niet moeilijk doen over DTD's
if( ! style.load(xslfile) ) // De stylesheet laden
{
return { success: false, warning: xslfile + "\nXSL error: " + style.parseError.reason + " @ " + style.parseError.line + "." + style.parseError.linepos };

2
APPL/IMP/verwerken_form.asp
View File

@@ -34,7 +34,7 @@ var sql = "SELECT fac_import_filenaam"
var oRs = Oracle.Execute(sql);
var filename = oRs("fac_import_filenaam").Value;
var gelezen = new Date(oRs("fac_import_datum_gelezen"));
oRs.Close;
oRs.Close();
%>
<html>

2
APPL/MAR/xsl/F_GetApiXML.xsl
View File

@@ -240,7 +240,7 @@
</EX_BTWVERL>
<NG-EX_GREK type="String"></NG-EX_GREK>
<EX_GREKNR type="String"><xsl:value-of select="FIN_FACTUUR_G_IBAN"/></EX_GREKNR>
<EX_GREKBDR type="Currency"><xsl:value-of select="FIN_FACTUUR_G_AMMOUNT"/></EX_GREKBDR>
<EX_GREKBDR type="Currency"><xsl:value-of select="format-number(FIN_FACTUUR_G_AMMOUNT, '0,00', 'format_xtractor')"/></EX_GREKBDR>
<EX_CURRENCY type="String">EUR</EX_CURRENCY>
<EX_BTWTTV type="String"></EX_BTWTTV>
<EX_wrktot type="Currency"></EX_wrktot>

31
APPL/MAR/xsl/F_PutFactuurSIDB.xsl
View File

@@ -7,7 +7,7 @@
<xsl:comment>leveranciernr;factuurnr;factuurdatum;onderwerp;opdrachtnr;omschrijving;bedrag;btwperc;btwbedrag;btw_verlegd;document;iban;G_iban;G_bedrag</xsl:comment>
<xsl:for-each select="Invoice">
<xsl:for-each select="InvoiceLine">
<xsl:value-of select="../Invoicer/GLN"/>;<xsl:value-of select="../InvoiceNumber"/>;<xsl:value-of select="../InvoiceDate"/>;<xsl:value-of select="../FreeText"/>;<xsl:value-of select="../BuyersOrderNumber"/>;<xsl:call-template name="puntkomma"><xsl:with-param name="p_string" select="FreeText"/></xsl:call-template>;<xsl:value-of select="NetLineAmount"/>;<xsl:apply-templates select="VATInformation"/>;<xsl:value-of select="../Attachment/FileName"/>;<xsl:value-of select="../Supplier/AccountInformation/IBAN"/>;<xsl:value-of select="../PaymentOnBlockedAccount/IBAN"/>;<xsl:value-of select="../PaymentOnBlockedAccount/Amount"/>;&#10;</xsl:for-each></xsl:for-each>
<xsl:value-of select="../Invoicer/GLN"/>;<xsl:value-of select="../InvoiceNumber"/>;<xsl:value-of select="../InvoiceDate"/>;<xsl:call-template name="vrije_tekst"><xsl:with-param name="p_string" select="../FreeText"/></xsl:call-template>;<xsl:value-of select="../BuyersOrderNumber"/>;<xsl:call-template name="vrije_tekst"><xsl:with-param name="p_string" select="FreeText"/></xsl:call-template>;<xsl:value-of select="NetLineAmount"/>;<xsl:apply-templates select="VATInformation"/>;<xsl:value-of select="../Attachment/FileName"/>;<xsl:value-of select="../Supplier/AccountInformation/IBAN"/>;<xsl:value-of select="../PaymentOnBlockedAccount/IBAN"/>;<xsl:value-of select="../PaymentOnBlockedAccount/Amount"/>;&#10;</xsl:for-each></xsl:for-each>
</xsl:template>
<xsl:template match="VATInformation">
@@ -27,9 +27,32 @@
</xsl:choose>
</xsl:template>
<xsl:template name="puntkomma">
<xsl:param name="p_string"/>
<xsl:value-of select="translate($p_string,';',':')"/>
<xsl:template name="vrije_tekst">
<xsl:param name="p_string"/>
<xsl:variable name="l_string_esc_quotes"><xsl:call-template name="escape_quote"><xsl:with-param name="string" select="$p_string"/></xsl:call-template></xsl:variable>
<xsl:variable name="l_string_esc_linebreaks"><xsl:call-template name="escape_linebreaks"><xsl:with-param name="string" select="$l_string_esc_quotes"/></xsl:call-template></xsl:variable>"<xsl:value-of select="$l_string_esc_linebreaks"/>"</xsl:template>
<xsl:template name="escape_quote">
<xsl:param name="string"/>
<xsl:choose>
<xsl:when test="contains($string, '&quot;')"><xsl:value-of select="substring-before($string, '&quot;')"/>&quot;&quot;<xsl:call-template name="escape_quote">
<xsl:with-param name="string" select="substring-after($string, '&quot;')"/></xsl:call-template></xsl:when>
<xsl:otherwise><xsl:value-of select="$string"/></xsl:otherwise>
</xsl:choose>
</xsl:template>
<xsl:template name="escape_linebreaks">
<xsl:param name="string"/>
<xsl:choose>
<xsl:when test="contains($string, '&#xA;')"><xsl:value-of select="substring-before($string, '&#xA;')"/>@@<xsl:call-template name="escape_linebreaks">
<xsl:with-param name="string" select="substring-after($string, '&#xA;')"/>
</xsl:call-template>
</xsl:when>
<xsl:otherwise><xsl:value-of select="$string"/></xsl:otherwise>
</xsl:choose>
</xsl:template>
</xsl:stylesheet>

14
APPL/MLD/mld.inc
View File

@@ -627,7 +627,7 @@ mld = {setmeldingstatus:
// Meldingen worden soms niet geaccepteerd maar direct afgewezen of afgemeld.
// Als dit binnen de acceptatietijd gebeurd dan is die melding niet te laat geaccepteerd.
getwhere_to_late_run_sql:
function(mtable, stdtable)
function(mtable, stdtable, MorO)
{ // Ook meldingen waarvoor geldt dat mld_stdmelding_slabewaken = 0 of mld_melding_indult = 1,
// moeten worden meegenomen in de query omdat in hetzelfde overzicht de 'Uitvoering op tijd (Afspraak) (%)' ook wordt weergegeven.
// Deze meldingen worden dan niet meegenomen in de berekening van 'Uitvoering op tijd (SLA) (%)'.
@@ -637,12 +637,15 @@ mld = {setmeldingstatus:
+ " WHEN(CASE "
+ " WHEN " + stdtable + ".mld_stdmelding_slabewaken = 1"
+ " AND NOT " + mtable + ".mld_melding_indult = 1"
// Als de respijtdatum null(0) is dan direct de einddatum nemen (anders wordt de stdmelding uitvoertijd er nog een keer bij opgeteld).
+ " AND " + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".tijdsduur IS NOT NULL"
+ " AND " + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".eenheid IS NOT NULL"
+ " THEN mld.geteinddatum(" + mtable + ".mld_melding_einddatum_std,"
+ stdtable + ".mld_stdmelding_key,"
+ mtable + ".mld_melding_spoed,"
+ " NULL,"
+ " NULL,"
+ " MLD_T_UITVOERTIJD(COALESCE(" + mtable + ".mld_melding_t_respijt.tijdsduur, 0), " + mtable + ".mld_melding_t_respijt.eenheid))" // Rekening houden met respijt dagen.
+ " MLD_T_UITVOERTIJD(COALESCE(" + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".tijdsduur, 0), " + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".eenheid))" // Rekening houden met respijt dagen.
+ " ELSE " + mtable + ".mld_melding_einddatum" // Geen rekening houden met respijt. Einddatum is ingevoerde datum.
+ " END) < COALESCE(fac.gettrackingdate('MLDREJ', " + mtable + ".mld_melding_key), SYSDATE)"
+ " THEN 1"
@@ -651,12 +654,15 @@ mld = {setmeldingstatus:
+ " ELSE CASE WHEN(CASE "
+ " WHEN " + stdtable + ".mld_stdmelding_slabewaken = 1"
+ " AND NOT " + mtable + ".mld_melding_indult = 1"
// Als de respijtdatum null(0) is dan direct de einddatum nemen (anders wordt de stdmelding uitvoertijd er nog een keer bij opgeteld).
+ " AND " + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".tijdsduur IS NOT NULL"
+ " AND " + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".eenheid IS NOT NULL"
+ " THEN mld.geteinddatum(" + mtable + ".mld_melding_einddatum_std,"
+ stdtable + ".mld_stdmelding_key,"
+ mtable + ".mld_melding_spoed,"
+ " NULL,"
+ " NULL,"
+ " MLD_T_UITVOERTIJD(COALESCE(" + mtable + ".mld_melding_t_respijt.tijdsduur, 0), " + mtable + ".mld_melding_t_respijt.eenheid))" // Rekening houden met respijt dagen.
+ " MLD_T_UITVOERTIJD(COALESCE(" + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".tijdsduur, 0), " + mtable + (MorO == "M"? ".mld_melding_t_respijt" : "") + ".eenheid))" // Rekening houden met respijt dagen.
+ " ELSE " + mtable + ".mld_melding_einddatum" // Geen rekening houden met respijt. Einddatum is ingevoerde datum.
+ " END) < fac.gettrackingdate('MLDAFM', " + mtable + ".mld_melding_key)"
+ " THEN 1"
@@ -1134,7 +1140,7 @@ mld = {setmeldingstatus:
if (chkRunEx)
{
sqln += " AND " + mld.getwhere_to_late_run_sql("m", "std") + " = 1";
sqln += " AND " + mld.getwhere_to_late_run_sql("m", "std", "M") + " = 1";
}
if (chkSpoed)

2
APPL/MLD/mld.js
View File

@@ -108,7 +108,7 @@ function doublecheckCallback(json, modalParams)
}
else // Accepteren
{
json.autoConfirm = false;
json.autoConfirm = (addopdr ? true : false);
doAccept(json, mldCallback)
}
}

4
APPL/MLD/mld_edit_opdr.asp
View File

@@ -307,6 +307,7 @@ if (mld_opdr.kp_key == -1)
}
oRs.Close();
}
var autoGebouwKp = false;
if (mld_opdr.kp_key == -1 && kosten_klant == 0 && bld_key > 0)
{ // Is er een gebouw kostenplaats die ingevuld kan worden.
sql = "SELECT COALESCE(prs_kostenplaats_key, -1) prs_kostenplaats_key"
@@ -314,6 +315,7 @@ if (mld_opdr.kp_key == -1)
+ " WHERE alg_gebouw_key = " + bld_key;
oRs = Oracle.Execute(sql);
mld_opdr.kp_key = oRs("prs_kostenplaats_key").Value;
autoGebouwKp = true;
}
}
@@ -703,7 +705,7 @@ if (mld_opdr.kp_key == -1)
required: kpnverplicht || (mld_opdr.typeopdr_kosten == 1 && mld_opdr.typeopdr_matchtype != 4),
label: L("lcl_mld_kosten"),
suppressEmpty: true,
checkInit: opdr_key < 0 // Alleen bij nieuwe opdracht checken of kostenplaats wel mag worden ingevuld.
checkInit: opdr_key < 0 && autoGebouwKp // Alleen bij nieuwe opdracht checken of kostenplaats wel mag worden ingevuld en als het een gebouw kostenplaats is.
});
}
else if (mld_opdr.typeopdr_matchtype != 4)

13
APPL/MLD/opdr_list.inc
View File

@@ -377,6 +377,9 @@ function opdr_list (params)
+ ", t.mld_typeopdr_kosten"
+ ", t.mld_typeopdr_isofferte"
+ sqltrack
+ ", m.mld_melding_t_respijt.tijdsduur tijdsduur"
+ ", m.mld_melding_t_respijt.eenheid eenheid"
+ ", std.mld_stdmelding_key"
+ " FROM mld_opdr o"
+ ", cnt_v_aanwezigcontract c"
+ ", mld_stdmelding std"
@@ -470,7 +473,7 @@ function opdr_list (params)
// Overschijding doorlooptijd
if (chkRunEx)
{
whereT = mld.getwhere_to_late_run_sql("us", "us") + " = 1";
whereT = mld.getwhere_to_late_run_sql("us", "us", "O") + " = 1";
if (whereUs.length > 0)
whereUs += " AND " + whereT;
else
@@ -509,10 +512,10 @@ function opdr_list (params)
+ " OR UPPER(k.prs_kostenplaats_nr) LIKE " + safe.quoted_sql_wild(kp+"%") + "))";
if (org_key)
sql += " AND " + org_key + " IN "
+ " (SELECT prs_afdeling_elder_key"
+ " FROM prs_v_afdeling_familie"
+ " WHERE prs_afdeling_key = p.prs_perslid_key";
sql += " AND p.prs_afdeling_key IN"
+ " (SELECT a.prs_afdeling_key"
+ " FROM prs_v_afdeling_familie a"
+ " WHERE a.prs_afdeling_elder_key = " + org_key + ")";
if (caller_key)
sql += " AND m.prs_perslid_key = " + caller_key;

2
APPL/PDA/reservering.asp
View File

@@ -101,7 +101,7 @@ if (rsv_ruimte_key > -1)
+ " AND rrr.res_ruimte_opstel_key = opstelalg.res_ruimte_opstel_key(+)"
+ " AND rrr.res_activiteit_key = ra.res_activiteit_key"
+ " AND ra.res_srtactiviteit_key = rsa.res_srtactiviteit_key"
+ " AND ruimte_geg.alg_ruimte_key = COALESCE (rrr.alg_ruimte_key, opstelalg.alg_ruimte_key)"
+ " AND rrr.alg_ruimte_key = ruimte_geg.alg_ruimte_key(+)"
+ " AND rrr.res_rsv_ruimte_key = " + rsv_ruimte_key;
var oRs2 = Oracle.Execute(sql2);
rsv.ruimtenr = oRs2("res_ruimte_nr").Value;

2
APPL/RES/res.css
View File

@@ -245,7 +245,7 @@ tr.res_fatal td { background-color: #F88;
padding-left : 20px;
z-index: 1; }
#timetip {position:absolute;border:1px solid #666;background-color:#fff;padding:2px;z-index:999}
#timetip {position:absolute;border:1px solid #666;background-color:#fff;padding:2px;z-index:999;display:none;}
@media print
{ /* in print-mode doe we de kleuren als border. Daarmee geeft cleaning wel rare 'punten'. Het zij zo. */

24
APPL/RES/res.inc
View File

@@ -157,16 +157,22 @@ res = {
+ " , COALESCE(res_ruimte_begintijd, " + S("res_t1") + ") begintijd"
+ " , COALESCE(res_ruimte_eindtijd, " + S("res_t2") + ") eindtijd"
+ " , rr.res_discipline_key"
+ " , ra.alg_locatie_key"
+ " , " + S("alg_loc_string") + " alg_locatie_oms"
+ " FROM res_ruimte rr"
+ " , res_disc_params rdp"
+ " , res_discipline rd"
+ " , res_activiteitdiscipline ad"
+ " , res_activiteit ac"
+ " , res_v_alg_ruimte_gegevens ra"
+ " , alg_locatie l"
+ " WHERE rr.res_ruimte_key = " + res_ruimte_key
+ " AND rr.res_ruimte_key = ra.res_ruimte_key"
+ " AND l.alg_locatie_key = ra.alg_locatie_key"
+ " AND rr.res_discipline_key = rd.ins_discipline_key "
+ " AND rr.res_discipline_key = rdp.res_ins_discipline_key"
+ " AND rd.ins_discipline_key = ad.res_discipline_key"
+ " AND ad.res_activiteit_key = ac.res_activiteit_key"
+ " AND ad.res_activiteit_key = ac.res_activiteit_key";
var oRs = Oracle.Execute(sql);
if (!oRs.eof)
@@ -180,6 +186,8 @@ res = {
result.kosten = oRs("res_disc_params_kosten").Value;
result.kpnverplicht = oRs("ins_discipline_kpnverplicht").Value;
result.discipline_key = oRs("res_discipline_key").Value;
result.locatie_key = oRs("alg_locatie_key").Value;
result.locatie_oms = oRs("alg_locatie_oms").Value;
result.begintijd = oRs("begintijd").Value;
result.eindtijd = oRs("eindtijd").Value;
if (result.begintijd < S("res_t1")) result.begintijd = S("res_t1");
@@ -503,8 +511,10 @@ res = {
// Bepaal discipline parkeerplaatsen voor reserveringen. Deze moet uitgesloten worden voor de autorisatie controle.
// Als de reservering *voor* earliest_expire ligt gaan we moeilijk doen
var earliest_expire_changeCV = new Date(1000,1,1); // Wijzigingshorizon CV
var earliest_expire_change = new Date(1000, 1, 1); // Wijzigingshorizon
var earliest_expire_cancel = new Date(1000, 1, 1); // Annuleringshorizon
var hasCV = false;
var max_dbkosten = 0; // Maximale doorberekeningskosten van alle disciplines binnen een reservering;
var canWritePresentPrk = true; // Kan ik de parkeerplaatsen die AANWEZIG zijn zien en wijzigen.
if (typeof pdisc_key != "undefined") // alleen pdisc, ongeacht of je hem al had
@@ -542,8 +552,12 @@ res = {
+ " AND rrd.res_rsv_ruimte_key = " + rsv_ruimte_key;
var oRs = Oracle.Execute(discs);
if (oRs.eof)
{ // Als er nog geen artikel bij de reservering bestaan, dan kijken welke disciplines er mogelijk zijn.
if (!oRs.eof)
{
hasCV = true; // Er bestaan artikelen bij de reservering.
}
else
{ // Als er nog geen artikelen bij de reservering bestaan, dan kijken welke disciplines er mogelijk zijn.
oRs.Close();
var discs = "SELECT DISTINCT rdp.res_ins_discipline_key res_discipline_key"
+ " , rdp.res_disc_params_kosten"
@@ -588,12 +602,8 @@ res = {
}
disc_key_arr = [];
var earliest_expire_changeCV = new Date(1000,1,1); // Wijzigingshorizon CV
var hasCV = false;
while (!oRs.eof)
{
var hasCV = true;
var expireCV = res.discipline_expire(oRs("res_discipline_key").Value, 0);
if (expireCV > earliest_expire_changeCV) earliest_expire_changeCV = expireCV;
if (expire > earliest_expire_change) earliest_expire_change = expireCV;

9
APPL/RES/res_edit_objcat.asp
View File

@@ -143,9 +143,10 @@ var authparams = user.checkAutorisation(autfunction)
function res_submit_callback(json)
{
iface.button.enable("btn_res_submit");
if (json.success)
FcltMgr.closeDetail(window, json);
if (json.success)
FcltMgr.closeDetail(window, json);
else
iface.button.enable("btn_objcat_submit");
}
function res_submit()
@@ -200,7 +201,7 @@ var new_item_key = 0; // Globaal
</head>
<body id="editbody">
<% var buttons = [ {title: L("lcl_submit"), icon: "opslaan.png", action:"res_submit()" },
<% var buttons = [ {title: L("lcl_submit"), icon: "opslaan.png", action:"res_submit()", singlepress: true, id:"btn_objcat_submit" },
{title: L("lcl_cancel"), icon: "undo.png", action:"res_cancel()" } ];
IFRAMER_HEADER(L("lcl_res_frame_voorziening"), buttons);
%>

8
APPL/RES/res_edit_rsv_ruimte.asp
View File

@@ -650,6 +650,14 @@ FCLTHeader.Requires({plugins: ["jQuery", "kenmerk"],
else
$('#resinfo').hide();
if (data.locatie_oms)
{
// Bij gekozen ruimte is de locatie ook bekend, daarom deze tonen.
// functie: setValue(key, txt, doonChange, checkExist, extraParam, lastTry);
sgLoc.setValue(parseInt(data.locatie_key), data.locatie_oms, false, false);
$('#locatiekey').val(data.locatie_key);
}
FcltMgr.resized();
};

18
APPL/Shared/500_error.asp
View File

@@ -254,7 +254,7 @@ function LogErrorToFile()
__DoLog(e.description + "<br>Er is al een Request.BinaryRead geweest")
}
__SafeDoLog(__DumpCollection(Session.Contents, "Session"));
__DoLog("Useragent: " + Request.ServerVariables("HTTP_USER_AGENT"));
__SafeDoLog("IP:" + Request.ServerVariables("REMOTE_ADDR") + "<br>Useragent: " + Server.HTMLEncode(Request.ServerVariables("HTTP_USER_AGENT")));
}
var rooturl;
@@ -282,9 +282,21 @@ function LogfileName()
if (!fso.FolderExists(sPath + "/temp") || !fso.FolderExists(sPath + "/appl") || !fso.FolderExists(sPath + "/cust"))
return null; // Het moet wel de TEMP folder zijn naast APPL, niet toevallig eentje in de root
// Naam van de AiAi folder bepalen. Kijk daartoe of er al een folder is van de vorm /temp/500_error_xxxxx
var f = fso.GetFolder(sPath + "/temp/");
var fname = "500_error_" + Math.floor(Math.random() * 1e16);
for (var ff = new Enumerator(f.SubFolders); !ff.atEnd(); ff.moveNext())
{
if (ff.item().Name.match(/^500_error_[0-9]*/))
{
fname = ff.item().Name;
break;
}
}
var nowtxt = toDateString(new Date());
var folder = sPath + "/temp/500_error_" + Request.ServerVariables("INSTANCE_ID");
/* global */ logurl = rooturl + "/temp/500_error_" + Request.ServerVariables("INSTANCE_ID") + "/log_" + nowtxt + ".html";
var folder = sPath + "/temp/" + fname;
/* global */ logurl = rooturl + "/temp/" + fname + "/log_" + nowtxt + ".html";
if (!fso.FolderExists(folder))
fso.CreateFolder(folder);
return folder + "/log_" + nowtxt + ".html";

2
APPL/Shared/default.inc
View File

@@ -9,7 +9,7 @@
Note: Sinds 5.2.2 zitten de settings in de database
*/
var FCLTVersion="5.4.3b"; // software versie
var FCLTVersion="5.4.3d"; // software versie
var FCLTMinDatabaseSchema="23";
var custpath = rooturl + "/cust/" + customerId; // path to customer files

3
APPL/SlnkDwf/PrintEmbedded.asp
View File

@@ -1,4 +1,7 @@
<%@language = "javascript" %>
<%
DOCTYPE_Disable = 1; // Anders opent de DWF Viewer het plaatje heel klein?
%>
<!-- #include file="../Shared/common.inc" -->
<%
var dwfUrl = String(Request.Querystring('qryWhat'));

BIN
APPL/SlnkDwf/SLNKDWFx64.dll
View File

Binary file not shown.

1
APPL/facmgtVB/cad_labelrecord.asp
View File

@@ -373,6 +373,7 @@ If fldWaar = 0 Then
End If
fldScenario = fldCAD_LABEL_TYPE AND 4' &B100
fldCAD_LABEL_SIZE = -1 * CInt(fldCAD_LABEL_SIZE)
If fldCAD_LABEL_SIZE < 0 Then
fldCAD_LABEL_SIZE = -1 * fldCAD_LABEL_SIZE
fldLabel = 0