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

fac_verify_data betere controle op missende kenmerkdomeintabel verwijzingen

Browse Source 
svn path=/Website/branches/v2019.1/; revision=41656
This commit is contained in:
Jos Groot Lipman
2019-03-19 09:25:46 +00:00
parent f632c5e9aa
commit 6152405035
1 changed files with 21 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
APPL/FAC/fac_verify_data.asp
View File

@@ -339,10 +339,12 @@ checker("Controle xxx-disc_params",
var oRs = Oracle.Execute(sql);
if (!oRs.Eof)
messages.push(rr.t1 + " has more records than " + rr.t2 + "<br>" + sql);
oRs.Close();
var sql = "SELECT " + rr.k2 + " FROM " + rr.t2 + " MINUS SELECT " + rr.k1 + " FROM " + rr.t1;
var oRs = Oracle.Execute(sql);
if (!oRs.Eof)
messages.push(rr.t2 + " has more records than " + rr.t1 + "<br>" + sql);
oRs.Close();
var sql = "SELECT " + rr.k1 + ", COUNT(*) FROM " + rr.t1 + " GROUP BY " + rr.k1 + " HAVING COUNT(*) > 1";
var oRs = Oracle.Execute(sql);
if (!oRs.Eof)
@@ -1094,8 +1096,27 @@ checker("Controle melding flexkenmerken van type 'R,S' waarvan de waarde niet te
+ " AND msk.fac_kenmerkdomein_key = mrsk.fac_kenmerkdomein_key"
var oRs = Oracle.Execute(sql);
noResults = [];
var messages = [];
while (!oRs.Eof)
{
if (oRs("fac_kenmerkdomein_objectnaam").Value != "FAC_USRDATA")
{
var sql = "SELECT 1"
+ " FROM user_objects"
+ " WHERE object_name = " + safe.quoted_sql(oRs("fac_kenmerkdomein_objectnaam").Value);
var oRs2 = Oracle.Execute(sql)
if (oRs2.EOF)
{
messages.push("<span class='fcltmsg'>Missende table/view {0} in domein '{1}' voor kenmerk '{2}'</span>"
.format(oRs("fac_kenmerkdomein_objectnaam").Value,
oRs("fac_kenmerkdomein_omschrijving").Value,
oRs("mld_srtkenmerk_omschrijving").Value));
oRs.MoveNext();
oRs2.Close();
continue;
}
oRs2.Close();
}
var fsql = "SELECT TO_CHAR(" + oRs("fac_kenmerkdomein_kolomnaam").Value + ") waarde"
+ " FROM " + oRs("fac_kenmerkdomein_objectnaam").Value;
var wheres = [];
@@ -1110,7 +1131,6 @@ checker("Controle melding flexkenmerken van type 'R,S' waarvan de waarde niet te
}
oRs.Close();
var messages = [];
for (noResult in noResults)
{
if (!Response.IsClientConnected)