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

SKAF#76053 -- Script om voor de mjob-implementatie de xcp-taken te verwerken - deel 1

Browse Source 
svn path=/Customer/; revision=60923
This commit is contained in:
Jos Migo
2023-06-23 14:38:52 +00:00
parent 25774886c4
commit 90be06bab0
1 changed files with 49 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
onces/SKAF/SKAF#76053_taken_1.sql
View File

@@ -27,11 +27,13 @@ DECLARE
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (150);
currentversion fac_module.fac_module_version%TYPE;
v_aanduiding VARCHAR (100);
v_aanduiding VARCHAR (200);
v_count NUMBER;
v_ins_deel_key NUMBER;
v_ins_srtcontrole_key NUMBER;
v_ins_srtcontroledl_xcp_key NUMBER;
v_teller_xcptaken NUMBER := 0 ;
p_import_key NUMBER;
CURSOR C
IS
@@ -41,19 +43,26 @@ DECLARE
AND fac_imp_csv_index > 1
ORDER BY fac_imp_csv_index;
BEGIN
SELECT MAX (fac_import_key)
INTO p_import_key
FROM fac_import
WHERE fac_import_app_key = 341 AND fac_import_datum_verwerkt IS NULL ;
FOR rec IN c
LOOP
BEGIN
v_ins_deel_key := '';
v_ins_srtcontrole_key := '';
v_ins_srtcontroledl_xcp_key := '';
-- v_ins_deel_key := NULL;
-- v_ins_srtcontrole_key := NULL ;
-- v_ins_srtcontroledl_xcp_key := NULL;
v_aanduiding := 'Record: ' || TO_CHAR(rec.fac_imp_csv_index) || ' / object ' || rec.fac_imp_csv_col01 || ' / taak ' || rec.fac_imp_csv_col03 ;
v_errorhint := 'eerst object - ins_deel_key - erbij zoeken';
SELECT MAX(ins_deel_key)
INTO v_ins_deel_key
FROM ins_deel
WHERE ins_deel_upper = UPPER (rec.fac_imp_csv_col01)
WHERE ins_deel_upper = UPPER (TRIM(rec.fac_imp_csv_col01))
AND ins_deel_verwijder IS NULL ;
v_errorhint := 'dan basistaak - ins_srtcontrole_key - erbij zoeken';
@@ -61,7 +70,7 @@ BEGIN
SELECT MAX(ins_srtcontrole_key)
INTO v_ins_srtcontrole_key
FROM ins_srtcontrole
WHERE LOWER (ins_srtcontrole_omschrijving) = LOWER (rec.fac_imp_csv_col03)
WHERE LOWER (ins_srtcontrole_omschrijving) = LOWER (TRIM(rec.fac_imp_csv_col03))
AND ins_scenario_key = 1;
v_errorhint := 'check of xcp er al in staat, zo ja dan geen import';
@@ -104,19 +113,48 @@ BEGIN
NULL,
NULL,
NULL,
rec.fac_imp_csv_col05, -- groep = 'Eerder al verschoven' of NULL
rec.fac_imp_csv_col04, -- 'Aanschaf/installatie: 01-01-2002',
rec.fac_imp_csv_col05, -- Groep = 'Eerder al verschoven' of NULL
rec.fac_imp_csv_col04, -- Opmerking bij xcp_taak, bijv Aanschaf/installatie: 01-01-2002',
TO_DATE(rec.fac_imp_csv_col10,'dd-mm-yyyy'), -- Startjaar - TO_DATE ('01-01-2023 00:00', 'DD-MM-YYYY HH24:MI'),
NULL,
fac.safe_to_number(rec.fac_imp_csv_col12), -- aantal_afwijkend_object
NULL,
fac.safe_to_number(rec.fac_imp_csv_col11), -- kosten per eenheid
fac.safe_to_number(rec.fac_imp_csv_col12), -- Aantal_afwijkend_object
fac.safe_to_number(rec.fac_imp_csv_col13), -- Eenheid_afwijkend_object
fac.safe_to_number(rec.fac_imp_csv_col11), -- Kosten per eenheid
NULL,
NULL,
NULL);
v_teller_xcptaken := v_teller_xcptaken + 1 ;
UPDATE fac_imp_csv
SET fac_imp_csv_col15 = 'ok'
WHERE fac_import_key = p_import_key and fac_imp_csv_index = rec.fac_imp_csv_index ;
END IF;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error '
|| oracle_err_num
|| '/'
|| oracle_err_mes
|| ')';
fac.imp_writelog (p_import_key, 'E', v_aanduiding || v_errormsg, v_errorhint);
-- fac.writelog ('IMP_CSV_TAKEN', 'E', v_aanduiding || v_errormsg, v_errorhint);
END;
END LOOP;
-- logging wegschrijven
fac.imp_writelog (p_import_key,
'I',
'Totaal weggeschreven xcp_taken: ' || TO_CHAR(v_teller_xcptaken),
'');
END;
/