Files
Facilitor/APPL/ALG/alg_edit_verdieping_save.asp
Peter Feij fdd0c1c800 FCLT#82642 Gefixt dat import andere (betere) tracking deed dan de GUI
svn path=/Website/trunk/; revision=64711
2024-05-16 15:26:21 +00:00

142 lines
5.3 KiB
Plaintext

<%@language = "javascript" %>
<% /*
$Revision$
$Id$
SUBMIT-form
*/ %>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../Shared/save2db.inc" -->
<!-- #include file="../Shared/kenmerk_common.inc"-->
<!-- #include file="alg.inc" -->
<% FCLTHeader.Requires({ plugins:["jQuery"],
js: []
}) %>
<%
var flr_key = getQParamInt("flr_key");
var geb_key = getFParamInt("gebouwkey", -1);
var isNew = (flr_key < 0);
var onrgoedlvl = "V";
var this_alg = alg.func_enabled(flr_key, onrgoedlvl);
user.auth_required_or_abort(this_alg.writeman || (flr_key > 0 && this_alg.writeuse));
var fields = [];
if (this_alg.writeuse)
{
fields.push({ dbs: "mld_dienstniveau_key", typ: "key", frm: "dienstniveau", track: L("lcl_mld_dienst_niveau"), foreign: "mld_dienstniveau" });
}
if (this_alg.writeman)
{
fields.push(
{ dbs: "alg_verdieping_omschrijving", typ: "varchar", frm: "flr_omschr", track: L("lcl_estate_verdieping_man_descr") },
{ dbs: "alg_verdieping_volgnr", typ: "number", frm: "flr_volgnr", track: L("lcl_estate_verdieping_man_volgnr") },
{ dbs: "alg_verdieping_code", typ: "varchar", frm: "flr_code", track: L("lcl_estate_verdieping_man_code") },
{ dbs: "alg_verdieping_dwgz", typ: "float", frm: "flr_dwgz", track: L("lcl_estate_verdieping_man_dwgz") }
);
if (flr_key == -1 && alg.canWriteGebouw(geb_key, this_alg.authparams("WEB_ALGMAN").ALGwritelevel))
fields.push({ dbs: "alg_gebouw_key", typ: "key", val: geb_key });
}
var warning = "";
if (flr_key > 0)
{
var algUpd = buildTrackingUpdate("alg_verdieping", " alg_verdieping_key = " + flr_key, fields);
sql = algUpd.sql;
var err = Oracle.Execute(sql, true);
if (err.friendlyMsg)
warning = err.friendlyMsg;
}
else
{
fields.push({ dbs: "alg_verdieping_key", typ: "key", seq: "alg_s_alg_onroerendgoed_keys" });
var regIns = buildInsert("alg_verdieping", fields);
var flr_key = regIns.sequences["alg_verdieping_key"];
sql = regIns.sql;
var err = Oracle.Execute(sql, true);
if (err.friendlyMsg)
warning = err.friendlyMsg;
}
var flextrack = [];
if (!warning)
{
currentKenmerkenSQL = "SELECT k.alg_kenmerk_key"
+ " , ok.alg_onrgoedkenmerk_waarde"
+ " , k.alg_kenmerk_toonbaar"
+ " , k.fac_functie_key"
+ " FROM alg_onrgoedkenmerk ok"
+ " , alg_kenmerk k"
+ " WHERE k.alg_kenmerk_key = ok.alg_kenmerk_key"
+ " AND alg_onrgoedkenmerk_verwijder IS NULL"
+ " AND alg_onrgoed_niveau = 'V'"
+ " AND alg_onrgoed_key = " + flr_key;
allKenmerkenSQL = "SELECT " + lcl.xsql('k.alg_kenmerk_omschrijving', 'k.alg_kenmerk_key') + " kenmerk_omschrijving"
+ " , k.alg_kenmerk_kenmerktype kenmerk_kenmerktype"
+ " , k.alg_kenmerk_systeem kenmerk_systeem"
+ " , k.alg_kenmerk_toonbaar kenmerk_readonly"
+ " , k.alg_kenmerk_uniek kenmerk_uniek"
+ " , fac_kenmerkdomein_key"
+ " FROM alg_kenmerk k"
+ " WHERE k.alg_kenmerk_key = "; /* wordt in saveFlexkenmerken uitgebreid */
flextrack = saveFlexKenmerken(flr_key,
{ kenmerkTable: "alg_onrgoedkenmerk",
kenmerkParentKey : "alg_onrgoed_key",
kenmerkWaarde: "alg_onrgoedkenmerk_waarde",
kenmerkKey: "alg_kenmerk_key",
kenmerkToonbaar: "alg_kenmerk_toonbaar",
currentKenmerkenSQL: currentKenmerkenSQL,
allKenmerkenSQL: allKenmerkenSQL,
requestQF: Request.Form,
flexPath: "ALG/V",
module: "ALG",
tracking: true,
moduleName: "alg_onrgoed_niveau",
moduleVal: "V",
isNew: isNew
});
if ( !isNew )
{
if (flextrack.length)
{
if (algUpd && algUpd.trackarray.length)
algUpd.trackarray = algUpd.trackarray.concat(flextrack);
else
algUpd.trackarray = flextrack;
}
if (algUpd && algUpd.trackarray.length)
shared.trackaction("ALGVUP", flr_key, algUpd.trackarray.join("\n"));
}
else
shared.trackaction("ALGVNE", flr_key);
}
%>
<html>
<head>
<% FCLTHeader.Generate() %>
<script>
$(function ()
{
FcltMgr.closeDetail(window, { flr_key: <%=flr_key%>,
warning: "<%=safe.jsstring(warning)%>",
keepForm: <%=warning?"true":"false"%>
});
});
</script>
</head>
<body>
</body>
</html>
<% ASPPAGE_END(); %>