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

Merge 5.3.3 patches

Browse Source 
svn path=/Website/trunk/; revision=20703
This commit is contained in:
Jos Groot Lipman
2014-02-19 12:14:36 +00:00
parent 47d87378cb
commit cdcfcded77
6 changed files with 61 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
APPL/INS/ins_edit_deel.asp
View File

@@ -474,11 +474,18 @@ var uitvoertijd;
headertitle = L("lcl_sle_cilinder");
}
var invalid_binding = ((!(srtdeel_binding & (BIND_AFDELI)) && o_dep > 0) ||
(!(srtdeel_binding & (BIND_PERSOO)) && o_perslid > 0) ||
(!(srtdeel_binding & (BIND_TERREI)) && o_bld > 0 && !(srtdeel_binding & (BIND_RUIMTE)) && !(srtdeel_binding & (BIND_WERKPL))) ||
(!(srtdeel_binding & (BIND_RUIMTE)) && o_room > 0 && !(srtdeel_binding & (BIND_WERKPL))) ||
(!(srtdeel_binding & (BIND_WERKPL)) && o_workpl > 0))
IFRAMER_HEADER(headertitle, buttons);
%>
<div id="edit">
<script type="text/javascript">
urole = "<%=urole%>";
var invalid_binding = <%=invalid_binding? 1 : 0%> == 1;
// Houd rekening met globaal gezette bindingBits
function checkInput(isNext)
@@ -489,7 +496,7 @@ var uitvoertijd;
var f = document.u2;
var msg = '<%=L("lcl_po_missed_dsc")%>';
var status = f && f.desc && f.desc.value != "";
<% if (parent_key < 0 && !isLendOut)
<% if (parent_key < 0 && !isLendOut && !invalid_binding)
{ %>
// Controleer of er wel iets gekozen is. De werking is tegenwoordig zo dat je nooit iets
// fouts gekozen kunt hebben
@@ -673,7 +680,7 @@ var uitvoertijd;
BLOCK_START("insIns", L("lcl_owner_info"));
// Voor onderdelen ook het hoofdobject weergeven
ROFIELDTR("fldd", L("lcl_ins_parentobject"), parentdesc, {suppressEmpty: true});
if ((srtdeel_binding & (BIND_AFDELI)) && (!isLendOut || (isLendOut && o_dep > 0)))
if ((srtdeel_binding & (BIND_AFDELI)) && (!isLendOut || (isLendOut && o_dep > 0)) && !invalid_binding)
{
FCLTafdelingselector("sDept",
"sDept",
@@ -685,7 +692,7 @@ var uitvoertijd;
});
}
if ((srtdeel_binding & (BIND_PERSOO)) && (!isLendOut || (isLendOut && o_perslid > 0)))
if ((srtdeel_binding & (BIND_PERSOO)) && (!isLendOut || (isLendOut && o_perslid > 0)) && !invalid_binding)
{
FCLTpersoonselector("sPerson", // requestor
"sgPerson",
@@ -697,7 +704,7 @@ var uitvoertijd;
});
}
if (!isLendOut || (isLendOut && (bind == "R" || bind == "T")))
if ((!isLendOut || (isLendOut && (bind == "R" || bind == "T"))) && !invalid_binding)
{
var maxlevel = -1;
var change = "";

10
APPL/INS/ins_edit_deel_save.asp
View File

@@ -82,9 +82,13 @@ var fields = [ { dbs: "ins_deel_x", typ: "float", frm: "xcoord",
{ dbs: "ins_alg_locatie_key", typ: "key", frm: "locatiekey" /* tracking niet nodig */ },
{ dbs: "ins_deel_vervaldatum", typ: "date", frm: "vervaldatum", track: L("lcl_ins_vervaldatum") },
{ dbs: "ins_deel_aanmaak", typ: "date", frm: "aanmaakdatum", track: L("lcl_last_action") },
{ dbs: "ins_deel_opmerking", typ: "varchar", frm: "opmerk"},
{ dbs: "ins_alg_ruimte_key", typ: "key", val: bind_key, track: true /* afzonderlijke tracking, wel oldjsval */ },
{ dbs: "ins_alg_ruimte_type", typ: "varchar", val: bind, track: true /* afzonderlijke tracking, wel oldjsval */ }];
{ dbs: "ins_deel_opmerking", typ: "varchar", frm: "opmerk"}];
if (bind_key > 0 && bind_key != "")
{
fields.push({ dbs: "ins_alg_ruimte_key", typ: "key", val: bind_key, track: true /* afzonderlijke tracking, wel oldjsval */ });
fields.push({ dbs: "ins_alg_ruimte_type", typ: "varchar", val: bind, track: true /* afzonderlijke tracking, wel oldjsval */ });
}
var dayshours = getFParamInt("dayshours", -1); // Dayshours kan readonly zijn en dan wordt de waarde niet meegegeven.
if (dayshours > 0)

2
APPL/INS/ins_list.inc
View File

@@ -546,7 +546,6 @@ function ins_list (pautfunction, params)
+ sqlInspectie_where
+ (fronto
? " AND s.ins_srtdeel_uitleenbaar = 1"
+ " AND BITAND(s.ins_srtdeel_binding, 16) = 16" // Object moet uitgegeven kunnen worden aan een persoon (BIND_PERSOO = 0x10)
: "")
+ (koppel_key
? " AND idk.ins_deelkoppeling_verwijder IS NULL"
@@ -692,7 +691,6 @@ function ins_list (pautfunction, params)
+ " AND s.ins_srtdeel_key = i.ins_srtdeel_key"
+ (fronto
? " AND s.ins_srtdeel_uitleenbaar = 1"
+ " AND BITAND(s.ins_srtdeel_binding, 16) = 16" // Object moet uitgegeven kunnen worden aan een persoon (BIND_PERSOO = 0x10)
: "")
+ ((insLentOut && !insAvail)
? " AND i.ins_alg_ruimte_key_org IS NOT NULL"

19
APPL/MLD/mld_edit_opdr.js
View File

@@ -115,16 +115,19 @@ function changeBudgetholder()
}
}
function onChangeUitv()
function onChangeUitv(u_key, txt)
{
// Maak contactpersoon leeg
sgCntPersUitv.setValue(-1, "");
// Update contract selectbox
updateCnt();
if (u_key > 0)
{
// Maak contactpersoon leeg
sgCntPersUitv.setValue(-1, "");
// Update contract selectbox
updateCnt();
changeUurtarief();
calcTotal();
recalcEinddatum();
changeUurtarief();
calcTotal();
recalcEinddatum();
}
}
// Einddatum calendar aanpassen

34
APPL/Shared/uitvoerendeselector.inc
View File

@@ -25,6 +25,8 @@
readonly: geeft aan of het uitvoerendenaam veld readonly weergegeven moet worden (true|false(default)).
moreinfo: geeft een extra informatie button achter het suggest veld. Klikken hierop geeft informatie
over de geselecteerde waarde
noBad Als uitvoerendekey niet gevonden binnen filter dan veld leeglaten
(in plaats van standaard gedrag: naam wel opzoeken maar 'Bad' maken)
*/ %>
<!-- #include file="./Suggest/uitvoerendeFilter.inc" -->
@@ -39,6 +41,7 @@ function FCLTuitvoerendeselector(fieldName, objectName, params)
// Is er een initiele waarde meegegeven? Zoek dan de omschrijving erbij!
var luitvoerendeName = (params.whenEmpty != null ? params.whenEmpty : (params.readonly ? L("lcl_select_readonly") : L("lcl_select_uitvoerende")));
var lpbtype = "";
var isBad = false;
if (params.uitvoerendekey && params.uitvoerendekey > 0)
{
var filtClause = getFiltClauseUitvoerende(params.filtercode);
@@ -55,13 +58,33 @@ function FCLTuitvoerendeselector(fieldName, objectName, params)
+ " WHERE d.prs_bedrijf_key = " + params.uitvoerendekey
+ filtClause.bedrijf
var oRs = Oracle.Execute(sql);
if (!oRs.eof)
if (oRs.eof) // Misschien (tegenwoordig) uit scope?
{ // Probeer dan maar zonder extra 'where's
isBad = true;
sql = "SELECT " + S("prs_pers_string") + " naam"
+ ", 'P' pbtype"
+ " FROM prs_perslid p"
+ " WHERE p.prs_perslid_key = " + params.uitvoerendekey
//+ filtClause.perslid
+ " UNION"
+ " SELECT prs_bedrijf_naam naam"
+ ", 'B' pbtype"
+ " FROM prs_bedrijf d"
+ " WHERE d.prs_bedrijf_key = " + params.uitvoerendekey
//+ filtClause.bedrijf
var oRs = Oracle.Execute(sql);
}
if (isBad && params.noBad)
{
luitvoerendeName = oRs("naam").value;
lpbtype = oRs("pbtype").value;
isBad = false;
params.uitvoerendekey = -1;
}
else
params.uitvoerendekey = -1;
{
luitvoerendeName = oRs("naam").Value;
lpbtype = oRs("pbtype").Value;
}
oRs.Close();
}
// Bouw de url voor de uitvoerenden query op
@@ -148,6 +171,9 @@ function FCLTuitvoerendeselector(fieldName, objectName, params)
{
$("#<%=fieldName%>_caller").show();
}
<% if (isBad) { %>
<%=objectName%>.isBad();
<% } %>
}
)
</script>

3
APPL/facmgtVB/res_catalogusrecord.asp
View File

@@ -319,7 +319,8 @@ if len(sCatalogusRecordErr) > 0 then Exit Sub
sSql = "update res_srtartikel_onrgoed " &_
"set res_srtartikel_og_verwijder = "&sysdate&" "&_
"where res_discipline_key = " & ToSQL(pPKINS_DISCIPLINE_KEY, "Number")
"where res_srtartikel_og_verwijder is null "&_
"and res_discipline_key = " & ToSQL(pPKINS_DISCIPLINE_KEY, "Number")
if len(sCatalogusRecordErr) > 0 then Exit Sub
on error resume next
cn.execute sSQL