diff --git a/onces/SKAF/SKAF#76053_taken_1.sql b/onces/SKAF/SKAF#76053_taken_1.sql index 8592d5901..5b2df4ffa 100644 --- a/onces/SKAF/SKAF#76053_taken_1.sql +++ b/onces/SKAF/SKAF#76053_taken_1.sql @@ -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; /