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

MARX#80879 Technisch adres startdatum geven

Browse Source 
svn path=/Website/trunk/; revision=62983
This commit is contained in:
Peter Feij
2023-12-15 13:29:43 +00:00
parent 1df927c4fb
commit 44b362da9d
8 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
APPL/API/shorturl.asp
View File

@@ -81,6 +81,7 @@ __Log("== Entering shorturl.asp ==");
+ " prs_bedrijfadres_lockexpire"
+ " FROM prs_bedrijfadres"
+ " WHERE prs_bedrijfadres_key = " + locked_bdradr_key
+ " AND prs_bedrijfadres_startdatum <= SYSDATE"
+ " AND prs_bedrijfadres_locksecret IS NOT NULL"
+ " AND prs_bedrijfadres_lockuser_key IS NOT NULL";
var oRs = Oracle.Execute(sql);

1
APPL/API2/model_mld_opdr.inc
View File

@@ -1750,6 +1750,7 @@ obj._is_clone=2 --> nieuwe sub-opdracht
var sql = "SELECT prs_bedrijfadres_url"
+ " FROM prs_bedrijfadres"
+ " WHERE prs_bedrijfadres_type = 'O'"
+ " AND prs_bedrijfadres_startdatum <= SYSDATE"
+ " AND (mld_typeopdr_key IS NULL OR mld_typeopdr_key = " + params.mld_opdr.opdr_type + ")"
+ " AND prs_bedrijf_key = " + params.mld_opdr.uitvoerende;
var oRs = Oracle.Execute(sql);

1
APPL/API2/model_orders.inc
View File

@@ -1200,6 +1200,7 @@ function model_orders(opdr_key, params)
var sql = "SELECT prs_bedrijfadres_url"
+ " FROM prs_bedrijfadres"
+ " WHERE prs_bedrijfadres_type = 'O'"
+ " AND prs_bedrijfadres_startdatum <= SYSDATE"
+ " AND (mld_typeopdr_key IS NULL OR mld_typeopdr_key = " + params.mld_opdr.opdr_type + ")"
+ " AND prs_bedrijf_key = " + params.mld_opdr.uitvoerende;
var oRs = Oracle.Execute(sql);

6
APPL/API2/model_prs_bedrijfadres.inc
View File

@@ -216,6 +216,12 @@ function model_prs_bedrijfadres()
"dbs": "prs_bedrijfadres_plugindata",
"typ": "memo",
"label": L("prs_bedrijfadres_plugindata")
},
"startdate": {
"dbs": "prs_bedrijfadres_startdatum",
"label": L("prs_bedrijfadres_startdatum"),
"typ": "date",
"track": true
}
};

3
APPL/BES/DynArtikelInfo.asp
View File

@@ -144,8 +144,9 @@ var JSON_Result = true;
+ " , prs_bedrijfadres ba"
+ " WHERE d.bes_srtdeel_key = " + srtdeel_key
+ " AND d.bes_srtgroep_key = g.bes_srtgroep_key"
+ " AND ba.prs_bedrijf_key(+) = be.prs_bedrijf_key"
+ " AND ba.prs_bedrijf_key = be.prs_bedrijf_key" // die outerjoin was toch gewoon onzin hier?
+ " AND ba.prs_bedrijfadres_type = 'V'"
+ " AND ba.prs_bedrijfadres_startdatum <= SYSDATE"
+ " AND d.prs_bedrijf_key = be.prs_bedrijf_key"
var oRs = Oracle.Execute(sql);

5
APPL/BES/get_item_info_ajax.asp
View File

@@ -148,7 +148,12 @@ if (req_info == "")
+ " , ba.prs_bedrijfadres_type"
+ " , ba.mld_typeopdr_key"
+ " FROM prs_bedrijfadres ba"
+ " AND prs_bedrijfadres_startdatum <= SYSDATE"
+ " WHERE prs_bedrijf_key = " + result.prs_bedrijf_key;
// NOTE: het is uitzonderlijk maar niet onmogelijk dat eenzelfde adres vaker
// voorkomt, met een oudere startdatum. Dan is dat adres dus niet uniek in het
// result-object, maar boeit dat eigenlijk? Als dat boeit, moet je in deze
// query borgen dat er geen resultaat is met een latere prs_bedrijfadres_startdatum
var oRs = Oracle.Execute(sql);
while (!oRs.eof)
{

1
APPL/MLD/mld_edit_opdr_save.asp
View File

@@ -1446,6 +1446,7 @@ if (isNew ||
sql = "SELECT prs_bedrijfadres_url"
+ " FROM prs_bedrijfadres"
+ " WHERE prs_bedrijfadres_type = 'O'"
+ " AND prs_bedrijfadres_startdatum <= SYSDATE"
+ " AND (mld_typeopdr_key IS NULL OR mld_typeopdr_key = " + t_opdr + ")"
+ " AND (alg_locatie_key = " + mld_info.loc_key + " OR alg_locatie_key IS NULL)"
+ " AND (alg_district_key = (SELECT d.alg_district_key"

4
APPL/Shared/xml_converter.inc
View File

@@ -80,8 +80,10 @@ function STR2Stream(xmlstr, xslfile, Stream, params)
+ " prs_bedrijfadres_locksecret"
+ " FROM prs_bedrijfadres"
+ " WHERE prs_bedrijf_key = " + bedrijf_key
+ " AND prs_bedrijfadres_startdatum <= SYSDATE"
+ " AND prs_bedrijfadres_locksecret IS NOT NULL"
+ " AND prs_bedrijfadres_lockuser_key IS NOT NULL";
+ " AND prs_bedrijfadres_lockuser_key IS NOT NULL"
+ " ORDER BY prs_bedrijfadres_startdatum DESC";
var oRs = Oracle.Execute(sql);
if (oRs.Eof)
{ // Ergens in de bon staat