TWYN#53134 conversie oude data
svn path=/Customer/trunk/; revision=37893
This commit is contained in:
Erik Groener
619
TWYN/twyn_def_prj.sql
Normal file
619
TWYN/twyn_def_prj.sql
Normal file
@@ -0,0 +1,619 @@
|
|||||||
|
--
|
||||||
|
-- $Id$
|
||||||
|
--
|
||||||
|
-- Script containing customer specific sql statements for creating default projects in the FACILITOR database
|
||||||
|
|
||||||
|
DEFINE thisfile = 'TWYN_DEF_PRJ.SQL'
|
||||||
|
DEFINE dbuser = '^TWYN'
|
||||||
|
DEFINE custid = 'TWYN'
|
||||||
|
|
||||||
|
SET ECHO ON
|
||||||
|
SET DEFINE ON
|
||||||
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
||||||
|
WHENEVER SQLERROR EXIT;
|
||||||
|
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
|
||||||
|
WHENEVER SQLERROR CONTINUE;
|
||||||
|
SPOOL &fcltlogfile
|
||||||
|
SET DEFINE OFF
|
||||||
|
|
||||||
|
------ payload begin ------
|
||||||
|
|
||||||
|
CREATE OR REPLACE PROCEDURE twyn_import_projectcsv (p_import_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
c_delim VARCHAR2 (1) := ';';
|
||||||
|
v_newline fac_imp_file.fac_imp_file_line%TYPE; -- Input line
|
||||||
|
v_searchline fac_imp_file.fac_imp_file_line%TYPE; -- Input line voor zoeken op kolomnummer
|
||||||
|
v_errormsg VARCHAR2 (1000);
|
||||||
|
v_errorhint VARCHAR2 (1000);
|
||||||
|
oracle_err_num NUMBER;
|
||||||
|
oracle_err_mes VARCHAR2 (200);
|
||||||
|
v_aanduiding VARCHAR2 (200);
|
||||||
|
header_is_valid NUMBER (1) := 0;
|
||||||
|
v_ongeldig NUMBER (1) := 0;
|
||||||
|
v_imp_count NUMBER (5) := 0;
|
||||||
|
|
||||||
|
-- Importvelden staan in de procedures.
|
||||||
|
-- Overige velden:
|
||||||
|
-- Keys
|
||||||
|
k_project_code VARCHAR2(20) := NULL;
|
||||||
|
k_subproject_code VARCHAR2(20) := NULL;
|
||||||
|
k_rubriek_code VARCHAR2(20) := NULL;
|
||||||
|
k_groep_code VARCHAR2(60) := NULL;
|
||||||
|
k_soort_code VARCHAR2(5) := NULL;
|
||||||
|
|
||||||
|
CURSOR c1
|
||||||
|
IS
|
||||||
|
SELECT fac_imp_file_line
|
||||||
|
, LENGTH (TRIM (REPLACE (fac_imp_file_line, c_delim, ''))) regellengte
|
||||||
|
FROM FAC_IMP_FILE
|
||||||
|
WHERE fac_import_key = p_import_key
|
||||||
|
ORDER BY fac_imp_file_index;
|
||||||
|
|
||||||
|
FUNCTION isNumeric(p_number IN VARCHAR2) RETURN NUMBER IS
|
||||||
|
v_number NUMBER := 0;
|
||||||
|
BEGIN
|
||||||
|
IF (LENGTH(TRIM(TRANSLATE(p_number, ' +-.0123456789', ' '))) IS NULL) THEN
|
||||||
|
v_number := 1;
|
||||||
|
END IF;
|
||||||
|
RETURN v_number;
|
||||||
|
END; --isNumeric
|
||||||
|
|
||||||
|
PROCEDURE imp_header( p_line IN OUT VARCHAR2
|
||||||
|
, p_valid OUT NUMBER)
|
||||||
|
IS
|
||||||
|
v_rubriek_code VARCHAR2 (256); --001 RUBRIEK_CODE
|
||||||
|
v_rubriek_omschr VARCHAR2 (256); --002 RUBRIEK_OMSCHRIJVING
|
||||||
|
v_groep_code VARCHAR2 (256); --003 GROEP_CODE
|
||||||
|
v_groep_omschr VARCHAR2 (256); --004 GROEP_OMSCHRIJVING
|
||||||
|
v_soort_code VARCHAR2 (256); --005 SOORT_CODE
|
||||||
|
v_soort_omschr VARCHAR2 (256); --006 SOORT_OMSCHRIJVING
|
||||||
|
v_soort_btw_perc VARCHAR2 (256); --007 BTW_PERCENTAGE
|
||||||
|
v_soort_btw_oms VARCHAR2 (256); --008 BTW_OMSCHRIJVING
|
||||||
|
s_valid_header NUMBER(1);
|
||||||
|
BEGIN
|
||||||
|
s_valid_header := 0;
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_rubriek_code);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_rubriek_omschr);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_groep_code);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_groep_omschr);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_code);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_omschr);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_btw_perc);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_btw_oms);
|
||||||
|
--
|
||||||
|
v_rubriek_code := TRIM(UPPER(v_rubriek_code));
|
||||||
|
v_rubriek_omschr := TRIM(UPPER(v_rubriek_omschr));
|
||||||
|
v_groep_code := TRIM(UPPER(v_groep_code));
|
||||||
|
v_groep_omschr := TRIM(UPPER(v_groep_omschr));
|
||||||
|
v_soort_code := TRIM(UPPER(v_soort_code));
|
||||||
|
v_soort_omschr := TRIM(UPPER(v_soort_omschr));
|
||||||
|
v_soort_btw_perc := TRIM(UPPER(v_soort_btw_perc));
|
||||||
|
v_soort_btw_oms := TRIM(UPPER(v_soort_btw_oms));
|
||||||
|
--
|
||||||
|
IF ( v_rubriek_code = 'RUBRIEK_CODE'
|
||||||
|
AND v_rubriek_omschr = 'RUBRIEK_OMSCHRIJVING'
|
||||||
|
AND v_groep_code = 'GROEP_CODE'
|
||||||
|
AND v_groep_omschr = 'GROEP_OMSCHRIJVING'
|
||||||
|
AND v_soort_code = 'SOORT_CODE'
|
||||||
|
AND v_soort_omschr = 'SOORT_OMSCHRIJVING'
|
||||||
|
AND v_soort_btw_perc = 'BTW_PERCENTAGE'
|
||||||
|
AND v_soort_btw_oms = 'BTW_OMSCHRIJVING'
|
||||||
|
)
|
||||||
|
THEN
|
||||||
|
s_valid_header := 1;
|
||||||
|
END IF;
|
||||||
|
p_valid := s_valid_header;
|
||||||
|
END; --imp_header
|
||||||
|
|
||||||
|
PROCEDURE imp_rubriek( p_line IN OUT VARCHAR2
|
||||||
|
, p_rubriek_code OUT VARCHAR2)
|
||||||
|
IS
|
||||||
|
v_rubriek_code VARCHAR2 (256); --001 RUBRIEK_CODE
|
||||||
|
v_rubriek_omschr VARCHAR2 (256); --002 RUBRIEK_OMSCHRIJVING
|
||||||
|
s_project_nummer VARCHAR2 (256); --:projectnummer (discipline)
|
||||||
|
s_subproject_code VARCHAR2 (256); --:deelprojectnummer (project)
|
||||||
|
v_count_rubriek NUMBER (3);
|
||||||
|
BEGIN
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_rubriek_code);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_rubriek_omschr);
|
||||||
|
--
|
||||||
|
p_rubriek_code := NULL;
|
||||||
|
v_rubriek_code := TRIM(v_rubriek_code);
|
||||||
|
IF (v_rubriek_code IS NOT NULL) THEN
|
||||||
|
s_project_nummer := '0';
|
||||||
|
s_subproject_code := '0';
|
||||||
|
--
|
||||||
|
SELECT COUNT(*)
|
||||||
|
INTO v_count_rubriek
|
||||||
|
FROM twyn_imp_kostenrubriek
|
||||||
|
WHERE bgt_project_code = s_subproject_code
|
||||||
|
AND bgt_kostenrubriek_code = v_rubriek_code;
|
||||||
|
--
|
||||||
|
IF (v_count_rubriek = 0) THEN
|
||||||
|
INSERT INTO twyn_imp_kostenrubriek
|
||||||
|
( bgt_project_discipline
|
||||||
|
, bgt_project_code
|
||||||
|
, bgt_kostenrubriek_code
|
||||||
|
, bgt_kostenrubriek_oms
|
||||||
|
)
|
||||||
|
VALUES
|
||||||
|
( s_project_nummer
|
||||||
|
, s_subproject_code
|
||||||
|
, v_rubriek_code
|
||||||
|
, TRIM(v_rubriek_omschr)
|
||||||
|
);
|
||||||
|
p_rubriek_code := v_rubriek_code;
|
||||||
|
END IF;
|
||||||
|
END IF;
|
||||||
|
END; --imp_rubriek
|
||||||
|
|
||||||
|
PROCEDURE imp_groep( p_line IN OUT VARCHAR2
|
||||||
|
, p_groep_code OUT VARCHAR2)
|
||||||
|
IS
|
||||||
|
v_groep_code VARCHAR2 (256); --003 GROEP_CODE
|
||||||
|
v_groep_omschr VARCHAR2 (256); --004 GROEP_OMSCHRIJVING
|
||||||
|
s_project_nummer VARCHAR2 (256); --:projectnummer (discipline)
|
||||||
|
s_subproject_code VARCHAR2 (256); --:deelprojectnummer (project)
|
||||||
|
s_rubriek_code VARCHAR2 (256); --001 RUBRIEK_CODE
|
||||||
|
v_count_groep NUMBER (3);
|
||||||
|
BEGIN
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_groep_code);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_groep_omschr);
|
||||||
|
--
|
||||||
|
p_groep_code := NULL;
|
||||||
|
v_groep_code := TRIM(v_groep_code);
|
||||||
|
IF (v_groep_code IS NOT NULL) THEN
|
||||||
|
s_project_nummer := '0';
|
||||||
|
s_subproject_code := '0';
|
||||||
|
fac.imp_getfield_nr(v_searchline, c_delim, 1, s_rubriek_code);
|
||||||
|
--
|
||||||
|
SELECT COUNT(*)
|
||||||
|
INTO v_count_groep
|
||||||
|
FROM twyn_imp_kostensoortgrp
|
||||||
|
WHERE bgt_project_code = s_subproject_code
|
||||||
|
AND bgt_kostenrubriek_code = TRIM(s_rubriek_code)
|
||||||
|
AND prs_kostensoortgrp_altcode = v_groep_code;
|
||||||
|
--
|
||||||
|
IF (v_count_groep = 0) THEN
|
||||||
|
INSERT INTO twyn_imp_kostensoortgrp
|
||||||
|
( bgt_project_discipline
|
||||||
|
, bgt_project_code
|
||||||
|
, bgt_kostenrubriek_code
|
||||||
|
, prs_kostensoortgrp_altcode
|
||||||
|
, prs_kostensoortgrp_oms
|
||||||
|
)
|
||||||
|
VALUES
|
||||||
|
( s_project_nummer
|
||||||
|
, s_subproject_code
|
||||||
|
, TRIM(s_rubriek_code)
|
||||||
|
, v_groep_code
|
||||||
|
, TRIM(v_groep_omschr)
|
||||||
|
);
|
||||||
|
p_groep_code := v_groep_code;
|
||||||
|
END IF;
|
||||||
|
END IF;
|
||||||
|
END; -- imp_groep
|
||||||
|
|
||||||
|
PROCEDURE imp_soort( p_line IN OUT VARCHAR2
|
||||||
|
, p_soort_code OUT VARCHAR2)
|
||||||
|
IS
|
||||||
|
v_soort_code VARCHAR2 (256); --005 SOORT_CODE
|
||||||
|
v_soort_omschr VARCHAR2 (256); --006 SOORT_OMSCHRIJVING
|
||||||
|
v_soort_perc VARCHAR2 (256); --007 BTW_PERCENTAGE
|
||||||
|
v_soort_perc_oms VARCHAR2 (256); --008 BTW_OMSCHRIJVING
|
||||||
|
s_project_nummer VARCHAR2 (256); --:projectnummer (discipline)
|
||||||
|
s_subproject_code VARCHAR2 (256); --:code subproject (project)
|
||||||
|
s_rubriek_code VARCHAR2 (256); --001 RUBRIEK_CODE
|
||||||
|
s_groep_code VARCHAR2 (256); --003 GROEP_CODE
|
||||||
|
v_count_soort NUMBER (3);
|
||||||
|
BEGIN
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_code);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_omschr);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_perc);
|
||||||
|
fac.imp_getfield (p_line, c_delim, v_soort_perc_oms);
|
||||||
|
--
|
||||||
|
p_soort_code := NULL;
|
||||||
|
v_soort_code := TRIM(v_soort_code);
|
||||||
|
IF (v_soort_code IS NOT NULL) THEN
|
||||||
|
s_project_nummer := '0';
|
||||||
|
s_subproject_code := '0';
|
||||||
|
fac.imp_getfield_nr(v_searchline, c_delim, 1, s_rubriek_code);
|
||||||
|
fac.imp_getfield_nr(v_searchline, c_delim, 3, s_groep_code);
|
||||||
|
--
|
||||||
|
SELECT COUNT(*)
|
||||||
|
INTO v_count_soort
|
||||||
|
FROM twyn_imp_kostensoort
|
||||||
|
WHERE bgt_project_code = s_subproject_code
|
||||||
|
AND bgt_kostenrubriek_code = TRIM(s_rubriek_code)
|
||||||
|
AND prs_kostensoortgrp_altcode = TRIM(s_groep_code)
|
||||||
|
AND prs_kostensoort_oms = v_soort_code;
|
||||||
|
--
|
||||||
|
IF (v_count_soort = 0) THEN
|
||||||
|
INSERT INTO twyn_imp_kostensoort
|
||||||
|
( bgt_project_discipline
|
||||||
|
, bgt_project_code
|
||||||
|
, bgt_kostenrubriek_code
|
||||||
|
, prs_kostensoortgrp_altcode
|
||||||
|
, prs_kostensoort_oms
|
||||||
|
, prs_kostensoort_opmerking
|
||||||
|
, bgt_btw_code
|
||||||
|
, bgt_btw_waarde
|
||||||
|
)
|
||||||
|
VALUES
|
||||||
|
( s_project_nummer
|
||||||
|
, s_subproject_code
|
||||||
|
, TRIM(s_rubriek_code)
|
||||||
|
, TRIM(s_groep_code)
|
||||||
|
, v_soort_code
|
||||||
|
, TRIM(v_soort_omschr)
|
||||||
|
, TRIM(v_soort_perc_oms)
|
||||||
|
, fac.safe_To_Integer(v_soort_perc)
|
||||||
|
);
|
||||||
|
END IF;
|
||||||
|
p_soort_code := v_soort_code;
|
||||||
|
END IF;
|
||||||
|
END; --imp_soort
|
||||||
|
|
||||||
|
BEGIN
|
||||||
|
-- Eerst opruiming
|
||||||
|
DELETE FROM twyn_imp_kostenrubriek;
|
||||||
|
DELETE FROM twyn_imp_kostensoortgrp;
|
||||||
|
DELETE FROM twyn_imp_kostensoort;
|
||||||
|
--
|
||||||
|
FOR rec IN c1
|
||||||
|
LOOP
|
||||||
|
BEGIN
|
||||||
|
v_aanduiding := NULL;
|
||||||
|
v_errorhint := 'Fout inlezen importregel';
|
||||||
|
v_newline := rec.fac_imp_file_line;
|
||||||
|
v_ongeldig := 0;
|
||||||
|
v_imp_count := v_imp_count + 1;
|
||||||
|
|
||||||
|
IF (header_is_valid = 0)
|
||||||
|
THEN
|
||||||
|
-- Controleren of het een geldige header is.
|
||||||
|
-- Ge hiermee door totdat er een geldige header gevonden is, of het einde van het bestand bereikt is.
|
||||||
|
v_searchline := v_newline;
|
||||||
|
imp_header(v_newline, header_is_valid);
|
||||||
|
ELSIF rec.regellengte > 1 -- Lege regels overslaan!
|
||||||
|
THEN
|
||||||
|
-- Lees alle veldwaarden
|
||||||
|
v_searchline := v_newline; -- bewaar de oorspronkelijke regel om in te kunnen zoeken.
|
||||||
|
--
|
||||||
|
v_aanduiding := 'RUBRIEK';
|
||||||
|
imp_rubriek(v_newline, k_rubriek_code);
|
||||||
|
--
|
||||||
|
v_aanduiding := 'GROEP';
|
||||||
|
imp_groep(v_newline, k_groep_code);
|
||||||
|
--
|
||||||
|
v_aanduiding := 'SOORT';
|
||||||
|
imp_soort(v_newline, k_soort_code);
|
||||||
|
END IF;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS
|
||||||
|
THEN
|
||||||
|
oracle_err_num := SQLCODE;
|
||||||
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||||
|
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ' r.'|| v_imp_count || ')';
|
||||||
|
fac.imp_writelog (p_import_key,
|
||||||
|
'W',
|
||||||
|
v_aanduiding || v_errormsg,
|
||||||
|
v_errorhint);
|
||||||
|
END;
|
||||||
|
END LOOP;
|
||||||
|
--
|
||||||
|
IF (header_is_valid = 0) THEN
|
||||||
|
fac.imp_writelog (p_import_key,
|
||||||
|
'E',
|
||||||
|
'Importbestand {0} bevat geen geldige header',
|
||||||
|
'Inlezen default projectinrichting niet gelukt!');
|
||||||
|
END IF;
|
||||||
|
--
|
||||||
|
COMMIT;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS
|
||||||
|
THEN
|
||||||
|
oracle_err_num := SQLCODE;
|
||||||
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||||
|
v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ' r.'|| v_imp_count || ')';
|
||||||
|
fac.imp_writelog (p_import_key,
|
||||||
|
'E',
|
||||||
|
v_aanduiding || v_errormsg,
|
||||||
|
'Inlezen default projectinrichting afgebroken!');
|
||||||
|
END;
|
||||||
|
/
|
||||||
|
|
||||||
|
CREATE OR REPLACE PROCEDURE twyn_update_projectcsv ( p_import_key IN NUMBER
|
||||||
|
, p_project_key IN NUMBER)
|
||||||
|
IS
|
||||||
|
g_errormsg VARCHAR2 (1000);
|
||||||
|
g_errorhint VARCHAR2 (1000);
|
||||||
|
oracle_err_num NUMBER;
|
||||||
|
oracle_err_mes VARCHAR2 (200);
|
||||||
|
g_aanduiding VARCHAR2 (200);
|
||||||
|
|
||||||
|
FUNCTION get_btw_key( p_code IN VARCHAR2
|
||||||
|
, p_perc IN NUMBER
|
||||||
|
) RETURN NUMBER
|
||||||
|
IS
|
||||||
|
a_btw_key fin_btwtabelwaarde.fin_btwtabelwaarde_key%TYPE;
|
||||||
|
BEGIN
|
||||||
|
BEGIN
|
||||||
|
SELECT fin_btwtabelwaarde_key
|
||||||
|
INTO a_btw_key
|
||||||
|
FROM fin_btwtabelwaarde
|
||||||
|
WHERE fin_btwtabelwaarde_perc = p_perc;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND THEN
|
||||||
|
INSERT INTO fin_btwtabelwaarde
|
||||||
|
( fin_btwtabelwaarde_code
|
||||||
|
, fin_btwtabelwaarde_oms
|
||||||
|
, fin_btwtabelwaarde_perc
|
||||||
|
, fin_btwtabel_key
|
||||||
|
)
|
||||||
|
VALUES
|
||||||
|
( SUBSTR(p_code,1,1) || TO_CHAR(p_perc)
|
||||||
|
, p_code
|
||||||
|
, p_perc
|
||||||
|
, (SELECT MAX(fin_btwtabel_key) FROM fin_btwtabel)
|
||||||
|
)
|
||||||
|
RETURNING fin_btwtabelwaarde_key INTO a_btw_key;
|
||||||
|
END;
|
||||||
|
RETURN a_btw_key;
|
||||||
|
END; -- get_btw_key
|
||||||
|
|
||||||
|
PROCEDURE update_rubriek( p_import_key IN NUMBER
|
||||||
|
, p_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c_rubriek
|
||||||
|
IS
|
||||||
|
SELECT bgt_project_discipline
|
||||||
|
, bgt_project_code
|
||||||
|
, bgt_kostenrubriek_code
|
||||||
|
, bgt_kostenrubriek_oms
|
||||||
|
FROM twyn_imp_kostenrubriek
|
||||||
|
ORDER BY bgt_kostenrubriek_code;
|
||||||
|
|
||||||
|
l_count_i NUMBER(3) := 0;
|
||||||
|
l_rubriek_key NUMBER(10);
|
||||||
|
BEGIN
|
||||||
|
g_errormsg := NULL;
|
||||||
|
FOR l_rec IN c_rubriek
|
||||||
|
LOOP
|
||||||
|
g_errormsg := 'Fout bij toevoegen rubriek ' || l_rec.bgt_kostenrubriek_code;
|
||||||
|
BEGIN
|
||||||
|
SELECT r.bgt_kostenrubriek_key
|
||||||
|
INTO l_rubriek_key
|
||||||
|
FROM bgt_kostenrubriek r
|
||||||
|
WHERE r.bgt_kostenrubriek_code = l_rec.bgt_kostenrubriek_code
|
||||||
|
AND r.bgt_project_key = p_project_key;
|
||||||
|
--
|
||||||
|
fac.imp_writelog ( p_import_key
|
||||||
|
, 'W'
|
||||||
|
, 'Rubriek [' || l_rec.bgt_kostenrubriek_code || '] bestaat al'
|
||||||
|
, NULL
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND THEN
|
||||||
|
g_errorhint := 'Toevoegen rubriek';
|
||||||
|
INSERT INTO bgt_kostenrubriek
|
||||||
|
( bgt_project_key
|
||||||
|
, bgt_kostenrubriek_code
|
||||||
|
, bgt_kostenrubriek_oms
|
||||||
|
)
|
||||||
|
VALUES
|
||||||
|
( p_project_key
|
||||||
|
, l_rec.bgt_kostenrubriek_code
|
||||||
|
, l_rec.bgt_kostenrubriek_oms
|
||||||
|
)
|
||||||
|
RETURNING bgt_kostenrubriek_key INTO l_rubriek_key;
|
||||||
|
--
|
||||||
|
fac.imp_writelog ( p_import_key
|
||||||
|
, 'I'
|
||||||
|
, 'Rubriek [' || l_rec.bgt_kostenrubriek_code || '] toegevoegd'
|
||||||
|
, NULL
|
||||||
|
);
|
||||||
|
l_count_i:= l_count_i + 1;
|
||||||
|
END;
|
||||||
|
END LOOP;
|
||||||
|
fac.imp_writelog ( p_import_key, 'S', 'Rubriek: aantal regels toegevoegd: ' || TO_CHAR(l_count_i), NULL);
|
||||||
|
COMMIT;
|
||||||
|
END; -- update_rubriek
|
||||||
|
|
||||||
|
PROCEDURE update_groep( p_import_key IN NUMBER
|
||||||
|
, p_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c_groep
|
||||||
|
IS
|
||||||
|
SELECT bgt_project_discipline
|
||||||
|
, bgt_project_code
|
||||||
|
, bgt_kostenrubriek_code
|
||||||
|
, prs_kostensoortgrp_altcode
|
||||||
|
, prs_kostensoortgrp_oms
|
||||||
|
FROM twyn_imp_kostensoortgrp
|
||||||
|
ORDER BY prs_kostensoortgrp_altcode;
|
||||||
|
l_rubriek_key bgt_kostenrubriek.bgt_kostenrubriek_key%TYPE;
|
||||||
|
l_groep_key prs_kostensoortgrp.prs_kostensoortgrp_key%TYPE;
|
||||||
|
l_rubriek_code bgt_kostenrubriek.bgt_kostenrubriek_code%TYPE;
|
||||||
|
l_groep_code prs_kostensoortgrp.prs_kostensoortgrp_altcode%TYPE;
|
||||||
|
l_count NUMBER(3) := 0;
|
||||||
|
BEGIN
|
||||||
|
g_errormsg := NULL;
|
||||||
|
FOR l_rec IN c_groep
|
||||||
|
LOOP
|
||||||
|
BEGIN
|
||||||
|
l_rubriek_code := l_rec.bgt_kostenrubriek_code;
|
||||||
|
g_errormsg := 'Fout bij opvragen rubriek ' || l_rubriek_code;
|
||||||
|
SELECT bgt_kostenrubriek_key
|
||||||
|
INTO l_rubriek_key
|
||||||
|
FROM bgt_kostenrubriek r
|
||||||
|
WHERE r.bgt_kostenrubriek_code = l_rubriek_code
|
||||||
|
AND r.bgt_project_key = p_project_key;
|
||||||
|
--
|
||||||
|
l_groep_code := l_rec.prs_kostensoortgrp_altcode;
|
||||||
|
g_errormsg := 'Fout bij toevoegen groep ' || l_groep_code;
|
||||||
|
BEGIN
|
||||||
|
SELECT prs_kostensoortgrp_key
|
||||||
|
INTO l_groep_key
|
||||||
|
FROM prs_kostensoortgrp
|
||||||
|
WHERE bgt_kostenrubriek_key = l_rubriek_key
|
||||||
|
AND prs_kostensoortgrp_altcode = l_groep_code;
|
||||||
|
--
|
||||||
|
fac.imp_writelog ( p_import_key
|
||||||
|
, 'W'
|
||||||
|
, 'Groep [' || l_groep_code || '] bestaat al'
|
||||||
|
, NULL
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND THEN
|
||||||
|
g_errorhint := 'Toevoegen groep';
|
||||||
|
INSERT INTO prs_kostensoortgrp
|
||||||
|
( prs_kostensoortgrp_oms
|
||||||
|
, prs_kostensoortgrp_altcode
|
||||||
|
, bgt_kostenrubriek_key
|
||||||
|
)
|
||||||
|
VALUES
|
||||||
|
( l_rec.prs_kostensoortgrp_oms
|
||||||
|
, l_groep_code
|
||||||
|
, l_rubriek_key
|
||||||
|
)
|
||||||
|
RETURNING prs_kostensoortgrp_key INTO l_groep_key;
|
||||||
|
--
|
||||||
|
fac.imp_writelog ( p_import_key
|
||||||
|
, 'I'
|
||||||
|
, 'Groep [' || l_groep_code || ': ' || l_rec.prs_kostensoortgrp_oms || '] toegevoegd'
|
||||||
|
, NULL
|
||||||
|
);
|
||||||
|
l_count := l_count + 1;
|
||||||
|
END;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND THEN
|
||||||
|
fac.imp_writelog ( p_import_key, 'W', 'Onbekende rubriek [' || l_rec.bgt_kostenrubriek_code || ']', NULL);
|
||||||
|
END;
|
||||||
|
END LOOP;
|
||||||
|
fac.imp_writelog ( p_import_key, 'S', 'Groep: aantal regels toegevoegd: ' || TO_CHAR(l_count), NULL);
|
||||||
|
COMMIT;
|
||||||
|
END; --update_groep
|
||||||
|
|
||||||
|
PROCEDURE update_soort( p_import_key IN NUMBER
|
||||||
|
, p_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c_soort
|
||||||
|
IS
|
||||||
|
SELECT bgt_project_discipline
|
||||||
|
, bgt_project_code
|
||||||
|
, bgt_kostenrubriek_code
|
||||||
|
, prs_kostensoortgrp_altcode
|
||||||
|
, prs_kostensoort_oms
|
||||||
|
, prs_kostensoort_opmerking
|
||||||
|
, bgt_btw_code
|
||||||
|
, bgt_btw_waarde
|
||||||
|
FROM twyn_imp_kostensoort
|
||||||
|
ORDER BY prs_kostensoort_oms;
|
||||||
|
l_groep_key prs_kostensoortgrp.prs_kostensoortgrp_key%TYPE;
|
||||||
|
l_soort_key prs_kostensoort.prs_kostensoort_key%TYPE;
|
||||||
|
l_groep_code prs_kostensoortgrp.prs_kostensoortgrp_altcode%TYPE;
|
||||||
|
l_soort_code prs_kostensoort.prs_kostensoort_oms%TYPE;
|
||||||
|
l_btw_key fin_btwtabelwaarde.fin_btwtabelwaarde_key%TYPE;
|
||||||
|
l_count NUMBER(3) := 0;
|
||||||
|
BEGIN
|
||||||
|
g_errormsg := NULL;
|
||||||
|
FOR l_rec IN c_soort
|
||||||
|
LOOP
|
||||||
|
BEGIN
|
||||||
|
l_groep_code := l_rec.prs_kostensoortgrp_altcode;
|
||||||
|
g_errormsg := 'Fout bij opvragen groep ' || l_groep_code;
|
||||||
|
SELECT prs_kostensoortgrp_key
|
||||||
|
INTO l_groep_key
|
||||||
|
FROM bgt_kostenrubriek r
|
||||||
|
, prs_kostensoortgrp g
|
||||||
|
WHERE r.bgt_kostenrubriek_key = g.bgt_kostenrubriek_key
|
||||||
|
AND r.bgt_kostenrubriek_code = l_rec.bgt_kostenrubriek_code
|
||||||
|
AND g.prs_kostensoortgrp_altcode = l_groep_code
|
||||||
|
AND r.bgt_project_key = p_project_key;
|
||||||
|
--
|
||||||
|
l_soort_code := l_rec.prs_kostensoort_oms;
|
||||||
|
g_errormsg := 'Fout bij toevoegen soort ' || l_soort_code;
|
||||||
|
BEGIN
|
||||||
|
SELECT prs_kostensoort_key
|
||||||
|
INTO l_soort_key
|
||||||
|
FROM prs_kostensoort
|
||||||
|
WHERE prs_kostensoortgrp_key = l_groep_key
|
||||||
|
AND prs_kostensoort_altcode = l_soort_code;
|
||||||
|
--
|
||||||
|
fac.imp_writelog ( p_import_key
|
||||||
|
, 'W'
|
||||||
|
, 'Soort [' || l_soort_code || '] bestaat al'
|
||||||
|
, NULL
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND THEN
|
||||||
|
g_errorhint := 'Toevoegen soort';
|
||||||
|
l_btw_key := get_btw_key(l_rec.bgt_btw_code, l_rec.bgt_btw_waarde);
|
||||||
|
INSERT INTO prs_kostensoort
|
||||||
|
( prs_kostensoort_oms
|
||||||
|
, prs_kostensoort_altcode
|
||||||
|
, prs_kostensoort_opmerking
|
||||||
|
, prs_kostensoortgrp_key
|
||||||
|
, fin_btwtabelwaarde_key
|
||||||
|
)
|
||||||
|
VALUES
|
||||||
|
( l_rec.prs_kostensoort_opmerking
|
||||||
|
, l_soort_code
|
||||||
|
, l_soort_code
|
||||||
|
, l_groep_key
|
||||||
|
, l_btw_key
|
||||||
|
)
|
||||||
|
RETURNING prs_kostensoort_key INTO l_soort_key;
|
||||||
|
--
|
||||||
|
fac.imp_writelog ( p_import_key
|
||||||
|
, 'I'
|
||||||
|
, 'Soort [' || l_soort_code || ': ' || l_rec.prs_kostensoort_opmerking || '] toegevoegd'
|
||||||
|
, NULL
|
||||||
|
);
|
||||||
|
l_count := l_count + 1;
|
||||||
|
END;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND THEN
|
||||||
|
fac.imp_writelog ( p_import_key, 'W', 'Onbekende groep [' || l_groep_code || ']', NULL);
|
||||||
|
END;
|
||||||
|
END LOOP;
|
||||||
|
fac.imp_writelog ( p_import_key, 'S', 'Soort: aantal regels toegevoegd: ' || TO_CHAR(l_count), NULL);
|
||||||
|
COMMIT;
|
||||||
|
END; --update_soort
|
||||||
|
|
||||||
|
BEGIN
|
||||||
|
update_rubriek(p_import_key, p_project_key);
|
||||||
|
update_groep(p_import_key, p_project_key);
|
||||||
|
update_soort(p_import_key, p_project_key);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS
|
||||||
|
THEN
|
||||||
|
oracle_err_num := SQLCODE;
|
||||||
|
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
|
||||||
|
g_errormsg :=
|
||||||
|
g_errormsg
|
||||||
|
|| ' ORACLE (error '
|
||||||
|
|| oracle_err_num
|
||||||
|
|| '/'
|
||||||
|
|| oracle_err_mes
|
||||||
|
|| ')';
|
||||||
|
fac.imp_writelog (p_import_key,
|
||||||
|
'E',
|
||||||
|
g_aanduiding || g_errormsg,
|
||||||
|
'Verwerken default projectinrichting {0} afgebroken!');
|
||||||
|
COMMIT;
|
||||||
|
END;
|
||||||
|
/
|
||||||
|
|
||||||
|
------ payload end ------
|
||||||
|
|
||||||
|
SET DEFINE OFF
|
||||||
|
BEGIN adm.systrackscriptId ('$Id$', 0); END;
|
||||||
|
/
|
||||||
|
|
||||||
|
COMMIT;
|
||||||
|
SET ECHO OFF
|
||||||
|
SPOOL OFF
|
||||||
|
SET DEFINE ON
|
||||||
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|
||||||
563
TWYN/twyn_pac.sql
Normal file
563
TWYN/twyn_pac.sql
Normal file
@@ -0,0 +1,563 @@
|
|||||||
|
--
|
||||||
|
-- $Id$
|
||||||
|
--
|
||||||
|
-- Script containing customer specific sql statements for the FACILITOR database
|
||||||
|
|
||||||
|
DEFINE thisfile = 'TWYN_PAC.SQL'
|
||||||
|
DEFINE dbuser = '^TWYN'
|
||||||
|
DEFINE custid = 'TWYN'
|
||||||
|
|
||||||
|
SET ECHO ON
|
||||||
|
SET DEFINE ON
|
||||||
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
||||||
|
WHENEVER SQLERROR EXIT;
|
||||||
|
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
|
||||||
|
WHENEVER SQLERROR CONTINUE;
|
||||||
|
SPOOL &fcltlogfile
|
||||||
|
SET DEFINE OFF
|
||||||
|
|
||||||
|
------ payload begin ------
|
||||||
|
|
||||||
|
--
|
||||||
|
-- Eigen logfile voor BGT
|
||||||
|
--
|
||||||
|
CREATE OR REPLACE PROCEDURE twyn_log ( p_actie IN VARCHAR2
|
||||||
|
, p_level IN VARCHAR2
|
||||||
|
, p_msg IN VARCHAR2
|
||||||
|
, p_disc_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_prj_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_rub_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_grp_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_srt_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_bgt_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_mut_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_opdr_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_fact_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_bedr_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_kpls_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_kgrp_key IN NUMBER DEFAULT NULL
|
||||||
|
)
|
||||||
|
AS
|
||||||
|
v_volgnr NUMBER(10);
|
||||||
|
BEGIN
|
||||||
|
SELECT COALESCE(MAX(volgnr), 0) + 1
|
||||||
|
INTO v_volgnr
|
||||||
|
FROM twyn_bgtlog;
|
||||||
|
--
|
||||||
|
INSERT INTO twyn_bgtlog VALUES
|
||||||
|
( v_volgnr
|
||||||
|
, p_actie
|
||||||
|
, p_level
|
||||||
|
, SYSDATE
|
||||||
|
, p_msg
|
||||||
|
, p_disc_key, p_prj_key, p_rub_key, p_grp_key, p_srt_key
|
||||||
|
, p_bgt_key, p_mut_key
|
||||||
|
, p_opdr_key, p_fact_key, p_bedr_key
|
||||||
|
, p_kpls_key, p_kgrp_key
|
||||||
|
);
|
||||||
|
-- COMMIT;
|
||||||
|
END twyn_log;
|
||||||
|
/
|
||||||
|
|
||||||
|
--
|
||||||
|
--
|
||||||
|
--
|
||||||
|
CREATE OR REPLACE PROCEDURE twyn_delete_deelproject ( p_deelproject_key IN NUMBER
|
||||||
|
, p_alleen_fin IN BOOLEAN DEFAULT FALSE
|
||||||
|
)
|
||||||
|
AS
|
||||||
|
-- Verwijder het deelproject met bgt_project_key = n.
|
||||||
|
-- Met parameter p_alleen_fin worden alleen de budget- en contractgegevens verwijderd.
|
||||||
|
-- Default is het hele deelproject verwijderen, dus ook koststenplaatsen, kosten- rubriek, soortgrp en soort.
|
||||||
|
v_delete_str VARCHAR2 (100) := 'DELETE prj=' || TO_CHAR(p_deelproject_key);
|
||||||
|
v_err_count NUMBER;
|
||||||
|
|
||||||
|
|
||||||
|
PROCEDURE log_info( p_code IN VARCHAR2 DEFAULT NULL
|
||||||
|
, p_msg IN VARCHAR2 DEFAULT NULL
|
||||||
|
, p_prj_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_rub_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_grp_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_srt_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_bgt_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_mut_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_opdr_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_fact_key IN NUMBER DEFAULT NULL
|
||||||
|
, p_bedr_key IN NUMBER DEFAULT NULL
|
||||||
|
)
|
||||||
|
AS
|
||||||
|
v_ora_err_num NUMBER;
|
||||||
|
v_ora_err_msg VARCHAR2(200);
|
||||||
|
v_err_msg VARCHAR2(1000);
|
||||||
|
v_msg VARCHAR2(2000);
|
||||||
|
BEGIN
|
||||||
|
IF (p_code IN ('W', 'E')) THEN
|
||||||
|
v_ora_err_num := SQLCODE;
|
||||||
|
v_ora_err_msg := SUBSTR (SQLERRM, 1, 200);
|
||||||
|
v_msg := 'ORACLE (error ' || v_ora_err_num || '/' || v_ora_err_msg || ')';
|
||||||
|
IF (p_msg IS NOT NULL) THEN
|
||||||
|
v_msg := v_msg || ': ' || p_msg;
|
||||||
|
END IF;
|
||||||
|
ELSE
|
||||||
|
v_msg := p_msg;
|
||||||
|
END IF;
|
||||||
|
twyn_log (v_delete_str, p_code, v_msg, NULL, p_prj_key, p_rub_key, p_grp_key, p_srt_key, p_bgt_key, p_mut_key, p_opdr_key, p_fact_key, p_bedr_key);
|
||||||
|
END;
|
||||||
|
|
||||||
|
|
||||||
|
PROCEDURE delete_contracten(p_bgt_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c_project_opdr
|
||||||
|
IS
|
||||||
|
SELECT s.prs_kostensoort_key
|
||||||
|
FROM bgt_project p
|
||||||
|
, bgt_kostenrubriek r
|
||||||
|
, prs_kostensoortgrp g
|
||||||
|
, prs_kostensoort s
|
||||||
|
WHERE p.bgt_project_key = r.bgt_project_key
|
||||||
|
AND r.bgt_kostenrubriek_key = g.bgt_kostenrubriek_key
|
||||||
|
AND g.prs_kostensoortgrp_key = s.prs_kostensoortgrp_key
|
||||||
|
AND p.bgt_project_key = p_bgt_project_key;
|
||||||
|
|
||||||
|
CURSOR c_opdracht(p_kostensoort_key IN NUMBER)
|
||||||
|
IS
|
||||||
|
SELECT o.mld_uitvoerende_keys
|
||||||
|
, o.mld_opdr_key
|
||||||
|
FROM mld_opdr o
|
||||||
|
WHERE o.prs_kostensoort_key = p_kostensoort_key;
|
||||||
|
|
||||||
|
iprj NUMBER;
|
||||||
|
iopd NUMBER;
|
||||||
|
ibdr NUMBER;
|
||||||
|
|
||||||
|
PROCEDURE delete_prs_bedrijf( p_project_key IN NUMBER
|
||||||
|
, p_mld_opdr_key IN NUMBER
|
||||||
|
, p_bedrijf_key IN NUMBER
|
||||||
|
)
|
||||||
|
AS
|
||||||
|
i NUMBER;
|
||||||
|
xprj NUMBER;
|
||||||
|
opdr NUMBER;
|
||||||
|
bedr NUMBER;
|
||||||
|
v_aantal_projecten NUMBER;
|
||||||
|
v_aantal_opdrachten NUMBER;
|
||||||
|
BEGIN
|
||||||
|
xprj := p_project_key;
|
||||||
|
opdr := p_mld_opdr_key;
|
||||||
|
bedr := p_bedrijf_key;
|
||||||
|
SELECT COUNT(DISTINCT p.bgt_project_key) aantal_projecten
|
||||||
|
, COUNT(o.mld_opdr_key) aantal_opdrachten
|
||||||
|
INTO v_aantal_projecten
|
||||||
|
, v_aantal_opdrachten
|
||||||
|
FROM bgt_project p
|
||||||
|
, bgt_kostenrubriek r
|
||||||
|
, prs_kostensoortgrp g
|
||||||
|
, prs_kostensoort s
|
||||||
|
, mld_opdr o
|
||||||
|
WHERE p.bgt_project_key = r.bgt_project_key
|
||||||
|
AND r.bgt_kostenrubriek_key = g.bgt_kostenrubriek_key
|
||||||
|
AND g.prs_kostensoortgrp_key = s.prs_kostensoortgrp_key
|
||||||
|
AND s.prs_kostensoort_key = o.prs_kostensoort_key
|
||||||
|
AND o.mld_uitvoerende_keys = p_bedrijf_key;
|
||||||
|
--
|
||||||
|
-- Om een bedrijf die alleen in het project gebruikt wordt te kunnen verwijderen
|
||||||
|
-- mogen er geen referenties meer bestaan.
|
||||||
|
BEGIN
|
||||||
|
--
|
||||||
|
IF (v_aantal_projecten = 1 AND v_aantal_opdrachten = 1) THEN
|
||||||
|
-- bedrijf wordt alleen in het huidige project
|
||||||
|
-- en in de huidige contract gebruikt, dus kan verwijderd worden.
|
||||||
|
DELETE
|
||||||
|
FROM prs_bedrijf
|
||||||
|
WHERE prs_bedrijf_key = p_bedrijf_key;
|
||||||
|
--
|
||||||
|
log_info('I', 'Bedrijf verwijderd'
|
||||||
|
, xprj, NULL, NULL, NULL, NULL, NULL, opdr, NULL, bedr
|
||||||
|
);
|
||||||
|
--
|
||||||
|
END IF;
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, xprj, NULL, NULL, NULL, NULL, NULL, opdr, NULL, bedr);
|
||||||
|
-- xmsg, xprj, xrub, xgrp, xsrt, xbgt, xmut, opdr, fact, bedr
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
|
||||||
|
PROCEDURE delete_fin_factuur( p_project_key IN NUMBER
|
||||||
|
, p_mld_opdr_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
i NUMBER;
|
||||||
|
xprj NUMBER;
|
||||||
|
opdr NUMBER;
|
||||||
|
BEGIN
|
||||||
|
xprj := p_project_key;
|
||||||
|
opdr := p_mld_opdr_key;
|
||||||
|
BEGIN
|
||||||
|
DELETE
|
||||||
|
FROM fin_factuur
|
||||||
|
WHERE mld_opdr_key = p_mld_opdr_key;
|
||||||
|
--
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info( 'I', 'Aantal facturen verwijderd: ' || TO_CHAR(i)
|
||||||
|
, xprj, NULL, NULL, NULL, NULL, NULL, opdr
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, xprj, NULL, NULL, NULL, NULL, NULL, opdr);
|
||||||
|
-- xmsg, xprj, xrub, xgrp, xsrt, xbgt, xmut, opdr, fact, bedr
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
|
||||||
|
PROCEDURE delete_fin_factuur_onbekend(p_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
i NUMBER;
|
||||||
|
BEGIN
|
||||||
|
-- Factuur verwijst naar een kostensoort binnen het te verwijderen project,
|
||||||
|
-- maar is niet via de mld_opdr verwijderd.
|
||||||
|
DELETE
|
||||||
|
FROM fin_factuur
|
||||||
|
WHERE prs_kostensoort_key IN
|
||||||
|
(SELECT s.prs_kostensoort_key
|
||||||
|
FROM prs_kostensoort s
|
||||||
|
, prs_kostensoortgrp g
|
||||||
|
, bgt_kostenrubriek r
|
||||||
|
WHERE s.prs_kostensoortgrp_key = g.prs_kostensoortgrp_key
|
||||||
|
AND g.bgt_kostenrubriek_key = r.bgt_kostenrubriek_key
|
||||||
|
AND r.bgt_project_key = p_project_key
|
||||||
|
);
|
||||||
|
--
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info( 'I', 'Aantal facturen alleen aan kostensoort gebonden verwijderd: ' || TO_CHAR(i)
|
||||||
|
, p_project_key
|
||||||
|
);
|
||||||
|
END;
|
||||||
|
|
||||||
|
PROCEDURE delete_mld_opdr( p_project_key IN NUMBER
|
||||||
|
, p_mld_opdr_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
xprj NUMBER;
|
||||||
|
opdr NUMBER;
|
||||||
|
BEGIN
|
||||||
|
xprj := p_project_key;
|
||||||
|
opdr := p_mld_opdr_key;
|
||||||
|
BEGIN
|
||||||
|
DELETE
|
||||||
|
FROM mld_opdr
|
||||||
|
WHERE mld_opdr_key = p_mld_opdr_key;
|
||||||
|
--
|
||||||
|
log_info('I', 'Opdracht verwijderd'
|
||||||
|
, xprj, NULL, NULL, NULL, NULL, NULL, opdr
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, xprj, NULL, NULL, NULL, NULL, NULL, opdr);
|
||||||
|
-- xmsg, xprj, xrub, xgrp, xsrt, xbgt, xmut, opdr, fact, bedr
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
|
||||||
|
BEGIN -- delete_contracten
|
||||||
|
iprj := p_bgt_project_key;
|
||||||
|
log_info('I', 'Bedrijven, facturen en contracten:');
|
||||||
|
BEGIN
|
||||||
|
FOR l_prj IN c_project_opdr
|
||||||
|
LOOP
|
||||||
|
FOR l_opdr IN c_opdracht(l_prj.prs_kostensoort_key)
|
||||||
|
LOOP
|
||||||
|
iopd := l_opdr.mld_opdr_key;
|
||||||
|
ibdr := l_opdr.mld_uitvoerende_keys;
|
||||||
|
delete_prs_bedrijf (p_bgt_project_key, l_opdr.mld_opdr_key, l_opdr.mld_uitvoerende_keys);
|
||||||
|
delete_fin_factuur (p_bgt_project_key, l_opdr.mld_opdr_key);
|
||||||
|
delete_mld_opdr (p_bgt_project_key, l_opdr.mld_opdr_key);
|
||||||
|
END LOOP;
|
||||||
|
END LOOP;
|
||||||
|
delete_fin_factuur_onbekend(p_bgt_project_key);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, iprj, NULL, NULL, NULL, NULL, NULL, iopd, NULL, ibdr);
|
||||||
|
-- xmsg, iprj, irub, igrp, isrt, ibgt, imut, iopd, ifac, ibdr
|
||||||
|
END;
|
||||||
|
END; -- delete_contracten
|
||||||
|
|
||||||
|
|
||||||
|
PROCEDURE delete_budgetten(p_bgt_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c_project_bud
|
||||||
|
IS
|
||||||
|
SELECT b.bgt_budget_key
|
||||||
|
, b.bgt_kostenrubriek_key
|
||||||
|
, b.prs_kostensoortgrp_key
|
||||||
|
, b.prs_kostensoort_key
|
||||||
|
FROM bgt_budget b
|
||||||
|
WHERE b.bgt_project_key = p_bgt_project_key;
|
||||||
|
|
||||||
|
ibgt NUMBER;
|
||||||
|
iprj NUMBER;
|
||||||
|
irub NUMBER;
|
||||||
|
igrp NUMBER;
|
||||||
|
isrt NUMBER;
|
||||||
|
v_budget_key NUMBER;
|
||||||
|
i NUMBER;
|
||||||
|
|
||||||
|
PROCEDURE delete_mutaties( p_project_key IN NUMBER
|
||||||
|
, p_budget_key IN NUMBER
|
||||||
|
)
|
||||||
|
AS
|
||||||
|
i NUMBER;
|
||||||
|
xprj NUMBER;
|
||||||
|
xbgt NUMBER;
|
||||||
|
BEGIN
|
||||||
|
xprj := p_project_key;
|
||||||
|
xbgt := p_budget_key;
|
||||||
|
BEGIN
|
||||||
|
DELETE
|
||||||
|
FROM bgt_budgetmutatie
|
||||||
|
WHERE bgt_budget_key_van = p_budget_key
|
||||||
|
OR bgt_budget_key_naar = p_budget_key;
|
||||||
|
--
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info('I', 'Aantal budgetmutaties verwijderd: ' || TO_CHAR(i)
|
||||||
|
, xprj, NULL, NULL, NULL, xbgt
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, xprj, NULL, NULL, NULL, xbgt);
|
||||||
|
-- xmsg, xprj, xrub, xgrp, xsrt, xbgt, xmut, opdr, fact, bedr
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
|
||||||
|
PROCEDURE delete_budget( p_project_key IN NUMBER
|
||||||
|
, p_budget_key IN NUMBER
|
||||||
|
)
|
||||||
|
AS
|
||||||
|
xprj NUMBER;
|
||||||
|
xbgt NUMBER;
|
||||||
|
BEGIN
|
||||||
|
xprj := p_project_key;
|
||||||
|
xbgt := p_budget_key;
|
||||||
|
BEGIN
|
||||||
|
DELETE
|
||||||
|
FROM bgt_budget
|
||||||
|
WHERE bgt_budget_key = p_budget_key;
|
||||||
|
--
|
||||||
|
log_info('I', 'Budget verwijderd'
|
||||||
|
, xprj, NULL, NULL, NULL, xbgt
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, xprj, NULL, NULL, NULL, xbgt);
|
||||||
|
-- xmsg, xprj, xrub, xgrp, xsrt, xbgt, xmut, opdr, fact, bedr
|
||||||
|
END;
|
||||||
|
END;
|
||||||
|
|
||||||
|
BEGIN -- delete_budgetten
|
||||||
|
-- Ongeldige budgetten verwijderen.
|
||||||
|
BEGIN
|
||||||
|
DELETE
|
||||||
|
FROM bgt_budgetmutatie
|
||||||
|
WHERE bgt_budget_key_van IN (SELECT bgt_budget_key FROM bgt_budget WHERE bgt_kostenrubriek_key IS NULL)
|
||||||
|
OR bgt_budget_key_naar IN (SELECT bgt_budget_key FROM bgt_budget WHERE bgt_kostenrubriek_key IS NULL);
|
||||||
|
--
|
||||||
|
DELETE
|
||||||
|
FROM bgt_budget
|
||||||
|
WHERE bgt_kostenrubriek_key IS NULL;
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info('I', 'Aantal ongeldige budgetten verwijderd: ' || TO_CHAR(i));
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', 'Ongeldige budgetten');
|
||||||
|
END;
|
||||||
|
--
|
||||||
|
log_info('I', 'Budgetmutaties en budgetten:');
|
||||||
|
FOR l_prj IN c_project_bud
|
||||||
|
LOOP
|
||||||
|
iprj := p_bgt_project_key;
|
||||||
|
irub := l_prj.bgt_kostenrubriek_key;
|
||||||
|
igrp := l_prj.prs_kostensoortgrp_key;
|
||||||
|
isrt := l_prj.prs_kostensoort_key;
|
||||||
|
ibgt := l_prj.bgt_budget_key;
|
||||||
|
BEGIN
|
||||||
|
delete_mutaties(iprj, ibgt);
|
||||||
|
delete_budget (iprj, ibgt);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, iprj, irub, igrp, isrt, ibgt);
|
||||||
|
-- xmsg, iprj, irub, igrp, isrt, ibgt, imut, iopd, ifac, ibdr
|
||||||
|
END;
|
||||||
|
END LOOP;
|
||||||
|
END; -- delete_budgetten
|
||||||
|
|
||||||
|
PROCEDURE delete_kostenplaatsen(p_bgt_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
CURSOR c_kostenplaats(p_kpgrp_key In NUMBER)
|
||||||
|
IS
|
||||||
|
SELECT prs_kostenplaats_key
|
||||||
|
FROM prs_kostenplaats
|
||||||
|
WHERE prs_kostenplaatsgrp_key = p_kpgrp_key;
|
||||||
|
|
||||||
|
iprj NUMBER;
|
||||||
|
iopd NUMBER;
|
||||||
|
ibdr NUMBER;
|
||||||
|
v_kpgrp_key NUMBER;
|
||||||
|
i NUMBER;
|
||||||
|
BEGIN -- delete_kostenplaatsen
|
||||||
|
iprj := p_bgt_project_key;
|
||||||
|
log_info('I', 'Kostenplaatsen en kostenplaatsgroep:');
|
||||||
|
-- Eerst even wat referenties verwijderen.
|
||||||
|
log_info('I', 'referenties vanuit bgt_project wissen..');
|
||||||
|
--
|
||||||
|
UPDATE bgt_project
|
||||||
|
SET prs_kostenplaats_key = NULL
|
||||||
|
WHERE bgt_project_key = p_bgt_project_key;
|
||||||
|
--
|
||||||
|
log_info('I', 'Referenties vanuit kostensoort wissen..');
|
||||||
|
--
|
||||||
|
UPDATE prs_kostensoort
|
||||||
|
SET prs_kostenplaats_key = NULL
|
||||||
|
WHERE prs_kostensoort_key IN
|
||||||
|
(SELECT s.prs_kostensoort_key
|
||||||
|
FROM prs_kostensoort s
|
||||||
|
, prs_kostensoortgrp g
|
||||||
|
, bgt_kostenrubriek r
|
||||||
|
WHERE s.prs_kostensoortgrp_key = g.prs_kostensoortgrp_key
|
||||||
|
AND g.bgt_kostenrubriek_key = r.bgt_kostenrubriek_key
|
||||||
|
AND r.bgt_project_key = p_bgt_project_key
|
||||||
|
);
|
||||||
|
--
|
||||||
|
BEGIN
|
||||||
|
SELECT g.prs_kostenplaatsgrp_key
|
||||||
|
INTO v_kpgrp_key
|
||||||
|
FROM prs_kostenplaatsgrp g
|
||||||
|
WHERE g.bgt_project_key = p_bgt_project_key;
|
||||||
|
--
|
||||||
|
-- Foutieve verwijzingen verwijderen.
|
||||||
|
-- (vanuit een ander deelproject wordt naar een kostenplaats verwezen die hier verwijderd wordt.)
|
||||||
|
log_info('I', 'Referenties vanuit ander project wissen..');
|
||||||
|
--
|
||||||
|
UPDATE bgt_project
|
||||||
|
SET prs_kostenplaats_key = NULL
|
||||||
|
WHERE prs_kostenplaats_key IN
|
||||||
|
(SELECT prs_kostenplaats_key
|
||||||
|
FROM prs_kostenplaats
|
||||||
|
WHERE prs_kostenplaatsgrp_key = v_kpgrp_key
|
||||||
|
);
|
||||||
|
--
|
||||||
|
log_info('I', 'Referenties vanuit andere kostensoort wissen..');
|
||||||
|
--
|
||||||
|
UPDATE prs_kostensoort
|
||||||
|
SET prs_kostenplaats_key = NULL
|
||||||
|
WHERE prs_kostenplaats_key IN
|
||||||
|
(SELECT prs_kostenplaats_key
|
||||||
|
FROM prs_kostenplaats
|
||||||
|
WHERE prs_kostenplaatsgrp_key = v_kpgrp_key
|
||||||
|
);
|
||||||
|
--
|
||||||
|
log_info('I', 'Referenties vanuit opdracht wissen..');
|
||||||
|
--
|
||||||
|
UPDATE mld_opdr
|
||||||
|
SET prs_kostenplaats_key = NULL
|
||||||
|
WHERE prs_kostenplaats_key IN
|
||||||
|
(SELECT kp.prs_kostenplaats_key
|
||||||
|
FROM prs_kostenplaats kp
|
||||||
|
WHERE kp.prs_kostenplaatsgrp_key = v_kpgrp_key
|
||||||
|
);
|
||||||
|
--
|
||||||
|
log_info('I', 'Referenties vanuit budget wissen..');
|
||||||
|
UPDATE bgt_budget
|
||||||
|
SET prs_kostenplaats_key = NULL
|
||||||
|
WHERE prs_kostenplaats_key IN
|
||||||
|
(SELECT kp.prs_kostenplaats_key
|
||||||
|
FROM prs_kostenplaats kp
|
||||||
|
WHERE kp.prs_kostenplaatsgrp_key = v_kpgrp_key
|
||||||
|
);
|
||||||
|
--
|
||||||
|
-- kostenplaatsen van dit project verwijderen
|
||||||
|
DELETE
|
||||||
|
FROM prs_kostenplaats
|
||||||
|
WHERE prs_kostenplaatsgrp_key = v_kpgrp_key;
|
||||||
|
--
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info('I', 'Aantal kostenplaatsen verwijderd: ' || TO_CHAR(i)
|
||||||
|
, iprj
|
||||||
|
);
|
||||||
|
-- kostenplaatsgroep van dit project verwijderen
|
||||||
|
DELETE
|
||||||
|
FROM prs_kostenplaatsgrp
|
||||||
|
WHERE prs_kostenplaatsgrp_key = v_kpgrp_key;
|
||||||
|
log_info('I', 'Kostenplaatsgroep verwijderd: ' || TO_CHAR(v_kpgrp_key)
|
||||||
|
, iprj
|
||||||
|
);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN NO_DATA_FOUND THEN log_info('I', 'Geen kostenplaatsgroep aanwezig.');
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, iprj, NULL, NULL, NULL, NULL);
|
||||||
|
-- xmsg, iprj, irub, igrp, isrt, ibgt, imut, iopd, ifac, ibdr
|
||||||
|
|
||||||
|
END;
|
||||||
|
END; -- delete_kostenplaatsen
|
||||||
|
|
||||||
|
PROCEDURE delete_deelproject(p_bgt_project_key IN NUMBER)
|
||||||
|
AS
|
||||||
|
i NUMBER;
|
||||||
|
BEGIN -- delete_deelproject
|
||||||
|
log_info('I', 'Kostensoort, kostensoortgroep, kostenrubriek en project:');
|
||||||
|
BEGIN
|
||||||
|
DELETE
|
||||||
|
FROM prs_kostensoort
|
||||||
|
WHERE prs_kostensoortgrp_key IN
|
||||||
|
(SELECT g.prs_kostensoortgrp_key
|
||||||
|
FROM bgt_kostenrubriek r
|
||||||
|
, prs_kostensoortgrp g
|
||||||
|
WHERE g.bgt_kostenrubriek_key = r.bgt_kostenrubriek_key
|
||||||
|
AND r.bgt_project_key = p_bgt_project_key
|
||||||
|
);
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info('I', 'Aantal kostensoorten verwijderd: ' || TO_CHAR(i));
|
||||||
|
--
|
||||||
|
DELETE
|
||||||
|
FROM prs_kostensoortgrp
|
||||||
|
WHERE bgt_kostenrubriek_key IN
|
||||||
|
(SELECT r.bgt_kostenrubriek_key
|
||||||
|
FROM bgt_kostenrubriek r
|
||||||
|
WHERE r.bgt_project_key = p_bgt_project_key
|
||||||
|
);
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info('I', 'Aantal kostensoortgroepen verwijderd: ' || TO_CHAR(i));
|
||||||
|
--
|
||||||
|
DELETE
|
||||||
|
FROM bgt_kostenrubriek
|
||||||
|
WHERE bgt_project_key = p_bgt_project_key;
|
||||||
|
i := sql%rowcount;
|
||||||
|
log_info('I', 'Aantal kostenrubrieken verwijderd: ' || TO_CHAR(i));
|
||||||
|
--
|
||||||
|
DELETE
|
||||||
|
FROM bgt_project
|
||||||
|
WHERE bgt_project_key = p_bgt_project_key;
|
||||||
|
--
|
||||||
|
log_info('I', 'Deelproject verwijderd', p_bgt_project_key);
|
||||||
|
EXCEPTION
|
||||||
|
WHEN OTHERS THEN log_info('W', NULL, p_bgt_project_key);
|
||||||
|
END;
|
||||||
|
END; -- delete_deelproject
|
||||||
|
|
||||||
|
BEGIN
|
||||||
|
log_info('I', 'START');
|
||||||
|
delete_contracten(p_deelproject_key);
|
||||||
|
delete_budgetten(p_deelproject_key);
|
||||||
|
IF (NOT p_alleen_fin) THEN
|
||||||
|
delete_kostenplaatsen(p_deelproject_key);
|
||||||
|
delete_deelproject(p_deelproject_key);
|
||||||
|
END IF;
|
||||||
|
log_info('I', 'EINDE');
|
||||||
|
SELECT COUNT(*)
|
||||||
|
INTO v_err_count
|
||||||
|
FROM twyn_bgtlog
|
||||||
|
WHERE loglevel IN ('W','E')
|
||||||
|
AND actie = 'DELETE prj=' || TO_CHAR(p_deelproject_key);
|
||||||
|
log_info('I', 'Aantal fouten: '|| TO_CHAR(v_err_count) );
|
||||||
|
END;
|
||||||
|
/
|
||||||
|
--
|
||||||
|
--
|
||||||
|
--
|
||||||
|
------ payload end ------
|
||||||
|
|
||||||
|
SET DEFINE OFF
|
||||||
|
BEGIN adm.systrackscriptId ('$Id$', 0); END;
|
||||||
|
/
|
||||||
|
|
||||||
|
COMMIT;
|
||||||
|
SET ECHO OFF
|
||||||
|
SPOOL OFF
|
||||||
|
SET DEFINE ON
|
||||||
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|
||||||
Reference in New Issue
Block a user