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

FCLT#80823 Aanroep van fac_import_genericcsv (p_import_key); is niet meer nodig

Browse Source 
svn path=/Customer/trunk/; revision=65968
This commit is contained in:
Jos Groot Lipman
2024-08-21 08:46:15 +00:00
parent b062796f56
commit 8957bdb3df
6 changed files with 1447 additions and 1455 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
AAGB/aagb.sql
View File

@@ -147,7 +147,6 @@ IS
ORDER BY fac_imp_csv_key; ORDER BY fac_imp_csv_key;
BEGIN BEGIN
-- --
fac_import_genericcsv (p_import_key);
-- Eerst opruiming -- Eerst opruiming
v_count_tot := 0; v_count_tot := 0;

2
BAUS/baus.sql
View File

@@ -373,7 +373,7 @@ AS
CREATE OR REPLACE PROCEDURE baus_import_taak_km (p_import_key IN NUMBER) CREATE OR REPLACE PROCEDURE baus_import_taak_km (p_import_key IN NUMBER)
AS AS
BEGIN BEGIN
fac_import_genericcsv (p_import_key); NULL;
END baus_import_taak_km; END baus_import_taak_km;
/ /

1646
PIVP/PIVP.sql
View File

File diff suppressed because it is too large Load Diff

797
PROR/PROR.sql
View File

File diff suppressed because it is too large Load Diff

396
WSKO/WSKO.sql
View File

@@ -37,26 +37,24 @@ AS
fac_imp_csv_col02 kostenplaats_nr, fac_imp_csv_col02 kostenplaats_nr,
fac_imp_csv_col03 kostengroep, fac_imp_csv_col03 kostengroep,
fac_imp_csv_col04 kostensoort, fac_imp_csv_col04 kostensoort,
fac_imp_csv_col05 periode, fac_imp_csv_col05 periode,
fac_imp_csv_col06 budget fac_imp_csv_col06 budget
FROM fac_imp_csv FROM fac_imp_csv
WHERE fac_import_key=p_import_key WHERE fac_import_key=p_import_key
ORDER BY fac_imp_csv_key; ORDER BY fac_imp_csv_key;
v_errormsg VARCHAR2 (1000); v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000); v_errorhint VARCHAR2 (1000);
v_aanduiding VARCHAR2 (1000); v_aanduiding VARCHAR2 (1000);
oracle_err_num NUMBER; oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200); oracle_err_mes VARCHAR2 (200);
v_header_valid NUMBER:=0; v_header_valid NUMBER:=0;
v_prs_kostenplaats_key NUMBER; v_prs_kostenplaats_key NUMBER;
v_prs_kostensoortgrp_key NUMBER; v_prs_kostensoortgrp_key NUMBER;
v_prs_kostensoort_key NUMBER; v_prs_kostensoort_key NUMBER;
v_alg_gebouw_code VARCHAR2(20); v_alg_gebouw_code VARCHAR2(20);
BEGIN BEGIN
--fac_import_genericcsv(p_import_key);
FOR rec IN imp_csv FOR rec IN imp_csv
LOOP LOOP
IF v_header_valid = 0 IF v_header_valid = 0
@@ -69,22 +67,22 @@ BEGIN
AND UPPER(rec.budget) = 'BUDGET (EURO)') AND UPPER(rec.budget) = 'BUDGET (EURO)')
THEN THEN
v_header_valid:=1; v_header_valid:=1;
END IF; END IF;
ELSE ELSE
v_aanduiding:='Ophalen gebouw op bais van kostenplaats '||rec.kostenplaats_nr||' mislukt'; v_aanduiding:='Ophalen gebouw op bais van kostenplaats '||rec.kostenplaats_nr||' mislukt';
SELECT g.alg_gebouw_code SELECT g.alg_gebouw_code
INTO v_alg_gebouw_code INTO v_alg_gebouw_code
FROM prs_kostenplaats p, FROM prs_kostenplaats p,
alg_gebouw g alg_gebouw g
WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr
AND g.prs_kostenplaats_key = p.prs_kostenplaats_key AND g.prs_kostenplaats_key = p.prs_kostenplaats_key
AND p.prs_kostenplaats_verwijder IS NULL; AND p.prs_kostenplaats_verwijder IS NULL;
IF v_alg_gebouw_code IS NULL IF v_alg_gebouw_code IS NULL
THEN THEN
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan locatie niet 1-duidig bepalen'); fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan locatie niet 1-duidig bepalen');
END IF; END IF;
v_aanduiding:='Ophalen kostenplaats '||rec.kostenplaats_nr||' mislukt'; v_aanduiding:='Ophalen kostenplaats '||rec.kostenplaats_nr||' mislukt';
SELECT p.prs_kostenplaats_key SELECT p.prs_kostenplaats_key
INTO v_prs_kostenplaats_key INTO v_prs_kostenplaats_key
@@ -93,9 +91,9 @@ BEGIN
AND p.prs_kostenplaats_verwijder IS NULL; AND p.prs_kostenplaats_verwijder IS NULL;
IF v_prs_kostenplaats_key IS NULL IF v_prs_kostenplaats_key IS NULL
THEN THEN
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostenplaats niet 1-duidig bepalen'); fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostenplaats niet 1-duidig bepalen');
END IF; END IF;
v_aanduiding:='Ophalen kostengroep '||rec.kostengroep||' mislukt'; v_aanduiding:='Ophalen kostengroep '||rec.kostengroep||' mislukt';
SELECT g.prs_kostensoortgrp_key SELECT g.prs_kostensoortgrp_key
INTO v_prs_kostensoortgrp_key INTO v_prs_kostensoortgrp_key
@@ -104,10 +102,10 @@ BEGIN
IF v_prs_kostensoortgrp_key IS NULL IF v_prs_kostensoortgrp_key IS NULL
THEN THEN
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostensoortgroep niet 1-duidig bepalen'); fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostensoortgroep niet 1-duidig bepalen');
END IF; END IF;
v_aanduiding:='Ophalen kostensoort '||rec.kostensoort||' mislukt'; v_aanduiding:='Ophalen kostensoort '||rec.kostensoort||' mislukt';
SELECT k.prs_kostensoort_key SELECT k.prs_kostensoort_key
INTO v_prs_kostensoort_key INTO v_prs_kostensoort_key
@@ -118,16 +116,16 @@ BEGIN
IF v_prs_kostensoort_key IS NULL IF v_prs_kostensoort_key IS NULL
THEN THEN
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostensoort niet 1-duidig bepalen'); fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan kostensoort niet 1-duidig bepalen');
END IF; END IF;
END IF; END IF;
END LOOP; END LOOP;
IF v_header_valid=0 IF v_header_valid=0
THEN THEN
fac.imp_writelog (p_import_key, 'E', 'Geen valide header gevonden', 'Header fout'); fac.imp_writelog (p_import_key, 'E', 'Geen valide header gevonden', 'Header fout');
END IF; END IF;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
@@ -139,7 +137,7 @@ WHEN NO_DATA_FOUND
fac.imp_writelog (p_import_key, fac.imp_writelog (p_import_key,
'E', 'E',
v_errormsg, v_errormsg,
v_errorhint); v_errorhint);
END; END;
/ /
@@ -153,7 +151,7 @@ AS
fac_imp_csv_col02 kostenplaats_nr, fac_imp_csv_col02 kostenplaats_nr,
fac_imp_csv_col03 kostengroep, fac_imp_csv_col03 kostengroep,
fac_imp_csv_col04 kostensoort, fac_imp_csv_col04 kostensoort,
fac_imp_csv_col05 periode, fac_imp_csv_col05 periode,
fac_imp_csv_col06 budget fac_imp_csv_col06 budget
FROM fac_imp_csv FROM fac_imp_csv
WHERE fac_import_key=p_import_key WHERE fac_import_key=p_import_key
@@ -167,7 +165,7 @@ AS
oracle_err_mes VARCHAR2 (200); oracle_err_mes VARCHAR2 (200);
v_count NUMBER:=0; v_count NUMBER:=0;
v_ongeldig NUMBER:=0; v_ongeldig NUMBER:=0;
v_ins_discipline_key NUMBER; v_ins_discipline_key NUMBER;
v_bgt_project_key NUMBER; v_bgt_project_key NUMBER;
v_bgt_kostenrubriek_key NUMBER; v_bgt_kostenrubriek_key NUMBER;
@@ -183,122 +181,122 @@ AS
v_alg_gebouw_code VARCHAR(20); v_alg_gebouw_code VARCHAR(20);
v_alg_gebouw_naam VARCHAR(60); v_alg_gebouw_naam VARCHAR(60);
BEGIN BEGIN
BEGIN BEGIN
v_aanduiding:='Ophalen budget project disciplne Investering budgettering mislukt'; v_aanduiding:='Ophalen budget project disciplne Investering budgettering mislukt';
SELECT ins_discipline_key SELECT ins_discipline_key
INTO v_ins_discipline_key INTO v_ins_discipline_key
FROM ins_tab_discipline i FROM ins_tab_discipline i
WHERE i.ins_discipline_module='BGT' WHERE i.ins_discipline_module='BGT'
AND i.ins_discipline_omschrijving='Investering' AND i.ins_discipline_omschrijving='Investering'
AND i.ins_discipline_verwijder IS NULL; AND i.ins_discipline_verwijder IS NULL;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
INSERT INSERT
INTO ins_tab_discipline (ins_discipline_omschrijving, INTO ins_tab_discipline (ins_discipline_omschrijving,
ins_discipline_module, ins_discipline_module,
ins_discipline_aanmaak, ins_discipline_aanmaak,
ins_discipline_kpnverplicht) ins_discipline_kpnverplicht)
VALUES ('Investering', VALUES ('Investering',
'BGT', 'BGT',
SYSDATE, SYSDATE,
0) 0)
RETURNING ins_discipline_key RETURNING ins_discipline_key
INTO v_ins_discipline_key; INTO v_ins_discipline_key;
INSERT INTO bgt_disc_params (bgt_ins_discipline_key) INSERT INTO bgt_disc_params (bgt_ins_discipline_key)
VALUES(v_ins_discipline_key ); VALUES(v_ins_discipline_key );
END; END;
IF v_ins_discipline_key = NULL IF v_ins_discipline_key = NULL
THEN THEN
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan budget project disciplne niet 1-duidig bepalen of aanmaken'); fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan budget project disciplne niet 1-duidig bepalen of aanmaken');
v_ongeldig := 1; v_ongeldig := 1;
ELSE ELSE
BEGIN BEGIN
v_aanduiding:='Ophalen budget project Budgettering mislukt'; v_aanduiding:='Ophalen budget project Budgettering mislukt';
SELECT p.bgt_project_key SELECT p.bgt_project_key
INTO v_bgt_project_key INTO v_bgt_project_key
FROM bgt_project p FROM bgt_project p
WHERE p.bgt_project_code='Budgettering' WHERE p.bgt_project_code='Budgettering'
AND p.ins_discipline_key = v_ins_discipline_key AND p.ins_discipline_key = v_ins_discipline_key
AND bgt_project_verwijder IS NULL; AND bgt_project_verwijder IS NULL;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
INSERT INSERT
INTO bgt_project (ins_discipline_key, INTO bgt_project (ins_discipline_key,
bgt_project_code, bgt_project_code,
bgt_project_omschrijving, bgt_project_omschrijving,
bgt_project_aanmaak) bgt_project_aanmaak)
VALUES (v_ins_discipline_key, VALUES (v_ins_discipline_key,
'Budgettering', 'Budgettering',
'Budgettering', 'Budgettering',
SYSDATE) SYSDATE)
RETURNING bgt_project_key RETURNING bgt_project_key
INTO v_bgt_project_key; INTO v_bgt_project_key;
END; END;
END IF; END IF;
IF v_bgt_project_key = NULL OR v_ongeldig=1 IF v_bgt_project_key = NULL OR v_ongeldig=1
THEN THEN
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan project niet 1-duidig bepalen of aanmaken'); fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errorhint, 'Kan project niet 1-duidig bepalen of aanmaken');
v_ongeldig := 1; v_ongeldig := 1;
ELSE ELSE
FOR rec IN bdgt FOR rec IN bdgt
LOOP LOOP
IF v_count>0 IF v_count>0
THEN THEN
BEGIN BEGIN
v_aanduiding:='Ophalen budget project Budgettering mislukt'; v_aanduiding:='Ophalen budget project Budgettering mislukt';
SELECT p.bgt_project_key SELECT p.bgt_project_key
INTO v_bgt_project_key INTO v_bgt_project_key
FROM bgt_project p FROM bgt_project p
WHERE p.bgt_project_code=rec.periode WHERE p.bgt_project_code=rec.periode
AND p.ins_discipline_key = v_ins_discipline_key AND p.ins_discipline_key = v_ins_discipline_key
AND bgt_project_verwijder IS NULL; AND bgt_project_verwijder IS NULL;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
INSERT INSERT
INTO bgt_project (ins_discipline_key, INTO bgt_project (ins_discipline_key,
bgt_project_code, bgt_project_code,
bgt_project_omschrijving, bgt_project_omschrijving,
bgt_project_aanmaak) bgt_project_aanmaak)
VALUES (v_ins_discipline_key, VALUES (v_ins_discipline_key,
rec.periode, rec.periode,
rec.periode, rec.periode,
SYSDATE) SYSDATE)
RETURNING bgt_project_key RETURNING bgt_project_key
INTO v_bgt_project_key; INTO v_bgt_project_key;
END; END;
v_aanduiding:='Ophalen locatie '||rec.locatie||' via kostenplaats '||rec.kostenplaats_nr||' is mislukt'; v_aanduiding:='Ophalen locatie '||rec.locatie||' via kostenplaats '||rec.kostenplaats_nr||' is mislukt';
SELECT g.alg_gebouw_code , g.alg_gebouw_naam SELECT g.alg_gebouw_code , g.alg_gebouw_naam
INTO v_alg_gebouw_code, v_alg_gebouw_naam INTO v_alg_gebouw_code, v_alg_gebouw_naam
FROM prs_kostenplaats p, FROM prs_kostenplaats p,
alg_gebouw g alg_gebouw g
WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr WHERE p.prs_kostenplaats_nr=rec.kostenplaats_nr
AND g.PRS_KOSTENPLAATS_KEY = p.PRS_KOSTENPLAATS_KEY AND g.PRS_KOSTENPLAATS_KEY = p.PRS_KOSTENPLAATS_KEY
AND p.prs_kostenplaats_verwijder IS NULL; AND p.prs_kostenplaats_verwijder IS NULL;
BEGIN BEGIN
v_aanduiding:='Ophalen budget project kostenrubriek '||v_alg_gebouw_code||' mislukt'; v_aanduiding:='Ophalen budget project kostenrubriek '||v_alg_gebouw_code||' mislukt';
SELECT k.bgt_kostenrubriek_key SELECT k.bgt_kostenrubriek_key
INTO v_bgt_kostenrubriek_key INTO v_bgt_kostenrubriek_key
FROM bgt_kostenrubriek k FROM bgt_kostenrubriek k
WHERE k.bgt_project_key=v_bgt_project_key WHERE k.bgt_project_key=v_bgt_project_key
AND k.bgt_kostenrubriek_code=v_alg_gebouw_code AND k.bgt_kostenrubriek_code=v_alg_gebouw_code
AND k.bgt_kostenrubriek_oms=rec.kostenplaats_nr||'-'||SUBSTR(v_alg_gebouw_naam,1,55); AND k.bgt_kostenrubriek_oms=rec.kostenplaats_nr||'-'||SUBSTR(v_alg_gebouw_naam,1,55);
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
INSERT INSERT
INTO bgt_kostenrubriek (bgt_project_key, INTO bgt_kostenrubriek (bgt_project_key,
bgt_kostenrubriek_code, bgt_kostenrubriek_code,
bgt_kostenrubriek_oms) bgt_kostenrubriek_oms)
@@ -306,45 +304,45 @@ BEGIN
v_alg_gebouw_code, v_alg_gebouw_code,
rec.periode||'-'||SUBSTR(v_alg_gebouw_naam,1,55)) rec.periode||'-'||SUBSTR(v_alg_gebouw_naam,1,55))
RETURNING bgt_kostenrubriek_key RETURNING bgt_kostenrubriek_key
INTO v_bgt_kostenrubriek_key; INTO v_bgt_kostenrubriek_key;
END; END;
v_aanduiding:='OPhalen kostenplaatsnr '||rec.kostenplaats_nr||' mislukt'; v_aanduiding:='OPhalen kostenplaatsnr '||rec.kostenplaats_nr||' mislukt';
SELECT k.prs_kostenplaats_key, k.prs_kostenplaatsgrp_key SELECT k.prs_kostenplaats_key, k.prs_kostenplaatsgrp_key
INTO v_kostenplaats_key, v_kostenplaatsgrp_key INTO v_kostenplaats_key, v_kostenplaatsgrp_key
FROM prs_kostenplaats k FROM prs_kostenplaats k
WHERE k.prs_kostenplaats_nr=rec.kostenplaats_nr WHERE k.prs_kostenplaats_nr=rec.kostenplaats_nr
AND k.prs_kostenplaats_verwijder IS NULL; AND k.prs_kostenplaats_verwijder IS NULL;
v_aanduiding:='OPhalen kostensoort en kostengroep '||rec.kostengroep||'-'||rec.kostensoort||' mislukt'; v_aanduiding:='OPhalen kostensoort en kostengroep '||rec.kostengroep||'-'||rec.kostensoort||' mislukt';
SELECT s.prs_kostensoort_key, s.prs_kostensoortgrp_key SELECT s.prs_kostensoort_key, s.prs_kostensoortgrp_key
INTO v_kostensoort_key, v_kostensoortgrp_key INTO v_kostensoort_key, v_kostensoortgrp_key
FROM prs_kostensoort s, prs_kostensoortgrp g FROM prs_kostensoort s, prs_kostensoortgrp g
WHERE s.prs_kostensoort_oms=rec.kostensoort WHERE s.prs_kostensoort_oms=rec.kostensoort
AND g.prs_kostensoortgrp_oms=rec.kostengroep AND g.prs_kostensoortgrp_oms=rec.kostengroep
AND s.prs_kostensoortgrp_key=g.prs_kostensoortgrp_key AND s.prs_kostensoortgrp_key=g.prs_kostensoortgrp_key
AND s.prs_kostensoort_verwijder IS NULL; AND s.prs_kostensoort_verwijder IS NULL;
v_budget := fac.safe_to_number(REPLACE(rec.budget,'.','')); v_budget := fac.safe_to_number(REPLACE(rec.budget,'.',''));
v_periode_start := fac.safe_to_date('01-01-'||rec.periode,'DD-MM-YYYY'); v_periode_start := fac.safe_to_date('01-01-'||rec.periode,'DD-MM-YYYY');
v_periode_eind := fac.safe_to_date('31-12-'||rec.periode,'DD-MM-YYYY'); v_periode_eind := fac.safe_to_date('31-12-'||rec.periode,'DD-MM-YYYY');
IF v_kostenplaats_key>0 IF v_kostenplaats_key>0
AND v_kostenplaatsgrp_key>0 AND v_kostenplaatsgrp_key>0
AND v_kostensoort_key>0 AND v_kostensoort_key>0
AND v_kostensoortgrp_key>0 AND v_kostensoortgrp_key>0
AND v_budget>0 AND v_budget>0
THEN THEN
-- Eerst kijken of hij er al is -- Eerst kijken of hij er al is
BEGIN BEGIN
SELECT b.bgt_budget_key, b.bgt_budget_bedrag SELECT b.bgt_budget_key, b.bgt_budget_bedrag
INTO v_budget_key, v_budget_nu INTO v_budget_key, v_budget_nu
FROM bgt_budget b FROM bgt_budget b
WHERE b.ins_discipline_key=v_ins_discipline_key WHERE b.ins_discipline_key=v_ins_discipline_key
AND b.bgt_project_key=v_bgt_project_key AND b.bgt_project_key=v_bgt_project_key
AND b.bgt_kostenrubriek_key=v_bgt_kostenrubriek_key AND b.bgt_kostenrubriek_key=v_bgt_kostenrubriek_key
@@ -354,19 +352,19 @@ BEGIN
AND b.prs_kostenplaats_key=v_kostenplaats_key AND b.prs_kostenplaats_key=v_kostenplaats_key
AND b.bgt_budget_begin= v_periode_start AND b.bgt_budget_begin= v_periode_start
AND b.bgt_budget_eind= v_periode_eind; AND b.bgt_budget_eind= v_periode_eind;
v_aanduiding := 'Aanpassen budget van '||rec.kostenplaats_nr||'-'||rec.kostengroep||'-'||rec.kostensoort||' van '||v_budget_nu|| '-> '||v_budget; v_aanduiding := 'Aanpassen budget van '||rec.kostenplaats_nr||'-'||rec.kostengroep||'-'||rec.kostensoort||' van '||v_budget_nu|| '-> '||v_budget;
UPDATE bgt_budget b UPDATE bgt_budget b
SET b.bgt_budget_bedrag=v_budget SET b.bgt_budget_bedrag=v_budget
WHERE bgt_budget_key=v_budget_key; WHERE bgt_budget_key=v_budget_key;
fac.imp_writelog (p_import_key, 'I', v_aanduiding , 'Aanpassen budget bedrag'); fac.imp_writelog (p_import_key, 'I', v_aanduiding , 'Aanpassen budget bedrag');
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
INSERT INSERT
INTO bgt_budget(ins_discipline_key, INTO bgt_budget(ins_discipline_key,
bgt_project_key, bgt_project_key,
bgt_kostenrubriek_key, bgt_kostenrubriek_key,
@@ -387,20 +385,20 @@ BEGIN
v_budget, v_budget,
v_periode_start, v_periode_start,
v_periode_eind); v_periode_eind);
END; END;
END IF; END IF;
END IF; END IF;
v_count:=v_count+1; v_count:=v_count+1;
END LOOP; END LOOP;
END IF; END IF;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding; v_errorhint := v_errormsg || ' - ' || v_aanduiding;
oracle_err_num := SQLCODE; oracle_err_num := SQLCODE;
@@ -425,8 +423,8 @@ AS
fac_imp_csv_col04 ins_groep_oms, fac_imp_csv_col04 ins_groep_oms,
fac_imp_csv_col05 ins_srtdeel_code, fac_imp_csv_col05 ins_srtdeel_code,
fac_imp_csv_col06 ins_srtdeel_oms, fac_imp_csv_col06 ins_srtdeel_oms,
fac_imp_csv_col07 ins_deel_omschrijving, fac_imp_csv_col07 ins_deel_omschrijving,
fac_imp_csv_col08 ins_deel_bouwjaar, fac_imp_csv_col08 ins_deel_bouwjaar,
fac_imp_csv_col09 ins_deel_aantal, fac_imp_csv_col09 ins_deel_aantal,
fac_imp_csv_col10 ins_srtgroep_eenheid, fac_imp_csv_col10 ins_srtgroep_eenheid,
fac_imp_csv_col11 taak_omschrijving, fac_imp_csv_col11 taak_omschrijving,
@@ -437,7 +435,7 @@ AS
FROM fac_imp_csv FROM fac_imp_csv
WHERE fac_import_key=p_import_key WHERE fac_import_key=p_import_key
ORDER BY fac_imp_csv_key; ORDER BY fac_imp_csv_key;
v_errormsg VARCHAR2 (1000); v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000); v_errorhint VARCHAR2 (1000);
v_aanduiding VARCHAR2 (1000); v_aanduiding VARCHAR2 (1000);
@@ -456,51 +454,51 @@ AS
v_count NUMBER; v_count NUMBER;
v_count_new NUMBER; v_count_new NUMBER;
v_error NUMBER; v_error NUMBER;
BEGIN BEGIN
fac_import_file2csv(p_import_key); fac_import_file2csv(p_import_key);
v_count:=0; v_count:=0;
v_error:=0; v_error:=0;
FOR rec in obj FOR rec in obj
LOOP LOOP
IF rec.locatie_oms<>'Locatie' IF rec.locatie_oms<>'Locatie'
THEN THEN
v_error:=0; v_error:=0;
v_aanduiding:='Fout bij ophalen ruimte voor object '||rec.ins_deel_omschrijving; v_aanduiding:='Fout bij ophalen ruimte voor object '||rec.ins_deel_omschrijving;
BEGIN BEGIN
SELECT alg_ruimte_key, a.alg_locatie_key, g.prs_kostenplaats_key SELECT alg_ruimte_key, a.alg_locatie_key, g.prs_kostenplaats_key
INTO v_alg_ruimte_key, v_alg_locatie_key , v_prs_kostenplaats_key INTO v_alg_ruimte_key, v_alg_locatie_key , v_prs_kostenplaats_key
FROM alg_v_allonrgoed_gegevens a, alg_locatie l, alg_gebouw g FROM alg_v_allonrgoed_gegevens a, alg_locatie l, alg_gebouw g
WHERE l.alg_locatie_code=rec.locatie_code WHERE l.alg_locatie_code=rec.locatie_code
AND a.alg_locatie_key = l.alg_locatie_key AND a.alg_locatie_key = l.alg_locatie_key
AND a.alg_gebouw_code=rec.locatie_code AND a.alg_gebouw_code=rec.locatie_code
AND a.alg_verdieping_code='0' AND a.alg_verdieping_code='0'
AND a.alg_ruimte_nr='0.00' AND a.alg_ruimte_nr='0.00'
AND g.alg_gebouw_key = a.alg_gebouw_key; AND g.alg_gebouw_key = a.alg_gebouw_key;
EXCEPTION EXCEPTION
WHEN OTHERS WHEN OTHERS
THEN THEN
v_alg_ruimte_key:=-1; v_alg_ruimte_key:=-1;
END; END;
v_errorhint:='Taak wordt overgeslagen.'; v_errorhint:='Taak wordt overgeslagen.';
IF rec.ins_deel_omschrijving IS NULL OR LENGTH(rec.ins_deel_omschrijving)=0 IF rec.ins_deel_omschrijving IS NULL OR LENGTH(rec.ins_deel_omschrijving)=0
THEN THEN
v_aanduiding := 'Geen valide object omschrijving bij object:'||rec.ins_deel_omschrijving; v_aanduiding := 'Geen valide object omschrijving bij object:'||rec.ins_deel_omschrijving;
v_error:=1; v_error:=1;
END IF; END IF;
IF rec.taak_omschrijving IS NULL OR LENGTH(TRIM(rec.taak_omschrijving))=0 IF rec.taak_omschrijving IS NULL OR LENGTH(TRIM(rec.taak_omschrijving))=0
THEN THEN
v_aanduiding := 'Geen valide taak omschrijving bij object:'||rec.ins_deel_omschrijving; v_aanduiding := 'Geen valide taak omschrijving bij object:'||rec.ins_deel_omschrijving;
v_error:=1; v_error:=1;
END IF; END IF;
IF rec.taak_cyclus IS NULL OR LENGTH(rec.taak_cyclus)=0 IF rec.taak_cyclus IS NULL OR LENGTH(rec.taak_cyclus)=0
THEN THEN
v_aanduiding := 'Geen valide taak cyclus.'||rec.ins_deel_omschrijving; v_aanduiding := 'Geen valide taak cyclus.'||rec.ins_deel_omschrijving;
v_error:=1; v_error:=1;
END IF; END IF;
IF rec.taak_datum IS NULL OR LENGTH(rec.taak_datum)<4 IF rec.taak_datum IS NULL OR LENGTH(rec.taak_datum)<4
@@ -513,11 +511,11 @@ BEGIN
v_aanduiding := 'Geen valide taak kosten.'||rec.ins_deel_omschrijving; v_aanduiding := 'Geen valide taak kosten.'||rec.ins_deel_omschrijving;
v_error:=1; v_error:=1;
END IF; END IF;
IF v_error=0 IF v_error=0
AND v_alg_ruimte_key>0 AND v_alg_ruimte_key>0
THEN THEN
BEGIN BEGIN
SELECT i.ins_deel_key SELECT i.ins_deel_key
INTO v_ins_deel_key INTO v_ins_deel_key
@@ -526,35 +524,35 @@ BEGIN
AND i.ins_alg_locatie_key=v_alg_locatie_key AND i.ins_alg_locatie_key=v_alg_locatie_key
AND i.ins_deel_omschrijving = rec.ins_deel_omschrijving AND i.ins_deel_omschrijving = rec.ins_deel_omschrijving
AND i.ins_deel_verwijder IS NULL; AND i.ins_deel_verwijder IS NULL;
UPDATE fac_imp_csv UPDATE fac_imp_csv
SET fac_imp_csv_col50=v_ins_deel_key, fac_imp_csv_col51=v_prs_kostenplaats_key SET fac_imp_csv_col50=v_ins_deel_key, fac_imp_csv_col51=v_prs_kostenplaats_key
WHERE fac_imp_csv_key = rec.fac_imp_csv_key; WHERE fac_imp_csv_key = rec.fac_imp_csv_key;
COMMIT; COMMIT;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
fac.imp_writelog (p_import_key, fac.imp_writelog (p_import_key,
'E', 'E',
'Object '|| rec.ins_deel_omschrijving||' niet gevonden.', 'Object '|| rec.ins_deel_omschrijving||' niet gevonden.',
v_errorhint); v_errorhint);
END; END;
ELSE ELSE
fac.imp_writelog (p_import_key, fac.imp_writelog (p_import_key,
'W', 'W',
v_aanduiding, v_aanduiding,
v_errorhint); v_errorhint);
END IF; END IF;
ELSE ELSE
DELETE DELETE
FROM fac_imp_csv FROM fac_imp_csv
WHERE fac_imp_csv_key=rec.fac_imp_csv_key; WHERE fac_imp_csv_key=rec.fac_imp_csv_key;
COMMIT; COMMIT;
END IF; END IF;
END LOOP; END LOOP;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
v_errorhint := v_errormsg || ' - ' || v_aanduiding; v_errorhint := v_errormsg || ' - ' || v_aanduiding;
oracle_err_num := SQLCODE; oracle_err_num := SQLCODE;
@@ -579,8 +577,8 @@ AS
fac_imp_csv_col04 ins_groep_oms, fac_imp_csv_col04 ins_groep_oms,
fac_imp_csv_col05 ins_srtdeel_code, fac_imp_csv_col05 ins_srtdeel_code,
fac_imp_csv_col06 ins_srtdeel_oms, fac_imp_csv_col06 ins_srtdeel_oms,
fac_imp_csv_col07 ins_deel_omschrijving, fac_imp_csv_col07 ins_deel_omschrijving,
fac_imp_csv_col08 ins_deel_bouwjaar, fac_imp_csv_col08 ins_deel_bouwjaar,
fac_imp_csv_col09 ins_deel_aantal, fac_imp_csv_col09 ins_deel_aantal,
fac_imp_csv_col10 ins_srtgroep_eenheid, fac_imp_csv_col10 ins_srtgroep_eenheid,
fac_imp_csv_col11 taak_omschrijving, fac_imp_csv_col11 taak_omschrijving,
@@ -594,14 +592,14 @@ AS
WHERE fac_import_key=p_import_key WHERE fac_import_key=p_import_key
AND fac_imp_csv_col50 IS NOT NULL AND fac_imp_csv_col50 IS NOT NULL
ORDER BY fac_imp_csv_key; ORDER BY fac_imp_csv_key;
v_errormsg VARCHAR2 (1000); v_errormsg VARCHAR2 (1000);
v_errorhint VARCHAR2 (1000); v_errorhint VARCHAR2 (1000);
v_aanduiding VARCHAR2 (1000); v_aanduiding VARCHAR2 (1000);
oracle_err_num NUMBER; oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200); oracle_err_mes VARCHAR2 (200);
v_srtkenmerk_doc NUMBER; v_srtkenmerk_doc NUMBER;
v_ins_srtcontrole_niveau VARCHAR2(1); v_ins_srtcontrole_niveau VARCHAR2(1);
v_taakcat_key NUMBER; v_taakcat_key NUMBER;
@@ -622,54 +620,54 @@ BEGIN
v_ins_srtcontrole_niveau:='S'; v_ins_srtcontrole_niveau:='S';
v_count_new:=0; v_count_new:=0;
v_count_update:=0; v_count_update:=0;
BEGIN BEGIN
SELECT ins_srtkenmerk_key SELECT ins_srtkenmerk_key
INTO v_srtkenmerk_doc INTO v_srtkenmerk_doc
FROM ins_srtkenmerk i FROM ins_srtkenmerk i
WHERE i.ins_srtkenmerk_code='DOCUMENTEN' WHERE i.ins_srtkenmerk_code='DOCUMENTEN'
AND i.ins_srtkenmerk_verwijder IS NULL; AND i.ins_srtkenmerk_verwijder IS NULL;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND WHEN NO_DATA_FOUND
THEN THEN
v_srtkenmerk_doc:=-1; v_srtkenmerk_doc:=-1;
END; END;
FOR rec IN obj FOR rec IN obj
LOOP LOOP
IF rec.locatie_oms<>'Locatie' IF rec.locatie_oms<>'Locatie'
THEN THEN
v_deel_key := rec.ins_deel_key; v_deel_key := rec.ins_deel_key;
v_eenheid:=4; v_eenheid:=4;
v_default_eenheid:=4; v_default_eenheid:=4;
v_errormsg :='Ophalen objctsoort'; v_errormsg :='Ophalen objctsoort';
SELECT i.ins_srtdeel_key SELECT i.ins_srtdeel_key
INTO v_ins_srtdeel_key INTO v_ins_srtdeel_key
FROM ins_deel i FROM ins_deel i
WHERE i.ins_deel_key=v_deel_key; WHERE i.ins_deel_key=v_deel_key;
v_errormsg :='Ophalen taakcetegorie '||rec.taak_omschrijving; v_errormsg :='Ophalen taakcetegorie '||rec.taak_omschrijving;
-- Gaan we eerst check of er onderhoud controles zijn -- Gaan we eerst check of er onderhoud controles zijn
SELECT i.ins_discipline_key SELECT i.ins_discipline_key
INTO v_taakcat_key INTO v_taakcat_key
FROM ins_tab_discipline i , ctr_disc_params p FROM ins_tab_discipline i , ctr_disc_params p
WHERE i.ins_discipline_module='CTR' WHERE i.ins_discipline_module='CTR'
AND UPPER(i.ins_discipline_omschrijving) = UPPER('MJOB FACILITAIR') AND UPPER(i.ins_discipline_omschrijving) = UPPER('MJOB FACILITAIR')
AND i.ins_discipline_verwijder IS NULL AND i.ins_discipline_verwijder IS NULL
AND p.ctr_ins_discipline_key=i.ins_discipline_key; AND p.ctr_ins_discipline_key=i.ins_discipline_key;
v_taak_default_cyclus:=0; v_taak_default_cyclus:=0;
v_taak_datum := fac.safe_to_date('01-01-'||rec.taak_datum,'DD-MM-YYYY'); v_taak_datum := fac.safe_to_date('01-01-'||rec.taak_datum,'DD-MM-YYYY');
v_aanduiding:='Ophalen srtcontrole'||rec.taak_omschrijving; v_aanduiding:='Ophalen srtcontrole'||rec.taak_omschrijving;
BEGIN BEGIN
SELECT ins_srtcontrole_key SELECT ins_srtcontrole_key
INTO v_srtcontrole_key INTO v_srtcontrole_key
FROM ins_srtcontrole FROM ins_srtcontrole
where ins_srtinstallatie_key=v_ins_srtdeel_key where ins_srtinstallatie_key=v_ins_srtdeel_key
AND ins_srtcontrole_niveau=v_ins_srtcontrole_niveau AND ins_srtcontrole_niveau=v_ins_srtcontrole_niveau
AND UPPER(ins_srtcontrole_omschrijving) = UPPER(SUBSTR(rec.taak_omschrijving,0,60)) AND UPPER(ins_srtcontrole_omschrijving) = UPPER(SUBSTR(rec.taak_omschrijving,0,60))
AND ins_srtcontrole_periode=v_taak_default_cyclus AND ins_srtcontrole_periode=v_taak_default_cyclus
@@ -681,7 +679,7 @@ BEGIN
-- ins_srtcontrole is er niet dus maken we hem aan, -- ins_srtcontrole is er niet dus maken we hem aan,
INSERT INTO ins_srtcontrole (ins_srtinstallatie_key, INSERT INTO ins_srtcontrole (ins_srtinstallatie_key,
ins_srtcontrole_niveau, ins_srtcontrole_niveau,
ins_srtcontrole_omschrijving, ins_srtcontrole_omschrijving,
ins_srtcontrole_periode, ins_srtcontrole_periode,
ins_srtcontrole_eenheid, ins_srtcontrole_eenheid,
ins_srtcontrole_mode, ins_srtcontrole_mode,
@@ -702,11 +700,11 @@ BEGIN
ins_srtkenmerk_key, ins_srtkenmerk_key,
ins_srtinstallatie_key, ins_srtinstallatie_key,
ins_kenmerk_niveau, ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau, ins_kenmerk_bewerkniveau,
ins_kenmerk_groep, ins_kenmerk_groep,
ins_kenmerk_volgnummer, ins_kenmerk_volgnummer,
ins_kenmerk_hint, ins_kenmerk_hint,
ins_kenmerk_omschrijving ins_kenmerk_omschrijving
) )
VALUES ( VALUES (
v_srtkenmerk_doc, v_srtkenmerk_doc,
@@ -716,37 +714,37 @@ BEGIN
0, 0,
10, 10,
'', '',
'Documenten' 'Documenten'
); );
END IF; END IF;
END; END;
IF LENGTH(rec.taak_cyclus)>0 THEN IF LENGTH(rec.taak_cyclus)>0 THEN
v_taak_cyclus:=fac.safe_to_number(rec.taak_cyclus); v_taak_cyclus:=fac.safe_to_number(rec.taak_cyclus);
ELSE ELSE
v_taak_cyclus:= v_taak_default_cyclus; v_taak_cyclus:= v_taak_default_cyclus;
END IF; END IF;
IF LENGTH(rec.ins_deel_aantal)>0 IF LENGTH(rec.ins_deel_aantal)>0
THEN THEN
v_aantal:=fac.safe_to_number(rec.ins_deel_aantal); v_aantal:=fac.safe_to_number(rec.ins_deel_aantal);
ELSE ELSE
v_aantal:=1; v_aantal:=1;
END IF; END IF;
IF LENGTH(rec.taak_kosten)>0 IF LENGTH(rec.taak_kosten)>0
THEN THEN
v_taak_kosten:=COALESCE(fac.safe_to_number(REPLACE(rec.taak_kosten,'.','')),0)/v_aantal; v_taak_kosten:=COALESCE(fac.safe_to_number(REPLACE(rec.taak_kosten,'.','')),0)/v_aantal;
ELSE ELSE
v_taak_kosten:=0; v_taak_kosten:=0;
END IF; END IF;
BEGIN BEGIN
SELECT ins_srtcontroledl_xcp_key SELECT ins_srtcontroledl_xcp_key
INTO v_srtcontroledl_xcp_key INTO v_srtcontroledl_xcp_key
FROM ins_srtcontroledl_xcp FROM ins_srtcontroledl_xcp
WHERE ins_deel_key=v_deel_key WHERE ins_deel_key=v_deel_key
AND ins_srtcontrole_key=v_srtcontrole_key; AND ins_srtcontrole_key=v_srtcontrole_key;
--AND ins_srtcontroledl_xcp_eenheid=v_eenheid; --AND ins_srtcontroledl_xcp_eenheid=v_eenheid;
-- we hebben een xcp record dan updaten we nu alleen de startdatum -- we hebben een xcp record dan updaten we nu alleen de startdatum
UPDATE ins_srtcontroledl_xcp UPDATE ins_srtcontroledl_xcp
SET INS_SRTCONTROLEDL_XCP_STARTDAT=v_taak_datum, SET INS_SRTCONTROLEDL_XCP_STARTDAT=v_taak_datum,
ins_srtcontroledl_xcp_periode=v_taak_cyclus, ins_srtcontroledl_xcp_periode=v_taak_cyclus,
@@ -754,11 +752,11 @@ BEGIN
ins_srtcontroledl_xcp_eenheid=v_eenheid ins_srtcontroledl_xcp_eenheid=v_eenheid
WHERE ins_srtcontroledl_xcp_key = v_srtcontroledl_xcp_key; WHERE ins_srtcontroledl_xcp_key = v_srtcontroledl_xcp_key;
v_count_update:=v_count_update+1; v_count_update:=v_count_update+1;
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
-- Er is nog geen XCP record dus maken we er 1 met de verwachte startdatum -- Er is nog geen XCP record dus maken we er 1 met de verwachte startdatum
INSERT INTO ins_srtcontroledl_xcp INSERT INTO ins_srtcontroledl_xcp
(ins_srtcontrole_key, (ins_srtcontrole_key,
ins_deel_key, ins_deel_key,
ins_srtcontroledl_xcp_eenheid, ins_srtcontroledl_xcp_eenheid,
@@ -770,14 +768,14 @@ BEGIN
VALUES (v_srtcontrole_key, VALUES (v_srtcontrole_key,
v_deel_key, v_deel_key,
v_eenheid, v_eenheid,
v_aantal, v_aantal,
v_taak_kosten, v_taak_kosten,
v_taak_cyclus, v_taak_cyclus,
v_taak_datum, v_taak_datum,
rec.prs_kostenplaats_key); rec.prs_kostenplaats_key);
v_count_new:=v_count_new+1; v_count_new:=v_count_new+1;
END; END;
END IF; END IF;
END LOOP; END LOOP;
fac.imp_writelog (p_import_key, fac.imp_writelog (p_import_key,
'I', 'I',
@@ -787,7 +785,7 @@ BEGIN
'I', 'I',
'Geupdate taken taken :'||v_count_update, 'Geupdate taken taken :'||v_count_update,
v_errorhint); v_errorhint);
END; END;
/ /
-- EINDE Import functies -- EINDE Import functies
@@ -804,8 +802,8 @@ AS
FROM (SELECT kp.prs_kostenplaats_nr, FROM (SELECT kp.prs_kostenplaats_nr,
kp.prs_kostenplaats_key, kp.prs_kostenplaats_key,
kp.prs_perslid_key, kp.prs_perslid_key,
(SELECT prs_perslid_naam_friendly (SELECT prs_perslid_naam_friendly
FROM prs_v_perslid_fullnames p FROM prs_v_perslid_fullnames p
WHERE p.prs_perslid_key=kp.prs_perslid_key) budgethouder, WHERE p.prs_perslid_key=kp.prs_perslid_key) budgethouder,
g.alg_gebouw_naam, g.alg_gebouw_naam,
ksg.prs_kostensoortgrp_key, ksg.prs_kostensoortgrp_key,
@@ -825,7 +823,7 @@ AS
ks.prs_kostensoort_key ks.prs_kostensoort_key
AND o.mld_typeopdr_key = ot.MLD_TYPEOPDR_KEY AND o.mld_typeopdr_key = ot.MLD_TYPEOPDR_KEY
AND UPPER(ot.mld_typeopdr_omschrijving)='OFFERTE INVESTERING' AND UPPER(ot.mld_typeopdr_omschrijving)='OFFERTE INVESTERING'
AND ot.mld_typeopdr_isofferte=1 AND ot.mld_typeopdr_isofferte=1
AND o.mld_statusopdr_key IN (5, AND o.mld_statusopdr_key IN (5,
6, 6,
7, 7,
@@ -883,27 +881,27 @@ opdracht_bedrag
) )
AS AS
SELECT k.prs_kostenplaats_key, SELECT k.prs_kostenplaats_key,
k.prs_kostenplaats_nr, k.prs_kostenplaats_nr,
ksg.prs_kostensoortgrp_key, ksg.prs_kostensoortgrp_key,
ksg.prs_kostensoortgrp_oms, ksg.prs_kostensoortgrp_oms,
ks.prs_kostensoort_key, ks.prs_kostensoort_key,
ks.prs_kostensoort_oms, ks.prs_kostensoort_oms,
o.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr mld_opdr_nr, o.mld_melding_key||'/'||o.mld_opdr_bedrijfopdr_volgnr mld_opdr_nr,
o.mld_opdr_key, o.mld_opdr_key,
so.mld_statusopdr_omschrijving, so.mld_statusopdr_omschrijving,
CASE CASE
WHEN ot.mld_typeopdr_isofferte = 1 WHEN ot.mld_typeopdr_isofferte = 1
THEN 'Offerte' THEN 'Offerte'
ELSE 'Opdracht' ELSE 'Opdracht'
END opdracht_soort, END opdracht_soort,
TO_CHAR (m.mld_melding_omschrijving) omschrijving, TO_CHAR (m.mld_melding_omschrijving) omschrijving,
CASE CASE
WHEN ot.mld_typeopdr_isofferte = 1 WHEN ot.mld_typeopdr_isofferte = 1
THEN mld_opdr_kosten THEN mld_opdr_kosten
ELSE 0 ELSE 0
END offerte_bedrag, END offerte_bedrag,
CASE CASE
WHEN ot.mld_typeopdr_isofferte = 0 WHEN ot.mld_typeopdr_isofferte = 0
THEN mld_opdr_kosten THEN mld_opdr_kosten
ELSE 0 ELSE 0
END opdracht_bedrag END opdracht_bedrag
@@ -932,7 +930,7 @@ CREATE OR REPLACE VIEW WSKO_V_INOPSLAG
mld_url mld_url
) )
AS AS
SELECT i.ins_deel_key, SELECT i.ins_deel_key,
d.ins_discipline_omschrijving, d.ins_discipline_omschrijving,
isg.ins_srtgroep_omschrijving, isg.ins_srtgroep_omschrijving,
isd.ins_srtdeel_omschrijving, isd.ins_srtdeel_omschrijving,
@@ -944,21 +942,21 @@ AS
ins_srtdeel isd, ins_srtdeel isd,
ins_srtgroep isg, ins_srtgroep isg,
ins_discipline d, ins_discipline d,
mld_stdmelding msm mld_stdmelding msm
WHERE a.alg_ruimte_nr='9.99' WHERE a.alg_ruimte_nr='9.99'
AND a.alg_gebouw_code='SB_PAP' AND a.alg_gebouw_code='SB_PAP'
AND i.ins_alg_ruimte_key=a.alg_ruimte_key AND i.ins_alg_ruimte_key=a.alg_ruimte_key
AND isd.ins_srtdeel_key = i.ins_srtdeel_key AND isd.ins_srtdeel_key = i.ins_srtdeel_key
AND isg.Ins_srtgroep_key = isd.ins_srtgroep_key AND isg.Ins_srtgroep_key = isd.ins_srtgroep_key
AND d.ins_discipline_key = isg.ins_discipline_key AND d.ins_discipline_key = isg.ins_discipline_key
AND msm.mld_stdmelding_code='UITOPSLAG' AND msm.mld_stdmelding_code='UITOPSLAG'
AND i.ins_deel_key NOT IN (SELECT mo.ins_deel_key AND i.ins_deel_key NOT IN (SELECT mo.ins_deel_key
FROM mld_melding m , FROM mld_melding m ,
mld_stdmelding ms, mld_stdmelding ms,
mld_melding_object mo mld_melding_object mo
WHERE m.mld_stdmelding_key=ms.mld_stdmelding_key WHERE m.mld_stdmelding_key=ms.mld_stdmelding_key
AND ms.mld_stdmelding_code='UITOPSLAG' AND ms.mld_stdmelding_code='UITOPSLAG'
AND mo.mld_melding_key = m.mld_melding_key AND mo.mld_melding_key = m.mld_melding_key
AND m.mld_melding_status IN (0,2,3,4)); AND m.mld_melding_status IN (0,2,3,4));
-- EINDE rapportage views -- EINDE rapportage views

60
ZLMV/ZLMV.sql
View File

@@ -2,11 +2,11 @@
-- $Id$ -- $Id$
-- --
-- Script containing customer specific sql statements for the FACILITOR database -- Script containing customer specific sql statements for the FACILITOR database
-- --
-- --
-- --
-- --
-- --
DEFINE thisfile = 'ZLMV.SQL' DEFINE thisfile = 'ZLMV.SQL'
@@ -30,7 +30,7 @@ SET DEFINE OFF
------ payload begin ------ ------ payload begin ------
CREATE OR REPLACE PACKAGE ZLMV CREATE OR REPLACE PACKAGE ZLMV
AS AS
PROCEDURE inactivate_prs; PROCEDURE inactivate_prs;
PROCEDURE anonimiseer_bezoeker; PROCEDURE anonimiseer_bezoeker;
@@ -390,7 +390,7 @@ AS
FROM fac_imp_csv FROM fac_imp_csv
WHERE fac_import_key=p_import_key WHERE fac_import_key=p_import_key
ORDER BY fac_imp_csv_key; ORDER BY fac_imp_csv_key;
v_header NUMBER:=0; v_header NUMBER:=0;
v_afdeling_code VARCHAR2(15); v_afdeling_code VARCHAR2(15);
v_functie VARCHAR2(60); v_functie VARCHAR2(60);
@@ -398,28 +398,26 @@ BEGIN
v_header :=0; v_header :=0;
DELETE FROM fac_imp_perslid; DELETE FROM fac_imp_perslid;
DELETE FROM fac_imp_organisatie; DELETE FROM fac_imp_organisatie;
-- Eerst de csv inlezen naar standaard csv imp tabel FOR rec in C1
fac_import_genericcsv(p_import_key);
FOR rec in C1
LOOP LOOP
IF rec.prs_voornaam='GivenName' AND v_header=0 IF rec.prs_voornaam='GivenName' AND v_header=0
THEN THEN
v_header:=1; v_header:=1;
ELSE ELSE
BEGIN BEGIN
SELECT prs_afdeling_naam SELECT prs_afdeling_naam
INTO v_afdeling_code INTO v_afdeling_code
FROM prs_afdeling FROM prs_afdeling
WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling); WHERE UPPER(prs_afdeling_omschrijving)=UPPER(rec.prs_afdeling);
EXCEPTION EXCEPTION
WHEN NO_DATA_FOUND THEN WHEN NO_DATA_FOUND THEN
v_afdeling_code:='Onbekend'; v_afdeling_code:='Onbekend';
END; END;
IF length(rec.prs_titel)>1 THEN IF length(rec.prs_titel)>1 THEN
v_functie:=rec.prs_titel; v_functie:=rec.prs_titel;
ELSE ELSE
v_functie:='Onbekend'; v_functie:='Onbekend';
END IF; END IF;
INSERT INTO fac_imp_perslid(fac_import_key, INSERT INTO fac_imp_perslid(fac_import_key,
@@ -438,7 +436,7 @@ BEGIN
v_functie); v_functie);
END IF; END IF;
END LOOP; END LOOP;
END; END;
/ /
@@ -447,12 +445,12 @@ CREATE OR REPLACE PROCEDURE ZLMV_UPDATE_IMPPERSLID(p_import_key IN NUMBER)
AS AS
CURSOR p_del CURSOR p_del
IS IS
SELECT * SELECT *
FROM prs_perslid p FROM prs_perslid p
WHERE p.prs_perslid_verwijder IS NULL WHERE p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email AND p.prs_perslid_email NOT IN (SELECT prs_perslid_email
FROM fac_imp_perslid); FROM fac_imp_perslid);
CURSOR p_wrkplk CURSOR p_wrkplk
IS IS
SELECT p.prs_perslid_key, a.alg_ruimte_key SELECT p.prs_perslid_key, a.alg_ruimte_key
@@ -463,24 +461,24 @@ AS
AND p.prs_perslid_verwijder IS NULL AND p.prs_perslid_verwijder IS NULL
AND UPPER(a.alg_ruimte_omschrijving)='FACILITAIR' AND UPPER(a.alg_ruimte_omschrijving)='FACILITAIR'
AND a.alg_ruimte_nr='0.31'; AND a.alg_ruimte_nr='0.31';
oracle_err_num NUMBER; oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200); oracle_err_mes VARCHAR2 (200);
v_errormsg VARCHAR2 (200); v_errormsg VARCHAR2 (200);
v_aanduiding VARCHAR2 (200); v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (200); v_errorhint VARCHAR2 (200);
BEGIN BEGIN
prs.update_perslid (p_import_key, 'EMAIL', 'A', 1); prs.update_perslid (p_import_key, 'EMAIL', 'A', 1);
-- Opschonen van personen die niet meer in de import zitten -- Opschonen van personen die niet meer in de import zitten
FOR rec IN p_del FOR rec IN p_del
LOOP LOOP
prs.delete_perslid (p_import_key, rec.prs_perslid_key); prs.delete_perslid (p_import_key, rec.prs_perslid_key);
END LOOP; END LOOP;
-- Alle medewerkers Fcailitrair krijgen werkplek in Ruimte Facilitair gebouw C2 -- Alle medewerkers Fcailitrair krijgen werkplek in Ruimte Facilitair gebouw C2
FOR rec IN p_wrkplk FOR rec IN p_wrkplk
LOOP LOOP
v_aanduiding := 'Perslidkey: ' || rec.prs_perslid_key; v_aanduiding := 'Perslidkey: ' || rec.prs_perslid_key;
@@ -507,8 +505,8 @@ BEGIN
END; END;
END LOOP; END LOOP;
END; END;
/ /