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

FCLT#62034: Alle database functie "lcl.x()" vervangen door ASP functie "lcl.xsql" in queries.

Browse Source 
svn path=/Website/trunk/; revision=47474
This commit is contained in:
Maykel Geerdink
2020-07-22 07:09:53 +00:00
parent 5e9584776c
commit 3a1de7f594
10 changed files with 36 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
APPL/MLD/mld_edit_melding_save.asp
View File

@@ -651,8 +651,8 @@ if (savemode)
+ " OR (vk.mld_stdmelding_key = s.mld_ins_discipline_key AND vk.mld_kenmerk_niveau = 'D')"
+ " OR (vk.mld_stdmelding_key = d.ins_srtdiscipline_key AND vk.mld_kenmerk_niveau = 'T'))";
allKenmerkenSQL = "SELECT COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', t.mld_srtkenmerk_key, t.mld_srtkenmerk_omschrijving)) kenmerk_omschrijving"
allKenmerkenSQL = "SELECT COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("t.mld_srtkenmerk_omschrijving", "t.mld_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " , t.mld_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+ " , t.mld_srtkenmerk_systeem kenmerk_systeem"
+ " , k.mld_kenmerk_toonbaar kenmerk_readonly"

6
APPL/MLD/mld_edit_opdr_save.asp
View File

@@ -1084,8 +1084,8 @@ for (var u = 0; u < uitvkeyArray.length; u++)
+ " AND mld_kenmerkopdr_verwijder IS NULL"
+ " AND mld_opdr_key = " + opdr_key;
allKenmerkenSQL = "SELECT COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', t.mld_srtkenmerk_key, t.mld_srtkenmerk_omschrijving)) kenmerk_omschrijving"
allKenmerkenSQL = "SELECT COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("t.mld_srtkenmerk_omschrijving", "t.mld_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " , t.mld_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+ " , t.mld_srtkenmerk_systeem kenmerk_systeem"
+ " , k.mld_kenmerk_toonbaar kenmerk_readonly"
@@ -1381,4 +1381,4 @@ if (initopdrkey > 0 || copyorder_key > 0 || mld_typeopdr_isofferte == 0) // !(op
Response.Write(JSON.stringify(doneParams));
Response.End;
%><% ASPPAGE_END(); %>
%><% ASPPAGE_END(); %>

4
APPL/MLD/mld_flexkenmerk.inc
View File

@@ -330,8 +330,8 @@ function generateFlexKenmerkBlock(params)
+ " , k.mld_srtkenmerk_key srtkenmerk_key"
+ " , k.mld_kenmerk_niveau"
+ " , " + (__Logging > 0? " k.mld_kenmerk_niveau || ':' ||" : "") // Lettertje ervoor bij logging
+ " COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', t.mld_srtkenmerk_key, t.mld_srtkenmerk_omschrijving)) kenmerk_omschrijving"
+ " COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("t.mld_srtkenmerk_omschrijving", "t.mld_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " , t.mld_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+ " , t.fac_kenmerkdomein_key kenmerkdomein_key"
+ " , t.mld_srtkenmerk_lengte kenmerk_lengte"

7
APPL/MLD/mld_forward_save.asp
View File

@@ -283,9 +283,8 @@ else
+ " AND s.mld_stdmelding_key = " + new_stdm
+ " AND mk.mld_kenmerk_verwijder IS NULL)";
allKenmerkenSQL = "SELECT "
+ " COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', t.mld_srtkenmerk_key, t.mld_srtkenmerk_omschrijving)) kenmerk_omschrijving"
allKenmerkenSQL = "SELECT COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("t.mld_srtkenmerk_omschrijving", "t.mld_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " , t.mld_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+ " , t.mld_srtkenmerk_systeem kenmerk_systeem"
+ " , k.mld_kenmerk_toonbaar kenmerk_readonly"
@@ -349,4 +348,4 @@ else
Response.Write(JSON.stringify(result));
%>
<% ASPPAGE_END(); %>
<% ASPPAGE_END(); %>

7
APPL/MLD/mld_list.inc
View File

@@ -139,8 +139,8 @@ function mld_list (pautfunction, params)
{
// Fast check to see if we have any listable flex at all, to prevent superfluous column
var sql = "SELECT DISTINCT"
+ " COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', sk.mld_srtkenmerk_key, sk.mld_srtkenmerk_omschrijving)) mld_kenmerk_omschrijving"
+ " COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("sk.mld_srtkenmerk_omschrijving", "sk.mld_srtkenmerk_key") + ") mld_kenmerk_omschrijving"
+ " , sk.mld_srtkenmerk_kenmerktype"
+ " FROM mld_srtkenmerk sk, mld_kenmerk k"
+ " WHERE BITAND (mld_srtkenmerk_systeem, 2) = 2"
@@ -523,7 +523,8 @@ oRs.close();
if (anyflex)
{
sqln += ", (SELECT LISTAGG("
+ (multiflex ? "COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving), lcl.x('mld_srtkenmerk_omschrijving', skm.mld_srtkenmerk_key, skm.mld_srtkenmerk_omschrijving))"
+ (multiflex ? "COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("skm.mld_srtkenmerk_omschrijving", "skm.mld_srtkenmerk_key") + ")"
+ " || ':'|| CHR(160) ||"
: "")
+ " CASE"

6
APPL/MLD/mld_load_obj_info.asp
View File

@@ -94,9 +94,9 @@ if (srtdeel_key > 0)
+ ")";
var sqlt = "SELECT k.ins_kenmerk_volgnummer kenmerk_volgnr"
+ " , COALESCE (lcl.x('ins_kenmerk_omschrijving', k.ins_kenmerk_key, k.ins_kenmerk_omschrijving)"
+ " , lcl.x('ins_srtkenmerk_omschrijving', t.ins_srtkenmerk_key, t.ins_srtkenmerk_omschrijving)) kenmerk_omschrijving"
+ "," + sqlwaarde + " kenmerk_waarde"
+ " , COALESCE (" + lcl.xsql("k.ins_kenmerk_omschrijving", "k.ins_kenmerk_key")
+ " , " + lcl.xsql("t.ins_srtkenmerk_omschrijving", "t.ins_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " ," + sqlwaarde + " kenmerk_waarde"
+ " FROM ins_srtkenmerk t"
+ ", ins_kenmerk k"
+ ", ins_srtdeel s"

6
APPL/MLD/opdr_cancel_save.asp
View File

@@ -69,8 +69,8 @@ var currentKenmerkenSQL = "SELECT k.mld_kenmerk_key"
+ " AND mld_kenmerkopdr_verwijder IS NULL"
+ " AND mld_opdr_key = " + opdr_key;
var allKenmerkenSQL = "SELECT COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', t.mld_srtkenmerk_key, t.mld_srtkenmerk_omschrijving)) kenmerk_omschrijving"
var allKenmerkenSQL = "SELECT COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("t.mld_srtkenmerk_omschrijving", "t.mld_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " , t.mld_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+ " , t.mld_srtkenmerk_systeem kenmerk_systeem"
+ " , k.mld_kenmerk_toonbaar kenmerk_readonly"
@@ -148,4 +148,4 @@ result.success = true;
Response.Write(JSON.stringify(result));
Response.End;
%><% ASPPAGE_END(); %>
%><% ASPPAGE_END(); %>

6
APPL/MLD/opdr_close_save.asp
View File

@@ -83,8 +83,8 @@ if (opdr_key_arr.length == 1)
+ " AND mld_kenmerkopdr_verwijder IS NULL"
+ " AND mld_opdr_key = " + opdr_key_arr[0];
var allKenmerkenSQL = "SELECT COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', t.mld_srtkenmerk_key, t.mld_srtkenmerk_omschrijving)) kenmerk_omschrijving"
var allKenmerkenSQL = "SELECT COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("t.mld_srtkenmerk_omschrijving", "t.mld_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " , t.mld_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+ " , t.mld_srtkenmerk_systeem kenmerk_systeem"
+ " , k.mld_kenmerk_toonbaar kenmerk_readonly"
@@ -327,4 +327,4 @@ result.success = true;
Response.Write(JSON.stringify(result));
Response.End;
%><% ASPPAGE_END(); %>
%><% ASPPAGE_END(); %>

6
APPL/MLD/opdr_halt_save.asp
View File

@@ -62,8 +62,8 @@ var currentKenmerkenSQL = "SELECT k.mld_kenmerk_key"
+ " AND mld_kenmerkopdr_verwijder IS NULL"
+ " AND mld_opdr_key = " + opdr_key;
var allKenmerkenSQL = "SELECT COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', t.mld_srtkenmerk_key, t.mld_srtkenmerk_omschrijving)) kenmerk_omschrijving"
var allKenmerkenSQL = "SELECT COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("t.mld_srtkenmerk_omschrijving", "t.mld_srtkenmerk_key") + ") kenmerk_omschrijving"
+ " , t.mld_srtkenmerk_kenmerktype kenmerk_kenmerktype"
+ " , t.mld_srtkenmerk_systeem kenmerk_systeem"
+ " , k.mld_kenmerk_toonbaar kenmerk_readonly"
@@ -105,4 +105,4 @@ result.success = true;
Response.Write(JSON.stringify(result));
Response.End;
%><% ASPPAGE_END(); %>
%><% ASPPAGE_END(); %>

20
APPL/MLD/opdr_list.inc
View File

@@ -188,16 +188,16 @@ function opdr_list(params)
if (params.withflex && !excel && !print)
{
// Fast check to see if we have any listable flex at all, to prevent superfluous empty column
var sql = "SELECT COALESCE (lcl.x('mld_kenmerk_omschrijving', k.mld_kenmerk_key, k.mld_kenmerk_omschrijving)"
+ " , lcl.x('mld_srtkenmerk_omschrijving', sk.mld_srtkenmerk_key, sk.mld_srtkenmerk_omschrijving)) mld_kenmerk_omschrijving"
+" , sk.mld_srtkenmerk_kenmerktype"
+" FROM mld_srtkenmerk sk, mld_kenmerk k"
+" WHERE BITAND (mld_srtkenmerk_systeem, 2) = 2"
+" AND BITAND (mld_srtkenmerk_systeem, 4) = 0" // niet als vertrouwelijk
+" AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key"
+" AND k.mld_kenmerk_niveau IN ('P', 'O')"
+" AND k.mld_kenmerk_verwijder IS NULL"
+" AND sk.mld_srtkenmerk_verwijder IS NULL";
var sql = "SELECT COALESCE (" + lcl.xsql("k.mld_kenmerk_omschrijving", "k.mld_kenmerk_key")
+ " , " + lcl.xsql("sk.mld_srtkenmerk_omschrijving", "sk.mld_srtkenmerk_key") + ") mld_kenmerk_omschrijving"
+" , sk.mld_srtkenmerk_kenmerktype"
+" FROM mld_srtkenmerk sk, mld_kenmerk k"
+" WHERE BITAND (mld_srtkenmerk_systeem, 2) = 2"
+" AND BITAND (mld_srtkenmerk_systeem, 4) = 0" // niet als vertrouwelijk
+" AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key"
+" AND k.mld_kenmerk_niveau IN ('P', 'O')"
+" AND k.mld_kenmerk_verwijder IS NULL"
+" AND sk.mld_srtkenmerk_verwijder IS NULL";
var oRs = Oracle.Execute(sql);
params.anyflex = !oRs.eof;
if (params.anyflex)