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

BAUS#79594 Implementatie Bausch & Lomb - procedure om kenmerken bij taken te importeren

Browse Source 
svn path=/Customer/trunk/; revision=62040
This commit is contained in:
Suzan Wiegerinck
2023-10-04 14:47:46 +00:00
parent b94803dd87
commit 78e1b34feb
1 changed files with 85 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
BAUS/baus.sql
View File

@@ -356,7 +356,92 @@ AS
WHERE ctr.ins_deel_key = last_insp.ins_deel_key(+)
AND TRUNC (ctr.ins_deelsrtcontrole_datum) < TRUNC (SYSDATE + 42);
CREATE OR REPLACE PROCEDURE baus_import_taak_km (p_import_key IN NUMBER)
AS
BEGIN
fac_import_genericcsv (p_import_key);
END baus_import_taak_km;
/
CREATE OR REPLACE PROCEDURE baus_update_taak_km (p_import_key IN NUMBER)
IS
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
v_errormsg VARCHAR2 (1000);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_count NUMBER;
CURSOR c IS
SELECT i.fac_import_key,
fac.safe_to_number (i.fac_imp_csv_col01)
ins_srtkenmerk_key,
fac.safe_to_number (i.fac_imp_csv_col02)
ins_srtinstallatie_key,
i.fac_imp_csv_col03
ins_kenmerk_niveau, -- is altijd C
i.fac_imp_csv_col04
ins_kenmerk_bewerkniveau, -- is altijd D
fac.safe_to_number (i.fac_imp_csv_col05)
ins_kenmerkvolgnummer
FROM fac_imp_csv i
WHERE i.fac_import_key = p_import_key;
BEGIN
FOR rec IN c
LOOP
BEGIN
v_count := 0;
SELECT COUNT (*)
INTO v_count
FROM INS_KENMERK k
WHERE k.ins_srtkenmerk_key = rec.ins_srtkenmerk_key
AND k.ins_srtinstallatie_key = rec.ins_srtinstallatie_key
AND k.ins_kenmerk_niveau = 'C'
AND k.ins_kenmerk_bewerkniveau = 'D';
IF v_count = 0
AND UPPER (rec.ins_srtkenmerk_key) <> 'INS_SRTKENMERK_KEY'
THEN
BEGIN
v_errorhint :=
'Fout bij kenmerk voor taak '
|| rec.ins_srtinstallatie_key;
INSERT INTO ins_kenmerk (ins_srtkenmerk_key,
ins_srtinstallatie_key,
ins_kenmerk_niveau,
ins_kenmerk_bewerkniveau,
ins_kenmerk_volgnummer)
VALUES (rec.ins_srtkenmerk_key,
rec.ins_srtinstallatie_key,
'C',
'D',
rec.ins_kenmerkvolgnummer);
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
v_errorhint
|| ' ORACLE (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (
p_import_key,
'W',
v_aanduiding || v_errormsg,
'Kenmerk kan niet worden aangemaakt');
COMMIT;
END;
END IF;
END;
END LOOP;
END baus_update_taak_km;
/
------ payload end ------