diff --git a/CUST/ASDL/afmelden_locatie.asp b/CUST/ASDL/afmelden_locatie.asp
index ac9e5900e7..98828ff7c3 100644
--- a/CUST/ASDL/afmelden_locatie.asp
+++ b/CUST/ASDL/afmelden_locatie.asp
@@ -41,21 +41,36 @@ if (locatie_key != -1)
HEADER({title: "Locatie ingevuld", back:0, home:1});
CONTENT_START();
var sql =
- " SELECT DISTINCT ins_deel_key, ins_srtcontrole_key, p.prs_perslid_key from asdl_v_rap_schoonmaak_today s, prs_kenmerklink kl, prs_perslid p"
+ " SELECT DISTINCT ins_deel_key, ins_srtcontrole_key, p.prs_perslid_key, ins_deelsrtcontrole_key "
+ + " FROM asdl_v_rap_schoonmaak_today s, prs_kenmerklink kl, prs_perslid p"
+ " WHERE s.ins_srtcontroledl_xcp_groep = kl.prs_kenmerklink_waarde "
+ " AND kl.prs_kenmerk_key = 1000 "
+ " AND p.prs_perslid_key = " + user_key
+ " AND kl.prs_link_key = " + user_key
- + " AND alg_locatie_key = p.alg_onroerendgoed_keys ";
+ + " AND s.maand = DECODE(INSTR(" + safe.quoted_sql(locatie) + ", 'PERIODIEK'), 0, 0, 1)"
+ + " AND alg_locatie_key = p.alg_onroerendgoed_keys "
+ + " AND alg_locatie_key = " + locatie_key;
oRs = Oracle.Execute(sql);
while (!oRs.eof)
- {
- sqll = "INSERT INTO ins_deelsrtcontrole (ins_deelsrtcontrole_datum, ins_deel_key, ins_srtcontrole_key, ins_controlemode_key, prs_perslid_key, ins_deelsrtcontrole_datum_org) "
- + " VALUES (SYSDATE, " + oRs("ins_deel_key").Value
- + ", " + oRs("ins_srtcontrole_key").Value
- + ", 10, " + oRs("prs_perslid_key").Value
- + ", SYSDATE )";
- Oracle.Execute(sqll);
+ {
+ if (oRs("ins_deelsrtcontrole_key").Value == null)
+ {
+ sql = "INSERT INTO ins_deelsrtcontrole (ins_deelsrtcontrole_datum, ins_deel_key, ins_srtcontrole_key, ins_controlemode_key, prs_perslid_key, ins_deelsrtcontrole_datum_org) "
+ + " VALUES (SYSDATE, " + oRs("ins_deel_key").Value
+ + ", " + oRs("ins_srtcontrole_key").Value
+ + ", 10, " + oRs("prs_perslid_key").Value
+ + ", SYSDATE )";
+ }
+ else {
+ sql = "UPDATE ins_deelsrtcontrole"
+ + " SET ins_deelsrtcontrole_datum = SYSDATE,"
+ + " ins_controlemode_key = 10,"
+ + " prs_perslid_key = " + user_key + ","
+ + " ins_deelsrtcontrole_plandatum = NULL, "
+ + " ins_deelsrtcontrole_status = 6" // afgerond
+ + " WHERE ins_deelsrtcontrole_key = " + oRs("ins_deelsrtcontrole_key").Value;
+ }
+ Oracle.Execute(sql);
oRs.MoveNext();
}
oRs.Close();
@@ -75,12 +90,13 @@ else
};
- var sql = "SELECT DISTINCT alg_locatie_key, alg_locatie_omschrijving, alg_locatie_x from asdl_v_rap_schoonmaak_today s, prs_kenmerklink kl, prs_perslid p"
+ var sql = "SELECT alg_locatie_key, alg_locatie_omschrijving || DECODE(SUM(maand),0,'', ' *PERIODIEK*') alg_locatie_omschrijving, alg_locatie_x from asdl_v_rap_schoonmaak_today s, prs_kenmerklink kl, prs_perslid p"
+ " WHERE s.ins_srtcontroledl_xcp_groep = kl.prs_kenmerklink_waarde "
+ " AND kl.prs_kenmerk_key = 1000 "
+ " AND p.prs_perslid_key = " + user_key
+ " AND kl.prs_link_key = " + user_key
+ " AND alg_locatie_key = p.alg_onroerendgoed_keys "
+ + " GROUP BY alg_locatie_key, alg_locatie_omschrijving, maand, alg_locatie_x "
+ " ORDER BY alg_locatie_x"
var rst = new ResultsetTable({sql: sql,
diff --git a/CUST/ASDL/kies_locatie.asp b/CUST/ASDL/kies_locatie.asp
index 478f5c2a66..f0bf1a8f04 100644
--- a/CUST/ASDL/kies_locatie.asp
+++ b/CUST/ASDL/kies_locatie.asp
@@ -42,7 +42,12 @@ if (locatie_key != -1)
CONTENT_START();
var sql = "UPDATE prs_perslid SET alg_onroerendgoed_keys =" + locatie_key + ", alg_onroerendgoed_type = 'L' WHERE prs_perslid_key = " + user_key;
Oracle.Execute(sql);
- ROFIELD("sel_srtcontrole_oms", "Locatie", locatie, {});
+ Oracle.Execute(sql);
+%>
+
+<%
}
else
{
@@ -58,11 +63,9 @@ else
return "../../cust/asdl/kies_locatie.asp?locatie_key=" + oRs("alg_locatie_key").Value+"&locatie=" + oRs("alg_locatie_omschrijving").Value;
};
- var sql = "SELECT alg_locatie_key, alg_locatie_omschrijving || DECODE(COUNT(maand),0,'', ' PERIODIEK') alg_locatie_omschrijving "
- + " FROM asdl_v_rap_schoonmaak_today1 s, prs_kenmerklink kl"
- + " WHERE s.ins_srtcontroledl_xcp_groep = kl.prs_kenmerklink_waarde "
- + " AND kl.prs_kenmerk_key = 1000 "
- + " AND kl.prs_link_key = " + user_key
+ var sql = "SELECT alg_locatie_key, alg_locatie_omschrijving || DECODE(SUM(maand),0,'', ' *PERIODIEK*') alg_locatie_omschrijving "
+ + " FROM asdl_v_rap_schoonmaak_today1 s"
+ + " WHERE s.fclt_3d_user_key = " + user_key
+ discx3d ("",
"s.ins_discipline_key",
"s.alg_regio_key",
diff --git a/CUST/ASDL/kies_route.asp b/CUST/ASDL/kies_route.asp
index b36b0714dd..a9dfff7beb 100644
--- a/CUST/ASDL/kies_route.asp
+++ b/CUST/ASDL/kies_route.asp
@@ -41,7 +41,11 @@ if (route != "none")
CONTENT_START();
var sql = "BEGIN PRS.upsertkenmerk (1000, " + user_key + ", " + safe.quoted_sql(route) + "); END;"
Oracle.Execute(sql);
- ROFIELD("sel_srtcontrole_oms", "Route", route, {});
+%>
+
+<%
}
else
{