fac-verify ook Invalid Objects rapporteren (en recompile optie geven)

svn path=/Website/branches/v2018.1/; revision=38997
This commit is contained in:
Jos Groot Lipman
2018-08-30 08:31:38 +00:00
parent 4db0a3be3b
commit 9b4092342a

View File

@@ -33,6 +33,12 @@ if (Application("otap_environment") != "O")
}
if (Server.ScriptTimeout<600) Server.ScriptTimeout=600; // 10 minuten moet lukken
if (getQParamInt("recompile", 0) == "1")
{
var sql = "BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;";
Oracle.Execute(sql);
}
%>
<html>
<head>
@@ -63,10 +69,9 @@ if (Server.ScriptTimeout<600) Server.ScriptTimeout=600; // 10 minuten moet lukke
else
itm.style.display = 'none';
}
function reload()
function reload(recompile)
{
var hrefBase = window.location.href;
window.location.href = hrefBase;
window.location.href = "fac_verify_data.asp" + (recompile?"?recompile=1":"");
}
function showSQL(sql)
@@ -170,7 +175,7 @@ function checker (description, fnCheck, toggler)
<br>Checking <%= toDateTimeString(new Date(), true) %>
<br>Customer: <%=customerId%>
<br>Database: <%=Oracle.RealConnection.Properties("User Name")+'@'+Oracle.RealConnection.Properties("Data source") %>
<% if (user_key > 0) Response.Write("<br>User: " + user.naam()); %>
<% if (user_key > 0) Response.Write("<br>User: " + safe.html(user.naam())); %>
</th>
<th>Information</th><th>Result</th></tr></thead>
<%
@@ -223,7 +228,13 @@ checker("Meta consistentie van de database, belangrijk om te controleren voor op
" AND SUBSTR(table_name, 1, 4) <> '{0}'".format(customerId) +
" AND SUBSTR(table_name, 1, 6) <> 'T_{0}'".format(customerId) +
" ORDER BY table_name"
},
},
{ msg: "Invalid objects <input type='button' onclick='reload(true)' value='Recompile'>",
sql: "SELECT object_type, object_name, created, last_ddl_time" +
" FROM user_objects" +
" WHERE status <> 'VALID'" +
" ORDER BY object_type, object_name"
},
{ msg: "PROCEDURE/FUNCTION/PACKAGE die niet wrapped zijn",
sql: "SELECT TYPE, name, text" +
" FROM user_source" +