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

WDKA#68779 -- Inrichten Wedeka

Browse Source 
svn path=/Customer/trunk/; revision=58203
This commit is contained in:
Norbert Wassink
2022-12-01 15:27:36 +00:00
parent 41aaf8a7d2
commit b05ad70326
1 changed files with 166 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

168
WDKA/WDKA.sql
View File

@@ -237,7 +237,7 @@ AS
IF (v_aanwezig = 0 AND v_aanmaak='1501') THEN -- D=82, A=1501
INSERT INTO ins_deel(ins_deel_omschrijving, ins_deel_aanmaak, ins_srtdeel_key, ins_deel_actief, ins_alg_ruimte_key, ins_alg_ruimte_type)
VALUES(v_objectNr, SYSDATE, v_objectSoortKey, 0, v_alg_ruimte_key ,'R')
VALUES(v_objectNr, SYSDATE, v_objectSoortKey, 1, v_alg_ruimte_key ,'R')
RETURNING ins_deel_key
INTO v_ins_deel_key;
@@ -2097,6 +2097,169 @@ END;
/
CREATE OR REPLACE PROCEDURE WDKA_IMPORT_SMARTWARE_NOTES(p_import_key IN NUMBER)
AS
CURSOR c
IS
SELECT *
FROM fac_imp_file
WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index;
c_fielddelimitor VARCHAR2 (1) := ';';
v_newline VARCHAR2 (4000);
v_errormsg VARCHAR2 (200);
v_errorhint VARCHAR2 (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_ins_deel_omschrijving VARCHAR2(100);
v_ins_deel_opmerking VARCHAR2(100);
v_notes1 VARCHAR2(4000);
v_notes2 VARCHAR2(4000);
v_count NUMBER;
BEGIN
v_count := 1;
DELETE FROM fac_imp_csv;
FOR rec IN c
LOOP
BEGIN
IF v_count > 1
THEN
v_count:=v_count+1;
v_errormsg := 'Fout FETCH te importeren rij '||v_count;
v_newline := rec.fac_imp_file_line;
v_aanduiding := '';
-- Lees alle veldwaarden
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 1, v_ins_deel_omschrijving);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 2, v_ins_deel_opmerking);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 3, v_notes1);
fac.imp_getfield_nr (v_newline, c_fielddelimitor, 4, v_notes2);
INSERT INTO fac_imp_csv(fac_import_key,
fac_imp_csv_index,
fac_imp_csv_col01,
fac_imp_csv_col02,
fac_imp_csv_col03,
fac_imp_csv_col04)
VALUES(p_import_key,
v_count,
v_ins_deel_omschrijving,
v_ins_deel_opmerking,
v_notes1,
v_notes2);
ELSE
v_count:=v_count+1;
END IF;
END;
END LOOP;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| 'ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
SUBSTR (v_aanduiding || v_errormsg, 1, 1000),
'Inleesproces notes gaat fout!');
END;
/
-- END WDKA_IMPORT_SMARTWARE_NOTES
CREATE OR REPLACE PROCEDURE WDKA_UPDATE_SMARTWARE_NOTES(p_import_key IN NUMBER)
AS
CURSOR sel
IS
SELECT *
FROM fac_imp_csv
WHERE fac_import_key = p_import_key;
v_newline VARCHAR2 (4000);
v_errormsg VARCHAR2 (200);
v_errorhint VARCHAR2 (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200);
v_ins_deel_omschrijving VARCHAR2(100);
v_ins_deel_key NUMBER;
BEGIN
FOR rec IN sel
LOOP
BEGIN
v_aanduiding:='Object '||rec.fac_imp_csv_col01||' niet gevonden';
v_errormsg:='Object niet gevonden';
SELECT ins_deel_key INTO v_ins_deel_key FROM ins_deel WHERE ins_deel_omschrijving = rec.fac_imp_csv_col01;
IF (LENGTH(rec.fac_imp_csv_col03)>1)
THEN
INSERT INTO ins_deel_note(ins_deel_key,
ins_deel_note_aanmaak,
ins_deel_note_omschrijving,
prs_perslid_key)
VALUES(v_ins_deel_key,
SYSDATE,
rec.fac_imp_csv_col03,
3);
END IF;
IF (LENGTH(rec.fac_imp_csv_col04)>1)
THEN
INSERT INTO ins_deel_note(ins_deel_key,
ins_deel_note_aanmaak,
ins_deel_note_omschrijving,
prs_perslid_key)
VALUES(v_ins_deel_key,
SYSDATE,
rec.fac_imp_csv_col04,
3);
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
fac.imp_writelog (p_import_key,
'E',
SUBSTR (v_aanduiding || v_errormsg, 1, 1000),
'Updateesproces notes gaat fout!');
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
v_errormsg :=
v_errormsg
|| 'ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key,
'E',
SUBSTR (v_aanduiding || v_errormsg, 1, 1000),
'Updateesproces notes gaat fout!');
END;
/
-- END WDKA_UPDATE_SMARTWARE_NOTES
-- kenmkerdomein-view tbv. Aanvraag Objectensoort!
CREATE OR REPLACE VIEW WDKA_V_INS_SRT
(
@@ -2220,7 +2383,8 @@ AS
(SELECT isc.ins_srtcontrole_omschrijving
FROM ins_srtcontrole isc
WHERE isc.ins_srtcontrole_key=ids.ins_srtcontrole_key) taak ,
ids.ins_deelsrtcontrole_datum,
ids.ins_deelsrtcontrole_datum,
DECODE(ids.ins_deelsrtcontrole_status,0,'Ingepland', 2,'Gestart/In behandeling',5,'Afgemeld/Gereed gemeld',6,'Afgerond') controle_status,
INS.NEXTCYCLUSDATE(i.ins_deel_key, ids.ins_srtcontrole_key,1) volgende_datum,
a.alg_ruimte_omschrijving,
p.prs_perslid_email,