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

FSN#31260 bookkeeping van fac>adm stage 1

Browse Source 
svn path=/Database/trunk/; revision=23948
This commit is contained in:
Peter Feij
2015-01-26 11:19:09 +00:00
parent f197a918da
commit 7cf7120e95
3 changed files with 46 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
ADM/ADM_PAC.SRC
View File

@@ -9,6 +9,8 @@ AS
PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER);
PROCEDURE trydrop (n IN VARCHAR2);
PROCEDURE tryalter (n IN VARCHAR2);
PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2);
FUNCTION getdbversion RETURN VARCHAR2;
END adm;
/
@@ -142,6 +144,47 @@ AS
END IF;
END;
-- formerly in FAC-package
PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2)
AS
verstring fac_module.fac_module_version%TYPE;
revisionnr fac_version.fac_version_schema%TYPE;
BEGIN
IF pmaj IS NOT NULL AND pmin IS NOT NULL AND ppatch IS NOT NULL
THEN
verstring := TO_CHAR (pmaj) || '.' || TO_CHAR (pmin) || '.' || TO_CHAR (ppatch);
UPDATE fac_module
SET fac_module_version = verstring;
UPDATE fac_version
SET fac_version_major = pmaj,
fac_version_minor = pmin,
fac_version_patch = ppatch,
fac_version_schema = pschema,
fac_version_date = SYSDATE;
UPDATE fac_message
SET fac_message_text = 'FACILITOR ' || verstring || 'DB' || TO_CHAR(pschema)
WHERE fac_message_code = 'FAC_M002';
END IF;
IF plang IS NOT NULL
THEN
UPDATE fac_version
SET fac_version_lang = plang;
END IF;
END;
FUNCTION getdbversion RETURN VARCHAR2
AS
verstring VARCHAR2(100);
BEGIN
SELECT 'DB'||fac_version_schema||'/'||fac_version_cust||fac_version_custnr||'-'||COALESCE(fac_version_otap,'P*')
INTO verstring
FROM fac_version;
RETURN verstring;
END;
END adm;
/