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

60
ZLMV/ZLMV.sql
View File

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