FSN#18016 Multilang
svn path=/Database/trunk/; revision=10547
This commit is contained in:
12
FCLT.SRC
12
FCLT.SRC
@@ -4,8 +4,8 @@
|
||||
-- Copyright 1996-2010 SG|facilitor bv.
|
||||
-- All rights reserved!
|
||||
/*
|
||||
* $Revision: 63 $
|
||||
* $Modtime: 11-11-10 19:04 $
|
||||
* $Revision: 64 $
|
||||
* $Modtime: 14-12-10 12:18 $
|
||||
*/
|
||||
#include "modules.h"
|
||||
#include "comsql.h"
|
||||
@@ -157,15 +157,17 @@ SET ECHO ON
|
||||
#include "msg\msg_ini.src"
|
||||
|
||||
/* LOCALE's */
|
||||
#include "fac\fac_lcl.src"
|
||||
#include "mld\mld_lcl.src"
|
||||
#include "res\res_lcl.src"
|
||||
COMMIT;
|
||||
|
||||
///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
|
||||
BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
|
||||
/
|
||||
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBVERSION, NULL); END;
|
||||
BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV, NULL); END;
|
||||
/
|
||||
REGISTERONCE('$Workfile: FCLT.SRC $','$Revision: 63 $')
|
||||
REGISTERONCE('$Workfile: FCLT.SRC $','$Revision: 64 $')
|
||||
|
||||
COMMIT;
|
||||
///////////////////////////// Report invalid objects, if any ///////
|
||||
@@ -173,7 +175,7 @@ SET ECHO OFF
|
||||
SET HEADING OFF
|
||||
SET LINESIZE 80
|
||||
PROMPT List of all invalid objects after Facilitor creation:
|
||||
SELECT 'OR'||'A-'||'DB'||TO_CHAR(_DBVERSION)||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
|
||||
SELECT 'OR'||'A-'||'DB'||TO_CHAR(_DBV)||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
|
||||
FROM user_objects
|
||||
WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
|
||||
AND status <> 'VALID'
|
||||
|
||||
@@ -59,6 +59,8 @@
|
||||
#include "prj\prj_tri.src"
|
||||
|
||||
/* LOCALE's */
|
||||
#include "fac\fac_lcl.src"
|
||||
#include "mld\mld_lcl.src"
|
||||
#include "res\res_lcl.src"
|
||||
|
||||
REGISTERONCE('$Workfile: recreate.inc $','$Revision: 2 $')
|
||||
REGISTERONCE('$Workfile: recreate.inc $','$Revision: 3 $')
|
||||
|
||||
Reference in New Issue
Block a user